Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireThayer - 1
Public Function LireThayer(mot, reference) As String
mot = Replace(mot, "0", "O")
'If Len(mot) = 4 Then
'mot = "g" & mot
'End If
frmParse2.Text1.Text = ""
Dim lfile As Long 'Lecture
Dim ofile As String 'Fichier à ouvrir
ofile = App.Path & "\modules\Thayer\thayer.txt"
lfile = FreeFile
Dim chercher$
ligne = ""
If Len(mot) = 1 Then
chercher = "OOOO" & mot
ElseIf Len(mot) = 2 Then
chercher = "OOO" & mot
ElseIf Len(mot) = 3 Then
chercher = "OO" & mot
ElseIf Len(mot) = 4 Then
chercher = "O" & mot
End If
reference = chercher
Open ofile For Input As #lfile
Do
Input #lfile, ligne
If ligne = reference Then ' pour que le verset recherché soit exact
'affectation du verset du fichier à la variable
frmParse2.Text1.Text = frmParse2.Text1.Text & ligne
Do While Not EOF(lfile)
Input #lfile, ligne
If Left(ligne, 1) = "O" Then
GoTo apres:
Else
'If IsNumeric(ligne) = True Then
'frmParse2.Text1.Text = frmParse2.Text1.Text & ligne
'Else
frmParse2.Text1.Text = frmParse2.Text1.Text & " " & vbCrLf & ligne
'MsgBox ligne
'End If
Loop
End If
End If
Loop While Not EOF(lfile)
pres:
lose #lfile
nd Function