GNT sans publicité, site mobile, fonctionnalitées exclusives...

INFOS CD 2 autre possibilité

Le
Lionel
Bonjour
Pas de reponse au precedent message c'est que rie de doit etre possible de
ce coté là
Mais il existe peut etre un solution
Lorsqu'on met un cd et que le logiciel de lecture se connecte sur une cddb
il stocke les données dans Cdplayer.ini sous la forme pae exemple

[E307A9]
EntryType=1
artist=Sarah Slean
titleÚy One
numtracks
0=Pilgrim
1=Lucky Me
2=Mary
3Êlifornia
4Úy One
5=Out in the Park
6=Vertigo
7=When Another Midnight
8=The Score
9=Your Wish is My Wish
10=Wake Up
order=0 1 2 3 4 5 6 7 8 9 10
numplay

[E307A9] le "code repère" ou numéro du CD (qui permet a la prochaine lecture
de reconnaitre le cd
numplay nombre de piste -1 (numerotation a partir de 0)
Comment recuperer ces données dans excel ?
Ouvrir un formulaire qui pourrait avoir autant de textbox que de nombre de
piste?

Probleme complexe pour moi mais je suis certain que qq'1 pourra me venir en
aide
Merci
Lire les 9 réponses

Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #4354351
Une procédure publiée ici par Michel Perron :

Sub test()
Write_Mp3_Tag + les paramètres
End Sub

'---------------------------------
Sub Write_Mp3_Tag(Fichier As String, Titre As String, Artiste As String _
, Album As String, Annee As String, Commentaire As String, Genre As Byte)
Dim nFile As Integer, Buffer As String

nFile = freeFile
Open Fichier For Binary Shared As #nFile
Buffer = Space(3)
Get #nFile, LOF(nFile) - 127, Buffer
If Not Buffer = "TAG" Then
Seek #nFile, LOF(nFile)
Put #nFile, , "TAG"
End If
Put #nFile, , Format(" " & Titre, "!" & String(30, "@"))
Put #nFile, , Format(" " & Artiste, "!" & String(30, "@"))
Put #nFile, , Format(" " & Album, "!" & String(30, "@"))
Put #nFile, , Format(" " & Annee, "!" & String(4, "@"))
Put #nFile, , Format(" " & Commentaire, "!" & String(30, "@"))
Put #nFile, , Genre
Close #nFile
End Sub
'---------------------------------



"Lionel" 45f01d27$0$27412$
Bonjour
Pas de reponse au precedent message c'est que rie de doit etre possible de
ce coté là
Mais il existe peut etre un solution
Lorsqu'on met un cd et que le logiciel de lecture se connecte sur une cddb
il stocke les données dans Cdplayer.ini sous la forme pae exemple

[E307A9]
EntryType=1
artist=Sarah Slean
titleÚy One
numtracks
0=Pilgrim
1=Lucky Me
2=Mary
3Êlifornia
4Úy One
5=Out in the Park
6=Vertigo
7=When Another Midnight
8=The Score
9=Your Wish is My Wish
10=Wake Up
order=0 1 2 3 4 5 6 7 8 9 10
numplay

[E307A9] le "code repère" ou numéro du CD (qui permet a la prochaine lecture
de reconnaitre le cd
numplay nombre de piste -1 (numerotation a partir de 0)
Comment recuperer ces données dans excel ?
Ouvrir un formulaire qui pourrait avoir autant de textbox que de nombre de
piste?

Probleme complexe pour moi mais je suis certain que qq'1 pourra me venir en
aide...
Merci
Lionel
Le #4354261
C'est possible d'expliquer un peu ..
Le but est de reuperer ces infos dans excel....
De plus je ne lis que des cd et pas des mp3
Je suis perdu... Je ne comprends pas ou on va avec cette procedure... :-(
"MichDenis"
Une procédure publiée ici par Michel Perron :

Sub test()
Write_Mp3_Tag + les paramètres
End Sub

'---------------------------------
Sub Write_Mp3_Tag(Fichier As String, Titre As String, Artiste As String _
, Album As String, Annee As String, Commentaire As String, Genre As
Byte)

Dim nFile As Integer, Buffer As String

nFile = freeFile
Open Fichier For Binary Shared As #nFile
Buffer = Space(3)
Get #nFile, LOF(nFile) - 127, Buffer
If Not Buffer = "TAG" Then
Seek #nFile, LOF(nFile)
Put #nFile, , "TAG"
End If
Put #nFile, , Format(" " & Titre, "!" & String(30, "@"))
Put #nFile, , Format(" " & Artiste, "!" & String(30, "@"))
Put #nFile, , Format(" " & Album, "!" & String(30, "@"))
Put #nFile, , Format(" " & Annee, "!" & String(4, "@"))
Put #nFile, , Format(" " & Commentaire, "!" & String(30, "@"))
Put #nFile, , Genre
Close #nFile
End Sub
'---------------------------------



"Lionel" 45f01d27$0$27412$
Bonjour
Pas de reponse au precedent message c'est que rie de doit etre possible de
ce coté là
Mais il existe peut etre un solution
Lorsqu'on met un cd et que le logiciel de lecture se connecte sur une cddb
il stocke les données dans Cdplayer.ini sous la forme pae exemple

[E307A9]
EntryType=1
artist=Sarah Slean
titleÚy One
numtracks
0=Pilgrim
1=Lucky Me
2=Mary
3Êlifornia
4Úy One
5=Out in the Park
6=Vertigo
7=When Another Midnight
8=The Score
9=Your Wish is My Wish
10=Wake Up
order=0 1 2 3 4 5 6 7 8 9 10
numplay

[E307A9] le "code repère" ou numéro du CD (qui permet a la prochaine
lecture

de reconnaitre le cd
numplay nombre de piste -1 (numerotation a partir de 0)
Comment recuperer ces données dans excel ?
Ouvrir un formulaire qui pourrait avoir autant de textbox que de nombre de
piste?

Probleme complexe pour moi mais je suis certain que qq'1 pourra me venir
en

aide...
Merci





Lionel
Le #4330991
Bonjour

A nouveau moi pour le meme probleme ...
La procedure precedente ne fonctionne pas...
Et comme en plus je comprends pas ce qu'elle fait je ne peux meme pas tenter
de la modifier pour qu'elle fonctionne
Merci
"Lionel" 45f02db4$0$27367$
C'est possible d'expliquer un peu ..
Le but est de reuperer ces infos dans excel....
De plus je ne lis que des cd et pas des mp3
Je suis perdu... Je ne comprends pas ou on va avec cette procedure... :-(
"MichDenis"
Une procédure publiée ici par Michel Perron :

Sub test()
Write_Mp3_Tag + les paramètres
End Sub

'---------------------------------
Sub Write_Mp3_Tag(Fichier As String, Titre As String, Artiste As String
_


, Album As String, Annee As String, Commentaire As String, Genre As
Byte)

Dim nFile As Integer, Buffer As String

nFile = freeFile
Open Fichier For Binary Shared As #nFile
Buffer = Space(3)
Get #nFile, LOF(nFile) - 127, Buffer
If Not Buffer = "TAG" Then
Seek #nFile, LOF(nFile)
Put #nFile, , "TAG"
End If
Put #nFile, , Format(" " & Titre, "!" & String(30, "@"))
Put #nFile, , Format(" " & Artiste, "!" & String(30, "@"))
Put #nFile, , Format(" " & Album, "!" & String(30, "@"))
Put #nFile, , Format(" " & Annee, "!" & String(4, "@"))
Put #nFile, , Format(" " & Commentaire, "!" & String(30, "@"))
Put #nFile, , Genre
Close #nFile
End Sub
'---------------------------------



"Lionel" 45f01d27$0$27412$
Bonjour
Pas de reponse au precedent message c'est que rie de doit etre possible
de


ce coté là
Mais il existe peut etre un solution
Lorsqu'on met un cd et que le logiciel de lecture se connecte sur une
cddb


il stocke les données dans Cdplayer.ini sous la forme pae exemple

[E307A9]
EntryType=1
artist=Sarah Slean
titleÚy One
numtracks
0=Pilgrim
1=Lucky Me
2=Mary
3Êlifornia
4Úy One
5=Out in the Park
6=Vertigo
7=When Another Midnight
8=The Score
9=Your Wish is My Wish
10=Wake Up
order=0 1 2 3 4 5 6 7 8 9 10
numplay

[E307A9] le "code repère" ou numéro du CD (qui permet a la prochaine
lecture

de reconnaitre le cd
numplay nombre de piste -1 (numerotation a partir de 0)
Comment recuperer ces données dans excel ?
Ouvrir un formulaire qui pourrait avoir autant de textbox que de nombre
de


piste?

Probleme complexe pour moi mais je suis certain que qq'1 pourra me venir
en

aide...
Merci









MichDenis
Le #4330931
Je t'ai expédié une nouvelle procédure ainsi qu'un fichier ce matin
en réponse à une demande de supplément dans ma BAL perso.

Je n'ai reçu aucun commentaire en retour !

La procédure sur ce fil ne fait rien de plus que ceux que tu
as reçues dans ta bal privé hier.

Cependant, comme tous ces procédures dont destinées à des fichiers MP3
je ne vois pas l'utilité de pousser plus loin ...puisque d'après ta demande,
ce n'est pas le type de fichier que tu veux traiter..



"Lionel" 45f192bf$0$27366$
Bonjour

A nouveau moi pour le meme probleme ...
La procedure precedente ne fonctionne pas...
Et comme en plus je comprends pas ce qu'elle fait je ne peux meme pas tenter
de la modifier pour qu'elle fonctionne
Merci
"Lionel" 45f02db4$0$27367$
C'est possible d'expliquer un peu ..
Le but est de reuperer ces infos dans excel....
De plus je ne lis que des cd et pas des mp3
Je suis perdu... Je ne comprends pas ou on va avec cette procedure... :-(
"MichDenis"
Une procédure publiée ici par Michel Perron :

Sub test()
Write_Mp3_Tag + les paramètres
End Sub

'---------------------------------
Sub Write_Mp3_Tag(Fichier As String, Titre As String, Artiste As String
_


, Album As String, Annee As String, Commentaire As String, Genre As
Byte)

Dim nFile As Integer, Buffer As String

nFile = freeFile
Open Fichier For Binary Shared As #nFile
Buffer = Space(3)
Get #nFile, LOF(nFile) - 127, Buffer
If Not Buffer = "TAG" Then
Seek #nFile, LOF(nFile)
Put #nFile, , "TAG"
End If
Put #nFile, , Format(" " & Titre, "!" & String(30, "@"))
Put #nFile, , Format(" " & Artiste, "!" & String(30, "@"))
Put #nFile, , Format(" " & Album, "!" & String(30, "@"))
Put #nFile, , Format(" " & Annee, "!" & String(4, "@"))
Put #nFile, , Format(" " & Commentaire, "!" & String(30, "@"))
Put #nFile, , Genre
Close #nFile
End Sub
'---------------------------------



"Lionel" 45f01d27$0$27412$
Bonjour
Pas de reponse au precedent message c'est que rie de doit etre possible
de


ce coté là
Mais il existe peut etre un solution
Lorsqu'on met un cd et que le logiciel de lecture se connecte sur une
cddb


il stocke les données dans Cdplayer.ini sous la forme pae exemple

[E307A9]
EntryType=1
artist=Sarah Slean
titleÚy One
numtracks
0=Pilgrim
1=Lucky Me
2=Mary
3Êlifornia
4Úy One
5=Out in the Park
6=Vertigo
7=When Another Midnight
8=The Score
9=Your Wish is My Wish
10=Wake Up
order=0 1 2 3 4 5 6 7 8 9 10
numplay

[E307A9] le "code repère" ou numéro du CD (qui permet a la prochaine
lecture

de reconnaitre le cd
numplay nombre de piste -1 (numerotation a partir de 0)
Comment recuperer ces données dans excel ?
Ouvrir un formulaire qui pourrait avoir autant de textbox que de nombre
de


piste?

Probleme complexe pour moi mais je suis certain que qq'1 pourra me venir
en

aide...
Merci









MichDenis
Le #4240211
Il existe un programme à cet adresse : http://www.nch.com.au/tageditor/index.html

Une composante de ce programme est gratuit et il permet de lire et d'éditer
le "Tag" des fichiers WAV et MP3. Évidemment, tu as compris que ce
programme installe d'autres éléments qui eux sont payants. L'espace
requis sur le DD est de 5 Mo. (Cela est en anglais ... )





"Lionel" 45f01d27$0$27412$
Bonjour
Pas de reponse au precedent message c'est que rie de doit etre possible de
ce coté là
Mais il existe peut etre un solution
Lorsqu'on met un cd et que le logiciel de lecture se connecte sur une cddb
il stocke les données dans Cdplayer.ini sous la forme pae exemple

[E307A9]
EntryType=1
artist=Sarah Slean
titleÚy One
numtracks
0=Pilgrim
1=Lucky Me
2=Mary
3Êlifornia
4Úy One
5=Out in the Park
6=Vertigo
7=When Another Midnight
8=The Score
9=Your Wish is My Wish
10=Wake Up
order=0 1 2 3 4 5 6 7 8 9 10
numplay

[E307A9] le "code repère" ou numéro du CD (qui permet a la prochaine lecture
de reconnaitre le cd
numplay nombre de piste -1 (numerotation a partir de 0)
Comment recuperer ces données dans excel ?
Ouvrir un formulaire qui pourrait avoir autant de textbox que de nombre de
piste?

Probleme complexe pour moi mais je suis certain que qq'1 pourra me venir en
aide...
Merci
Publicité
Suivre les réponses
Poster une réponse
Anonyme