[VB] extraer la cadena después del último \
sophie26
-
alamata -
alamata -
Hola,
Busco extraer de una cadena cualquier el contenido que sigue después del último \ de mi cadena.
Uso en mi código las funciones Instr, mid y toda la familia, pero creo que estoy dando vueltas,
Gracias a quien me vuelva al buen camino ^^
sophie,
Busco extraer de una cadena cualquier el contenido que sigue después del último \ de mi cadena.
Uso en mi código las funciones Instr, mid y toda la familia, pero creo que estoy dando vueltas,
Gracias a quien me vuelva al buen camino ^^
sophie,
Configuración: Windows XP Internet Explorer 7.0
4 respuestas
-
Hola Sophie,
La variable "chaine" contiene el texto del que queremos obtener el final.
2 formas:
- Forma "habladora" :
pos=InStrRev(chaine,"\\\"")
resultat=(Mid(chaine,pos))
- Forma menos "habladora" :
resultat=(Mid(chaine,InStrRev(chaine,"\\\"")))
A verificar si no hay que hacer +1 a pos ... -
Hola,
La función extraer_dernier abajo devuelve el último elemento de una cadena cuyo cada campo está separado por "\" como en la ruta de un archivoSub 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+. -
Hola,
¿Qué lenguaje exactamente utilizas?
en vbs eso daría algo como esto right(toto,len(toto)-InStrRev(toto,"\")
Espero que eso te ayude -