Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctConcordanceHomere - 1
Public Function ConcordanceHomere(recherche)
Dim ofile$, lfile%
Dim ligne$, passage$
Dim i%
lfile = FreeFile
ofile = App.Path & "\modules\HHG\hhg.txt"
Open ofile For Input As #lfile
On Error GoTo err:
= 0
Do
rr:
lose
Line Input #lfile, ligne
If InStr(1, ligne, recherche) 0 Then
premierespace = InStr(1, ligne, ":")
espaceapres = InStr(premierespace, ligne, " ")
passage = Left(ligne, espaceapres)
frmZetoGraphe.Text1.Text = frmZetoGraphe.Text1.Text & passage & vbCrLf
'frmZetoGraphe.lsResultat.AddItem (passage)
i = i + 1
End If
Loop While Not EOF(lfile)
rmZetoGraphe.lblResultat.Caption = i & " passages trouvés."
rmZetoGraphe.txtRecherche.Font = "Grenet"
rmZetoGraphe.txtRecherche.FontSize = "12"
rmZetoGraphe.Show
nd Function