Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctlireCBC - 1
Public Function LireCBC(mot)
Dim fichier$, def$, lfile%
lfile = FreeFile
fichier = App.Path & "\modules\CBC\cbc.txt"
def = App.Path & "\modules\KJV\def.htm"
frmParse2.Text1.Text = ""
mot = UCase(mot)
Open fichier For Input As #lfile
Do
Input #lfile, ligne
If ligne = mot Then
End If
Loop While Not EOF(lfile)
uite:
lose
frmParse2.Text1.Text = ligne
Do
On err GoTo suite:
Input #lfile, ligne
frmParse2.Text1.Text = frmParse2.Text1.Text & vbCrLf & ligne
Loop While Not ligne = "" Or ligne = vbCrLf
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
rint #lfile, frmParse2.Text1.Text
lose
oad frmBrowser
rmBrowser.WindowState = 0
rmBrowser.cboAddress.Text = def
rmBrowser.Show
nd Function