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
es muy sencillo
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)
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
en ese caso creo que sería bueno usar un for:
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
Muxas gracias eso es lo que buscaba.
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