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" a écrit dans le message de news:
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
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" <lionel.ma@wanadoo.fr> a écrit dans le message de news:
45f01d27$0$27412$ba4acef3@news.orange.fr...
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
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" a écrit dans le message de news:
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
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" a écrit dans le message de news: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" a écrit dans le message de news:
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
lecturede 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
enaide...
Merci
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" <michdenis@hotmail.com> a écrit dans le message de news:
eYrhyIZYHHA.4220@TK2MSFTNGP03.phx.gbl...
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" <lionel.ma@wanadoo.fr> a écrit dans le message de news:
45f01d27$0$27412$ba4acef3@news.orange.fr...
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
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" a écrit dans le message de news: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" a écrit dans le message de news:
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
lecturede 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
enaide...
Merci
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" a écrit dans le message de news: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" a écrit dans le message de news:
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
lecturede 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
enaide...
Merci
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" <michdenis@hotmail.com> a écrit dans le message de news:
eYrhyIZYHHA.4220@TK2MSFTNGP03.phx.gbl...
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" <lionel.ma@wanadoo.fr> a écrit dans le message de news:
45f01d27$0$27412$ba4acef3@news.orange.fr...
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
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" a écrit dans le message de news: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" a écrit dans le message de news:
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
lecturede 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
enaide...
Merci
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" a écrit dans le message de news:
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
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" <lionel.ma@wanadoo.fr> a écrit dans le message de news:
45f01d27$0$27412$ba4acef3@news.orange.fr...
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
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" a écrit dans le message de news:
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
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" a écrit dans le message de news:
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
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" <lionel.ma@wanadoo.fr> a écrit dans le message de news:
45f01d27$0$27412$ba4acef3@news.orange.fr...
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
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" a écrit dans le message de news:
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
Cette procédure récupère le fichier ini et l'insère
dans la feuille de calcul qui est active en prenant
la cellule active de la feuille comme cellule où
doit s'insérer le texte récupéré.
Macro de Chip Person dont j'ai très légérement adapté ici.
'---------------------------
Sub test()
ImportTextFile "c:windowsCDPLAYER.INI.ini", vbCrLf
End Sub
'---------------------------
Public Sub ImportTextFile(FName As String, Sep As String)
Dim RowNdx As Integer
Dim ColNdx As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim SaveColNdx As Integer
Application.ScreenUpdating = False
'On Error GoTo EndMacro:
SaveColNdx = ActiveCell.Column
RowNdx = ActiveCell.Row
Open FName For Input Access Read As #1
While Not EOF(1)
Line Input #1, WholeLine
If WholeLine <> "" Then
If Right(WholeLine, 1) <> Sep Then
WholeLine = WholeLine & Sep
End If
ColNdx = SaveColNdx
Pos = 1
NextPos = InStr(Pos, WholeLine, Sep)
While NextPos >= 1
TempVal = Mid(WholeLine, Pos, NextPos - Pos)
Cells(RowNdx, ColNdx).Value = TempVal
Pos = NextPos + 1
ColNdx = ColNdx + 1
NextPos = InStr(Pos, WholeLine, Sep)
Wend
RowNdx = RowNdx + 1
End If
Wend
EndMacro:
On Error GoTo 0
Application.ScreenUpdating = True
Close #1
End Sub
'---------------------------
"Lionel" a écrit dans le message de news:
45f1e535$0$5108$
Tu te demenes et je trouve cela tres sympa mais je crois que tu n'as pas
tres bien saisi mon probleme qui est de recuperer finalement d'un fichier
nommé CDPLAYER.INI (dans c:/ WINDOWS) ouvert par wordpad ou word des
données
inscrites par une cddb (free.org par exemple) ces données sont inscrites
sous la forme suivante :
[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)
si par exemple je mets le "code repere" dans une colonne excel comment
recuperer le reste dans les colonnes adjacentes...
Si tu peux m'aider encore s'il te plait ou m'indiquer quel site ou qui
peut
le faire ...
Merci par avance
Lionel
"MichDenis" a écrit dans le message de news:
#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'éditerle "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" a écrit dans le message de news:
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
lecturede 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
enaide...
Merci
Cette procédure récupère le fichier ini et l'insère
dans la feuille de calcul qui est active en prenant
la cellule active de la feuille comme cellule où
doit s'insérer le texte récupéré.
Macro de Chip Person dont j'ai très légérement adapté ici.
'---------------------------
Sub test()
ImportTextFile "c:windowsCDPLAYER.INI.ini", vbCrLf
End Sub
'---------------------------
Public Sub ImportTextFile(FName As String, Sep As String)
Dim RowNdx As Integer
Dim ColNdx As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim SaveColNdx As Integer
Application.ScreenUpdating = False
'On Error GoTo EndMacro:
SaveColNdx = ActiveCell.Column
RowNdx = ActiveCell.Row
Open FName For Input Access Read As #1
While Not EOF(1)
Line Input #1, WholeLine
If WholeLine <> "" Then
If Right(WholeLine, 1) <> Sep Then
WholeLine = WholeLine & Sep
End If
ColNdx = SaveColNdx
Pos = 1
NextPos = InStr(Pos, WholeLine, Sep)
While NextPos >= 1
TempVal = Mid(WholeLine, Pos, NextPos - Pos)
Cells(RowNdx, ColNdx).Value = TempVal
Pos = NextPos + 1
ColNdx = ColNdx + 1
NextPos = InStr(Pos, WholeLine, Sep)
Wend
RowNdx = RowNdx + 1
End If
Wend
EndMacro:
On Error GoTo 0
Application.ScreenUpdating = True
Close #1
End Sub
'---------------------------
"Lionel" <lionel.ma@wanadoo.fr> a écrit dans le message de news:
45f1e535$0$5108$ba4acef3@news.orange.fr...
Tu te demenes et je trouve cela tres sympa mais je crois que tu n'as pas
tres bien saisi mon probleme qui est de recuperer finalement d'un fichier
nommé CDPLAYER.INI (dans c:/ WINDOWS) ouvert par wordpad ou word des
données
inscrites par une cddb (free.org par exemple) ces données sont inscrites
sous la forme suivante :
[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)
si par exemple je mets le "code repere" dans une colonne excel comment
recuperer le reste dans les colonnes adjacentes...
Si tu peux m'aider encore s'il te plait ou m'indiquer quel site ou qui
peut
le faire ...
Merci par avance
Lionel
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
#F3IropYHHA.1048@TK2MSFTNGP05.phx.gbl...
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" <lionel.ma@wanadoo.fr> a écrit dans le message de news:
45f01d27$0$27412$ba4acef3@news.orange.fr...
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
Cette procédure récupère le fichier ini et l'insère
dans la feuille de calcul qui est active en prenant
la cellule active de la feuille comme cellule où
doit s'insérer le texte récupéré.
Macro de Chip Person dont j'ai très légérement adapté ici.
'---------------------------
Sub test()
ImportTextFile "c:windowsCDPLAYER.INI.ini", vbCrLf
End Sub
'---------------------------
Public Sub ImportTextFile(FName As String, Sep As String)
Dim RowNdx As Integer
Dim ColNdx As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim SaveColNdx As Integer
Application.ScreenUpdating = False
'On Error GoTo EndMacro:
SaveColNdx = ActiveCell.Column
RowNdx = ActiveCell.Row
Open FName For Input Access Read As #1
While Not EOF(1)
Line Input #1, WholeLine
If WholeLine <> "" Then
If Right(WholeLine, 1) <> Sep Then
WholeLine = WholeLine & Sep
End If
ColNdx = SaveColNdx
Pos = 1
NextPos = InStr(Pos, WholeLine, Sep)
While NextPos >= 1
TempVal = Mid(WholeLine, Pos, NextPos - Pos)
Cells(RowNdx, ColNdx).Value = TempVal
Pos = NextPos + 1
ColNdx = ColNdx + 1
NextPos = InStr(Pos, WholeLine, Sep)
Wend
RowNdx = RowNdx + 1
End If
Wend
EndMacro:
On Error GoTo 0
Application.ScreenUpdating = True
Close #1
End Sub
'---------------------------
"Lionel" a écrit dans le message de news:
45f1e535$0$5108$
Tu te demenes et je trouve cela tres sympa mais je crois que tu n'as pas
tres bien saisi mon probleme qui est de recuperer finalement d'un fichier
nommé CDPLAYER.INI (dans c:/ WINDOWS) ouvert par wordpad ou word des
données
inscrites par une cddb (free.org par exemple) ces données sont inscrites
sous la forme suivante :
[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)
si par exemple je mets le "code repere" dans une colonne excel comment
recuperer le reste dans les colonnes adjacentes...
Si tu peux m'aider encore s'il te plait ou m'indiquer quel site ou qui
peut
le faire ...
Merci par avance
Lionel
"MichDenis" a écrit dans le message de news:
#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'éditerle "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" a écrit dans le message de news:
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
lecturede 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
enaide...
Merci
ok mais j'ai un message d'erreur et la procedure s'arrete sur :
Open FName For Input Access Read As #1
comme je ne sais pas ce que fait la procedure je ne sais pas quoi faire...
"MichDenis" a écrit dans le message de news:
Oo#Cette procédure récupère le fichier ini et l'insère
dans la feuille de calcul qui est active en prenant
la cellule active de la feuille comme cellule où
doit s'insérer le texte récupéré.
Macro de Chip Person dont j'ai très légérement adapté ici.
'---------------------------
Sub test()
ImportTextFile "c:windowsCDPLAYER.INI.ini", vbCrLf
End Sub
'---------------------------
Public Sub ImportTextFile(FName As String, Sep As String)
Dim RowNdx As Integer
Dim ColNdx As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim SaveColNdx As Integer
Application.ScreenUpdating = False
'On Error GoTo EndMacro:
SaveColNdx = ActiveCell.Column
RowNdx = ActiveCell.Row
Open FName For Input Access Read As #1
While Not EOF(1)
Line Input #1, WholeLine
If WholeLine <> "" Then
If Right(WholeLine, 1) <> Sep Then
WholeLine = WholeLine & Sep
End If
ColNdx = SaveColNdx
Pos = 1
NextPos = InStr(Pos, WholeLine, Sep)
While NextPos >= 1
TempVal = Mid(WholeLine, Pos, NextPos - Pos)
Cells(RowNdx, ColNdx).Value = TempVal
Pos = NextPos + 1
ColNdx = ColNdx + 1
NextPos = InStr(Pos, WholeLine, Sep)
Wend
RowNdx = RowNdx + 1
End If
Wend
EndMacro:
On Error GoTo 0
Application.ScreenUpdating = True
Close #1
End Sub
'---------------------------
"Lionel" a écrit dans le message de news:
45f1e535$0$5108$
Tu te demenes et je trouve cela tres sympa mais je crois que tu n'as pas
tres bien saisi mon probleme qui est de recuperer finalement d'un
fichier
nommé CDPLAYER.INI (dans c:/ WINDOWS) ouvert par wordpad ou word des
donnéesinscrites par une cddb (free.org par exemple) ces données sont inscrites
sous la forme suivante :
[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
lecturede reconnaitre le cd
numplay nombre de piste -1 (numerotation a partir de 0)
si par exemple je mets le "code repere" dans une colonne excel comment
recuperer le reste dans les colonnes adjacentes...
Si tu peux m'aider encore s'il te plait ou m'indiquer quel site ou qui
peutle faire ...
Merci par avance
Lionel
"MichDenis" a écrit dans le message de news:
#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'éditerle "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" a écrit dans le message de news:
45f01d27$0$27412$
Bonjour
Pas de reponse au precedent message c'est que rie de doit etre
possible
dece coté là
Mais il existe peut etre un solution
Lorsqu'on met un cd et que le logiciel de lecture se connecte sur une
cddbil 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
lecturede 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
depiste?
Probleme complexe pour moi mais je suis certain que qq'1 pourra me
venir
enaide...
Merci
ok mais j'ai un message d'erreur et la procedure s'arrete sur :
Open FName For Input Access Read As #1
comme je ne sais pas ce que fait la procedure je ne sais pas quoi faire...
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
Oo#BoiqYHHA.1240@TK2MSFTNGP04.phx.gbl...
Cette procédure récupère le fichier ini et l'insère
dans la feuille de calcul qui est active en prenant
la cellule active de la feuille comme cellule où
doit s'insérer le texte récupéré.
Macro de Chip Person dont j'ai très légérement adapté ici.
'---------------------------
Sub test()
ImportTextFile "c:windowsCDPLAYER.INI.ini", vbCrLf
End Sub
'---------------------------
Public Sub ImportTextFile(FName As String, Sep As String)
Dim RowNdx As Integer
Dim ColNdx As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim SaveColNdx As Integer
Application.ScreenUpdating = False
'On Error GoTo EndMacro:
SaveColNdx = ActiveCell.Column
RowNdx = ActiveCell.Row
Open FName For Input Access Read As #1
While Not EOF(1)
Line Input #1, WholeLine
If WholeLine <> "" Then
If Right(WholeLine, 1) <> Sep Then
WholeLine = WholeLine & Sep
End If
ColNdx = SaveColNdx
Pos = 1
NextPos = InStr(Pos, WholeLine, Sep)
While NextPos >= 1
TempVal = Mid(WholeLine, Pos, NextPos - Pos)
Cells(RowNdx, ColNdx).Value = TempVal
Pos = NextPos + 1
ColNdx = ColNdx + 1
NextPos = InStr(Pos, WholeLine, Sep)
Wend
RowNdx = RowNdx + 1
End If
Wend
EndMacro:
On Error GoTo 0
Application.ScreenUpdating = True
Close #1
End Sub
'---------------------------
"Lionel" <lionel.ma@wanadoo.fr> a écrit dans le message de news:
45f1e535$0$5108$ba4acef3@news.orange.fr...
Tu te demenes et je trouve cela tres sympa mais je crois que tu n'as pas
tres bien saisi mon probleme qui est de recuperer finalement d'un
fichier
nommé CDPLAYER.INI (dans c:/ WINDOWS) ouvert par wordpad ou word des
données
inscrites par une cddb (free.org par exemple) ces données sont inscrites
sous la forme suivante :
[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)
si par exemple je mets le "code repere" dans une colonne excel comment
recuperer le reste dans les colonnes adjacentes...
Si tu peux m'aider encore s'il te plait ou m'indiquer quel site ou qui
peut
le faire ...
Merci par avance
Lionel
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
#F3IropYHHA.1048@TK2MSFTNGP05.phx.gbl...
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" <lionel.ma@wanadoo.fr> a écrit dans le message de news:
45f01d27$0$27412$ba4acef3@news.orange.fr...
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
ok mais j'ai un message d'erreur et la procedure s'arrete sur :
Open FName For Input Access Read As #1
comme je ne sais pas ce que fait la procedure je ne sais pas quoi faire...
"MichDenis" a écrit dans le message de news:
Oo#Cette procédure récupère le fichier ini et l'insère
dans la feuille de calcul qui est active en prenant
la cellule active de la feuille comme cellule où
doit s'insérer le texte récupéré.
Macro de Chip Person dont j'ai très légérement adapté ici.
'---------------------------
Sub test()
ImportTextFile "c:windowsCDPLAYER.INI.ini", vbCrLf
End Sub
'---------------------------
Public Sub ImportTextFile(FName As String, Sep As String)
Dim RowNdx As Integer
Dim ColNdx As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim SaveColNdx As Integer
Application.ScreenUpdating = False
'On Error GoTo EndMacro:
SaveColNdx = ActiveCell.Column
RowNdx = ActiveCell.Row
Open FName For Input Access Read As #1
While Not EOF(1)
Line Input #1, WholeLine
If WholeLine <> "" Then
If Right(WholeLine, 1) <> Sep Then
WholeLine = WholeLine & Sep
End If
ColNdx = SaveColNdx
Pos = 1
NextPos = InStr(Pos, WholeLine, Sep)
While NextPos >= 1
TempVal = Mid(WholeLine, Pos, NextPos - Pos)
Cells(RowNdx, ColNdx).Value = TempVal
Pos = NextPos + 1
ColNdx = ColNdx + 1
NextPos = InStr(Pos, WholeLine, Sep)
Wend
RowNdx = RowNdx + 1
End If
Wend
EndMacro:
On Error GoTo 0
Application.ScreenUpdating = True
Close #1
End Sub
'---------------------------
"Lionel" a écrit dans le message de news:
45f1e535$0$5108$
Tu te demenes et je trouve cela tres sympa mais je crois que tu n'as pas
tres bien saisi mon probleme qui est de recuperer finalement d'un
fichier
nommé CDPLAYER.INI (dans c:/ WINDOWS) ouvert par wordpad ou word des
donnéesinscrites par une cddb (free.org par exemple) ces données sont inscrites
sous la forme suivante :
[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
lecturede reconnaitre le cd
numplay nombre de piste -1 (numerotation a partir de 0)
si par exemple je mets le "code repere" dans une colonne excel comment
recuperer le reste dans les colonnes adjacentes...
Si tu peux m'aider encore s'il te plait ou m'indiquer quel site ou qui
peutle faire ...
Merci par avance
Lionel
"MichDenis" a écrit dans le message de news:
#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'éditerle "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" a écrit dans le message de news:
45f01d27$0$27412$
Bonjour
Pas de reponse au precedent message c'est que rie de doit etre
possible
dece coté là
Mais il existe peut etre un solution
Lorsqu'on met un cd et que le logiciel de lecture se connecte sur une
cddbil 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
lecturede 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
depiste?
Probleme complexe pour moi mais je suis certain que qq'1 pourra me
venir
enaide...
Merci