Classe de lecture / ecriture des id3 tags (v1) des mp3

Soyez le premier à donner votre avis sur cette source.

Vue 3 825 fois - Téléchargée 392 fois

Description

on en trouve a la pelle sur VbFrance, je sais, mais bon
la , j'utilise un module de classe, et ma facon de lire & enregistrer et, a mon avis pas trop con....

je pensai faire un soft de Taggage en masse, je le ferai le moment venu, après les exams !!!

Source / Exemple :


' ne gere que le tag V1.......

' ici, que le module de classe
' insererz le dans un projet puis :

    Dim TagV1 As New ReyMp3TagV1
    TagV1.Load "D:\iMesh\(Craddle Of Filth)Downfall.mp3"
    TagV1.Comment = "Tagged By Renfield"
    TagV1.Track = 5
    TagV1.Save

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Wildagger
Messages postés
5
Date d'inscription
vendredi 16 juillet 2004
Statut
Membre
Dernière intervention
14 juin 2006
-
Enfin un code 100% prêt a l'emploi sous ACCESS

10/10
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
lol
oupps..... juste un oubli !!

en passant, FileNumber peux tout a fait se "contenter" d'être un 'Byte'.


je vais pas remettre le nez dedans....
si tu veux un truc assez poussé (vraiment bien, en plus) va voir les sources de yomm
Proger
Messages postés
248
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
19 décembre 2008
-
problème dans Load/Save:

mFile = File
Dim FileNumber As Byte
FileNumber = FreeFile
Open File For Binary Access Read As #FileNumber
Seek #1, LOF(FileNumber) - 127
Get #1, , mTagV1
Close FileNumber

pas glop, faut debugé. Perso j'ai fais :

mFile = File
Dim FileNumber As Integer
FileNumber = FreeFile
Open File For Binary Access Read As #FileNumber
Seek #FileNumber, LOF(FileNumber) - 127
Get #FileNumber, , mTagV1
Close FileNumber

Je me sert de ta classe pour "cloner" des tags, a quand le support ID3v2, ainsi que les freetag des fichiers .ogg, .ape, .aac ? Ca serai sympa, et sérieusement compétitif :)
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
meilleure.... plus rigoureuse , certes (gestion d'erreurs), mais le principe est le même...!!

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.