Soyez le premier à donner votre avis sur cette source.
Vue 7 777 fois - Téléchargée 536 fois
'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
24 août 2006 à 20:14
15 août 2004 à 07:10
27 oct. 2003 à 09:41
2 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.