suppression d'un texte

Question

Voilà mon problème:

dans un textbox, il y a le path d'une image, ex:
f:\cheminechemin\affiches\affiche1.jpg

le path sera toujours le même dans ce textbox à chaque fois, quelque soit le lecteur, etc...:
...\affiches
omimage.jpg

mais \affiches
omimage.jpg sera toujours présent dans le textbox.

je voudrais qu'en cliquant sur un bouton (cmd par ex), cela supprime tout ce qui se trouve avant: \affiches
omimage.jpg"

mais je ne veux pas utiliser de left(textbox,1,18) puisque le chemin peut etre aussi par ex:
c:	oto\affiches
omimage.jpg
et donc le chemin avant \affiches\xxx.jpg peut-etre différent.

c'est vraiment très important pour moi, et très urgent, je vous remercie bcp d'avance  :)

cs_moustachu · Answer

Ben si tu as toujours \affiches\ dans ton textbox tu peux récupérér la position de cette sous-chaine :

Instr(text1.text, "\affiches") te renvoit 0 si non trouvé où alors la position du début de cette sous-chaine

tu peux faire

left(text1.text,Instr(text1.text, "\affiches")  - 1) et là tu as tout le chemin avant "\affiches"

pcpunch · Answer

moi je ferais comme ca!!
'text1="c:\mon rep\sous rep\affiches\fichier.jpg

Private Sub Command1_Click()
Dim nom_fic As String
For i = Len(Text1) To 1 Step -1
If Mid(Text1, i, 1) = "" Then Exit For
Next i
nom_fic = Mid(Text1, i + 1, Len(Text1))
End Sub

Nom_fic contient le nom du fichier (fichier.jpg)
chemin ="Affiche" & nom_fic

c'est une autre possibilité!!!!!

Suppression d'un texte

2 réponses

Discussions similaires