Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: xDie en 20 Septiembre 2006, 20:18 pm



Título: Textbox
Publicado por: xDie en 20 Septiembre 2006, 20:18 pm
Como hago para encontrar una cadena dentro de un text box?, quiero qeu me busque una palabra especifica como podria hacer eso? Gracias  ;D


Título: Re: Textbox
Publicado por: karmany en 21 Septiembre 2006, 17:47 pm
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


Título: Re: Textbox
Publicado por: MazarD en 21 Septiembre 2006, 17:54 pm
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


Título: Re: Textbox
Publicado por: xDie en 21 Septiembre 2006, 20:35 pm
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


Título: Re: Textbox
Publicado por: Mr.Chispa en 21 Septiembre 2006, 21:01 pm
 MazarD tiene razon.
Código:
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??


Título: Re: Textbox
Publicado por: xDie en 21 Septiembre 2006, 21:50 pm
U exelente muchisimas gracias MR.Chispa  :-*, Pero como hago esa funcion para que me busque en la primera linea dl text box? Muchisimas Gracias