Editeur de tag mp3

Soyez le premier à donner votre avis sur cette source.

Vue 7 397 fois - Téléchargée 511 fois

Description

Sa sert a voir et a écrire des tag ds des fichier mp3.

Source / Exemple :


'Module:

Public Type GetTag1
    Titre As String
    Artiste As String
    Album As String
    Année As String
    Commentaire As String
End Type

Public Function GetTag(Fichier As String) As GetTag1
Dim chiffre As Integer, texte As String
    chiffre = FreeFile
If Dir(Fichier) <> "" Then
Open Fichier For Binary As #chiffre
    texte = Space$(LOF(chiffre))
Get #chiffre, LOF(chiffre) - 127, texte
    If Mid(texte, 1, 3) = "TAG" Then
    texte = Mid(texte, 4)
    GetTag.Titre = Trim(Mid(texte, 1, 30))
    GetTag.Artiste = Trim(Mid(texte, 31, 30))
    GetTag.Album = Trim(Mid(texte, 61, 30))
    GetTag.Année = Trim(Mid(texte, 91, 4))
    GetTag.Commentaire = Trim(Mid(texte, 95, 30))
    End If
Close #chiffre
End If
End Function

Public Function WriteTag(Fichier As String, Titre As String, Artiste As String, Album As String, Annee As String, Commentaire As String)
Dim chiffre As Integer, texte As String, wdata As String
chiffre = FreeFile
If Dir(Fichier) <> "" Then
Open Fichier For Binary As #chiffre
texte = Space(LOF(chiffre))
Get #chiffre, LOF(chiffre) - 127, texte
wdata = "TAG" & espace(Titre, 30) & espace(Artiste, 30) & espace(Album, 30) & espace(Annee, 4) & espace(Commentaire, 30) & "ÿ"
If Mid(texte, 1, 3) = "TAG" Then
Put #chiffre, LOF(chiffre) - 127, wdata
Else
Put #chiffre, LOF(chiffre), wdata
End If
Close #chiffre
End If

End Function

Public Function espace(texte As String, longeur As Integer) As String
If Len(texte) > longeur Then espace = Mid(texte, 1, longeur): Exit Function
If texte = "" Then texte = "-"
Do While Not Len(texte) = longeur
texte = texte & " "
Loop
espace = texte
End Function

Form:
Dans un file1_click:

With GetTag(File1.Path & "\" & File1.FileName)
Texte1.Text = .Titre
Texte2.Text = .Artiste
Texte3.Text = .Album
Texte4.Text = .Année
Texte5.Text = .Commentaire
End With

'Ecrire un tag:
WriteTag File1.Path & "\" & File1.FileName, Texte1.Text, Texte2.Text, Texte3.Text, Texte4.Text, Texte5.Text

Conclusion :


Signaler moi les bug.
P.S. ds le zip ,vous navez ka clicker sur le une des label et elle se changera en textbox pour modifier les tag.Appuyer sur Enter pour sauver.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
42
Date d'inscription
lundi 24 octobre 2005
Statut
Membre
Dernière intervention
1 février 2007

Excellent j'avais justement besoin d'un truc simple, facile a comprendre car je suis debutant.
Messages postés
130
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
7 juillet 2012

La source se comprend facilement, c'est exactement ce que j'attendais. Merci beaucoup. 10/10 ;-)
Messages postés
43
Date d'inscription
mercredi 20 août 2003
Statut
Membre
Dernière intervention
20 décembre 2003

un peu court comme description...
Messages postés
898
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
26 juillet 2007
2
COOOL Je croyais que c'était impossible de trouver un truc aussi simple !!!!!!!!

TROP TROP TROP TROP BIEN !!!!

10/10 !!!
Messages postés
1
Date d'inscription
samedi 12 avril 2003
Statut
Membre
Dernière intervention
26 juillet 2003

Tro de la BALLLLLLLL !!!!!!!!! ENFIN un truc cool, simple, rapide ...
MERCI ;)
Afficher les 7 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.