Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctRechercheMorphologique - 1
Public Function RechercheMorphologique(recherche, nveaucode)
Dim ofile$, lfile%, ligne$, verset$, premierespace$, marge$, i%
If frmBible.cboVersion.Text = "WH+" Then
ofile = App.Path & "\modules\WHpars\whm.txt"
ElseIf frmBible.cboVersion.Text = "NA27" Then
ofile = App.Path & "\modules\NA27\na27p.txt"
ElseIf frmBible.cboVersion.Text = "LXX" Then
ofile = App.Path & "\modules\LXX\lxx.txt"
End If
lfile = FreeFile
'frmRechercheMorphologique.lstPassages.Clear
frmAssistant.lstPassages.Clear
i = 0
'If frmRechercheMorphologique.Option1.Value = True Then GoTo formeexacte:
'If frmRechercheMorphologique.Option2.Value = True Then GoTo touteforme:
If ofile "" Then Open ofile For Input As #lfile
On Error GoTo err:
Do
rr:
lose
Line Input #lfile, ligne
If InStr(1, ligne, recherche) 0 Then
marge = InStr(1, ligne, recherche)
premierespace = InStr(1, ligne, " ")
' deuxiemeespace = InStr(premierespace, ligne, " ")
verset = Mid(ligne, 1, premierespace)
i = i + 1
frmAssistant.lstPassages.AddItem (verset)
'frmRechercheMorphologique.lstPassages.AddItem (verset)
'frmRechercheMorphologique.lstFormes.AddItem (Mid(ligne, marge - 20, 20))
End If
Loop While Not EOF(lfile)
f i = 0 Then
rmAssistant.lblOcc.Caption = "0 passages"
rmAssistant.Label1.Caption = ""
lseIf i = 1 Then
rmAssistant.lblOcc.Caption = "Une seule occurrence."
frmAssistant.lstPassages.Selected(1) = True
frmAssistant.lstPassages_Click
lse
rmAssistant.lblOcc.Caption = i & " passages."
frmAssistant.lstPassages.Selected(1) = True
frmAssistant.lstPassages_Click
nd If
formeexacte:
recherche = frmRechercheMorphologique.txtMot.Text
ofile = App.Path & "\modules\WHpars\whm.txt"
Open ofile For Input As #lfile
On Error GoTo err:
'Do
'Line Input #lfile, ligne
'If InStr(1, ligne, recherche) 0 Then
'marge = InStr(1, ligne, recherche)
'premierespace = InStr(1, ligne, " ")
'deuxiemeespace = InStr(premierespace, ligne, " ")
'verset = Mid(ligne, 1, premierespace)
'i = i + 1
'frmRechercheMorphologique.lstPassages.AddItem (verset)