Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctGrecFrancais - 1
Public Function GrecFrancais(recherche)
Dim lexique$, lfile%
Dim rech1%, rech2%, analyse$
Dim partiegrec$, partiefrancais$, partienote$
Dim trouve
' Affactations
lexique = App.Path & "\tools\lexiquegr.dic"
lfile = FreeFile
' Consultation du lexique
Open lexique For Input As #lfile
Do
eue
Input #lfile, ligne
' cela sert à la fois à la recherche sans la casse,
' et à la répartition du résultat dans les différents
' champs de la feuille DicoHebreu à partir du txtNotes
' sachant que l'hébreu début la ligne et se termine à 1/
' où commence la prononciation
rech1 = InStr(1, ligne, "3/ ", vbTextCompare)
'partiehebreu = Mid(ligne, 1, rech1 - 1)
'analyse = MsgBox(partiehebreu, , "Mot hébreu")
' notes
'rech3 = InStr(1, ligne, "3/", vbTextCompare)
' français
'rech2 = InStr(1, ligne, "2/", vbTextCompare)
'partiefrancais = Mid(ligne, rech2 + 2, rech3 - (rech2 + 2))
'analyse = MsgBox(partiefrancais, , "Mot français")
If frmLexiqueNT.chkCase.Value = 0 Then ' "Respecter la casse" n'est pas cochée
' je me lance à la recherche d'une partie de la chaîne
Do
' pour le reste...
Input #lfile, ligne
rech1 = InStr(1, ligne, "", vbTextCompare)
partiegrec = Mid(ligne, 1, rech1 - 1)
If InStr(1, partiegrec, recherche, vbTextCompare) 0 Then
' j'ai trouvé une partie de la recherche dans la partie héb
frmLexiqueNT.txtNotes.Text = ligne
GoTo trouve
Exit Do
Else
' je n'ai pas trouvé, même une partie
frmLexiqueNT.txtNotes.Text = "Pas de résultat !"
End If
Loop Until EOF(lfile)
ElseIf frmLexiqueNT.chkCase.Value = 1 Then ' il faut chercher le mot EXACT
End If
oop While Not EOF(lfile)
lose
If Left(ligne, Len(recherche) + 2) = recherche & "" Then
frmLexiqueNT.txtNotes.Text = ligne
Exit Do
Else
frmLexiqueNT.txtNotes.Text = "Pas de résultat !"
End If
Le résultat de la recherche est stocké dans txtNotes.text
pour commodité, on le restocke dans la variable ligne
igne = frmLexiqueNT.txtNotes.Text