Visual Basic - Comparar con una lista

Life is soft - evento anual de software empresarial
 
Vista:

Comparar con una lista

Publicado por Laura (6 intervenciones) el 20/03/2005 10:42:16
Hola, quiero que tras apretar un commandbutton me compare una palabara que esté en un Textbox con una lista de 80.000 palabras que tengo en un archivo txt, de manera que si encuentra una coincidencia me lo confirme.

Me da igual si la lista de 80.000 palabras hay que convertirla a excel o lo que sea para que funcione.ñ

¿Me podeis ayudar?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Comparar con una lista

Publicado por A. Fleming (23 intervenciones) el 20/03/2005 16:25:31
Bueno tienes que abrir el archivo e ir leyendo palabra por palabra y mientras lees vas comparando con el textbox.
private sub command1_click()
f=freefile
open archivo.txt for input as f
while not eof(f)
input #f, palabra$
if palabra = textbox.text then
msgbox "si existe"
end sub
end if
doevents 'ya que el archivo es muy grande hay que usar este comando para dejar que se ejecuten otros procesos mientras se busca.
wend
close f
msgbox "no esta"
end sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Comparar con una lista

Publicado por Laura (6 intervenciones) el 20/03/2005 17:06:09
Lo pruebo y te comento. GRACIAS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Comparar con una lista

Publicado por A. Fleming (23 intervenciones) el 20/03/2005 17:24:11
en el codigo acomoda la siguiente estructura:
if palabra = textbox.text then
msgbox "si existe"
close #f '<--- AGREGA ESTO PARA CERRAR EL ARCHIVO ANTES DE SALIR
end sub
end if

espero te ayude.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar