A voir également:
- Extraire chaine de caractère vba
- Excel extraire chaine de caractère après un caractère ✓ - Forum Excel
- Caractère spéciaux - Guide
- Extraire video youtube - Guide
- Caractère invisible ✓ - Forum Windows
- Excel extraire chaine de caractère avant un caractère ✓ - Forum Excel
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+.
zavenger
Messages postés
809
Date d'inscription
vendredi 29 février 2008
Statut
Membre
Dernière intervention
20 avril 2012
159
7 mai 2008 à 17:14
7 mai 2008 à 17:14
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
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