Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireTMN - 2
End If
Loop While Not EOF(lfile)
apres:
Close
frmBible.txtPassage.Text = ""
texte = frmParse2.Text1.Text
texte = Replace(texte, "0", "")
texte = Replace(texte, "1", "")
texte = Replace(texte, "2", "")
texte = Replace(texte, "3", "")
texte = Replace(texte, "4", "")
texte = Replace(texte, "5", "")
texte = Replace(texte, "6", "")
texte = Replace(texte, "7", "")
texte = Replace(texte, "8", "")
texte = Replace(texte, "9", "")
frmBible.txtPassage.Text = texte
'ofile = App.Path & "\tools\temp.txt"
'lfile = FreeFile
'Open ofile For Output As #lfile
'Print #lfile, frmParse2.Text.Text
'Close
'lfile = FreeFile
'Open ofile For Input As #lfile
'frmBible.txtPassage.Text = ""
' Do
' On Error GoTo suite:
' Input #lfile, ligne
' If InStr(1, ligne, verset) 0 Then
' debut = InStr(1, ligne, " " & verset)
' 'versetsuivant = " " & Str(Val(verset) + 1)
' fin = InStr(1, ligne, Str(Val(verset) + 1))
' If fin = 0 Then fin = InStr(1, ligne, "fin du chapitre") - 1
' frmBible.txtPassage.Text = Mid(ligne, debut + 3, (fin - debut) - 2)
' Exit Do
'
'End If
'Loop While Not EOF(lfile)
'suite:
'Close
frmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")
frmBible.txtPassage.FontSize = 12
frmBible.txtPassage.Font = "Times"
frmBible.lblchapitre = livre & " " & chapitre & ":" & verset
End Function