Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctRechercherNuttall - 1
Public Function RechercherNuttall(mot)
Dim ofile$, lfile%, ligne$
ofile = App.Path & "\modules\dictionnaires\nuttall.txt"
lfile = FreeFile
recherche = mot
recherche = UCase(recherche)
frmDictionnaires.txtResultat.Text = ""
Open ofile For Input As #lfile
On Error GoTo err:
Do
Line Input #lfile, ligne
If Mid(ligne, 1, Len(recherche) + 1) = recherche & "," Then
frmDictionnaires.txtResultat.Text = frmDictionnaires.txtResultat.Text & " " & ligne
Do
Line Input #lfile, ligne
If ligne = "" Then Exit Do
frmDictionnaires.txtResultat.Text = frmDictionnaires.txtResultat.Text &
ligne
Loop
End If
Loop While Not EOF(lfile)
rr:
lose
nd Function