Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctHebreuFrancais - 2
Loop While Not EOF(lfile)
erreur:
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)
' à voir ; je pourrai aussi mettre, au lieu du mid, la recherche elle-même ?
'frmDicoHebreu.txtHebreu.Text = Mid(ligne, 1, rech1 - 1)
'Else
'analyse = MsgBox("Pas de résultat pour ce terme !" & vbCrLf & "Souhaitez-vous lancer une reche
rche étendue ? (Ne pas respecter la casse)", vbInformation + vbYesNo, "Aucune entrée dans le lexiqu
e")
'If analyse = vbYes Then
'frmDicoHebreu.chkCase.Value = 0
'frmDicoHebreu.txtHebreu.Text = recherche
'frmDicoHebreu.Timer1.Enabled = True
'frmDicoHebreu.mnuConsultation.Checked = True
'Exit Function
'Call HebreuFrancais(recherche)
'Else
'frmDicoHebreu.Timer1.Enabled = False
'frmDicoHebreu.txtNotes.Text = ""
'frmDicoHebreu.txtHebreu.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