Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLexiqueNTMorph - 1
Public Function LexiqueNT_Morph(mot)
Dim ofile$, lfile%, ligne$, rech1%, rech2%, rech3%, code$, msg$, vientde$, packard$, LFile2%
ofile = App.Path & "\tools\greeknt.txt" 'pour la recherche de l'analyse du mot
packard = App.Path & "\tools\packard.txt" 'pour le déchiffrement du code de l'analyse précitée
lfile = FreeFile
LFile2 = FreeFile + 1
'j'efface tout ce qui se trouve actuellement sur la feuille du Lexique
frmLexiqueNT.txtGrec.Text = ""
frmLexiqueNT.txtVientde.Text = ""
frmLexiqueNT.txtFrancais.Text = ""
frmLexiqueNT.txtAnalyse.Text = ""
frmLexiqueNT.txtcode.Text = ""
frmLexiqueNT.txtNotes.Text = ""
' recherche du code
Open ofile For Input As #lfile
lose
Do
Input #lfile, ligne
' les noms propres sont précédés d'un astérix
ligne = Replace(ligne, "*", "", 1)
If Left(ligne, Len(mot) + 1) = mot & "", vbTextCompare)
If code "" Then
code = Left(code, rech2 - 1)
frmLexiqueNT.txtcode.Text = code ' affectation code
code = Replace(code, " ", " ", 1)
code = Replace(code, " ", " ", 1)
code = Replace(code, " ", " ", 1)
' recherche signification code packard
Else
Exit Function
End If
packard me dit ce que mon code signifie
Open packard For Input As #LFile2
Do
Input #LFile2, ligne
If ligne = code Then
Do
If code = "X" Then
frmLexiqueNT.txtAnalyse.Text = ligne