AYUDA. Quiero saber como cortar una cadena hasta un identificador.

[el_trocha]

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.

[Karcrack]

Código (vb) [Seleccionar] Expandir


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


[Hendrix]

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 (vb) [Seleccionar] Expandir

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 

[el_trocha]

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.