Strings en cadenas de textos
Salu2
Tengo una cadena de texto dentro de un textbox a la cual quiero añadirle un string que detecte y elimine las ultimas letras de la frase o palabra que se introduce en el textbox.
Por ejemplo:
el string reconoce dentro del textobox la cadena :1 (dos puntos uno) y al reconocer esa cadena lo que viene acontinuacion lo borra
Entra al TextBox > Buscar nuevo elemento:1//
Sale del TextBox > Buscar nuevo elemento:1
Arriba el string reconoceria :1// y borraria las dos barras // para dejarlo solo con :1
En este caso han aparecido // pero el textbox puede recibir en cualquier momento cualquier palabra que en su final tenga :1 y cualquier otra cosas
Entra > Frase:1a
Entra > Frase:1()
Entra > Frase:1-_
Sale > Frase:1
en resumen, detectar una cadena de texto y eliminar todo lo que haya acontinuacion de ella.
¿¿Dificil??
Tengo una cadena de texto dentro de un textbox a la cual quiero añadirle un string que detecte y elimine las ultimas letras de la frase o palabra que se introduce en el textbox.
Por ejemplo:
el string reconoce dentro del textobox la cadena :1 (dos puntos uno) y al reconocer esa cadena lo que viene acontinuacion lo borra
Entra al TextBox > Buscar nuevo elemento:1//
Sale del TextBox > Buscar nuevo elemento:1
Arriba el string reconoceria :1// y borraria las dos barras // para dejarlo solo con :1
En este caso han aparecido // pero el textbox puede recibir en cualquier momento cualquier palabra que en su final tenga :1 y cualquier otra cosas
Entra > Frase:1a
Entra > Frase:1()
Entra > Frase:1-_
Sale > Frase:1
en resumen, detectar una cadena de texto y eliminar todo lo que haya acontinuacion de ella.
¿¿Dificil??
tirao ;-)
necesitas un textbox llamado Text1 y un botón llamado Command1...
Private Sub Command1_Click()
Dim a() As String
Dim b() As String
a = Split(Text1.Text, ":1", -1, vbBinaryCompare)
b = Split(Text1.Text, a(UBound(a)), -1, vbBinaryCompare)
Text1.Text = b(LBound(b))
End Sub
Private Sub Form_Load()
Text1.Text = ":1basurilla"
End Sub
salu2
sdemingo
http://boards.melodysoft.com/sdemingo
necesitas un textbox llamado Text1 y un botón llamado Command1...
Private Sub Command1_Click()
Dim a() As String
Dim b() As String
a = Split(Text1.Text, ":1", -1, vbBinaryCompare)
b = Split(Text1.Text, a(UBound(a)), -1, vbBinaryCompare)
Text1.Text = b(LBound(b))
End Sub
Private Sub Form_Load()
Text1.Text = ":1basurilla"
End Sub
salu2
sdemingo
http://boards.melodysoft.com/sdemingo
hola
yo utilizaría la función instr(cadena,cadenabuscada) que devuelve la primera posicion de la cadenabuscada en la cadena. Ya solo tendrias que utilizar left(cadena,pos).
cadena = left(cadena,instr(cadena,":1")
yo utilizaría la función instr(cadena,cadenabuscada) que devuelve la primera posicion de la cadenabuscada en la cadena. Ya solo tendrias que utilizar left(cadena,pos).
cadena = left(cadena,instr(cadena,":1")