bijour !!
J'essai de developper 1 lecteur mp3 depui peu. Je vois qu'on peut chopper pas mal 2 sources sur ce sujet ici !
Le pb ce ke je cape pô grand chose . Je bugge surtout sur les éditeurs de tags !
For exampeuleu, 2 points à la ligne .
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
Pourrait on m'aider ? en me commentant le code par exemple !merci d'avance