Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireTMN - 1
Public Function LireTMN(livre, chapitre, verset)
Dim cherche$, ofile$, lfile%, ligne$, recherhche$
ofile = App.Path & "\modules\TMN\TMN.txt"
lfile = FreeFile
frmBible.txtPassage.Text = ""
frmParse2.Text1.Text = ""
Open ofile For Input As #lfile
n
Do
Line Input #lfile, ligne
' j'ai trouvé le livre
If ligne = livre Then
Do
On Error GoTo apres:
Line Input #lfile, ligne
'j'ai trouvé le chapitre
If Left(ligne, 8) = "chapitre" And _
Mid(ligne, 9, Len(chapitre) + 1 + Len(verset)) = chapitre & ">" & verset Th
frmParse2.Text1.Text = frmParse2.Text1.Text & Mid(ligne, 9 + Len(chapitre)
Len(verset), Len(ligne))
GoTo suite:
Else
Do While Not EOF(lfile)
Line Input #lfile, ligne
If InStr(1, ligne, verset & " ") 0 Then
frmParse2.Text1.Text = Mid(ligne, InStr(1, ligne, verset & " ")
Len(ligne))
GoTo suite:
End If
Loop
uite:
Do While Not EOF(lfile)
Loop
Loop
End If
Line Input #lfile, ligne
If InStr(1, ligne, "1 ") = 0 And _
InStr(1, ligne, "2 ") = 0 And _
InStr(1, ligne, "3 ") = 0 And _
InStr(1, ligne, "4 ") = 0 And _
InStr(1, ligne, "5 ") = 0 And _
InStr(1, ligne, "6 ") = 0 And _
InStr(1, ligne, "7 ") = 0 And _
InStr(1, ligne, "8 ") = 0 And _
InStr(1, ligne, "9 ") = 0 Then
frmParse2.Text1.Text = frmParse2.Text1.Text & ligne
Else
repere = InStr(1, ligne, "1 ")
If repere 0 Then ligne = Mid(ligne, 1, repere - 2)
repere = InStr(1, ligne, "2 ")
If repere 0 Then ligne = Mid(ligne, 1, repere - 2)
repere = InStr(1, ligne, "3 ")
If repere 0 Then ligne = Mid(ligne, 1, repere - 2)
repere = InStr(1, ligne, "4 ")
If repere 0 Then ligne = Mid(ligne, 1, repere - 2)
repere = InStr(1, ligne, "5 ")
If repere 0 Then ligne = Mid(ligne, 1, repere - 2)
repere = InStr(1, ligne, "6 ")
If repere 0 Then ligne = Mid(ligne, 1, repere - 2)
repere = InStr(1, ligne, "7 ")
If repere 0 Then ligne = Mid(ligne, 1, repere - 2)
repere = InStr(1, ligne, "8 ")
If repere 0 Then ligne = Mid(ligne, 1, repere - 2)
repere = InStr(1, ligne, "9 ")
If repere 0 Then ligne = Mid(ligne, 1, repere - 2)
frmParse2.Text1.Text = frmParse2.Text1.Text & " " & ligne
Exit Do
End If