Strings en cadenas de textos

jordifreek
23 de Julio del 2004
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??

sdemingo
23 de Julio del 2004
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

rodrigogm78
23 de Julio del 2004
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")

sdemingo
23 de Julio del 2004
Solo un pequeño detalle a tu respuesta...

Dim cadena As String
cadena = ":1basurilla"
cadena = Left(cadena, InStr(cadena, ":1") + 1)

hay que sumar una posición más o solo se quedaría con los dos puntos

salu2
sdemingo