Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLectureBhsLxx - 1
Public Function LectureBhsLxx(fichier, passage, finverset)
Dim lfile, ligne$, fichiertemp, LFile2, textefinal$, msg$, remplace$
frmBHSLXX.txtGauche.Text = ""
frmBHSLXX.txtDroite.Text = ""
fichiertemp = App.Path & "\modules\parallel\temp.txt"
lfile = FreeFile
LFile2 = FreeFile + 1
Open fichier For Input As #lfile
Open fichiertemp For Output As #LFile2
Do
tabulation)
Input #lfile, ligne
If Left(ligne, Len(passage)) = passage Then
Do
bulation, Len(ligne))
Input #lfile, ligne
tabulation = InStr(1, ligne, " ")
frmBHSLXX.txtGauche.Text = frmBHSLXX.txtGauche.Text & vbCrLf & Mid(ligne, 1
frmBHSLXX.txtDroite.Text = frmBHSLXX.txtGauche.Text & vbCrLf & Mid(ligne, t
Loop While Not ligne = finverset
Print #LFile2, frmBHSLXX.txtGauche.Text
'MsgBox (frmBHSLXX.txtGauche.Text)
'MsgBox fichiertemp, , "fichiertemp"
Exit Do
End If
Loop While Not EOF(lfile)
lose
emplace = Replace(frmBHSLXX.txtGauche.Text, " ", vbCrLf, 1)
Open fichiertemp For Input As #LFile2
lose
Do
Input #LFile2, ligne
'msg = MsgBox(ligne)
Loop While Not EOF(LFile2)
nd Function