Discussion :

[sliverman]

Bonjour a tous, je voudrai faire un programme utile ( même si il en existe plein mais c'est pour m'initier d'avantage )
Ce programme serait de lire les Tag de MP3 ( j'arrive à le faire grace à un module ) mais je n'arrive pas à les modifier...

Donc j'ai un bouton Ouvrir, qui ouvre un boite de dialogue Open, je séléctionne mon MP3 mais je n'arrive pas a récupérer la taille du MP3. Comment faire cela ? Ainsi que modifier les Tag des MP3 ( artiste, titre, album ) ?

Voila le module que j'ai trouver qui lis juste les Tag sans pouvoir les modifier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
'Module permetant de lire les tag
 
Global ReadOnly As Boolean
Dim FF
Dim txt1 As String * 30
Dim sTitre As String
Option Explicit
Public Function GetTitre(fichier As String) As String 'fonction pour recupérer le titre
FF = FreeFile ' s'il est taggé alors:
Open fichier For Binary As FF 'ovre le fichier
Get FF, FileLen(fichier) - 124, txt1 'recupère le tag
Close FF 'le referme
frmMain.Label2.Caption = Trim$(txt1) 'le met dan le Label
End Function
 
Public Function GetAuteur(fichier As String) As String 'idem pour l'Auteur
FF = FreeFile
Open fichier For Binary As FF
Get FF, FileLen(fichier) - 94, txt1
Close FF
frmMain.Label4.Caption = Trim$(txt1)
End Function
 
Public Function GetAlbum(fichier As String) As String 'idem pour L'album
FF = FreeFile
Open fichier For Binary As FF
Get FF, FileLen(fichier) - 64, txt1
Close FF
frmMain.Label3.Caption = Trim$(txt1)
If frmMain.Label2 = "" Then
End If
End Function
Private Function CheckTag(fichier As String, Ecrire As Boolean) As Boolean
CheckTag = True 'verifie si il est Taggé
Dim Tag As String * 3
FF = FreeFile
Open fichier For Binary As FF 'ouvre le fichier
Get FF, FileLen(fichier) - 127, Tag
If Tag <> "TAG" Then CheckTag = False 'regarde s'il est taggé
End Function

Et je n'ai pas compris vraiement le code et surtout pourquoi il y a 124, 94, 64 et 127 ? Je me doute qu'il sont utile pour la lecture du Tag mais pourquoi ...

Merci d'avance

[Delbeke]

Je ne connais pas le format MP3, mais d'apres ce que je peux lire du code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim txt1 As String * 30
....
Get FF, FileLen(fichier) - 124, txt1 'recupère le tag

veux dire : lire 30 caractères à partir de la position Longeur de fichier -124) .
le résultat sera dans txt1

pour réecrire ce tag tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
txt1 = "La nouvelle valeur"
Put FF, Get FF, FileLen(fichier) - 124, txt1

[Vld44]

tiens je ne connaissais pas le mot-clé "global"

[Delbeke]

c'est un vestige de vb3 ou peut être encore même avant çà, il equivaut a Public

[zazaraignée]

tiens je ne connaissais pas le mot-clé "global"

Dans un Module (.bas) , mais pas dans une Form.

[Delbeke]

Très juste zaza
J'avais pas fait attention

[Vld44]

c'est déprécié non ? Si ça fait pareil que "public" alors je n'ai rien perdu.