Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctConcordanceWH - 1
Public Function ConcordanceWH(recherche)
Dim ofile$, lfile%
Dim ligne$, passage$
Dim i%
frmZetoGraphe.lstResultat.Visible = True
frmZetoGraphe.lstResultat.Clear
lfile = FreeFile
ofile = App.Path & "\modules\WHpars\wh.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.lstResultat.AddItem (passage)
i = i + 1
End If
Loop While Not EOF(lfile)
rmZetoGraphe.lblResultat.Caption = i & " passages trouvés."
rmZetoGraphe.Text1.Visible = False
rmZetoGraphe.cboVersion.Clear
rmZetoGraphe.cboVersion.Text = "WH+"
rmZetoGraphe.txtRecherche.Font = "Bwgrkn"
rmZetoGraphe.txtRecherche.FontSize = "14"
rmZetoGraphe.Show
nd Function