comparar con una lista
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?
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?
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 : .
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 : .