Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctHebreuFrancais - 1
Public Function HebreuFrancais(recherche)
' Déclarations
Dim lexique$, lfile%
Dim rech1%, rech2%, rech3%, motdeflechi$, analyse$
Dim partiehebreu$, partieprononciation$, partiefrancais$, partienote$
Dim trouve
' Affactations
lexique = App.Path & "\tools\lexiqueheb.dic"
lfile = FreeFile
' Consultation du lexique
Open lexique For Input As #lfile
Do
eue
Input #lfile, ligne
On Error GoTo erreur:
' 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, "1/", 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 frmDicoHebreu.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
' cela concerne la première ligne !
'If InStr(1, partiehebreu, recherche, vbTextCompare) 0 Then
'fmDicoHebreu.txtNotes.Text = ligne
'Exit Do
'End If
' pour le reste...
Input #lfile, ligne
partiehebreu = Mid(ligne, 1, rech1 + 1)
If InStr(1, partiehebreu, recherche, vbTextCompare) 0 Then
' j'ai trouvé une partie de la recherche dans la partie héb
frmDicoHebreu.txtNotes.Text = ligne
GoTo trouve
Exit Do
Else
' je n'ai pas trouvé, même une partie
frmDicoHebreu.txtNotes.Text = "Pas de résultat !"
End If
Loop Until EOF(lfile)
ElseIf frmDicoHebreu.chkCase.Value = 1 Then ' il faut chercher le mot EXACT
End If
If Left(ligne, Len(recherche) + 1) = recherche & "1" Then
frmDicoHebreu.txtNotes.Text = ligne
Exit Do
Else
frmDicoHebreu.txtNotes.Text = "Pas de résultat !"
End If