Editeur de tag mp3
Soyez le premier à donner votre avis sur cette source.
Vue 7 777 fois - Téléchargée 536 fois
Description
Sa sert a voir et a écrire des tag ds des fichier mp3.
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.
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
- Chiffre en tag
- Chiffre tag - Meilleures réponses
- Tag chiffre - Meilleures réponses
- Chiffrement affine python - Guide
- Chiffrement affine en langage c - Guide
- Chiffrement de hill python - Guide
- Chiffrement de hill code java - Guide
- Chiffrement de césar en c - Guide
24 août 2006 à 20:14
15 août 2004 à 07:10
27 oct. 2003 à 09:41
- Messages postés
-
897
- Date d'inscription
- jeudi 6 juin 2002
- Statut
- Membre
- Dernière intervention
- 26 juillet 2007
22 sept. 2003 à 14:14
TROP TROP TROP TROP BIEN !!!!
10/10 !!!
26 juil. 2003 à 17:42
MERCI ;)
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.