Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireSeptante - 3
End If
Loop Until EOF(lfile)
Close #lfile
'remplacer = Replace(frmParse2.Text1.Text, vbCrLf, " ")
'remplacer = Replace(frmParse2.Text1.Text, " ", "")
'frmBible.txtPassage.Text = remplacer
Open nveau For Input As #LFile2
Do
Input #LFile2, ligne
frmBible.txtPassage.Text = frmBible.txtPassage.Text & ligne & vbCrLf
Loop While Not EOF(LFile2)
lose #LFile2
rmBible.txtPassage.Text = frmParse2.Text1.Text
rmBible.lblchapitre.Caption = frmBible.cboLivre.Text & " " & frmBible.txtChapitre & " : " & frmBib
e.txtverset.Text
all CorrigerLectureSeptante(chercher)
Open nveau For Output As #LFile2
Write #LFile2, frmParse2.Text1.Text
Close #LFile2
xit Function
rreur:
sgBox "Une erreur s'est produite...", vbInformation, "Bible Parser : Erreur"
rmBible.cboVersion.Text = "Septante"
rmBible.cboLivre.Text = "Genèse"
rmBible.txtChapitre.Text = "1"
rmBible.txtverset.Text = "1"
rmBible.txtPassage.Font = "Grenet"
nd Function