Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctRechercheLemmatiqueLXX - 1
Public Function RechercheLemmatiqueLXX(mot)
Dim ofile$, lfile%, ligne$, vientde$, code$, premierespace%, deuxiemeespace%, parenthese%, nouveles
pace%
ofile = App.Path & "\modules\WHpars\morphwh.txt"
lfile = FreeFile
Open ofile For Input As #lfile
o
Line Input #lfile, ligne
If Left(ligne, Len(mot)) = mot Then
premiereespace = InStr(1, ligne, " ")
deuxiemeespace = InStr(premiereespace, ligne, " ")
parenthese = InStr(1, ligne, "(")
vientde = Trim(Mid(ligne, premiereespace, Len(ligne)))
nouvelespace = InStr(1, vientde, " ")
vientde = Left(vientde, nouvelespace - 1)
'petit tour de passe passe...
code = StrReverse(ligne)
espace = InStr(1, code, "(")
code = Mid(code, 1, espace)
code = StrReverse(code)
code = Mid(code, 2, Len(code) - 1)
Exit Do
End If
oop While Not EOF(lfile)
lose
maintenant je recherche vraiment toutes les formes du mots
echerche = vientde & " " & "("
file = App.Path & "\modules\LXX\lxx.txt"
file = FreeFile
Open ofile For Input As #lfile
oad frmZetoGraphe
rmZetoGraphe.cboVersion.Text = "NA27"
= 0
o
Line Input #lfile, ligne
If InStr(1, ligne, recherche) 0 Then
deuxpoints = InStr(1, ligne, ":")
espace = InStr(deuxpoints, ligne, " ")
frmZetoGraphe.Text1.Text = frmZetoGraphe.Text1.Text & vbCrLf & Mid(ligne, 1, espace)
i = i + 1
End If
oop While Not EOF(lfile)
rmZetoGraphe.Show
rmZetoGraphe.lblResultat.Caption = i & " passages trouvés."
rmZetoGraphe.Text1.Text = Mid(frmZetoGraphe.Text1.Text, 3, Len(frmZetoGraphe.Text1.Text))
nd Function