Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: Psyke1 en 28 Febrero 2010, 15:17 PM

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:



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í



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