Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmDictionnaires - 1
Private Sub btnQuitter_Click()
Unload Me
End Sub
Public Sub btnRechercher_Click()
Dim mot$
msg = Replace(frmDictionnaires.txtRecherche.Text, ",", "", 1)
If frmDictionnaires.txtRecherche.Text = "" Then Exit Sub
'If cboEncyclo.Text = "KJD" Then
' mot = txtRecherche.Text
' Call LireKJVD(mot)
' Exit Sub
'End If
'If cboEncyclo.Text = "CBC" Then
' mot = txtRecherche.Text
' Call LireCBC(mot)
' Exit Sub
'End If
frmParse2.Text1.Text = ""
' définition des variables
Dim lfile As Long 'Lecture
Dim ofile As String 'Fichier à ouvrir
Dim chercher$, reference$
Dim dico$
mot = frmDictionnaires.txtRecherche.Text
lfile = FreeFile
' conditions pour les différents fichiers
If cboEncyclo.Text = "Easton" Then
mot = LCase(mot)
dico = "easton.txt"
ElseIf cboEncyclo.Text = "Smith" Then
dico = "smith.txt"
ElseIf cboEncyclo.Text = "ISBE" Then
dico = "isbe.txt"
ElseIf cboEncyclo.Text = "Hitchcock" Then
dico = "hitch.txt"
ElseIf cboEncyclo.Text = "ATSBD" Then
RechercherATSBD (mot)
Exit Sub
ElseIf cboEncyclo.Text = "Webster" Then
RechercherWebster (mot)
Exit Sub
ElseIf cboEncyclo.Text = "Nuttall" Then
RechercherNuttall (mot)
Exit Sub
ElseIf cboEncyclo.Text = "Wace" Then
RechercherWace (mot)
Exit Sub
End If
' affectation du fichier à ouvrir
ofile = App.Path & "\modules\dictionnaires\" & dico
If dico = "isbe.txt" Then
mot = UCase(mot)
End If
If cboEncyclo.Text = "Easton" Or cboEncyclo.Text = "Smith" Then
premierelettre = UCase(Left(mot, 1))
mot = premierelettre & Mid(mot, 2, Len(mot))
End If
reference = "\" & mot & "\"
Open ofile For Input As #lfile
Do
Line Input #lfile, ligne
If Left(ligne, Len(reference)) = reference Then ' pour que le mot recherché soit exact
'affectation du verset du fichier à la variable
frmParse2.Text1.Text = frmParse2.Text1.Text & ligne
Do
Line Input #lfile, ligne