Cdplayer.ini dans Excel

Bonjour les experts

le logiciel audio cdex enregistre les titres des CD inserés dans l'ordi dans "Cdplayer.ini" dans C:/windows. (en fait la base locale)

est il possible de recuperer les infos et les titres du fichier texte cdplayer.ini et de transferer a partir du numero unique du CD (entre crochets dans cdplayer ini) dans un tableur excel?

petite colle ? soluble ou non ?

Merci

Bonjour,

Je ne suis pas certain mais peut-être ce code VBA.

À essayer.

Sub ImporterInfosCD()
    Dim FilePath As String
    Dim FileContent As String
    Dim CDInfos() As String
    Dim CDTitle As String
    Dim CDNumber As String
    Dim CDRow As Long
    Dim LastRow As Long

    ' Spécifiez le chemin d'accès au fichier "cdplayer.ini"
    FilePath = "C:\Windows\cdplayer.ini"

    ' Ouvrir le fichier et lire son contenu
    Open FilePath For Input As #1
    FileContent = Input$(LOF(1), #1)
    Close #1

    ' Divisez le contenu en lignes
    CDInfos = Split(FileContent, vbCrLf)

    ' Parcourez les lignes pour extraire les informations
    For Each CDInfo In CDInfos
        If Left(CDInfo, 1) = "[" And Right(CDInfo, 1) = "]" Then
            ' Ligne contenant le numéro unique du CD
            CDNumber = Mid(CDInfo, 2, Len(CDInfo) - 2)
        ElseIf InStr(1, CDInfo, "Title=") > 0 Then
            ' Ligne contenant le titre du CD
            CDTitle = Mid(CDInfo, InStr(1, CDInfo, "Title=") + 6)
            ' Ajoutez les informations dans Excel
            CDRow = CDRow + 1
            LastRow = Sheets("Feuille1").Cells(Rows.Count, 1).End(xlUp).Row + 1
            Sheets("Feuille1").Cells(LastRow, 1).Value = CDNumber
            Sheets("Feuille1").Cells(LastRow, 2).Value = CDTitle
        End If
    Next CDInfo
End Sub

non a priori ca ne fonctionne pas

si je mets le code cd dans la case ...possible de juste recuperer le nombre de pistes et les titres?

la base cdplayer.ini s'agrandit a chaque cd lu sur l'ordi alors il faudrait que ca transfert juste le dernier n° de Cd entré

merci

Bonjour,

Avec ces modification est-ce que ça fonctionne.

Je ne peux pas le tester je ne peux pas télécharger votre dossier cdplayer.ini

Sub ImporterDernierCD()
    Dim FilePath As String
    Dim FileContent As String
    Dim CDInfos() As String
    Dim CDNumber As String
    Dim CDTitle As String
    Dim CDTrackCount As Integer
    Dim CDTrackList() As String
    Dim Line As String
    Dim CDRow As Long
    Dim LastRow As Long

    ' Spécifiez le chemin d'accès au fichier "cdplayer.ini"
    FilePath = "C:\Windows\cdplayer.ini"

    ' Ouvrir le fichier et lire son contenu
    Open FilePath For Input As #1
    FileContent = Input$(LOF(1), #1)
    Close #1

    ' Divisez le contenu en lignes
    CDInfos = Split(FileContent, vbCrLf)

    ' Parcourez les lignes pour extraire les informations du dernier CD
    For Each Line In CDInfos
        If Left(Line, 1) = "[" And Right(Line, 1) = "]" Then
            ' Ligne contenant le numéro unique du CD
            CDNumber = Mid(Line, 2, Len(Line) - 2)
            ' Réinitialise le titre et la liste des pistes
            CDTitle = ""
            ReDim CDTrackList(0)
            CDTrackCount = 0
        ElseIf InStr(1, Line, "Title=") > 0 Then
            ' Ligne contenant le titre du CD
            CDTitle = Mid(Line, InStr(1, Line, "Title=") + 6)
        ElseIf InStr(1, Line, "Track") = 1 Then
            ' Ligne contenant une piste
            CDTrackCount = CDTrackCount + 1
            ReDim Preserve CDTrackList(CDTrackCount)
            CDTrackList(CDTrackCount) = Line
        End If
    Next Line

    ' Ajoutez les informations dans Excel pour le dernier CD
    If CDNumber <> "" And CDTitle <> "" Then
        CDRow = CDRow + 1
        LastRow = Sheets("Feuille1").Cells(Rows.Count, 1).End(xlUp).Row + 1
        Sheets("Feuille1").Cells(LastRow, 1).Value = CDNumber
        Sheets("Feuille1").Cells(LastRow, 2).Value = CDTitle
        For i = 1 To CDTrackCount
            Sheets("Feuille1").Cells(LastRow, i + 2).Value = CDTrackList(i)
        Next i
    End If
End Sub

le fichier ini est juste un fichier texte repéré par le systeme

je l'ai juste remommé en txt poiur le test il faut le renommer en ini

le but est de retrouver un titre dans ce fichier si existant...