Textbox

[xDie]

Como hago para encontrar una cadena dentro de un text box?, quiero qeu me busque una palabra especifica como podria hacer eso? Gracias 

[karmany]

Es sencillo, esto es un ejemplo:
imagina que quieres encontrar si la cadena "aa" se encuentra en text1:
dim cadena as string, x as integer
cadena = "aa"
For x=1 to len(text1)-len(cadena)+1
   if mid(text1,x,len(cadena)) = cadena then stop 'existe cadena
next x

[MazarD]

En vb pocas veces hay que complicarse la vida con cosas así de simples,  incluso hay una función especifica para eso en ansi c.

Tu función es instr
Busca una cadena dentro de otra y te devuelve su posición

[xDie]

Es sencillo, esto es un ejemplo:
imagina que quieres encontrar si la cadena "aa" se encuentra en text1:
dim cadena as string, x as integer
cadena = "aa"
For x=1 to len(text1)-len(cadena)+1
   if mid(text1,x,len(cadena)) = cadena then stop 'existe cadena
next x

Me peudes explciar que hace cada linea? gracias
Mi progra es una conexion con winsock y me duevuelve siempre un numeor de 3 digitos los codigos de error http, ahora quiero hacer en el evento change que se fije que numeor llego, para realziar tal accion.
Gracias po responder

[Mr.Chispa]

 MazarD tiene razon.

Código [Seleccionar] Expandir


dim cadena as string
dim aBuscar as string
cadena="Juan Topo"
aBuscar="T"
if instr(1,cadena,aBuscar) >0 then
'existe
else
'no existe
end if

esa funcion debolveria 6, si no encuentra nada debuelve 0, facil no??

[xDie]

U exelente muchisimas gracias MR.Chispa  , Pero como hago esa funcion para que me busque en la primera linea dl text box? Muchisimas Gracias