Enlever le chemin d'un mp3 dans une list

Question

Bonjour à tous !
Voilà je me suis fait un petit lecteur MP3 pour le plaisir mais j'ai eu un petit probleme d'esthétisme. En effet, apres le scan des mp3s sur le disque dur, les mp3s s'ajoutent dans la list du lecteur, mais les chemins des fichiers y sont toujours, et je trouve ca un peu laid..
d:\Pleymo - Team Nowhere.mp3
Ca le fait pas trop..
Alors j'aimerai savoir si il était possible qu'apres le scan, je puisse enlever automatiquement le chemin du fichier ainsi que l'extension et ensuite les rajouter dans la list ?
Merci d'avance de votre réponse
Yann

xabi62 · Answer

Salut,

Pour supprimer le chemin du fichier, tu peux utiliser cette fonction.

'Fonction qui renvoit le nom du fichier avec l'extension.
Function SupprChemin(fChemin As String)
Dim Position As Integer
Dim DernierePosition As Integer
    Position = 1
    Do
        Position = InStr(Position, fChemin, "")
        If Position = 0 Then
            Exit Do
            Else
                DernierePosition = Position + 1
        End If
        Position = Position + 1
    Loop
    SupprChemin = Mid(fChemin, DernierePosition)
End Function

ensuite, pour enlever le .mp3, tu fais
Nomfichier = "MonMorceau.mp3"
Nomfichier = Mid(Nomfichier, 1, Len(Nomfichier) - 4)

A+

XaV

DHKold · Answer

oui, pk faire facile quand on peut faire compliqué ;b

en une ligne:

nom = mid$(fichier,instrrev(fichier,"")+1, instrrev(fichier,".")-1 - instrrev(fichier,""))

Aller, @+, DHKold

cs_YaNn0u · Answer

Merci pour vos codes, j'ai reussi a transferer les fichiers mp3s dans une deuxieme list sans les chemins et extension mais maintenant, qd je veux lire les mp3s a partir de la deuxieme list, il me les joue pas :/ cela est surement du a la suppression des chemins d'acces
Que dois-je faire ?
merci

DHKold · Answer

Alors, je suppose que tu as deux liste, on va dire list1 et list2 pour simplifier, tu as un fichier de départ "c:	est\zikmu.mp3".

1) Tu commence par mettre le fichier dans LES LISTES:

list1.additem mid$(fichier,instrrev(fichier,"")+1, instrrev(fichier,".")-1 - instrrev(fichier,""))

list2.additem fichier

2) La liste2 doit être invisible, c'est lal list1 que doit voir l'utilisateur. Et quand tu effectue une opération dans la lsit1 n'oublie pas de l'effectuer d'abord dans la list2. (Je parles d'un RemoveItem ou autre)

3) Quand l'utilisateur choisi la chanson en list1.listindex ème position dans la list1, on lance le fichier list2.list ( list1.listindex )

4Je crois que c'est tout, ca dervais marcher. Sinon je te conseille de faire le mode Pas à Pas

@+, DHKold

cs_YaNn0u · Answer

Ah ué ca marche impecc merci !
Heu j'voulais savoir comment a partir de quelques lettres d'une item ( donc d'un fichier mp3 ) je selectionne l'item et le lit
merci mec

Enlever le chemin d'un mp3 dans une list

5 réponses

Discussions similaires