Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireCRP - 1
Public Function LireCRP(livre, chapitre, verset)
Dim ofile$, lfile%, ligne$
'verset = "1"
ofile = App.Path & "\modules\CRP\Crp.txt"
lfile = FreeFile
Open ofile For Input As #lfile
On Error GoTo err:
Do
Line Input #lfile, ligne
set) + 2, Len(ligne))
If ligne = livre Then
'j'ai trouvé mon livre; je cherche maintenant mon chapitre
Do
Line Input #lfile, ligne
If ligne = "Chapitre " & chapitre Then
'j'ai trouvé mon chapitre, je cherche mon verset
Do
Line Input #lfile, ligne
If Left(ligne, Len(verset)) = verset Then
frmBible.txtPassage.Text = frmBible.txtPassage.Text & Mid(ligne, Len(ve
Do
Line Input #lfile, ligne
If Left(ligne, 1) = "1" Or Left(ligne, 1) = "2" Or Left(ligne,
) = "3" _
Or Left(ligne, 1) = "4" Or Left(ligne, 1) = "5" Or Left(lig
e, 1) = "6" _
Or Left(ligne, 1) = "7" Or Left(ligne, 1) = "8" Or Left(lig
e, 1) = "9" Then
GoTo apres:
Else
frmBible.txtPassage.Text = frmBible.txtPassage.Text & ligne
End If
Loop
End If
Loop
End If
Loop
pres:
End If
Loop While Not EOF(lfile)
rr:
lose
rmBible.txtPassage.FontSize = 12
rmBible.txtPassage.Font = "Times"
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset
nd Function