Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireANF - 3
chercher = "TAW"
ElseIf livre = "Tertullien - Sur le voile des vierges" Then
chercher = "TVV"
ElseIf livre = "Tertullien - A sa femme" Then
chercher = "THW"
ElseIf livre = "Tertullien - Exhortation à la chasteté" Then
chercher = "TEC"
ElseIf livre = "Tertullien - Sur la monogamie" Then
chercher = "TOM"
ElseIf livre = "Tertullien - Sur la modestie" Then
chercher = "TMD"
ElseIf livre = "Tertullien - Sur les fêtes" Then
chercher = "TOF"
ElseIf livre = "Tertullien - De fuga in persecutione" Then
chercher = "TFP"
ElseIf livre = "Munucius Felix - L'Octavius" Then
chercher = "MFO"
ElseIf livre = "Munucius Felix - Instructions de Commodianus" Then
chercher = "MFC"
ElseIf livre = "Origène - Prologue" Then
chercher = "OPP"
ElseIf livre = "Origène - De Principiis Livre 1" Then
chercher = "OP1"
ElseIf livre = "Origène - De Principiis Livre 2" Then
chercher = "OP2"
ElseIf livre = "Origène - De Principiis Livre 3" Then
chercher = "OP3"
ElseIf livre = "Origène - De Principiis Livre 4" Then
chercher = "OP4"
ElseIf livre = "Origène - Lettres" Then
chercher = "OLt"
ElseIf livre = "Origène - Contre Celse" Then
chercher = "OAC"
ElseIf livre = "Origène - Réfutation de toutes les hérésies" Then
chercher = "HRH"
ElseIf livre = "Anonyme - Canon de Muratori" Then
chercher = "TMC"
ElseIf livre = "Hippolyte - Réfutation de toutes les hérésies" Then
chercher = "HRH"
End If
recherche = 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))
End If
Loop While Not EOF(lfile)
lose
frmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")
rmBible.txtPassage.FontSize = 12
rmBible.txtPassage.Font = "Times"
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset
nd Function