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

Iniciado por el_trocha, 15 Septiembre 2007, 13:03 PM

0 Miembros y 2 Visitantes están viendo este tema.

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]

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

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián

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.