Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireBHSUnicode - 1
Public Function LireBHSUnicode(livre, chapitre, verset)
Dim ofile, lfile, ligne, recherche, textefinal, ofile2, LFile2
ofile = App.Path & "\modules\BHS\text.rtf"
ofile2 = App.Path & "\modules\BHS\WLC.rtf"
lfile = FreeFile
recherche = livre & "--" & chapitre & "-" & verset
Open ofile2 For Input As #lfile
Do
Line Input #lfile, ligne
frmParse.txtBHS.Text = ligne
If Mid(frmParse.txtBHS.Text, 1, Len(recherche)) = recherche Then
frmParse2.Text1.TextRTF = ligne
Exit Do
'LFile2 = FreeFile + 1
'Open ofile For Output As #LFile2
'Write #LFile2, ligne
End If
Loop While Not EOF(lfile)
lose
oad frmParse2
rmParse2.Show
lfile = FreeFile
Open ofile For Input As #lfile
Line Input #lfile, ligne
textefinal = ligne
Close
frmBible.txtPassage.Text = StrConv(textefinal, vbFromUnicode)
Load frmParse
frmParse2.Text1.Text = frmParse2.Text1.Text
frmParse2.Show
frmParse2.Show
nd Function