Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireKJVD - 1
Public Function LireKJVD(mot)
Dim fichier$, def$, lfile%
lfile = FreeFile
fichier = App.Path & "\modules\KJV\kjvd.dat"
def = App.Path & "\modules\KJV\def.htm"
frmParse2.Text1.Text = ""
mot = UCase(mot)
Open fichier For Input As #lfile
lose
Do
Input #lfile, ligne
If ligne = mot Then
End If
frmParse2.Text1.Text = ligne
Loop
Do
Loop While Not EOF(lfile)
Input #lfile, ligne
frmParse2.Text1.Text = frmParse2.Text1.Text & vbCrLf & ligne
Exit Do
file = FreeFile + 1
rmParse2.Text1.Text = Replace(frmParse2.Text1.Text, "~", ",")
f frmParse2.Text1.Text = "" Then
rmParse2.Text1.Text = "" & UCase(mot) & "" & "" & "" & "Pas de définition pour ce mo
." & ""
nd If
Open def For Output As #lfile
rite #lfile, frmParse2.Text1.Text
lose
oad frmBrowser
rmBrowser.WindowState = 0
rmBrowser.cboAddress.Text = def
rmBrowser.Show
nd Function