Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireNTDF - 1
Public Function LireNTDF(livre, chapitre, verset)
Dim aouvrir$, recherche$, ligne$
Dim lfile
If livre = "Révélation" Then
livre = "Apocalypse"
ElseIf livre = "Lamentations" Then
livre = "Lamentations de Jérémie"
ElseIf livre = "Nahoum" Then
livre = "Nahum"
ElseIf livre = "Habaquq" Then
livre = "Habakuk"
End If
' affectation variable
aouvrir = App.Path & "\modules\DF\" & livre & ".txt"
recherche = chapitre & "-" & verset & " "
lfile = FreeFile
frmBible.txtPassage.Text = ""
On Error Resume Next
Open aouvrir For Input As #lfile
Do
Input #lfile, ligne
If Left(ligne, Len(recherche)) = recherche Then
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))
frmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",", 1)
End If
Loop While Not EOF(lfile)
Close
nd Function