Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLirePeresEn - 1
Public Function LirePeresEn(livre, chapitre, verset)
Dim cherche$, ofile$, lfile%, ligne$, recherhche$
If frmBible.cboVersion.Text = "Lightfoot" Then
ofile = App.Path & "\modules\APF\Lightfoot.txt"
Else
ofile = App.Path & "\modules\APF\ape.txt"
End If
lfile = FreeFile
If livre = "1ère de Clément" Then
chercher = "1Cl"
ElseIf livre = "2ème de Clément" Then
chercher = "2Cl"
ElseIf livre = "Epître de Barnabé" Then
chercher = "Brn"
ElseIf livre = "Lettre à Diognète" Then
chercher = "Dio"
ElseIf livre = "Ignace - 1ère Ephésiens" Then
chercher = "IEp"
ElseIf livre = "Ignace - 2ème Ephésiens" Then
chercher = "IIEp"
ElseIf livre = "Ignace - aux Magnésiens" Then
chercher = "IMg"
ElseIf livre = "Ignace - aux Tralliens" Then
chercher = "ITr"
ElseIf livre = "Ignace - aux Romains" Then
chercher = "IRo"
ElseIf livre = "Ignace - aux Philadelphiens" Then
chercher = "IPh"
ElseIf livre = "Ignace - aux Smyrniotes" Then
chercher = "ISm"
ElseIf livre = "Ignace - à Polycarpe" Then
chercher = "IPo"
ElseIf livre = "Polycarpe - aux Philippiens" Then
chercher = "Pol"
ElseIf livre = "Martyr de Polycarpe" Then
chercher = "MPo"
ElseIf livre = "La Didachè" Then
chercher = "Did"
ElseIf livre = "Hermas - Vision 1" Then
chercher = "HV1"
ElseIf livre = "Hermas - Vision 2" Then
chercher = "HV2"
ElseIf livre = "Hermas - Vision 3" Then
chercher = "HV3"
ElseIf livre = "Hermas - Vision 4" Then
chercher = "HV4"
ElseIf livre = "Hermas - Vision 5" Then
chercher = "HV5"
ElseIf livre = "Hermas - Précepte 1" Then
chercher = "HMA"
ElseIf livre = "Hermas - Précepte 2" Then