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.
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
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
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 :)
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.