Borrar de un texbox

[wACtOr]

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

[CeLaYa]

es muy sencillo

Código [Seleccionar] Expandir


    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)


[wACtOr]

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

[CeLaYa]

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

Código [Seleccionar] Expandir


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


[wACtOr]

Muxas gracias eso es lo que buscaba.

[merlin]

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