[VB] extraire chaine après le dernier \
sophie26
-
alamata -
alamata -
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,
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,
A voir également:
- Extraire chaine de caractère vba
- Caractère ascii - Guide
- Extraire une video youtube - Guide
- Caractère spéciaux - Guide
- Caractères spéciaux : comment les saisir facilement - Guide
- Extraire le son d'une vidéo - Guide
4 réponses
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 ...
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 ...
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
A+.
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+.