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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
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
Lionel
Le #4240191
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" #
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





MichDenis
Le #4240161
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" 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" #
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





Lionel
Le #4234141
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" 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" 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" #
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










Lionel
Le #4234091
Désolé je viens de voir ou etait l'erreur... le fichier s'appelle
cdplayer.ini et tu avais noté cdplayer.ini.ini
je recupere donc le fichier ini dans une feuille
comment expurger a ce moment certaines données par exemple
le fichier annonce
artist=sarah slean
ou encore
1- good day
et moi je veux
good day
et je veux qu'il recupere uniquement sarah slean
cela peut il se faire en source c'est a dire a la recuperation du fichier ou
apres coup en analysant ligne apres ligne les données?
"Lionel" 45f2db4a$0$5097$
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" 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" 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" #
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é
Poster une réponse
Anonyme