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

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

-------------------------------
Réponse au message :
-------------------------------

> 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

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

-------------------------------
Réponse au message :
-------------------------------

> 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
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > 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
>

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

Alors, je suppose que tu as deux liste, on va dire list1 et list2 pour simplifier, tu as un fichier de départ "c:\test\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

-------------------------------
Réponse au message :
-------------------------------

> 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

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