Imprimir Página - AYUDA. Quiero saber como cortar una cadena hasta un identificador.

Título: AYUDA. Quiero saber como cortar una cadena hasta un identificador.
Publicado por: el_trocha en 15 Septiembre 2007, 13:03 pm

Hola compañeros, tengo una duda sobre el tema de como cortar una string hasta un identificador "\" empezando por el final.

El ejemplo seria este:

cadena = " c:\windows\carpetas"

mi intencion seria la de cortar esa cadena dandole a un boton y que apareciera en un txtbox esto:

" c:\windows"

No se si me he explicado bien.

Espero me podais ayudar.

Un saludo a todos.

Título: Re: AYUDA. Quiero saber como cortar una cadena hasta un identificador.
Publicado por: Karcrack en 15 Septiembre 2007, 13:21 pm

Código

Private Sub Command1_Click()
Cortar "C:\windows\system32"
End Sub
 
Function Cortar(Texto As String)
Dim resul As Variant
resul = Split(Texto, "\")
Text1.Text = resul(0) & "\" & resul(1)
End Function

Título: Re: AYUDA. Quiero saber como cortar una cadena hasta un identificador.
Publicado por: Hendrix en 15 Septiembre 2007, 13:42 pm

Ese ultimo solo imprimiria los 2 primeros resutlados, pero si hay mas no serviria.... ;)

Echale un vistazo a esta fucnion que e echo, a partir del comando InStrRev

Código

Public Function Cortar(texto As String, caracter As String) As String
Dim a As Integer
Dim res As String
 
a = InStrRev(texto, caracter)
res = Mid(texto, 1, a - 1)
 
Cortar = res
End Function
 
Private Sub Form_Load()
Dim ruta1 As String
Dim ruta2 As String
 
ruta1 = "C:\Windows\System32\Drivers"
ruta2 = "C:\Windows\System32"
 
MsgBox Cortar(ruta1, "\")
MsgBox Cortar(ruta2, "\")
End Sub

Un Saludo :)

Título: Re: AYUDA. Quiero saber como cortar una cadena hasta un identificador.
Publicado por: el_trocha en 16 Septiembre 2007, 12:00 pm

Gracias a los dos, la respuesta que mejor me funciono para mi programa fue la de Hendrix .

Muy buen codigo, ya lo edite para hacerlo funcioonar en mi programita.

Muychas gracias a los dos.

Un saludo.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: el_trocha en 15 Septiembre 2007, 13:03 pm