Discussion :

[digger]

Bonjour,

j'ai sur mon appli deux listbox qui sont chargeés de ramener pour la premiere la liste des fichiers .xls et pour la deuxieme la site des .doc sur le poste d'un utilisateur afin de les imprimer
la contrainte est la suivante il faut trouver la correspondance du bon nom dans les deux listbox puis les imprimer
seulement dans la 2eme liste
les fichiers sont nommes de cette facon

citroen-FT.doc
ma question est la suivante comment extraire simplement le nom sans le car -

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub Command6_Click()
For i = 0 To List2.ListCount
    If List2.List(i) <> "" Then
        tampon2 = List2.List(i)
        tampon2 = Mid(tampon2, 8, Len(tampon2) - 11)
        MsgBox tampon2
        End If
        Next i
End Sub

merci de votre aide

[SfJ5Rpw8]

utilise inStr qui te renvoi la position d'une chaine dans une autre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

insTr(1,"citroen-FT.doc","-" )

puis left...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 st = "citroen-FT.doc"
 Debug.Print Left(st, InStr(st, "-") - 1)

[random]

left(machaine,len(machaine)-4)

[digger]

left(machaine,len(machaine)-4)

merci mais le probleme est que que le caractere "-" ne se trouve jamais au meme endroit dans les autres nom de fichiers est ce que cela peut marcher quand meme

[ar_men]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
a = ""
b = ""
 
for i = 1 to len ma_chaine
     a= mid(ma_chaine, i, 1)
     if a = "." then exit for
     if a <>"-" then
          b= b+a
     end if
next i

[SfJ5Rpw8]

left(machaine,len(machaine)-4)

merci mais le probleme est que que le caractere "-" ne se trouve jamais au meme endroit dans les autres nom de fichiers est ce que cela peut marcher quand meme

tu as vu mon code un peu + haut ...? instr te renvoi la position de -

[ar_men]

j'ai vu
la boucle for ... next est plus universelle

pratique lors de migration s............

[sovo]

heu digger je ne sais pas ou t'es mais je croit que tu as la reponse a ta question.

voire le code de bbil, en plus il est tres optimise.

[Romouts]

Utilise la fonction replace() de vb:

Replace "MaChaine", "-", ""

tu remplace le caractere - par rien.

et voila c tout simple

[leroissejp]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Command1_Click()
Dim i, tampon2
For i = 0 To List2.ListCount
    If List2.List(i) <> "" Then
        tampon2 = List2.List(i)
        tampon2 = Replace(tampon2, "-", "")
        MsgBox tampon2
        End If
        Next i
End Sub

jpleroisse

[leroissejp]

Bonsoir,
Désolé Romouts, je n'avais pas vu ta réponse

jpleroisse

[ar_men]

Eh digger, c vrai c noël
t'as plein de cadeaux plus geniaux les uns que les autres

as-tu trouvé une solution ???????