[VB] extraire chaine après le dernier \ Fermé

Question

Bonjour,
Je cherche à extraire d'une chaine quelquonque le contenu suivis après le dernier \ de ma chaine.
J'utilise dans mon code les fonction Instr mid et toute la famille, mais je pensse tourner en rond,
Merci à celui qui me remettra dans le bon chemin ^^

sophie,

Steff · Accepted Answer

Bonjour Sophie,

La variable "chaine" contient le texte dont nous souhaitons récupérer la fin.
2 façons :


- Façon "bavarde" :

pos=InStrRev(chaine,"\")
resultat=(Mid(chaine,pos))


- Façon moins "bavarde" :
resultat=(Mid(chaine,InStrRev(chaine,"\")))

A vérifier s'il ne faut pas faire +1 à pos ...

zavenger · Answer

Bonjour,

Quel langage exactement utilises-tu?


en vbs cela donnerais qque chose comme cela right(toto,len(toto)-InStrRev(toto,"\")

J'espere que cela va t'aider

sophie26 · Answer

C'est du pour vb6, je regarde le tout directement merci bien

amigo · Answer

Bonjour,

La fonction extraire_dernier ce dessous retourne le dernier élément d'une chaine dont chaque champ est séparé par "\" comme dans le chemin d'un fichier

Sub essai()
Dim chaine As String, schaine As String
chaine = "C:\Documents and Settings\Default User\Local Settings\Temporary Internet Files\Content.IE5"
schaine = extraire_dernier(chaine)
MsgBox schaine
End Sub

Function extraire_dernier(chaine As String) As String
Dim ipos As Integer, apos As Integer
apos = 0: ipos = 0
Do
   ipos = InStr(ipos + 1, chaine, "\")
   If ipos > 0 Then apos = ipos
Loop While ipos > 0
extraire_dernier = ""
If apos > 0 Then extraire_dernier = Right(chaine, Len(chaine) - apos)
End Function

A+.

[VB] extraire chaine après le dernier \

4 réponses

Discussions similaires