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

Soyez le premier à donner votre avis sur cette source.

Vue 4 238 fois - Téléchargée 424 fois

Télécharger le projet
Commenter

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
Télécharger le projet

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
20 juil. 2004 à 20:18
Enfin un code 100% prêt a l'emploi sous ACCESS

10/10
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 75
18 janv. 2004 à 23:16
pour la source de yomm

http://www.vbfrance.com/code.aspx?ID=19447
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 75
18 janv. 2004 à 23:15
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
18 janv. 2004 à 22:50
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 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 75
24 mai 2003 à 13:40
meilleure.... plus rigoureuse , certes (gestion d'erreurs), mais le principe est le même...!!
S'inscrire maintenant

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.

Du même auteur (Renfield)