Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLatinFrancais - 2
recherche3 = motlatin & " :"
recherche4 = motlatin & " ("
Open ofile For Input As #lfile
Do
Line Input #lfile, ligne
If Mid(ligne, 1, Len(recherche)) = recherche Or _
Mid(ligne, 1, Len(recherche2)) = recherche2 Or _
Mid(ligne, 1, Len(recherche3)) = recherche3 Or _
Mid(ligne, 1, Len(recherche4)) = recherche4 Then
frmDicoLatFr.Text2.Text = ligne
Exit Do
End If
Loop While Not EOF(lfile)
lose
f motlatin "" And frmDicoLatFr.Text2.Text = "" Then
frmDicoLatFr.Text2.Text = motlatin & ": mot inconnu."
nd If
ANALYSE MORPHOLOGIQUE
file = FreeFile
Open fichier For Input As #lfile
o
Line Input #lfile, ligne
on récupère la morphologie
' les codes sont renseignés à cette adresse: http://users.erols.com/whitaker/wordsdoc.h
m
'tous les types de mots possibles
If Left(ligne, 1) "*" And _
InStr(1, ligne, "-") 0 And _
InStr(1, ligne, ",") = 0 And _
InStr(1, ligne, ";") = 0 Then
uite:
If Mid(ligne, 1, 1) = "*" Or ligne = "" Then GoTo suite:
Call AnalyseMorphoLatin(ligne)
frmDicoLatFr.List1.AddItem (ligne)
Do While Not EOF(lfile)
Line Input #lfile, ligne
If Left(ligne, 1) "*" And _
InStr(1, ligne, "-") 0 And _
InStr(1, ligne, ",") = 0 And _
InStr(1, ligne, ";") = 0 Then
Call AnalyseMorphoLatin(ligne)
frmDicoLatFr.List1.AddItem (ligne)
Loop
End If
oop While Not EOF(lfile)
pres:
lose
nd Function
Else
GoTo suite:
End If