Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: wACtOr en 7 Junio 2007, 21:30 pm

Título: Borrar de un texbox
Publicado por: wACtOr en 7 Junio 2007, 21:30 pm

wenas, os quiero acer una preguntilla, como puedo borrar desde codigo el contenido de un texbox asta un caracter deeterminado?

por ejemplo si en un texbox tegno lalalal-lalalkekkeke

pues al darle al boton me borre asta el guion, kedando solo lalalal

o si me decis de que manera puedo buscarlo ya me apaño yo, pero es que no se como buscarlo

gracias

Título: Re: Borrar de un texbox
Publicado por: CeLaYa en 7 Junio 2007, 21:44 pm

es muy sencillo

Código:

    Dim i As Integer
    'Buscas la posición del guión
    i = InStr(1, Text1.Text, "-", vbTextCompare)
    'Cortas la cadena hasta antes del guión
    Text1.Text = Left(Text1.Text, i - 1)

Título: Re: Borrar de un texbox
Publicado por: wACtOr en 7 Junio 2007, 21:51 pm

ok muxas gracias aora a ver si consigo acer que no me borre todos lo guiones, si no el ultimo solo.
PE, lalal-lelelel-lilili

que solo me borre el lilili y se kede en llalala-lelele

es que es para acer el boton de atras en mi file manager, y no se me ocurre otra cosa que cada vez que se pulse el boton borreasta el ultimo \

voy a seguir intentando, pero si me exais una mantia mejor

Gracias

Título: Re: Borrar de un texbox
Publicado por: CeLaYa en 7 Junio 2007, 21:56 pm

en ese caso creo que sería bueno usar un for:

Código:

dim j as long
dim X as long 

x = Len(text1.text)

for j = x to 1 step -1 ' vamos del último caracter hasta el 1o
     if mid (text1.text, j,1) = "-" then
           'Encotro el gión
            text1.text = left(text1.text, j-1)
            exit for
      end if
next j

Título: Re: Borrar de un texbox
Publicado por: wACtOr en 7 Junio 2007, 22:28 pm

Muxas gracias eso es lo que buscaba.

Título: Re: Borrar de un texbox
Publicado por: merlin en 12 Junio 2007, 10:06 am

Yo antes que el for utilizaria la funcion InStrRev,
es igual que la que te puso CeLaYa pero devuelve la posición de una coincidencia de una cadena en otra, desde el final de la cadena.
Salu2