Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctCreerPassageWHpars - 3
ElseIf version = "W/H & Strong" And _
livre = "3 Jean" Then
chercher = "3jean" & chapitre & "-" & verset
fichier = fichier & "3jo.txt"
chap = "3je"
ElseIf version = "W/H & Strong" And _
livre = "Jude" Then
chercher = "jude" & chapitre & "-" & verset
fichier = fichier & "jude.txt"
chap = "jud"
ElseIf version = "W/H & Strong" And _
livre = "Révélation" Then
chercher = "revelation" & chapitre & "-" & verset
fichier = fichier & "re.txt"
chap = "rev"
End If
Dim lfile As Long 'Lecture
Dim ofile As String 'Fichier à ouvrir
ofile = App.Path & fichier
lfile = FreeFile + 10
frmBible.lbltampon.Text = ""
On Error GoTo erreur:
Open ofile For Input As #lfile
o
lecture
Line Input #lfile, ligne
f Mid(ligne, 1, Len(chercher)) = chercher Then ' pour que le verset recherché soit exact
'affectation du verset du fichier à la variable
frmBible.lbltampon.Text = frmBible.lbltampon.Text & Mid(ligne, Len(chercher) + 1, Len(ligne))
Do
Line Input #lfile, ligne
If Left(ligne, 3) = chap Then 'Left(ligne, 3 + Len(chapitre) + 1 + Len(verset)) = chap & ch
pitre & "-" & Val(verset) + 1 Then
GoTo apres:
Else
frmBible.lbltampon.Text = frmBible.lbltampon.Text & " " & ligne
' MsgBox frmBible.lbltampon.Text, , "lbltampon"
End If
Loop 'While Left(ligne, Len(chercher)) "mat" & chapitre & "-" & Val(verset) + 1
nd If
oop While Not EOF(lfile) 'While Left(ligne, Len(chercher)) "mat" & chapitre & "-" & Val(verset)
+ 1
pres:
MsgBox frmBible.lbltampon.Text
rmBible.txtPassage.Text = Trim(frmBible.lbltampon.Text)
lose #lfile
rmBible.lblchapitre.Caption = frmBible.cboLivre.Text & " " & frmBible.txtChapitre & " : " & frmBib
e.txtverset.Text
rmBible.lblprecedent.Visible = True
rmBible.lblsuivant.Visible = True
rreur:
im msg$
f err.Number = 76 Then
rmBible.cboLivre = "Matthieu"
rmBible.txtChapitre = "1"
rmBible.txtverset = "1"
msg = MsgBox("Le texte de Wescott & Hort contient le Nouveau Testament. Cette opération n'est pas
ossible", vbInformation, "Erreur")
xit Function
nd If
nd Function