Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctDoubleCliqueSeptante - 2
Close #LFile3
msg = ""
'On Error GoTo erreur:
Open ofile2 For Input As #LFile2
Do
Input #LFile2, ligne
'frmParse.txtanalyse.Caption = frmParse.txtanalyse.Caption & ligne & vbCrLf
msg = msg & ligne & vbCrLf
Loop While Not ligne = ""
Close #LFile2
mot = Trim(frmBible.txtPassage.SelText)
If Right(mot, 1) = "." Then
mot = Mid(mot, 1, Len(mot) - 1)
End If
If Right(mot, 1) = "s" Then
mot = Mid(mot, 1, Len(mot) - 1) + "j"
frmParse.lblmot.Caption = mot
End If
Load frmParse
frmParse.Show
frmParse.lblmot = LCase(mot)
If Right(origine, 1) = "S" Then
origine = Mid(origine, 1, Len(origine) - 1) + "J"
End If
frmParse.lblorigine = LCase(origine)
frmParse.txtAnalyse.Caption = msg
'