Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireFlaviusJosephe - 1
Public Function LireFJ(livre, chapitre, verset)
Dim cherche$, ofile$, lfile%, ligne$, recherhche$
frmBible.lblchapitre = livre & " " & chapitre & ":" & verset
If frmBible.cboVersion.Text = "Flavius Josèphe" Then
frmBible.txtPassage.FontSize = 14
frmBible.txtPassage.Font = "Bwgrkn"
Else
frmBible.txtPassage.FontSize = 12
frmBible.txtPassage.Font = "Times"
End If
If frmBible.cboVersion.Text = "Flavius Josèphe" Then
ofile = App.Path & "\modules\JOS\jos.txt"
Else
ofile = App.Path & "\modules\JOS\joe.txt"
End If
lfile = FreeFile
If livre = "Antiquités judaïques" Then
chercher = "Ant"
ElseIf livre = "Guerre des Juifs" Then
chercher = "Jwr"
ElseIf livre = "Vie de FJ" Then
chercher = "Lif"
ElseIf livre = "Contre Apion" Then
chercher = "Apn"
End If
recherche = Trim(chercher & " " & chapitre & ":" & verset & " ")
Open ofile For Input As #lfile
Do
Line Input #lfile, ligne
If Left(ligne, Len(recherche)) = recherche Then
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))
Do
Line Input #lfile, ligne
If Mid(ligne, 1, Len(chercher)) = chercher Then Exit Function
frmBible.txtPassage.Text = frmBible.txtPassage.Text & ligne
Loop
End If
Loop While Not EOF(lfile)
lose
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")
nd Function