comparar con una lista

Laura
20 de Marzo del 2005
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?

. : AlphaSoft : .
20 de Marzo del 2005
O.K.

Te escribo esta funcion:

Public Funstion Coincide(sPalabra as string, Archivo as String) As Boolean

Dim strTemp As String
dim txtFile as string

If Dir(Archivo) <> "" Then
Open Archivo For Input As 1
While Not EOF(1)
Line Input #1, strTemp
txtFile = txtFile & strTemp & vbCrLf
Wend
If InStr(txtFile, sPalabra) <> 0 Then
Coincide = true
Else
coincide = False
End If
Close #1
Else
MsgBox "Archivo No Encontrado"
Coincide = False
End If
End function

Para saber si la palabra esta en el archivo debes:

Private Sub Boton_Click()

If Coincide(CuadrodeTexto.text, RutaArchivo) then
'Si se encontro, entonces hacer lo que corresponde
else
' No se encontro, ya que! :(
end if

La funcion Coincide devuelve True ( Verdadero ) si la palabra esta en el archivo, y False (Falso) si no...

Espero que te sirva...

. : AlphaSoft : .

Laura
20 de Marzo del 2005
Lo pruebo y te digo si me vale para lo que quiero hacer. GRACIAS