Imprimir Página - recortar texto vb6

Título: recortar texto vb6
Publicado por: Psyke1 en 28 Febrero 2010, 15:17 pm

Hola amigos, les cuento mi duda:
Me gustaria saber como recorto un texto a partir de un caracter determinado, me explico:
pongamos que tengo una ruta qe es "c:\windows\media", entonces al apretar un boton,
recorta mi ruta por la derecha hasta que se encuentra con el caracter "\"
quedando asi: "c:\windows\".

Otro ejemplo seria:
"c:\windows\system32\wins" -----> "c:\windows\system32\"

Y lo mismo pero dejando solo el texto qe va despues del caracter "\", asi:
"c:\windows\system32\wins" -----> "wins"

muchas gracias a todos!!! ;D

Título: Re: recortar texto vb6
Publicado por: Hasseds en 28 Febrero 2010, 16:10 pm

Con InStrRev:

Código:


Dim cadena As String

cadena = "c:\windows\Media"
MsgBox cadena
MsgBox Mid$(cadena, 1, InStrRev(cadena, "\"))
MsgBox Mid$(cadena, InStrRev(cadena, "\") + 1, Len(cadena) - InStrRev(cadena, "\"))

cadena = "c:\windows\system32\wins"
MsgBox cadena
MsgBox Mid$(cadena, 1, InStrRev(cadena, "\"))
MsgBox Mid$(cadena, InStrRev(cadena, "\") + 1, Len(cadena) - InStrRev(cadena, "\"))

S2

EDIT: tambien así

Código:


cadena = "c:\windows\Media"
MsgBox cadena
MsgBox Mid$(cadena, 1, InStrRev(cadena, "\"))
MsgBox Mid$(cadena, InStrRev(cadena, "\") + 1)

Título: Re: recortar texto vb6
Publicado por: Psyke1 en 28 Febrero 2010, 21:44 pm

funciona perfecto, gracias Hasseds ;D

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Psyke1 en 28 Febrero 2010, 15:17 pm