begin process at 2008 09 05 20:25:49
1 237 474 membres
414 nouveaux aujourd'hui
14 313 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

EDITEUR DE TAG MP3


Information sur la source

Catégorie :Fichier / Disque Niveau : Débutant Date de création : 16/03/2003 Date de mise à jour : 16/03/2003 20:55:50 Vu / téléchargé: 4 247 / 331

Note :
9,8 / 10 - par 5 personnes
9,80 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note


Description

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

Source

  • '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
'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.
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

  • signaler à un administrateur
    Commentaire de doubledragon le 19/03/2003 23:50:12

    Une capture serait interréssant.
    Tant pis pas de test

  • signaler à un administrateur
    Commentaire de yoman64 le 20/03/2003 17:14:11

    Pourkoi faire une capture, ce n'est qu'un module!

  • signaler à un administrateur
    Commentaire de sims2003 le 26/07/2003 17:42:52

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

  • signaler à un administrateur
    Commentaire de z980x le 02/09/2003 14:14:27

    COOOL Je croyais que c'était impossible de trouver un truc aussi simple !!!!!!!!

    TROP TROP TROP TROP BIEN !!!!

    10/10 !!!

  • signaler à un administrateur
    Commentaire de jon256 le 27/10/2003 09:41:19

    un peu court comme description...

  • signaler à un administrateur
    Commentaire de Tibabou le 15/08/2004 07:10:30

    La source se comprend facilement, c'est exactement ce que j'attendais. Merci beaucoup. 10/10 ;-)

  • signaler à un administrateur
    Commentaire de Kuni59 le 24/08/2006 20:14:57

    Excellent j'avais justement besoin d'un truc simple, facile a comprendre car je suis debutant.

Ajouter un commentaire

Pub



Appels d'offres

CalendriCode

Septembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
2930     

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Boutique

Boutique de goodies CodeS-SourceS