Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctFrancaisHebreu - 2
End If
Loop While Not EOF(lfile)
err:
Close
' Le résultat de la recherche est stocké dans txtNotes.text
' pour commodité, on le restocke dans la variable ligne
ligne = frmDicoHebreu.txtNotes.Text
' J'ai trouvé mon mot hébreu, j'affecte les résultats dans les champs
If ligne "Pas de résultat !" Then
frmDicoHebreu.txtPrononciation.Text = Mid(ligne, rech1 + 2, rech2 - (rech1 + 2))
frmDicoHebreu.txtFrancais.Text = Mid(ligne, rech2 + 2, rech3 - (rech2 + 2))
frmDicoHebreu.txtFrancais.Text = Replace(frmDicoHebreu.txtFrancais.Text, "~", ",", 1)
frmDicoHebreu.txtNotes.Text = Mid(ligne, rech3 + 2, Len(ligne))
frmDicoHebreu.txtNotes.Text = Replace(frmDicoHebreu.txtNotes.Text, "~", ",", 1)
frmDicoHebreu.txtHebreu.Text = Mid(ligne, 1, rech1 - 1)
Else
analyse = MsgBox("Pas de résultat pour ce terme !" & vbCrLf & "Souhaitez-vous lancer une recher
che étendue ? (Ne pas respecter la casse)", vbInformation + vbYesNo, "Aucune entrée dans le lexique
")
If analyse = vbYes Then
frmDicoHebreu.chkCase.Value = 0
frmDicoHebreu.txtFrancais.Text = recherche
'frmDicoHebreu.Timer1.Enabled = True
'frmDicoHebreu.mnuConsultation.Checked = True
'Exit Function
Call FrancaisHebreu(recherche)
Else
frmDicoHebreu.Timer1.Enabled = False
frmDicoHebreu.txtNotes.Text = ""
frmDicoHebreu.txtFrancais.Text = recherche
frmDicoHebreu.Timer1.Enabled = False
Exit Function
End If
End If
Exit Function
trouve:
ligne = frmDicoHebreu.txtNotes.Text
'partiehebreu = Mid(ligne, 1, rech1 - 1)
' je dois redéfinir mes rech1/2/3 car ils ont été corrompus par la recherche sans la casse
rech1 = InStr(1, ligne, "1/", vbTextCompare)
rech3 = InStr(1, ligne, "3/", vbTextCompare)
rech2 = InStr(1, ligne, "2/", vbTextCompare)
frmDicoHebreu.txtPrononciation.Text = Mid(ligne, rech1 + 2, rech2 - (rech1 + 2))
frmDicoHebreu.txtFrancais.Text = Mid(ligne, rech2 + 2, rech3 - (rech2 + 2))
frmDicoHebreu.txtFrancais.Text = Replace(frmDicoHebreu.txtFrancais.Text, "~", ",", 1)
frmDicoHebreu.txtNotes.Text = Mid(ligne, rech3 + 2, Len(ligne))
frmDicoHebreu.txtNotes.Text = Replace(frmDicoHebreu.txtNotes.Text, "~", ",", 1)
frmDicoHebreu.txtHebreu.Text = Mid(ligne, 1, rech1 - 1)
End Function