Microsoft Visual Basic - Encyclopaedia Gentium Boni
Microsoft Visual Basic - Encyclopaedia Gentium Boni Microsoft Visual Basic - Encyclopaedia Gentium Boni
frmAnalyseMorphologique - 1 Private Sub Command1_Click() Unload Me End Sub Private Sub Image1_Click() frmAssistant.txtcode = lblanalyse2.Caption frmAssistant.txtMot.Text = lblmot.Caption frmAssistant.txtRecherche.Text = lblvientde.Caption frmAssistant.Command2_Click frmAssistant.Show frmAnalyseMorphologique.Hide End Sub Private Sub Image2_Click() Load frmRechercheMorphologique frmRechercheMorphologique.txtcode.Text = lblanalyse2.Caption frmRechercheMorphologique.txtMot.Text = lblvientde.Caption frmRechercheMorphologique.Show frmAnalyseMorphologique.Hide End Sub Private Sub Image3_Click() Dim recherche$ recherche = Trim(lblmot.Caption) Call ConcordanceNA27(recherche) frmZetoGraphe.txtRecherche.Text = recherche frmZetoGraphe.txtRecherche.Font = "Bwgrkn" frmZetoGraphe.txtRecherche.FontSize = "14" frmZetoGraphe.cboVersion.Text = "NA27" 'Unload frmAnalyseMOphologique End Sub Private Sub lblanalyse_Click() Load frmGrammaire frmGrammaire.txtAnalyse.Text = lblanalyse.Caption 'frmGrammaire.btnGo_Click frmAnalyseMorphologique.Hide On Error GoTo fin: rmGrammaire.Show in: nd Sub rivate Sub lblmot_Click() im recherche$ echerche = lblmot.Caption all ConcordanceNA27(recherche) rmZetoGraphe.txtRecherche.Text = recherche rmZetoGraphe.txtRecherche.Font = "Bwgrkn" rmZetoGraphe.txtRecherche.FontSize = "14" rmZetoGraphe.cboVersion.Text = "NA27" rmAnalyseMorphologique.Hide nd Sub rivate Sub lblvientde_Click() im recherche$ echerche = lblvientde.Caption all ConcordanceNA27(recherche) rmZetoGraphe.txtRecherche.Text = recherche rmZetoGraphe.txtRecherche.Font = "Bwgrkn" rmZetoGraphe.txtRecherche.FontSize = "14" rmZetoGraphe.cboVersion.Text = "NA27" rmAnalyseMorphologique.Hide nd Sub rivate Sub Picture1_Click() im mot$ ot = lblmot.Caption all GrenetTOBw(mot) f Mid(mot, 1, 2) = ")A" Then mot = "a)" & Mid(mot, 3, Len(mot)) f Mid(mot, 1, 2) = "(A" Then mot = "a(" & Mid(mot, 3, Len(mot))
- Page 2 and 3: frmAnalyseMorphologique - 2 Load fr
- Page 4 and 5: frmAnalyseMorphologique - 1 VERSION
- Page 6 and 7: frmAnalyseMorphologique - 3 Underli
- Page 8 and 9: Mot : Vient de : Analyse : Définit
- Page 10 and 11: frmAssistant - 2 cbo7.Visible = Fal
- Page 12 and 13: frmAssistant - 4 cbo5.AddItem ("voc
- Page 14 and 15: frmAssistant - 6 If voix = "p" Then
- Page 16 and 17: frmAssistant - 8 chercher = "Nombre
- Page 18 and 19: frmAssistant - 10 ElseIf livre = "2
- Page 20 and 21: frmAssistant - 2 TabIndex = 12 Top
- Page 22 and 23: pe s s Label1 Label1 Label1
- Page 24 and 25: frmAutomatos - 2 End Sub Private Su
- Page 26 and 27: frmAutomatos - 2 Strikethrough = 0
- Page 28 and 29: >
- Page 30 and 31: frmBHSLXX - 2 cboLivre.AddItem ("Ez
- Page 32 and 33: frmBHSLXX - 2 End Begin VB.TextBox
- Page 34 and 35: frmBHSLXX - 4 Caption = "BIBLIA STU
- Page 36 and 37: frmBible - 1 'Private Declare Funct
- Page 38 and 39: frmBible - 3 Exit Sub End If 'Homè
- Page 40 and 41: frmBible - 5 cboLivre.Text = "Genè
- Page 42 and 43: frmBible - 7 chkstrong.Value = True
- Page 44 and 45: frmBible - 9 frmBible.txtPassage.Te
- Page 46 and 47: frmBible - 11 ElseIf cboVersion.Tex
- Page 48 and 49: frmBible - 13 cboLivre.AddItem ("Ex
- Page 50 and 51: frmBible - 15 cboLivre.AddItem ("2
frmAnalyseMorphologique - 1<br />
Private Sub Command1_Click()<br />
Unload Me<br />
End Sub<br />
Private Sub Image1_Click()<br />
frmAssistant.txtcode = lblanalyse2.Caption<br />
frmAssistant.txtMot.Text = lblmot.Caption<br />
frmAssistant.txtRecherche.Text = lblvientde.Caption<br />
frmAssistant.Command2_Click<br />
frmAssistant.Show<br />
frmAnalyseMorphologique.Hide<br />
End Sub<br />
Private Sub Image2_Click()<br />
Load frmRechercheMorphologique<br />
frmRechercheMorphologique.txtcode.Text = lblanalyse2.Caption<br />
frmRechercheMorphologique.txtMot.Text = lblvientde.Caption<br />
frmRechercheMorphologique.Show<br />
frmAnalyseMorphologique.Hide<br />
End Sub<br />
Private Sub Image3_Click()<br />
Dim recherche$<br />
recherche = Trim(lblmot.Caption)<br />
Call ConcordanceNA27(recherche)<br />
frmZetoGraphe.txtRecherche.Text = recherche<br />
frmZetoGraphe.txtRecherche.Font = "Bwgrkn"<br />
frmZetoGraphe.txtRecherche.FontSize = "14"<br />
frmZetoGraphe.cboVersion.Text = "NA27"<br />
'Unload frmAnalyseMOphologique<br />
End Sub<br />
Private Sub lblanalyse_Click()<br />
Load frmGrammaire<br />
frmGrammaire.txtAnalyse.Text = lblanalyse.Caption<br />
'frmGrammaire.btnGo_Click<br />
frmAnalyseMorphologique.Hide<br />
On Error GoTo fin:<br />
rmGrammaire.Show<br />
in:<br />
nd Sub<br />
rivate Sub lblmot_Click()<br />
im recherche$<br />
echerche = lblmot.Caption<br />
all ConcordanceNA27(recherche)<br />
rmZetoGraphe.txtRecherche.Text = recherche<br />
rmZetoGraphe.txtRecherche.Font = "Bwgrkn"<br />
rmZetoGraphe.txtRecherche.FontSize = "14"<br />
rmZetoGraphe.cboVersion.Text = "NA27"<br />
rmAnalyseMorphologique.Hide<br />
nd Sub<br />
rivate Sub lblvientde_Click()<br />
im recherche$<br />
echerche = lblvientde.Caption<br />
all ConcordanceNA27(recherche)<br />
rmZetoGraphe.txtRecherche.Text = recherche<br />
rmZetoGraphe.txtRecherche.Font = "Bwgrkn"<br />
rmZetoGraphe.txtRecherche.FontSize = "14"<br />
rmZetoGraphe.cboVersion.Text = "NA27"<br />
rmAnalyseMorphologique.Hide<br />
nd Sub<br />
rivate Sub Picture1_Click()<br />
im mot$<br />
ot = lblmot.Caption<br />
all GrenetTOBw(mot)<br />
f Mid(mot, 1, 2) = ")A" Then mot = "a)" & Mid(mot, 3, Len(mot))<br />
f Mid(mot, 1, 2) = "(A" Then mot = "a(" & Mid(mot, 3, Len(mot))
frmAnalyseMorphologique - 2<br />
Load frmBrowser<br />
'ancienne adresse:http://www.perseus.tufts.edu/cgi-bin/morphindex?lookup=" & mot & "&.submit=Analyz<br />
e+Form&searchTe<br />
frmBrowser.cboAddress = "http://www.perseus.tufts.edu/hopper/morph.jsp?l=" & mot & "&la=greek"<br />
'frmBrowser. Show 1<br />
End Sub<br />
Private Sub pctAideGrammaticale_Click()<br />
Load frmGrammaire<br />
frmGrammaire.txtAnalyse.Text = lblanalyse.Caption<br />
'frmGrammaire.btnGo_Click<br />
frmAnalyseMorphologique.Hide<br />
On Error GoTo fin:<br />
rmGrammaire.Show<br />
in:<br />
nd Sub<br />
rivate Sub Picture2_Click()<br />
im mot$<br />
ot = lblvientde.Caption<br />
all GrenetTOBw(mot)<br />
f Mid(mot, 1, 2) = ")A" Then mot = "a)" & Mid(mot, 3, Len(mot))<br />
f Mid(mot, 1, 2) = "(A" Then mot = "a(" & Mid(mot, 3, Len(mot))<br />
oad frmBrowser<br />
rmBrowser.cboAddress = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0057<br />
entry=" & mot '"http://www.perseus.tufts.edu/cgi-bin/lexindex?entry=" & mot & "&display=Beta"<br />
frmBrowser. Show 1<br />
nd Sub<br />
rivate Sub Picture3_Click()<br />
im mot$<br />
ot = lblmot.Caption<br />
all GrenetTOBw(mot)<br />
f Mid(mot, 1, 2) = ")A" Then mot = "a)" & Mid(mot, 3, Len(mot))<br />
f Mid(mot, 1, 2) = "(A" Then mot = "a(" & Mid(mot, 3, Len(mot))<br />
oad frmBrowser<br />
ancienne adresse:http://www.perseus.tufts.edu/cgi-bin/morphindex?lookup=" & mot & "&.submit=Analyz<br />
+Form&searchTe<br />
rmBrowser.cboAddress = "http://www.perseus.tufts.edu/hopper/morph.jsp?l=" & mot & "&la=greek" ' an<br />
ienne adresse: http://www.perseus.tufts.edu/cgi-bin/lexindex?entry=" & mot & "&display=Beta<br />
Load frmRechercheMorphologique<br />
frmRechercheMorphologique.txtcode.Text = lblanalyse2.Caption<br />
frmRechercheMorphologique.txtMot.Text = lblmot.Caption<br />
frmRechercheMorphologique. Show 1<br />
frmAnalyseMorphologique.Hide<br />
nd Sub<br />
rivate Sub Picture4_Click()<br />
im mot$<br />
ot = LCase(lblmot.Caption)<br />
renetTOBw (mot)<br />
ot = Replace(mot, ")", "")<br />
ot = Replace(mot, "(", "")<br />
f Mid(mot, 1, 1) = "a" Then<br />
frmBible.mnuAlpha_Click<br />
lseIf Mid(mot, 1, 1) = "b" Then<br />
frmBible.mnuBeta_Click<br />
lseIf Mid(mot, 1, 1) = "g" Then<br />
frmBible.mnuGamma_Click<br />
lseIf Mid(mot, 1, 1) = "d" Then<br />
frmBible.mnuDelta_Click<br />
lseIf Mid(mot, 1, 1) = "e" Then<br />
frmBible.mnuEpsilonn_Click<br />
lseIf Mid(mot, 1, 1) = "z" Then<br />
frmBible.mnuDzeta_Click<br />
lseIf Mid(mot, 1, 1) = "h" Then<br />
frmBible.mnuEta_Click<br />
lseIf Mid(mot, 1, 1) = "q" Then<br />
frmBible.mnuTheta_Click
frmAnalyseMorphologique - 3<br />
ElseIf Mid(mot, 1, 1) = "i" Then<br />
frmBible.mnuIota_Click<br />
ElseIf Mid(mot, 1, 1) = "k" Then<br />
frmBible.mnuKappa_Click<br />
ElseIf Mid(mot, 1, 1) = "l" Then<br />
frmBible.mnuLambda_Click<br />
ElseIf Mid(mot, 1, 1) = "m" Then<br />
frmBible.mnuMu_Click<br />
ElseIf Mid(mot, 1, 1) = "n" Then<br />
frmBible.mnuNu_Click<br />
ElseIf Mid(mot, 1, 1) = "c" Then<br />
frmBible.mnuXi_Click<br />
ElseIf Mid(mot, 1, 1) = "o" Then<br />
frmBible.mnuOmicronn_Click<br />
ElseIf Mid(mot, 1, 1) = "p" Then<br />
frmBible.mnuPi_Click<br />
ElseIf Mid(mot, 1, 1) = "r" Then<br />
frmBible.mnuRho_Click<br />
ElseIf Mid(mot, 1, 1) = "s" Then<br />
frmBible.mnuSigma_Click<br />
ElseIf Mid(mot, 1, 1) = "t" Then<br />
frmBible.mnuTau_Click<br />
ElseIf Mid(mot, 1, 1) = "u" Then<br />
frmBible.mnuUpsilonn_Click<br />
ElseIf Mid(mot, 1, 1) = "f" Then<br />
frmBible.mnuPhi_Click<br />
ElseIf Mid(mot, 1, 1) = "x" Then<br />
frmBible.mnuKhi_Click<br />
ElseIf Mid(mot, 1, 1) = "y" Then<br />
frmBible.mnuPsi_Click<br />
ElseIf Mid(mot, 1, 1) = "w" Then<br />
frmBible.mnuOmega_Click<br />
End If<br />
End Sub
frmAnalyseMorphologique - 1<br />
VERSION 5.00<br />
Begin VB.Form frmAnalyseMorphologique<br />
BackColor = &H00C0E0FF&<br />
BorderStyle = 4 'Fixed ToolWindow<br />
Caption = " Analyse morphologique..."<br />
ClientHeight = 2895<br />
ClientLeft = 9150<br />
ClientTop = 4245<br />
ClientWidth = 4335<br />
LinkTopic = "Form1"<br />
MaxButton = 0 'False<br />
MinButton = 0 'False<br />
Picture = (Bitmap)<br />
ScaleHeight = 2895<br />
ScaleWidth = 4335<br />
ShowInTaskbar = 0 'False<br />
Begin VB.PictureBox pctAideGrammaticale<br />
Appearance = 0 'Flat<br />
BackColor = &H00C0E0FF&<br />
ForeColor = &H80000008&<br />
Height = 375<br />
Left = 3840<br />
MousePointer = 2 'Cross<br />
Picture = (Bitmap)<br />
ScaleHeight = 345<br />
ScaleWidth = 345<br />
TabIndex = 13<br />
ToolTipText = "Accéder à l'Aide Grammaticale"<br />
Top = 1920<br />
Width = 375<br />
End<br />
Begin VB.PictureBox Picture4<br />
Appearance = 0 'Flat<br />
BackColor = &H00C0E0FF&<br />
ForeColor = &H80000008&<br />
Height = 255<br />
Left = 3600<br />
MousePointer = 2 'Cross<br />
Picture = (Bitmap)<br />
ScaleHeight = 225<br />
ScaleWidth = 225<br />
TabIndex = 12<br />
ToolTipText = "Consulter le Bailly [abrégé]"<br />
Top = 600<br />
Width = 255<br />
End<br />
Begin VB.PictureBox Picture3<br />
Appearance = 0 'Flat<br />
BackColor = &H00C0E0FF&<br />
ForeColor = &H80000008&<br />
Height = 255<br />
Left = 3960<br />
MousePointer = 2 'Cross<br />
Picture = (Bitmap)<br />
ScaleHeight = 225<br />
ScaleWidth = 225<br />
TabIndex = 11<br />
ToolTipText = "Analyse morphologique + Liddell-Scott-Jones"<br />
Top = 1560<br />
Width = 255<br />
End<br />
Begin VB.PictureBox Picture2<br />
Appearance = 0 'Flat<br />
BackColor = &H00C0E0FF&<br />
ForeColor = &H80000008&<br />
Height = 255<br />
Left = 3960<br />
MousePointer = 2 'Cross<br />
Picture = (Bitmap)<br />
ScaleHeight = 225<br />
ScaleWidth = 225<br />
TabIndex = 7<br />
ToolTipText = "Consulter le LSJ"<br />
Top = 600<br />
Width = 255<br />
End
frmAnalyseMorphologique - 2<br />
Begin VB.Timer Timer1<br />
Interval = 10<br />
Left = 0<br />
Top = 2760<br />
End<br />
Begin VB.CommandButton Command1<br />
Cancel = -1 'True<br />
Caption = "X"<br />
Default = -1 'True<br />
Height = 255<br />
Left = 3840<br />
TabIndex = 4<br />
Top = 2520<br />
Width = 375<br />
End<br />
Begin VB.Image Image3<br />
Height = 240<br />
Left = 3960<br />
Picture = (Icon)<br />
Stretch = -1 'True<br />
ToolTipText = "Recherche les occurrences de ce mot dans NA27"<br />
Top = 120<br />
Width = 240<br />
End<br />
Begin VB.Image Image1<br />
Height = 240<br />
Left = 3960<br />
Picture = (Icon)<br />
Stretch = -1 'True<br />
ToolTipText = "Faire une recherche morphologique sur ce mot"<br />
Top = 1200<br />
Width = 240<br />
End<br />
Begin VB.Label lblanalyse2<br />
BackStyle = 0 'Transparent<br />
Height = 375<br />
Left = 720<br />
TabIndex = 10<br />
Top = 2520<br />
Visible = 0 'False<br />
Width = 855<br />
End<br />
Begin VB.Label Label1<br />
BackStyle = 0 'Transparent<br />
Caption = "Définition :"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 9.75<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 375<br />
Left = 120<br />
TabIndex = 9<br />
Top = 1920<br />
Width = 1215<br />
End<br />
Begin VB.Label lblDefinition<br />
BackStyle = 0 'Transparent<br />
Height = 1095<br />
Left = 1320<br />
TabIndex = 8<br />
Top = 1920<br />
Width = 1935<br />
End<br />
Begin VB.Label lbltxtanalyse<br />
BackStyle = 0 'Transparent<br />
Caption = "Analyse :"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 9.75<br />
Charset = 0<br />
Weight = 700
frmAnalyseMorphologique - 3<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 375<br />
Left = 120<br />
TabIndex = 6<br />
Top = 1200<br />
Width = 1095<br />
End<br />
Begin VB.Label lblanalyse<br />
BackStyle = 0 'Transparent<br />
BeginProperty Font<br />
Name = "Arial"<br />
Size = 8.25<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 855<br />
Left = 1320<br />
TabIndex = 5<br />
ToolTipText = "Cliquez ici pour accéder à l'Aide Grammaticale"<br />
Top = 1200<br />
Width = 2655<br />
End<br />
Begin VB.Label lblvientde<br />
BackStyle = 0 'Transparent<br />
BeginProperty Font<br />
Name = "Bwgrkn"<br />
Size = 14.25<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 495<br />
Left = 1320<br />
TabIndex = 3<br />
ToolTipText = "Cliquez ici pour chercher ce terme dans NA27"<br />
Top = 600<br />
Width = 2055<br />
End<br />
Begin VB.Label lbltxtvientde<br />
BackStyle = 0 'Transparent<br />
Caption = "Vient de :"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 9.75<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 375<br />
Left = 120<br />
TabIndex = 2<br />
Top = 600<br />
Width = 1095<br />
End<br />
Begin VB.Label lblmot<br />
BackStyle = 0 'Transparent<br />
BeginProperty Font<br />
Name = "Bwgrkn"<br />
Size = 14.25<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 495
frmAnalyseMorphologique - 4<br />
Left = 1320<br />
TabIndex = 1<br />
ToolTipText = "Cliquez ici pour chercher ce terme dans NA27"<br />
Top = 120<br />
Width = 1935<br />
End<br />
Begin VB.Label lbltxtmot<br />
BackStyle = 0 'Transparent<br />
Caption = "Mot :"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 9.75<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 375<br />
Left = 120<br />
TabIndex = 0<br />
Top = 120<br />
Width = 1095<br />
End<br />
End
Mot :<br />
Vient de :<br />
Analyse :<br />
Définition :
frmAssistant - 1<br />
Dim code$, un$, deux$, trois$, quatre$, cinq$, six$, sept$<br />
Private Sub cbo2_GotFocus()<br />
'dès qu'on connait le type, on peut renseigner cbo1, le cas ou le temps,etc.<br />
Dim ttype$<br />
ttype = cbo1.Text<br />
If ttype = "nom (n)" Then<br />
cbo2.Clear<br />
'cbo3.Clear<br />
cbo4.Clear<br />
'cbo5.Clear<br />
cbo6.Clear<br />
cbo2.AddItem ("nominatif (n)")<br />
cbo2.AddItem ("acusatif (a)")<br />
cbo2.AddItem ("génitif (g)")<br />
cbo2.AddItem ("datif (d)")<br />
cbo2.AddItem ("vocatif (v)")<br />
'cbo2.AddItem ("tous (*)")<br />
cbo3.AddItem ("masculin (m)")<br />
cbo3.AddItem ("féminin (f)")<br />
cbo3.AddItem ("neutre (n)")<br />
'cbo3.AddItem ("tous (*)")<br />
cbo4.AddItem ("singulier (s)")<br />
cbo4.AddItem ("pluriel (p)")<br />
'cbo4.AddItem ("tous (*)")<br />
cbo5.AddItem (", nom commun (c)")<br />
cbo5.AddItem (", nom propre (p)")<br />
'cbo5.Text = ", nom commun (c)"<br />
cbo6.Clear<br />
cbo7.Visible = False<br />
ElseIf ttype = "verbe (v)" Then<br />
cbo2.Clear<br />
cbo3.Clear<br />
cbo4.Clear<br />
cbo5.Clear<br />
cbo6.Clear<br />
cbo2.AddItem ("indicatif (i)")<br />
cbo2.AddItem ("impératif (d)")<br />
cbo2.AddItem ("subjonctif (s)")<br />
cbo2.AddItem ("optatif (o)")<br />
cbo2.AddItem ("participe (p)")<br />
cbo2.AddItem ("infinitif (n)")<br />
'cbo2.AddItem ("tous (*)")<br />
cbo3.AddItem ("présent (p)")<br />
cbo3.AddItem ("futur (f)")<br />
cbo3.AddItem ("aoriste (a)")<br />
cbo3.AddItem ("imparfait (i)")<br />
cbo3.AddItem ("parfait (x)")<br />
cbo3.AddItem ("plusqueparfait (y)")<br />
cbo3.AddItem ("futur du parfait (z)")<br />
'cbo3.AddItem ("tous (*)")<br />
cbo4.AddItem ("actif (a)")<br />
cbo4.AddItem ("moyen (m)")<br />
cbo4.AddItem ("passif (p)")<br />
cbo4.AddItem ("moyen/passif (e)")<br />
'cbo4.AddItem ("tous (*)")<br />
cbo5.Clear<br />
cbo5.AddItem ("1ère personne (1)")<br />
cbo5.AddItem ("2ème personne (2)")<br />
cbo5.AddItem ("3ème personne (3)")<br />
'cbo5.AddItem ("tous (*)")<br />
cbo6.Clear<br />
cbo6.AddItem ("singulier (s)")<br />
cbo6.AddItem ("pluriel (p)")<br />
'cbo6.AddItem ("tous (*)")
frmAssistant - 2<br />
cbo7.Visible = False<br />
ElseIf ttype = "adjectif (a)" Then<br />
cbo2.Clear<br />
cbo3.Clear<br />
cbo4.Clear<br />
cbo5.Clear<br />
cbo6.Clear<br />
cbo2.AddItem ("normal (n)")<br />
cbo2.AddItem ("possessif (s)")<br />
cbo2.AddItem ("démonstratif (d)")<br />
cbo2.AddItem ("interrogatif (q)")<br />
cbo2.AddItem ("indéfini (i)")<br />
cbo2.AddItem ("intensif (t)")<br />
cbo2.AddItem ("cardinal (c)")<br />
cbo2.AddItem ("ordinal (o)")<br />
cbo2.AddItem ("nombre (m)")<br />
'cbo2.AddItem ("tous (*)")<br />
cbo3.AddItem ("nominatif (n)")<br />
cbo3.AddItem ("acusatif (a)")<br />
cbo3.AddItem ("génitif (g)")<br />
cbo3.AddItem ("datif (d)")<br />
cbo3.AddItem ("vocatif (v)")<br />
cbo3.AddItem ("tous (*)")<br />
cbo4.AddItem ("masculin (m)")<br />
cbo4.AddItem ("féminin (f)")<br />
cbo4.AddItem ("neutre (n)")<br />
'cbo4.AddItem ("tous (*)")<br />
cbo5.AddItem ("singulier (s)")<br />
cbo5.AddItem ("pluriel (p)")<br />
'cbo5.AddItem ("tous (*)")<br />
cbo6.AddItem ("simple (n)")<br />
cbo6.AddItem ("comparatif (c)")<br />
cbo6.AddItem ("superlatif (s)")<br />
'cbo6.AddItem ("tous (*)")<br />
cbo7.Visible = False<br />
ElseIf ttype = "pronom (r)" Then<br />
cbo2.Clear<br />
cbo3.Clear<br />
cbo4.Clear<br />
cbo5.Clear<br />
cbo6.Clear<br />
cbo2.AddItem ("personnel (p)")<br />
cbo2.AddItem ("relatif (r)")<br />
cbo2.AddItem ("démonstratif (d)")<br />
cbo2.AddItem ("interrogatif (q)")<br />
cbo2.AddItem ("indéfini (i)")<br />
cbo2.AddItem ("intensif (t)")<br />
cbo2.AddItem ("réfléchi (x)")<br />
cbo2.AddItem ("réciproque (e)")<br />
cbo3.AddItem ("nominatif (n)")<br />
cbo3.AddItem ("acusatif (a)")<br />
cbo3.AddItem ("génitif (g)")<br />
cbo3.AddItem ("datif (d)")<br />
cbo3.AddItem ("vocatif (v)")<br />
cbo3.AddItem ("tous (*)")<br />
cbo4.AddItem ("masculin (m)")<br />
cbo4.AddItem ("féminin (f)")<br />
cbo4.AddItem ("neutre (n)")<br />
cbo4.AddItem ("commun (-)")<br />
'cbo4.AddItem ("tous (*)")<br />
cbo5.AddItem ("singulier (s)")<br />
cbo5.AddItem ("pluriel (p)")<br />
'cbo5.AddItem ("tous (*)")<br />
cbo7.Visible = False
frmAssistant - 3<br />
ElseIf ttype = "conjonction (c)" Then<br />
cbo2.Clear<br />
cbo3.Clear<br />
cbo4.Clear<br />
cbo5.Clear<br />
cbo6.Clear<br />
cbo7.Visible = False<br />
cbo2.AddItem ("subordination (s)")<br />
cbo2.AddItem ("coordination (c)")<br />
ElseIf ttype = "indéclinable (t)" Then<br />
cbo2.Clear<br />
cbo3.Clear<br />
cbo4.Clear<br />
cbo5.Clear<br />
cbo6.Clear<br />
cbo7.Visible = False<br />
ElseIf ttype = "particule (x)" Then<br />
cbo2.Clear<br />
cbo3.Clear<br />
cbo4.Clear<br />
cbo5.Clear<br />
cbo6.Clear<br />
cbo7.Visible = False<br />
ElseIf ttype = "interjection (i)" Then<br />
cbo2.Clear<br />
cbo3.Clear<br />
cbo4.Clear<br />
cbo5.Clear<br />
cbo6.Clear<br />
cbo7.Visible = False<br />
ElseIf ttype = "préposition (p)" Then<br />
cbo2.Clear<br />
cbo3.Clear<br />
cbo4.Clear<br />
cbo5.Clear<br />
cbo6.Clear<br />
cbo7.Visible = False<br />
cbo2.AddItem ("accusatif (a)")<br />
cbo2.AddItem ("génitif (g)")<br />
cbo2.AddItem ("datif (d)")<br />
cbo2.AddItem ("indéterminé (p)")<br />
ElseIf ttype = "adverbe (b)" Then<br />
cbo2.Clear<br />
cbo3.Clear<br />
cbo4.Clear<br />
cbo5.Clear<br />
cbo6.Clear<br />
cbo7.Visible = False<br />
ElseIf ttype = "article défini (d)" Then<br />
cbo2.Clear<br />
cbo3.Clear<br />
cbo4.Clear<br />
cbo5.Clear<br />
cbo6.Clear<br />
cbo7.Visible = False<br />
End If<br />
End Sub<br />
Private Sub cbo3_GotFocus()<br />
If cbo1.Text = "verbe (v)" And cbo2.Text = "participe (p)" Then<br />
cbo7.Visible = True<br />
cbo5.Clear<br />
cbo5.AddItem ("nominatif (n)")<br />
cbo5.AddItem ("acusatif (a)")<br />
cbo5.AddItem ("génitif (g)")<br />
cbo5.AddItem ("datif (d)")
frmAssistant - 4<br />
cbo5.AddItem ("vocatif (v)")<br />
cbo6.Clear<br />
cbo6.AddItem ("masculin (m)")<br />
cbo6.AddItem ("féminin (f)")<br />
cbo6.AddItem ("neutre (n)")<br />
cbo7.Clear<br />
cbo7.AddItem ("singulier (s)")<br />
cbo7.AddItem ("pluriel (p)")<br />
End If<br />
End Sub<br />
Private Sub Command1_Click()<br />
Unload Me<br />
End Sub<br />
Public Sub Command2_Click()<br />
If vientde = "" And _<br />
recherche = "" Then<br />
GoTo suite:<br />
End If<br />
un = ""<br />
deux = ""<br />
trois = ""<br />
quatre = ""<br />
cinq = ""<br />
six = ""<br />
sept = ""<br />
'les codes particuliers correspondent à l'avant dernière lettre de chaque champs<br />
' exemple: "nom (n)" , code = n<br />
If cbo1.Text "" Then un = Mid(cbo1.Text, Len(cbo1.Text) - 1, 1)<br />
If cbo2.Text "" Then deux = Mid(cbo2.Text, Len(cbo2.Text) - 1, 1)<br />
If cbo3.Text "" Then trois = Mid(cbo3.Text, Len(cbo3.Text) - 1, 1)<br />
If cbo4.Text "" Then quatre = Mid(cbo4.Text, Len(cbo4.Text) - 1, 1)<br />
If cbo5.Text "" And Len(cbo5.Text) > 2 Then cinq = Mid(cbo5.Text, Len(cbo5.Text) - 1, 1)<br />
If cbo6.Text "" And Len(cbo6.Text) > 2 Then six = Mid(cbo6.Text, Len(cbo6.Text) - 1, 1)<br />
If cbo7.Text "" And Len(cbo7.Text) > 2 Then sept = Mid(cbo7.Text, Len(cbo7.Text) - 1, 1)<br />
'ceci correspond donc au nouveau code issus des modifications de l'utilisateur<br />
code = Trim(un & deux & trois & quatre & cinq & six & sept)<br />
' j'efface toute trace d'une recherche précédente<br />
Label1.Caption = ""<br />
txtcode.Text = code<br />
vientde = frmAnalyseMorphologique.lblvientde.Caption<br />
recherche = vientde & " (" & code & ")"<br />
txtRecherche.Text = recherche<br />
nveaucode = code<br />
suite:<br />
'je dois quant même récupérer le nveaucode<br />
If cbo1.Text "" Then un = Mid(cbo1.Text, Len(cbo1.Text) - 1, 1)<br />
If cbo2.Text "" Then deux = Mid(cbo2.Text, Len(cbo2.Text) - 1, 1)<br />
If cbo3.Text "" Then trois = Mid(cbo3.Text, Len(cbo3.Text) - 1, 1)<br />
If cbo4.Text "" Then quatre = Mid(cbo4.Text, Len(cbo4.Text) - 1, 1)<br />
If cbo5.Text "" And Len(cbo5.Text) > 2 Then cinq = Mid(cbo5.Text, Len(cbo5.Text) - 1, 1)<br />
If cbo6.Text "" And Len(cbo6.Text) > 2 Then six = Mid(cbo6.Text, Len(cbo6.Text) - 1, 1)<br />
If cbo7.Text "" And Len(cbo7.Text) > 2 Then sept = Mid(cbo7.Text, Len(cbo7.Text) - 1, 1)<br />
'ceci correspond donc au nouveau code issus des modifications de l'utilisateur<br />
code = Trim(un & deux & trois & quatre & cinq & six & sept)<br />
nveaucode = code<br />
recherche = frmAssistant.txtRecherche.Text & " (" & nveaucode & ")"<br />
Call RechercheMorphologique(recherche, nveaucode)<br />
lstPassages.Text = lstPassages.List(0)<br />
lstPassages_Click<br />
End Sub<br />
Private Sub Form_Load()<br />
autoexecut = False<br />
cbo1.AddItem ("nom (n)")<br />
cbo1.AddItem ("verbe (v)")<br />
cbo1.AddItem ("adjectif (a)")<br />
cbo1.AddItem ("pronom (r)")
frmAssistant - 5<br />
cbo1.AddItem ("conjonction (c)")<br />
cbo1.AddItem ("indéclinable (t)")<br />
cbo1.AddItem ("particule ou part. disjonctive (x)")<br />
cbo1.AddItem ("conjonction ou conjonctif (q)")<br />
cbo1.AddItem ("interjection (i)")<br />
cbo1.AddItem ("préposition (p)")<br />
cbo1.AddItem ("adverbe (b)")<br />
cbo1.AddItem ("article défini (d)")<br />
mot = frmAnalyseMorphologique.lblanalyse2.Caption<br />
'VERBES<br />
If Mid(mot, 1, 1) = "v" And _<br />
Mid(mot, 3, 2) = "2f" Or _<br />
Mid(mot, 3, 2) = "2a" Or Mid(mot, 3, 2) = "2r" Or Mid(mot, 3, 2) = "2l" Then<br />
ttype = "verbe (v)"<br />
Mode = Mid(mot, 2, 1)<br />
temps = Mid(mot, 3, 2)<br />
voix = Mid(mot, 5, 1)<br />
personne = Mid(mot, 6, 2)<br />
ElseIf Mid(mot, 1, 1) = "v" Then<br />
ttype = "verbe (v)"<br />
Mode = Mid(mot, 2, 1)<br />
temps = Mid(mot, 3, 1)<br />
voix = Mid(mot, 4, 1)<br />
personne = Mid(mot, 5, 2)<br />
End If<br />
' MODE des VERBES<br />
If Mid(mot, 1, 1) = "v" Then<br />
If Mode = "i" Then Mode = "indicatif (i)"<br />
If Mode = "d" Then Mode = "impératif (d)"<br />
If Mode = "s" Then Mode = "subjonctif (s)"<br />
If Mode = "o" Then Mode = "optatif (o)"<br />
If Mode = "n" Then Mode = "infinitif (n)"<br />
If Mode = "p" Then Mode = "participe (p)"<br />
cbo2.Clear<br />
cbo2.AddItem ("indicatif (i)")<br />
cbo2.AddItem ("impératif (d)")<br />
cbo2.AddItem ("subjonctif (s)")<br />
cbo2.AddItem ("optatif (o)")<br />
cbo2.AddItem ("infinitif (n)")<br />
cbo2.AddItem ("participe (p)")<br />
End If<br />
'TEMPS des VERBES<br />
If Mid(mot, 1, 1) = "v" Then<br />
'If temps = "2f" Then temps = "futur second"<br />
'If temps = "2a" Then temps = "aoriste second"<br />
'If temps = "2l" Then temps = "pqp second"<br />
'If temps = "2r" Then temps = "parfait second"<br />
If temps = "p" Then temps = "présent (p)"<br />
If temps = "f" Then temps = "futur (f)"<br />
If temps = "a" Then temps = "aoriste (a)"<br />
If temps = "i" Then temps = "imparfait (i)"<br />
If temps = "x" Then temps = "parfait (x)"<br />
If temps = "y" Then temps = "plusqueparfait (y)"<br />
If temps = "x" Then temps = "tous (*)"<br />
'cboGenre.AddItem ("présent")<br />
'cboGenre.AddItem ("imparfait")<br />
'cboGenre.AddItem ("futur")<br />
'cboGenre.AddItem ("aoriste")<br />
'cboGenre.AddItem ("aoriste")<br />
'cboGenre.AddItem ("parfait")<br />
'cboGenre.AddItem ("plusqueparfait")<br />
'cboGenre.AddItem ("tous")<br />
End If<br />
' VOIX des VERBES<br />
If Mid(mot, 1, 1) = "v" Then<br />
If voix = "a" Then voix = "actif (a)"<br />
If voix = "m" Then voix = "moyen (m)"
frmAssistant - 6<br />
If voix = "p" Then voix = "passif (p)"<br />
If voix = "e" Then voix = "moyen ou passif (e)"<br />
If voix = "d" Then voix = "déponent moyen (d)"<br />
If voix = "o" Then voix = "déponent passif (o)"<br />
If voix = "p" Then voix = "déponent moyen ou passif (p)"<br />
If voix = "q" Then voix = "impersonnel actif (q)"<br />
If voix = "x" Then voix = "non indiqué (x)"<br />
'cboNombre.AddItem ("actif")<br />
'cboNombre.AddItem ("moyen")<br />
'cboNombre.AddItem ("passif")<br />
'cboNombre.AddItem ("moyen ou passif")<br />
'cboNombre.AddItem ("déponent moyen")<br />
'cboNombre.AddItem ("déponent passif")<br />
'cboNombre.AddItem ("déponent moyen ou passif")<br />
'cboNombre.AddItem ("impersonnel actif")<br />
'cboNombre.AddItem ("-")<br />
End If<br />
' PERSONNE des VERBES<br />
If personne = "1s" Then<br />
cbo5.Text = "1ère personne (1)"<br />
cbo6.Text = "singulier (s)"<br />
ElseIf personne = "2s" Then<br />
cbo5.Text = "2ème personne (2)"<br />
cbo6.Text = "singulier (s)"<br />
ElseIf personne = "3s" Then<br />
cbo5.Text = "3ème personne (3)"<br />
cbo6.Text = "singulier (s)"<br />
ElseIf personne = "1p" Then<br />
cbo5.Text = "1ère personne (1)"<br />
cbo6.Text = "pluriel (p)"<br />
ElseIf personne = "2p" Then<br />
cbo5.Text = "2ème personne (2)"<br />
cbo6.Text = "pluriel (p)"<br />
ElseIf personne = "3p" Then<br />
cbo5.Text = "3ème personne (3)"<br />
cbo6.Text = "pluriel (s)"<br />
End If<br />
'personne = personne<br />
' NOMS<br />
If Mid(mot, 1, 1) = "n" Then<br />
ttype = "nom (n)"<br />
cas = Mid(mot, 2, 1)<br />
genre = Mid(mot, 3, 1)<br />
nombre = Mid(mot, 4, 4)<br />
End If<br />
' ADJECTIF<br />
If Mid(mot, 1, 1) = "a" Then<br />
ttype = "adjectif (a)"<br />
ttype2 = Mid(mot, 2, 1)<br />
cas = Mid(mot, 3, 1)<br />
genre = Mid(mot, 4, 1)<br />
nombre = Mid(mot, 5, 4)<br />
degre = Mid(mot, 6, 1)<br />
End If<br />
If Mid(mot, 1, 1) = "a" Then<br />
If ttype2 = "n" Then cbo2.AddItem ("normal (n)")<br />
cbo2.Text = "normal (n)"<br />
If ttype2 = "s" Then cbo2.AddItem ("possessif (s)")<br />
cbo2.Text = "possessif (s)"<br />
If ttype2 = "d" Then cbo2.AddItem ("démonstratif (d)")<br />
cbo2.Text = "démonstratif (d)"<br />
If ttype2 = "q" Then cbo2.AddItem ("interrogatif (q)")<br />
cbo2.Text = "interrogatif (q)"<br />
If ttype2 = "i" Then cbo2.AddItem ("indéfini (i)")<br />
cbo2.Text = "indéfini (i)"<br />
If ttype2 = "t" Then cbo2.AddItem ("intensif (t)")<br />
cbo2.Text = "intensif (t)"<br />
If ttype2 = "c" Then cbo2.AddItem ("cardinal (c)")<br />
cbo2.Text = "cardinal (c)"<br />
If ttype2 = "o" Then cbo2.AddItem ("ordinal (o)")<br />
cbo2.Text = "ordinal (o)"
frmAssistant - 7<br />
If ttype2 = "m" Then cbo2.AddItem ("nombre (m)")<br />
cbo2.Text = "nombre (m)"<br />
End If<br />
' NOMS PROPRES<br />
If Mid(mot, 1, 2) = "tp" Then<br />
ttype = "nom propre"<br />
'cas = Mid(mot, 2, 1)<br />
'genre = Mid(mot, 3, 1)<br />
'nombre = Mid(mot, 4, 4)<br />
End If<br />
' DEGRE des ADJECTIFS<br />
If Mid(mot, 1, 1) = "a" Then<br />
If degré = "c" Then degré = "comparatif (c)"<br />
If degré = "s" Then degré = "superlatif (s)"<br />
If degré = "*" Then degré = "tous (*)"<br />
End If<br />
If Mid(mot, 1, 1) = "n" Then<br />
cbo1.Text = ttype<br />
cbo2.Text = cas<br />
cbo3.Text = genre<br />
cbo4.Text = nombre<br />
cbo5.Text = ""<br />
cbo6.Text = ""<br />
ElseIf Mid(mot, 1, 1) = "v" Then<br />
cbo1.Text = ttype<br />
cbo2.Text = Mode<br />
cbo3.Text = temps<br />
cbo4.Text = voix<br />
'a priori pas besoin de faire les personnes<br />
ElseIf Mid(mot, 1, 1) = "a" Then<br />
cbo1.Text = ttype<br />
cbo2.Text = cas<br />
cbo3.Text = genre<br />
cbo4.Text = nombre<br />
cbo5.Text = degré<br />
cbo6.Text = ""<br />
End If<br />
End Sub<br />
Public Sub lstPassages_Click()<br />
If lstPassages.Text "" Then<br />
passage = Trim(lstPassages.Text)<br />
premierespace = InStr(1, passage, " ")<br />
deuxpoints = InStr(1, passage, ":")<br />
livre = Mid(passage, 1, premierespace - 1)<br />
chapitre = Mid(passage, premierespace + 1, deuxpoints - 1)<br />
chapitre = Mid(chapitre, 1, InStr(1, chapitre, ":") - 1)<br />
verset = Trim(Mid(passage, deuxpoints + 1, 2))<br />
'MsgBox livre & " " & chapitre & " " & verset<br />
Else<br />
Exit Sub<br />
End If<br />
If livre = "Gen" Then<br />
chercher = "Genèse"<br />
ElseIf livre = "Exo" Then<br />
chercher = "Exode"<br />
ElseIf livre = "Lev" Then<br />
chercher = "Lévitique"<br />
ElseIf livre = "Num" Then
frmAssistant - 8<br />
chercher = "Nombres"<br />
ElseIf livre = "Deu" Then<br />
chercher = "Deutéronome"<br />
ElseIf livre = "Jos" Then<br />
chercher = "Josué"<br />
ElseIf livre = "Jdg" Then<br />
chercher = "Juges"<br />
ElseIf livre = "Rut" Then<br />
chercher = "Ruth"<br />
ElseIf livre = "1Sa" Then<br />
chercher = "1 Samuel"<br />
ElseIf livre = "2Sa" Then<br />
chercher = "2 Samuel"<br />
ElseIf livre = "1Ki" Then<br />
chercher = "1 Rois"<br />
ElseIf livre = "2Ki" Then<br />
chercher = "2 Rois"<br />
ElseIf livre = "1Ch" Then<br />
chercher = "1 Chroniques"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "2Ch"<br />
ElseIf livre = "Ezr" Then<br />
chercher = "Esdras"<br />
ElseIf livre = "Neh" Then<br />
chercher = "Néhémie"<br />
ElseIf livre = "Est" Then<br />
chercher = "Esther"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psa" Then<br />
chercher = "Psaumes"<br />
ElseIf livre = "Pro" Then<br />
chercher = "Proverbes"<br />
ElseIf livre = "Ecc" Then<br />
chercher = "Ecclésiaste"<br />
ElseIf livre = "Sol" Then<br />
chercher = "Cantique des cantiques"<br />
ElseIf livre = "Isa" Then<br />
chercher = "Esaïe"<br />
ElseIf livre = "Jer" Then<br />
chercher = "Jérémie"<br />
ElseIf livre = "Lam" Then<br />
chercher = "Lamentations"<br />
ElseIf livre = "Eze" Then<br />
chercher = "Ezéchiel"<br />
ElseIf livre = "Dan" Then<br />
chercher = "Daniel"<br />
ElseIf livre = "Hos" Then<br />
chercher = "Osée"<br />
ElseIf livre = "Joe" Then<br />
chercher = "Joël"
frmAssistant - 9<br />
ElseIf livre = "Amo" Then<br />
chercher = "Amos"<br />
ElseIf livre = "Oba" Then<br />
chercher = "Abdias"<br />
ElseIf livre = "Jon" Then<br />
chercher = "Jonas"<br />
ElseIf livre = "Mic" Then<br />
chercher = "Michée"<br />
ElseIf livre = "Hab" Then<br />
chercher = "Habaquq"<br />
ElseIf livre = "Zep" Then<br />
chercher = "Sophonie"<br />
ElseIf livre = "Hag" Then<br />
chercher = "Aggée"<br />
ElseIf livre = "Nah" Then<br />
chercher = "Nahoum"<br />
ElseIf livre = "Zec" Then<br />
chercher = "Zacharie"<br />
ElseIf livre = "Mal" Then<br />
chercher = "Malachie"<br />
'---------<br />
ElseIf livre = "Mat" Then<br />
chercher = "Matthieu"<br />
ElseIf livre = "Mar" Then<br />
chercher = "Marc"<br />
ElseIf livre = "Luk" Then<br />
chercher = "Luc"<br />
ElseIf livre = "Joh" Then<br />
chercher = "Jean"<br />
ElseIf livre = "Act" Then<br />
chercher = "Actes"<br />
ElseIf livre = "Rom" Then<br />
chercher = "Romains"<br />
ElseIf livre = "1Co" Then<br />
chercher = "1 Corinthiens"<br />
ElseIf livre = "2Co" Then<br />
chercher = "2 Corinthiens"<br />
ElseIf livre = "Gal" Then<br />
chercher = "Galates"<br />
ElseIf livre = "Eph" Then<br />
chercher = "Ephésiens"<br />
ElseIf livre = "Phi" Then<br />
chercher = "Philippiens"<br />
ElseIf livre = "Col" Then<br />
chercher = "Colossiens"<br />
ElseIf livre = "1Th" Then<br />
chercher = "1 Thessaloniciens"<br />
ElseIf livre = "2Th" Then<br />
chercher = "2 Thessaloniciens"<br />
ElseIf livre = "1Ti" Then<br />
chercher = "1 Timothée"
frmAssistant - 10<br />
ElseIf livre = "2Ti" Then<br />
chercher = "2 Timothée"<br />
ElseIf livre = "Tit" Then<br />
chercher = "Tite"<br />
ElseIf livre = "Phm" Then<br />
chercher = "Philémon"<br />
ElseIf livre = "Heb" Then<br />
chercher = "Hébreux"<br />
ElseIf livre = "Jam" Then<br />
chercher = "Jacques"<br />
ElseIf livre = "1Pe" Then<br />
chercher = "1 Pierre"<br />
ElseIf livre = "2Pe" Then<br />
chercher = "2 Pierre"<br />
ElseIf livre = "1Jo" Then<br />
chercher = "1 Jean"<br />
ElseIf livre = "2Jo" Then<br />
chercher = "2 Jean"<br />
ElseIf livre = "3Jo" Then<br />
chercher = "3 Jean"<br />
ElseIf livre = "Jud" Then<br />
chercher = "Jude"<br />
ElseIf livre = "Rev" Then<br />
chercher = "Révélation"<br />
End If<br />
frmBible.cboLivre.Text = chercher<br />
frmBible.txtChapitre.Text = chapitre<br />
frmBible.txtverset.Text = verset<br />
ofile = App.Path & "\modules\WHpars\morphwh.txt"<br />
lfile = FreeFile<br />
recherche = frmAssistant.txtRecherche.Text<br />
Open ofile For Input As #lfile<br />
o<br />
On Error GoTo err:<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, recherche) 0 Then<br />
premierespace = InStr(1, ligne, " ")<br />
frmAssistant.Label1.Caption = Mid(ligne, 1, premierespace)<br />
Exit Do<br />
End If<br />
oop While Not EOF(lfile)<br />
rr:<br />
lose<br />
frmBible.Timer2.Enabled = True<br />
livre =<br />
Line1.Visible = True<br />
Line2.Visible = True<br />
Line3.Visible = True<br />
nd Sub
frmAssistant - 1<br />
VERSION 5.00<br />
Begin VB.Form frmAssistant<br />
BorderStyle = 4 'Fixed ToolWindow<br />
Caption = " Recherche morphologique ..."<br />
ClientHeight = 5205<br />
ClientLeft = 45<br />
ClientTop = 315<br />
ClientWidth = 4140<br />
LinkTopic = "Form1"<br />
MaxButton = 0 'False<br />
MinButton = 0 'False<br />
Picture = (Bitmap)<br />
ScaleHeight = 5205<br />
ScaleWidth = 4140<br />
ShowInTaskbar = 0 'False<br />
StartUpPosition = 1 'CenterOwner<br />
Begin VB.ComboBox cbo7<br />
Height = 315<br />
Left = 2280<br />
TabIndex = 20<br />
Top = 2400<br />
Visible = 0 'False<br />
Width = 1575<br />
End<br />
Begin VB.TextBox txtRecherche<br />
Height = 375<br />
Left = 120<br />
TabIndex = 18<br />
Top = 2400<br />
Visible = 0 'False<br />
Width = 1935<br />
End<br />
Begin VB.ListBox lstPassages<br />
Height = 1815<br />
Left = 120<br />
TabIndex = 16<br />
Top = 3000<br />
Width = 1935<br />
End<br />
Begin VB.TextBox txtMot<br />
BeginProperty Font<br />
Name = "Bwgrkn"<br />
Size = 14.25<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 495<br />
Left = 120<br />
TabIndex = 15<br />
Top = 120<br />
Width = 2055<br />
End<br />
Begin VB.CommandButton Command2<br />
Caption = "Ok"<br />
Default = -1 'True<br />
Height = 375<br />
Left = 3360<br />
TabIndex = 14<br />
Top = 3000<br />
Width = 495<br />
End<br />
Begin VB.CommandButton Command1<br />
Cancel = -1 'True<br />
Caption = "X"<br />
Height = 375<br />
Left = 3360<br />
TabIndex = 13<br />
Top = 4800<br />
Width = 495<br />
End<br />
Begin VB.TextBox txtcode<br />
Height = 495<br />
Left = 2760
frmAssistant - 2<br />
TabIndex = 12<br />
Top = 120<br />
Visible = 0 'False<br />
Width = 1575<br />
End<br />
Begin VB.ComboBox cbo6<br />
Height = 315<br />
Left = 2280<br />
TabIndex = 5<br />
Top = 1920<br />
Width = 1575<br />
End<br />
Begin VB.ComboBox cbo5<br />
Height = 315<br />
Left = 2280<br />
TabIndex = 4<br />
Top = 1440<br />
Width = 1575<br />
End<br />
Begin VB.ComboBox cbo4<br />
Height = 315<br />
Left = 2280<br />
TabIndex = 3<br />
Top = 960<br />
Width = 1575<br />
End<br />
Begin VB.ComboBox cbo3<br />
Height = 315<br />
Left = 120<br />
TabIndex = 2<br />
Top = 1920<br />
Width = 1575<br />
End<br />
Begin VB.ComboBox cbo2<br />
Height = 315<br />
Left = 120<br />
TabIndex = 1<br />
Top = 1440<br />
Width = 1575<br />
End<br />
Begin VB.ComboBox cbo1<br />
Height = 315<br />
Left = 120<br />
TabIndex = 0<br />
Top = 960<br />
Width = 1575<br />
End<br />
Begin VB.Label Label1<br />
BackStyle = 0 'Transparent<br />
BeginProperty Font<br />
Name = "Bwgrkn"<br />
Size = 14.25<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 615<br />
Left = 2280<br />
TabIndex = 19<br />
Top = 3600<br />
Width = 1935<br />
End<br />
Begin VB.Label lblOcc<br />
BackStyle = 0 'Transparent<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 8.25<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 495
frmAssistant - 3<br />
Left = 2280<br />
TabIndex = 17<br />
Top = 4320<br />
Width = 1455<br />
End<br />
Begin VB.Label lblcbo6<br />
BackStyle = 0 'Transparent<br />
Caption = "Label1"<br />
Height = 255<br />
Left = 1680<br />
TabIndex = 11<br />
Top = 2040<br />
Visible = 0 'False<br />
Width = 975<br />
End<br />
Begin VB.Label lblcbo5<br />
BackStyle = 0 'Transparent<br />
Caption = "Label1"<br />
Height = 255<br />
Left = 1680<br />
TabIndex = 10<br />
Top = 1440<br />
Visible = 0 'False<br />
Width = 975<br />
End<br />
Begin VB.Label lblcbo4<br />
BackStyle = 0 'Transparent<br />
Caption = "Label1"<br />
Height = 255<br />
Left = 1680<br />
TabIndex = 9<br />
Top = 960<br />
Visible = 0 'False<br />
Width = 975<br />
End<br />
Begin VB.Label lblcbo3<br />
BackStyle = 0 'Transparent<br />
Caption = "Cas"<br />
Height = 255<br />
Left = -120<br />
TabIndex = 8<br />
Top = 2040<br />
Visible = 0 'False<br />
Width = 975<br />
End<br />
Begin VB.Label lblcbo2<br />
BackStyle = 0 'Transparent<br />
Caption = "Cas"<br />
Height = 255<br />
Left = -120<br />
TabIndex = 7<br />
Top = 1440<br />
Visible = 0 'False<br />
Width = 975<br />
End<br />
Begin VB.Label lblcbo1<br />
BackStyle = 0 'Transparent<br />
Caption = "Type"<br />
Height = 255<br />
Left = -120<br />
TabIndex = 6<br />
Top = 960<br />
Visible = 0 'False<br />
Width = 975<br />
End<br />
End
pe<br />
s<br />
s<br />
Label1<br />
Label1<br />
Label1
frmAutomatos - 1<br />
Private Const EM_CHARFROMPOS& = &HD7<br />
Private Type POINTAPI<br />
x As Long<br />
y As Long<br />
End Type<br />
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _<br />
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _<br />
lParam As Any) As Long<br />
Public Function RichWordOver(rch As RichTextBox, x As Single, y As Single) As String<br />
Dim pt As POINTAPI<br />
Dim pos As Integer<br />
Dim start_pos As Integer<br />
Dim end_pos As Integer<br />
Dim ch As String<br />
Dim txt As String<br />
Dim txtlen As Integer<br />
pt.x = x \ Screen.TwipsPerPixelX<br />
pt.y = y \ Screen.TwipsPerPixelY<br />
pos = SendMessage(rch.hwnd, EM_CHARFROMPOS, 0&, pt)<br />
If pos = "0" And ch = "a" And ch = "A" And ch = "0" And ch = "a" And ch = "A" And ch
frmAutomatos - 2<br />
End Sub<br />
Private Sub Label5_Click()<br />
frmBible.lblsuivant_Click<br />
RichTextBox1.Text = frmBible.txtPassage.Text<br />
RichTextBox1.SelAlignment = frmBible.txtPassage.Alignment<br />
frmAutomatos.Caption = "Verse Parser : " & frmBible.lblchapitre.Caption<br />
End Sub<br />
Private Sub lblAnalyse_Change()<br />
If lblanalyse.Caption = "" Then Exit Sub<br />
mot = lblanalyse.Caption<br />
'WH/Strong<br />
If frmBible.cboVersion.Text = "W/H & Strong" Then<br />
Call AutomatosWH(mot)<br />
Exit Sub<br />
ElseIf frmBible.cboVersion.Text = "BHS+" Then<br />
frmBible.btnGo_Click<br />
Call AutomatosBHS(mot)<br />
Exit Sub<br />
End If<br />
End Sub<br />
Private Sub RichTextBox1_MouseMove(Button As Integer, Shift As Integer, x _<br />
As Single, y As Single)<br />
Dim txt As String<br />
txt = RichWordOver(RichTextBox1, x, y)<br />
If Label1.Caption txt Then _<br />
Label1.Caption = txt<br />
End Sub
frmAutomatos - 1<br />
VERSION 5.00<br />
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"<br />
egin VB.Form frmAutomatos<br />
BorderStyle = 4 'Fixed ToolWindow<br />
Caption = " Verse Parser"<br />
ClientHeight = 1815<br />
ClientLeft = 4095<br />
ClientTop = 6360<br />
ClientWidth = 7095<br />
LinkTopic = "Form1"<br />
MaxButton = 0 'False<br />
MinButton = 0 'False<br />
Picture = (Bitmap)<br />
ScaleHeight = 1815<br />
ScaleWidth = 7095<br />
ShowInTaskbar = 0 'False<br />
Begin VB.CommandButton Command1<br />
Cancel = -1 'True<br />
Caption = "X"<br />
Height = 375<br />
Left = 6000<br />
TabIndex = 2<br />
Top = 5040<br />
Width = 495<br />
End<br />
Begin RichTextLib.RichTextBox RichTextBox1<br />
Height = 1815<br />
Left = 0<br />
TabIndex = 1<br />
Top = 0<br />
Width = 6615<br />
_ExtentX = 11668<br />
_ExtentY = 3201<br />
_Version = 393217<br />
Enabled = -1 'True<br />
ScrollBars = 2<br />
TextRTF = <br />
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}<br />
Name = "Bwgrkn"<br />
Size = 14.25<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
End<br />
Begin VB.Label Label5<br />
BackStyle = 0 'Transparent<br />
Caption = ">"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 18<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 375<br />
Left = 6720<br />
TabIndex = 12<br />
ToolTipText = "Verset suivant"<br />
Top = 480<br />
Width = 375<br />
End<br />
Begin VB.Label Label4<br />
BackStyle = 0 'Transparent<br />
Caption = "
frmAutomatos - 2<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 375<br />
Left = 6720<br />
TabIndex = 11<br />
ToolTipText = "Verset précédent"<br />
Top = 0<br />
Width = 375<br />
End<br />
Begin VB.Line Line5<br />
Visible = 0 'False<br />
X1 = 3480<br />
X2 = 5520<br />
Y1 = 4440<br />
Y2 = 4440<br />
End<br />
Begin VB.Line Line4<br />
X1 = 0<br />
X2 = 1680<br />
Y1 = 0<br />
Y2 = 0<br />
End<br />
Begin VB.Label Label3<br />
BackStyle = 0 'Transparent<br />
Caption = "Morphologie"<br />
Height = 255<br />
Left = 3480<br />
TabIndex = 10<br />
Top = 4200<br />
Visible = 0 'False<br />
Width = 1455<br />
End<br />
Begin VB.Label Label2<br />
BackStyle = 0 'Transparent<br />
Caption = "Strong"<br />
Height = 255<br />
Left = 240<br />
TabIndex = 9<br />
Top = 4200<br />
Width = 1455<br />
End<br />
Begin VB.Line Line3<br />
X1 = 240<br />
X2 = 1920<br />
Y1 = 4440<br />
Y2 = 4440<br />
End<br />
Begin VB.Label lblStrong<br />
BackStyle = 0 'Transparent<br />
Height = 495<br />
Left = 240<br />
TabIndex = 8<br />
Top = 4560<br />
Width = 1935<br />
End<br />
Begin VB.Label lblMorpho<br />
BackStyle = 0 'Transparent<br />
Height = 855<br />
Left = 3480<br />
TabIndex = 7<br />
Top = 4560<br />
Visible = 0 'False<br />
Width = 2415<br />
End<br />
Begin VB.Label lblResultat<br />
BackStyle = 0 'Transparent<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 8.25<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 1815
frmAutomatos - 3<br />
Left = 3360<br />
TabIndex = 6<br />
Top = 2280<br />
Width = 3015<br />
End<br />
Begin VB.Label lblAnalyse<br />
BackStyle = 0 'Transparent<br />
Caption = "lblAnalyse"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 9.75<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 255<br />
Left = 2280<br />
TabIndex = 5<br />
Top = 3480<br />
Visible = 0 'False<br />
Width = 975<br />
End<br />
Begin VB.Line Line2<br />
X1 = 3360<br />
X2 = 5520<br />
Y1 = 2160<br />
Y2 = 2160<br />
End<br />
Begin VB.Label lbl2<br />
BackStyle = 0 'Transparent<br />
Caption = "Définitions possibles"<br />
Height = 255<br />
Left = 3360<br />
TabIndex = 4<br />
Top = 1920<br />
Width = 1935<br />
End<br />
Begin VB.Line Line1<br />
X1 = 360<br />
X2 = 2040<br />
Y1 = 2160<br />
Y2 = 2160<br />
End<br />
Begin VB.Label lbl1<br />
BackStyle = 0 'Transparent<br />
Caption = "Mot"<br />
Height = 255<br />
Left = 360<br />
TabIndex = 3<br />
Top = 1920<br />
Width = 495<br />
End<br />
Begin VB.Label Label1<br />
BackStyle = 0 'Transparent<br />
BeginProperty Font<br />
Name = "Symbol"<br />
Size = 14.25<br />
Charset = 2<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 615<br />
Left = 360<br />
TabIndex = 0<br />
Top = 2280<br />
Width = 2295<br />
End<br />
End
>
frmBHSLXX - 1<br />
Private Sub btnGo_Click()<br />
' récupération des données propres à la lecture<br />
Dim livre$, chapitre$, verset$, msgerreur$, passage$, fichier$, finverset$<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
' GESTION MAUVAISE SAISIE<br />
If livre = "" Or chapitre = "" Or verset = "" Then<br />
msgerreur = MsgBox("Référence de passage invalide, veuillez vérifier votre saisie !", vbCri<br />
tical)<br />
Exit Sub<br />
End If<br />
' Définition du fichier à ouvrir ET de la forme du verset à chercher<br />
Call BhsLxxDefFichier(livre, chapitre, verset, passage, fichier, finverset)<br />
' j'ai maintenant mon fichier à ouvrir, et mon passage en bonne et due forme<br />
Call LectureBhsLxx(fichier, passage, finverset)<br />
End Sub<br />
Private Sub Command1_Click()<br />
Unload Me<br />
End Sub<br />
Private Sub Form_Load()<br />
cboLivre.AddItem ("Genèse")<br />
cboLivre.AddItem ("Exode")<br />
cboLivre.AddItem ("Lévitique")<br />
cboLivre.AddItem ("Nombres")<br />
cboLivre.AddItem ("Deutéronome")<br />
cboLivre.AddItem ("Josué")<br />
cboLivre.AddItem ("Juges")<br />
cboLivre.AddItem ("Ruth")<br />
cboLivre.AddItem ("1 Samuel")<br />
cboLivre.AddItem ("2 Samuel")<br />
cboLivre.AddItem ("1 Rois")<br />
cboLivre.AddItem ("2 Rois")<br />
cboLivre.AddItem ("1 Chroniques")<br />
cboLivre.AddItem ("2 Chroniques")<br />
cboLivre.AddItem ("Esdras")<br />
cboLivre.AddItem ("Néhémie")<br />
cboLivre.AddItem ("Esther")<br />
cboLivre.AddItem ("Judith")<br />
cboLivre.AddItem ("Tobie")<br />
cboLivre.AddItem ("1 Maccabées")<br />
cboLivre.AddItem ("2 Maccabées")<br />
cboLivre.AddItem ("3 Maccabées")<br />
cboLivre.AddItem ("4 Maccabées")<br />
cboLivre.AddItem ("Psaumes")<br />
cboLivre.AddItem ("Odes")<br />
cboLivre.AddItem ("Proverbes")<br />
cboLivre.AddItem ("Ecclésiaste")<br />
cboLivre.AddItem ("Cantique des cantiques")<br />
cboLivre.AddItem ("Job")<br />
cboLivre.AddItem ("Sagesse")<br />
cboLivre.AddItem ("Siracides")<br />
cboLivre.AddItem ("Psaumes de Salomon")<br />
cboLivre.AddItem ("Osée")<br />
cboLivre.AddItem ("Amos")<br />
cboLivre.AddItem ("Micah")<br />
cboLivre.AddItem ("Joël")<br />
cboLivre.AddItem ("Abdias")<br />
cboLivre.AddItem ("Jonas")<br />
cboLivre.AddItem ("Nahum")<br />
cboLivre.AddItem ("Habbacuc")<br />
cboLivre.AddItem ("Sophonie")<br />
cboLivre.AddItem ("Aggée")<br />
cboLivre.AddItem ("Zacharie")<br />
cboLivre.AddItem ("Malachie")<br />
cboLivre.AddItem ("Isaïe")<br />
cboLivre.AddItem ("Jérémie")<br />
cboLivre.AddItem ("Baruch")<br />
cboLivre.AddItem ("Lamentations")<br />
cboLivre.AddItem ("Epître de Jérémie")
frmBHSLXX - 2<br />
cboLivre.AddItem ("Ezékiel")<br />
cboLivre.AddItem ("Susanna")<br />
cboLivre.AddItem ("Daniel")<br />
cboLivre.AddItem ("Bel et Draco")<br />
End Sub<br />
Private Sub lblLicense_Click()<br />
Dim license<br />
license = App.Path & "\modules\parallel\00.ReadMe.txt"<br />
'txtGauche.LoadFile (license)<br />
Load frmBrowser<br />
frmBrowser.cboAddress.Text = license<br />
frmBrowser.Show<br />
End Sub<br />
Private Sub lblSource_Click()<br />
Dim site$<br />
site = "gopher://ccat.sas.upenn.edu:3333/11/Religious/Biblical/parallel"<br />
Load frmBrowser<br />
frmBrowser.cboAddress.Text = site<br />
frmBrowser.Show<br />
frmBrowser.Caption = "CCAT - Centre pour l'Analyse informatique de textes"<br />
End Sub
frmBHSLXX - 1<br />
VERSION 5.00<br />
Begin VB.Form frmBHSLXX<br />
BackColor = &H00FFFFFF&<br />
BorderStyle = 4 'Fixed ToolWindow<br />
Caption = "Parallel Aligned Hebrew-Aramaic and Greek texts of Jewish Scriptures"<br />
ClientHeight = 5565<br />
ClientLeft = 45<br />
ClientTop = 315<br />
ClientWidth = 7155<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 9.75<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
LinkTopic = "Form1"<br />
MaxButton = 0 'False<br />
MinButton = 0 'False<br />
Picture = (Bitmap)<br />
ScaleHeight = 5565<br />
ScaleWidth = 7155<br />
ShowInTaskbar = 0 'False<br />
StartUpPosition = 2 'CenterScreen<br />
Begin VB.ComboBox cboLivre<br />
Height = 360<br />
Left = 480<br />
TabIndex = 13<br />
Text = "Livre"<br />
Top = 1440<br />
Width = 2055<br />
End<br />
Begin VB.TextBox txtChapitre<br />
Alignment = 2 'Center<br />
Height = 285<br />
Left = 3000<br />
TabIndex = 12<br />
Top = 1440<br />
Width = 975<br />
End<br />
Begin VB.TextBox txtverset<br />
Alignment = 2 'Center<br />
Height = 285<br />
Left = 4080<br />
TabIndex = 11<br />
Top = 1440<br />
Width = 975<br />
End<br />
Begin VB.CommandButton btnGo<br />
Caption = "&Rechercher"<br />
Default = -1 'True<br />
Height = 375<br />
Left = 5280<br />
TabIndex = 10<br />
Top = 1440<br />
Width = 1455<br />
End<br />
Begin VB.TextBox txtDroite<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 9.75<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 1095<br />
Left = 3600<br />
MultiLine = -1 'True<br />
ScrollBars = 2 'Vertical<br />
TabIndex = 9<br />
Top = 2400<br />
Width = 3135
frmBHSLXX - 2<br />
End<br />
Begin VB.TextBox txtGauche<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 9.75<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 1095<br />
Left = 240<br />
MultiLine = -1 'True<br />
ScrollBars = 2 'Vertical<br />
TabIndex = 8<br />
Top = 2400<br />
Width = 3135<br />
End<br />
Begin VB.CommandButton Command1<br />
Cancel = -1 'True<br />
Caption = "OK"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 8.25<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 375<br />
Left = 6480<br />
TabIndex = 1<br />
Top = 5040<br />
Width = 495<br />
End<br />
Begin VB.Label Label2<br />
BackStyle = 0 'Transparent<br />
Caption = "chapitre"<br />
Height = 255<br />
Left = 3000<br />
TabIndex = 15<br />
Top = 1800<br />
Width = 975<br />
End<br />
Begin VB.Label Label3<br />
BackStyle = 0 'Transparent<br />
Caption = "verset"<br />
Height = 255<br />
Left = 4200<br />
TabIndex = 14<br />
Top = 1800<br />
Width = 975<br />
End<br />
Begin VB.Label lblsuivant<br />
BackStyle = 0 'Transparent<br />
Caption = ">"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 18<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 375<br />
Left = 6600<br />
TabIndex = 7<br />
ToolTipText = "Verset suivant"<br />
Top = 1920<br />
Width = 375<br />
End<br />
Begin VB.Label lblprecedent<br />
BackStyle = 0 'Transparent
frmBHSLXX - 3<br />
Caption = "
frmBHSLXX - 4<br />
Caption = "BIBLIA STUGARTTENSIA && SEPTANTE ALIGNEES"<br />
BeginProperty Font<br />
Name = "Times New Roman"<br />
Size = 15.75<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 855<br />
Left = 600<br />
TabIndex = 0<br />
Top = 240<br />
Width = 6135<br />
End<br />
End
BIBLIA STUGARTTENSIA & SEPTANTE<br />
ALIGNEES<br />
chapitre<br />
verset<br />
< ><br />
Biblica Stugarttensia Texte<br />
Consonantique (BHS)<br />
Source License<br />
Septuaginta, A. Rahlfs (LXX)
frmBible - 1<br />
'Private Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _<br />
'(ByVal hwndCaller As Long, ByVal pszFile As String, _<br />
'ByVal uCommand As Long, ByVal dwData As Long) As Long<br />
'Dim robby As IAgentCtlCharacterEx<br />
'Const DATAPATH = "robby.acs"<br />
Dim debloque As Boolean<br />
Dim ssaidegr As Boolean<br />
Dim automatos As Boolean<br />
Private WithEvents m_frmSysTray As frmSysTray<br />
Public Sub btnGo_Click()<br />
frmBible.txtPassage.Text = ""<br />
' définitions des variables de cette procédure<br />
Dim fichierseptante$<br />
Dim dictionnaire$, lexique$<br />
Dim version, msg, chercher, fichier, passage, ligne, ligne2, livre<br />
' vidage du tampon<br />
frmBible.lbltampon.Text = ""<br />
' petite gestion de l'alignement du texte<br />
If cboVersion.Text = "BHS" Or cboVersion.Text = "WTM" Then<br />
txtPassage.Alignment = 1<br />
Else<br />
txtPassage.Alignment = 0<br />
End If<br />
'j'enlève les outils du bas<br />
If cboVersion.Text = "W/H & Strong" Then<br />
sortievocale.Visible = False<br />
End If<br />
' affectation des polices de caractères<br />
'Texte Massorétique<br />
lblstrongfr.Visible = False<br />
optstrongfr.Visible = False<br />
If cboVersion.Text = "TM" Then<br />
If cboLivre.Text = "Matthieu" Then<br />
cboLivre.Text = "Genèse"<br />
livre = "Genèse"<br />
End If<br />
If cboVersion.Text = "SG" Then<br />
cboLivre.Text = "Genèse"<br />
cboLivre.Text = "Matthieu"<br />
livre = "Matthieu"<br />
End If<br />
frmBible.txtPassage.Font = "OLBHEB"<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
Call LireBHS(livre, chapitre, verset)<br />
frmBible.lblchapitre.Caption = frmBible.cboLivre.Text & " " & frmBible.txtChapitre.Text & ":" &<br />
frmBible.txtverset.Text<br />
txtPassage.ToolTipText = "Double-cliquez sur un mot pour l'analyser ou le définir"<br />
Exit Sub<br />
End If<br />
' Versions anglaises / ajout du menu<br />
If cboVersion.Text = "ASV" Or _<br />
cboVersion.Text = "KJV" Or _<br />
cboVersion.Text = "YLT" Or _<br />
cboVersion.Text = "WEB" Or _<br />
cboVersion.Text = "BBE" Or _<br />
cboVersion.Text = "JPS" Or _<br />
cboVersion.Text = "DR" Or _<br />
cboVersion.Text = "WBST" Then<br />
sortievocale.Visible = False<br />
End If
frmBible - 2<br />
' BHS Vocalisée<br />
If cboVersion.Text = "BHS" Then<br />
frmBible.txtPassage.Font = "Bwhebb"<br />
If cboLivre.Text = "Matthieu" Then<br />
cboLivre.Text = "Genèse"<br />
livre = "Genèse"<br />
End If<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
Call LireBHSV(livre, chapitre, verset)<br />
Exit Sub<br />
End If<br />
' NET<br />
If cboVersion.Text = "NET" Or cboVersion.Text = "JPS" Then<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
Call LireNET(livre, chapitre, verset)<br />
Exit Sub<br />
End If<br />
' LSG2+<br />
If cboVersion.Text = "LSG & Strong" Then<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
Call LireLSGStrong2(livre, chapitre, verset)<br />
Exit Sub<br />
End If<br />
'WH & Strong<br />
If cboVersion.Text = "W/H & Strong" Then<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
Call LireWestcottHortParsed(livre, chapitre, verset)<br />
Exit Sub<br />
End If<br />
'BHS+<br />
If cboVersion.Text = "BHS+" Then<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
Call LireBHSStrong(livre, chapitre, verset)<br />
Exit Sub<br />
End If<br />
'FILLION<br />
If cboVersion.Text = "FILLION" Then<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
'Call LireFillion(livre, chapitre, verset)<br />
Exit Sub<br />
End If<br />
'Pères apostoliques grec<br />
If cboVersion.Text = "APF-G" Then<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
Call LirePeresGrecs(livre, chapitre, verset)<br />
Exit Sub<br />
End If<br />
'Pères apostoliques par Lightfoot<br />
If cboVersion.Text = "Lightfoot" Then<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
Call LirePeresEn(livre, chapitre, verset)
frmBible - 3<br />
Exit Sub<br />
End If<br />
'Homère, Iliade et Odyssée en grec<br />
If cboVersion.Text = "Homère" Then<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
Call LireHomere(livre, chapitre, verset)<br />
Exit Sub<br />
End If<br />
'Pères anté-nicéens ANF en anglais<br />
If cboVersion.Text = "ANF" Then<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
Call LireANF(livre, chapitre, verset)<br />
Exit Sub<br />
End If<br />
'Pères apostoliques fr<br />
If cboVersion.Text = "APF-F" Then<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
Call LirePeresFr(livre, chapitre, verset)<br />
Exit Sub<br />
End If<br />
'Pères apostoliques en (Ph. Schaff)<br />
If cboVersion.Text = "APF-E" Then<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
Call LirePeresEn(livre, chapitre, verset)<br />
Exit Sub<br />
End If<br />
'TMN<br />
If cboVersion.Text = "TMN" Then<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
Call LireTMN(livre, chapitre, verset)<br />
Exit Sub<br />
End If<br />
' Salkinson-Ginsburg<br />
If cboVersion.Text = "SG" Then<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
'Call LireHNT(livre, chapitre, verset)<br />
frmBible.txtPassage.RightToLeft = True<br />
frmBible.txtPassage.Alignment = vbRightJustify<br />
Exit Sub<br />
End If<br />
If cboVersion.Text = "MRT" Then<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
Call LireMRT(livre, chapitre, verset)<br />
Exit Sub<br />
End If<br />
If cboVersion.Text = "OST" Then<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
Call LireOST(livre, chapitre, verset)<br />
Exit Sub<br />
End If<br />
If cboVersion.Text = "Tischendorf+" Then<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text
frmBible - 4<br />
verset = txtverset.Text<br />
Call LireTIS(livre, chapitre, verset)<br />
Exit Sub<br />
End If<br />
If cboVersion.Text = "WTM" Then<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
Call LireWTM(livre, chapitre, verset, mot)<br />
Exit Sub<br />
End If<br />
' NA27<br />
If cboVersion.Text = "NA27" Then<br />
If cboLivre.Text = "Genèse" Then cboLivre.Text = "Matthieu"<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
Call LireNA27(livre, chapitre, verset)<br />
txtPassage.Font = "Bwgrkn"<br />
txtPassage.FontSize = 14<br />
Exit Sub<br />
End If<br />
' WH+<br />
If cboVersion.Text = "WH+" Then<br />
If cboLivre.Text = "Genèse" Then cboLivre.Text = "Matthieu"<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
Call LireWHPlus(livre, chapitre, verset)<br />
txtPassage.Font = "Bwgrkn"<br />
txtPassage.FontSize = 14<br />
Exit Sub<br />
End If<br />
' gestion des oublis<br />
If cboVersion.Text = "Version" Then<br />
MsgBox "Vous devez sélectionner une version de la Bible", vbInformation, "Bible Parser"<br />
Exit Sub<br />
ElseIf txtChapitre.Text = "" Then<br />
MsgBox "Vous n'avez pas saisi de chapitre", vbInformation, "Bible Parser"<br />
Exit Sub<br />
ElseIf txtverset.Text = "" Then<br />
MsgBox "Vous n'avez pas saisi de verset", vbInformation, "Bible Parser"<br />
ElseIf cboLivre.Text = "" Then<br />
MsgBox "Vous n'avez pas saisi de livre", vbInformation, "Bible Parser"<br />
Exit Sub<br />
End If<br />
'affectation des variables<br />
version = Trim(cboVersion.Text)<br />
chapitre = Trim(txtChapitre.Text)<br />
verset = Trim(txtverset.Text)<br />
livre = Trim(cboLivre.Text)<br />
' définition du fichier livre à ouvrir pour la septante<br />
'If cboVersion.Text = "LXX" Then<br />
'sortievocale.Visible = False<br />
'Call DefFichierSeptante(livre, fichierseptante)<br />
'End If<br />
' Définition du fichier à ouvrir<br />
If cboVersion.Text = "LXX" Then<br />
frmBible.txtPassage.Font = "Bwgrkn"<br />
frmBible.txtPassage.FontSize = 14<br />
chkstrong.Visible = False<br />
chkthayer.Visible = False<br />
lblStrong.Visible = False<br />
lblthayer.Visible = False<br />
lblchapitre.Visible = True<br />
txtPassage.ToolTipText = "Double-cliquez sur un mot pour l'analyser ou le définir"<br />
If cboLivre.Text = "Matthieu" Then
frmBible - 5<br />
cboLivre.Text = "Genèse"<br />
livre = "Genèse"<br />
End If<br />
'chkthayer.Value = False<br />
'chkstrong.Value = True<br />
'fichier = "\modules\Septante\" & fichierseptante<br />
'sortievocale.Visible = False<br />
'MnuSortieVocale.Enabled = False<br />
Call LireLXX(livre, chapitre, verset)<br />
Exit Sub<br />
' Stephanus<br />
ElseIf cboVersion.Text = "Stephanus" Then<br />
If cboLivre.Text = "Genèse" Then cboLivre.Text = "Matthieu"<br />
frmBible.chkstrong.Visible = False<br />
frmBible.lblStrong.Visible = False<br />
frmBible.chkthayer.Visible = False<br />
frmBible.lblthayer.Visible = False<br />
frmBible.optstrongfr.Visible = False<br />
frmBible.lblstrongfr.Visible = False<br />
Call LireStephanos(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "Scrivener" Then<br />
If cboLivre.Text = "Genèse" Then cboLivre.Text = "Matthieu"<br />
frmBible.chkstrong.Visible = False<br />
frmBible.lblStrong.Visible = False<br />
frmBible.chkthayer.Visible = False<br />
frmBible.lblthayer.Visible = False<br />
frmBible.optstrongfr.Visible = False<br />
frmBible.lblstrongfr.Visible = False<br />
Call LireScrivener(livre, chapitre, verset)<br />
Exit Sub<br />
'NA26<br />
ElseIf cboVersion.Text = "NA26+" Then<br />
If cboLivre.Text = "Genèse" Then<br />
cboLivre.Text = "Matthieu"<br />
livre = "Matthieu"<br />
End If<br />
'txtPassage.ToolTipText = "Double-cliquez sur un mot pour l'analyser ou le définir"<br />
sortievocale.Visible = False<br />
MnuSortieVocale.Enabled = False<br />
Call LireNA26(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "LSG" Then<br />
sortievocale.Visible = False<br />
MnuSortieVocale.Enabled = False<br />
chkstrong.Visible = False<br />
chkthayer.Visible = False<br />
lblStrong.Visible = False<br />
lblthayer.Visible = False<br />
lblstrongfr.Visible = False<br />
optstrongfr.Visible = False<br />
chkthayer.Value = False<br />
chkstrong.Value = True<br />
Call LireLSG(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "NEG+" Then<br />
sortievocale.Visible = False<br />
MnuSortieVocale.Enabled = False<br />
chkstrong.Visible = False<br />
chkthayer.Visible = False<br />
lblStrong.Visible = False<br />
lblthayer.Visible = False<br />
lblstrongfr.Visible = False<br />
optstrongfr.Visible = False<br />
chkthayer.Value = False<br />
chkstrong.Value = True<br />
Call LireNEG(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "LSG+" Then<br />
sortievocale.Visible = False<br />
MnuSortieVocale.Enabled = False<br />
chkstrong.Visible = False
frmBible - 6<br />
chkthayer.Visible = False<br />
lblStrong.Visible = False<br />
lblthayer.Visible = False<br />
lblstrongfr.Visible = False<br />
optstrongfr.Visible = False<br />
chkthayer.Value = False<br />
chkstrong.Value = True<br />
Call LireLSGStrong(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "JER" Then<br />
sortievocale.Visible = False<br />
MnuSortieVocale.Enabled = False<br />
chkstrong.Visible = False<br />
chkthayer.Visible = False<br />
lblStrong.Visible = False<br />
lblthayer.Visible = False<br />
lblstrongfr.Visible = False<br />
optstrongfr.Visible = False<br />
chkthayer.Value = False<br />
chkstrong.Value = True<br />
Call LireJerusalem(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "BFC" Then<br />
sortievocale.Visible = False<br />
MnuSortieVocale.Enabled = False<br />
chkstrong.Visible = False<br />
chkthayer.Visible = False<br />
lblStrong.Visible = False<br />
lblthayer.Visible = False<br />
lblstrongfr.Visible = False<br />
optstrongfr.Visible = False<br />
chkthayer.Value = False<br />
chkstrong.Value = True<br />
Call LireBFC(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "Darby" Then<br />
sortievocale.Visible = False<br />
MnuSortieVocale.Enabled = False<br />
chkstrong.Visible = False<br />
chkthayer.Visible = False<br />
lblStrong.Visible = False<br />
lblthayer.Visible = False<br />
lblstrongfr.Visible = False<br />
optstrongfr.Visible = False<br />
chkthayer.Value = False<br />
chkstrong.Value = True<br />
Call LireDarby(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "NBS" Then<br />
MnuSortieVocale.Enabled = False<br />
lblstrongfr.Visible = False<br />
optstrongfr.Visible = False<br />
sortievocale.Visible = False<br />
chkstrong.Visible = False<br />
chkthayer.Visible = False<br />
lblStrong.Visible = False<br />
lblthayer.Visible = False<br />
lblstrongfr.Visible = False<br />
optstrongfr.Visible = False<br />
chkthayer.Value = False<br />
chkstrong.Value = True<br />
lblchapitre.Caption = livre & " " & chapitre & ":" & verset<br />
Call VersetNBS(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "TOB" Then<br />
MnuSortieVocale.Enabled = False<br />
lblstrongfr.Visible = False<br />
optstrongfr.Visible = False<br />
sortievocale.Visible = False<br />
chkstrong.Visible = False<br />
chkthayer.Visible = False<br />
lblStrong.Visible = False<br />
lblthayer.Visible = False<br />
lblstrongfr.Visible = False<br />
optstrongfr.Visible = False<br />
chkthayer.Value = False
frmBible - 7<br />
chkstrong.Value = True<br />
lblchapitre.Caption = livre & " " & chapitre & ":" & verset<br />
Call LireTOB(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "DIAGLOTT" Then<br />
lblstrongfr.Visible = False<br />
optstrongfr.Visible = False<br />
'MnuSortieVocale.Enabled = False<br />
'sortievocale.Visible = False<br />
chkstrong.Visible = False<br />
chkthayer.Visible = False<br />
lblStrong.Visible = False<br />
lblthayer.Visible = False<br />
chkthayer.Value = False<br />
chkstrong.Value = True<br />
lblchapitre.Caption = livre & " " & chapitre & ":" & verset<br />
Call Diaglott(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "NT Annoté" Then<br />
lblstrongfr.Visible = False<br />
optstrongfr.Visible = False<br />
sortievocale.Visible = False<br />
MnuSortieVocale.Enabled = False<br />
chkstrong.Visible = False<br />
chkthayer.Visible = False<br />
lblStrong.Visible = False<br />
lblthayer.Visible = False<br />
chkthayer.Value = False<br />
chkstrong.Value = True<br />
lblchapitre.Caption = livre & " " & chapitre & ":" & verset<br />
Call LireNTDF(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "Vulgate" Then<br />
sortievocale.Visible = False<br />
MnuSortieVocale.Enabled = False<br />
lblstrongfr.Visible = False<br />
optstrongfr.Visible = False<br />
chkstrong.Visible = False<br />
chkthayer.Visible = False<br />
lblStrong.Visible = False<br />
lblthayer.Visible = False<br />
chkthayer.Value = False<br />
chkstrong.Value = True<br />
frmBible.optstrongfr.Visible = False<br />
frmBible.lblstrongfr.Visible = False<br />
Call LireVulgate(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "CRP" Then<br />
sortievocale.Visible = False<br />
MnuSortieVocale.Enabled = False<br />
lblstrongfr.Visible = False<br />
optstrongfr.Visible = False<br />
chkstrong.Visible = False<br />
chkthayer.Visible = False<br />
lblStrong.Visible = False<br />
lblthayer.Visible = False<br />
chkthayer.Value = False<br />
chkstrong.Value = True<br />
frmBible.optstrongfr.Visible = False<br />
frmBible.lblstrongfr.Visible = False<br />
Call LireCRP(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "W/H & Strong" Then<br />
sortievocale.Visible = False<br />
MnuSortieVocale.Enabled = False<br />
chkstrong.Visible = False<br />
chkthayer.Visible = False<br />
lblStrong.Visible = False<br />
lblthayer.Visible = False<br />
chkthayer.Value = False<br />
chkstrong.Value = True<br />
'txtPassage.ToolTipText = "Double cliquez sur un numéro pour voir sa définition Strong / Thayer<br />
"<br />
fichier = "\modules\WHpars\"<br />
frmBible.optstrongfr.Visible = False
frmBible - 8<br />
frmBible.lblstrongfr.Visible = False<br />
ElseIf cboVersion.Text = "ASV" Then<br />
sortievocale.Visible = False<br />
MnuSortieVocale.Enabled = False<br />
Call LireASV(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "KJV" Then<br />
sortievocale.Visible = False<br />
MnuSortieVocale.Enabled = False<br />
Call LireKJV(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "YLT" Then<br />
sortievocale.Visible = False<br />
MnuSortieVocale.Enabled = False<br />
Call LireYLT(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "WEB" Then<br />
sortievocale.Visible = False<br />
MnuSortieVocale.Enabled = False<br />
Call LireWEB(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "Flavius Josèphe" Or cboVersion.Text = "Flavius Josèphe - En" Then<br />
sortievocale.Visible = False<br />
MnuSortieVocale.Enabled = False<br />
Call LireFJ(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "Flavius Josèphe - Fr" Then<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\modules\JOS\jof.pdf")<br />
frmPDF.Caption = "Oeuvres complètes de Flavius Josèphe"<br />
If cboLivre.Text = "Antiquités judaïques" Then<br />
frmPDF.pdfmain.setCurrentPage (603)<br />
ElseIf cboLivre.Text = "Guerre des Juifs" Then<br />
frmPDF.pdfmain.setCurrentPage (22)<br />
ElseIf cboLivre.Text = "Contre Apion" Then<br />
frmPDF.pdfmain.setCurrentPage (1318)<br />
End If<br />
frmPDF.Show<br />
Exit Sub<br />
ElseIf cboVersion.Text = "BBE" Then<br />
sortievocale.Visible = False<br />
MnuSortieVocale.Enabled = False<br />
Call LireBBE(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "DR" Then<br />
sortievocale.Visible = False<br />
MnuSortieVocale.Enabled = False<br />
Call LireDR(livre, chapitre, verset)<br />
Exit Sub<br />
ElseIf cboVersion.Text = "WBST" Then<br />
sortievocale.Visible = False<br />
MnuSortieVocale.Enabled = False<br />
Call LireWebster(livre, chapitre, verset)<br />
Exit Sub<br />
End If<br />
' selon la version choisie, la nomenclature des versets recherchés est différente<br />
If version = "NT grec ancien" Then<br />
Call CreerPassage(version, livre, chapitre, verset, chercher)<br />
ElseIf version = "NT UBS" Then<br />
Call CreerPassagesgreek(version, livre, chapitre, verset, chercher)<br />
ElseIf version = "Vulgate" Then<br />
Call CreerPassageVulgate(version, livre, chapitre, verset, chercher)<br />
ElseIf version = "W/H & Strong" Then<br />
Call CreerPassageWHpars(version, livre, chapitre, verset, chercher, fichier, chap)<br />
Call CorrigerWH(texte)<br />
ElseIf version = "LXX" Then<br />
Call LireSeptante(livre, chapitre, verset, fichier, chercher)<br />
Dim enlevererr$, nveautxt$<br />
msg = Trim(StrReverse(frmBible.txtPassage.Text))<br />
enleverr = InStr(1, msg, " ")<br />
nveautxt = Mid(msg, enleverr + 1, Len(msg))
frmBible - 9<br />
frmBible.txtPassage.Text = StrReverse(nveautxt)<br />
Exit Sub<br />
End If<br />
If cboVersion.Text = "W/H & Strong" Then<br />
Exit Sub<br />
End If<br />
'affichage des références du Treasaury of Scripture Knowledge<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
'If chkTSK.Value = 1 Then<br />
'Call LireTSK(livre, chapitre, verset)<br />
'End If<br />
' lecture de la version choisie<br />
Dim lfile As Long 'Lecture<br />
Dim ofile As String 'Fichier à ouvrir<br />
Dim toti$<br />
If Len(fichier) < 30 Then<br />
toti = fichier<br />
ofile = App.Path & toti<br />
Else<br />
ofile = fichier<br />
End If<br />
lfile = FreeFile<br />
If fichier "" Then<br />
Open ofile For Input As #lfile<br />
Do<br />
'lecture<br />
Input #lfile, ligne<br />
If Mid(ligne, 1, Len(chercher)) = chercher And _<br />
IsNumeric(Mid(ligne, Len(chercher) + 1, 1)) = False Then ' pour que le verset reche<br />
rché soit exact<br />
'affectation du verset du fichier à la variable<br />
passage = ligne<br />
End If<br />
Loop Until EOF(lfile)<br />
Close #lfile<br />
End If<br />
'affecter le verset trouvé au textbox<br />
If passage "" Then<br />
txtPassage.Text = Mid(passage, Len(chercher) + 1, Len(passage))<br />
Else<br />
' s'il n'y a pas de verset correspondant, le signaler<br />
txtPassage.Font = "Times New Roman"<br />
txtPassage.Text = "Pas de verset"<br />
End If<br />
'affecter le verset choisi au label au-dessus<br />
lblchapitre.Caption = cboLivre.Text & " " & txtChapitre & " : " & txtverset.Text<br />
lblprecedent.Visible = True<br />
lblsuivant.Visible = True<br />
' affichage des outils d'analyse<br />
If cboVersion.Text = "NA26+" Then<br />
frmBible.optstrongfr.Visible = False<br />
frmBible.lblstrongfr.Visible = False<br />
ElseIf cboVersion.Text = "Vulgate" Then<br />
frmBible.optstrongfr.Visible = False<br />
frmBible.lblstrongfr.Visible = False<br />
End If
frmBible - 10<br />
erreur:<br />
Exit Sub<br />
End Sub<br />
Public Sub btnGo_KeyUp(KeyCode As Integer, Shift As Integer)<br />
If KeyCode = 13 Then btnGo_Click<br />
End Sub<br />
Public Sub BtnGraphic1_Click()<br />
'Load frmTSK<br />
'frmTSK. Show 1<br />
End Sub<br />
Public Sub btnQuitter_Click()<br />
End<br />
End Sub<br />
Public Sub cboLivre_GotFocus()<br />
If cboVersion.Text = "LXX" Or cboVersion.Text = "BHS / LXX" Then<br />
cboLivre.Clear<br />
cboLivre.AddItem ("Genèse")<br />
cboLivre.AddItem ("Exode")<br />
cboLivre.AddItem ("Lévitique")<br />
cboLivre.AddItem ("Nombres")<br />
cboLivre.AddItem ("Deutéronome")<br />
cboLivre.AddItem ("Josué")<br />
cboLivre.AddItem ("Juges")<br />
cboLivre.AddItem ("Ruth")<br />
cboLivre.AddItem ("1 Samuel")<br />
cboLivre.AddItem ("2 Samuel")<br />
cboLivre.AddItem ("1 Rois")<br />
cboLivre.AddItem ("2 Rois")<br />
cboLivre.AddItem ("1 Chroniques")<br />
cboLivre.AddItem ("2 Chroniques")<br />
cboLivre.AddItem ("Esdras")<br />
cboLivre.AddItem ("Néhémie")<br />
cboLivre.AddItem ("Esther")<br />
cboLivre.AddItem ("Judith")<br />
cboLivre.AddItem ("Tobie")<br />
cboLivre.AddItem ("1 Maccabées")<br />
cboLivre.AddItem ("2 Maccabées")<br />
cboLivre.AddItem ("3 Maccabées")<br />
cboLivre.AddItem ("4 Maccabées")<br />
cboLivre.AddItem ("Psaumes")<br />
cboLivre.AddItem ("Odes")<br />
cboLivre.AddItem ("Proverbes")<br />
cboLivre.AddItem ("Ecclésiaste")<br />
cboLivre.AddItem ("Cantique des cantiques")<br />
cboLivre.AddItem ("Job")<br />
cboLivre.AddItem ("Sagesse")<br />
cboLivre.AddItem ("Siracides")<br />
cboLivre.AddItem ("Psaumes de Salomon")<br />
cboLivre.AddItem ("Osée")<br />
cboLivre.AddItem ("Amos")<br />
cboLivre.AddItem ("Micah")<br />
cboLivre.AddItem ("Joël")<br />
cboLivre.AddItem ("Abdias")<br />
cboLivre.AddItem ("Jonas")<br />
cboLivre.AddItem ("Nahum")<br />
cboLivre.AddItem ("Habbacuc")<br />
cboLivre.AddItem ("Sophonie")<br />
cboLivre.AddItem ("Aggée")<br />
cboLivre.AddItem ("Zacharie")<br />
cboLivre.AddItem ("Malachie")<br />
cboLivre.AddItem ("Isaïe")<br />
cboLivre.AddItem ("Jérémie")<br />
cboLivre.AddItem ("Baruch")<br />
cboLivre.AddItem ("Lamentations")<br />
cboLivre.AddItem ("Epître de Jérémie")<br />
cboLivre.AddItem ("Ezékiel")<br />
cboLivre.AddItem ("Susanna")<br />
cboLivre.AddItem ("Daniel")<br />
cboLivre.AddItem ("Bel et Draco")<br />
sortievocale.Visible = False
frmBible - 11<br />
ElseIf cboVersion.Text = "Homère" Then<br />
cboLivre.Clear<br />
cboLivre.AddItem ("Iliade")<br />
cboLivre.AddItem ("Odyssée")<br />
ElseIf cboVersion.Text = "Flavius Josèphe" Or cboVersion.Text = "Flavius Josèphe - En" Or cboVersio<br />
n.Text = "Flavius Josèphe - Fr" Then<br />
cboLivre.Clear<br />
cboLivre.AddItem ("Antiquités judaïques")<br />
cboLivre.AddItem ("Guerre des Juifs")<br />
cboLivre.AddItem ("Vie de FJ")<br />
cboLivre.AddItem ("Contre Apion")<br />
ElseIf cboVersion.Text = "APF-G" Or cboVersion.Text = "APF-F" Or cboVersion.Text = "APF-E" Or cboVe<br />
rsion.Text = "Lightfoot" Then<br />
cboLivre.Clear<br />
cboLivre.AddItem ("1ère de Clément")<br />
cboLivre.AddItem ("2ème de Clément")<br />
cboLivre.AddItem ("Epître de Barnabé")<br />
cboLivre.AddItem ("Ignace - 1ère Ephésiens")<br />
cboLivre.AddItem ("Ignace - 2ème Ephésiens")<br />
cboLivre.AddItem ("Ignace - aux Magnésiens")<br />
cboLivre.AddItem ("Ignace - aux Tralliens")<br />
cboLivre.AddItem ("Ignace - aux Romains")<br />
cboLivre.AddItem ("Ignace - aux Philadelphiens")<br />
cboLivre.AddItem ("Ignace - aux Smyrniotes")<br />
cboLivre.AddItem ("Ignace - à Polycarpe")<br />
cboLivre.AddItem ("Ignace - aux Philippiens")<br />
cboLivre.AddItem ("Martyr de Polycarpe")<br />
cboLivre.AddItem ("La Didachè")<br />
cboLivre.AddItem ("Hermas - Vision 1")<br />
cboLivre.AddItem ("Hermas - Vision 2")<br />
cboLivre.AddItem ("Hermas - Vision 3")<br />
cboLivre.AddItem ("Hermas - Vision 4")<br />
cboLivre.AddItem ("Hermas - Vision 5")<br />
cboLivre.AddItem ("Hermas - Précepte 1") 'HMA<br />
cboLivre.AddItem ("Hermas - Précepte 2") 'HMB<br />
cboLivre.AddItem ("Hermas - Précepte 3") 'HMC<br />
cboLivre.AddItem ("Hermas - Précepte 4") 'HMD<br />
cboLivre.AddItem ("Hermas - Précepte 5") 'HME<br />
cboLivre.AddItem ("Hermas - Précepte 6") 'HMF<br />
cboLivre.AddItem ("Hermas - Précepte 7") 'HMG<br />
cboLivre.AddItem ("Hermas - Précepte 8") 'HMH<br />
cboLivre.AddItem ("Hermas - Précepte 9") 'HMI<br />
cboLivre.AddItem ("Hermas - Précepte 10") 'HMJ<br />
cboLivre.AddItem ("Hermas - Précepte 11") 'HMK<br />
cboLivre.AddItem ("Hermas - Précepte 12") 'HML<br />
cboLivre.AddItem ("Hermas - Similitudes 1") 'HSA<br />
cboLivre.AddItem ("Hermas - Similitudes 2") 'HSB<br />
cboLivre.AddItem ("Hermas - Similitudes 3") 'HSC<br />
cboLivre.AddItem ("Hermas - Similitudes 4") 'HSD<br />
cboLivre.AddItem ("Hermas - Similitudes 5") 'HSE<br />
cboLivre.AddItem ("Hermas - Similitudes 6") 'HSF<br />
cboLivre.AddItem ("Hermas - Similitudes 7") 'HSG<br />
cboLivre.AddItem ("Hermas - Similitudes 8") 'HSH<br />
cboLivre.AddItem ("Hermas - Similitudes 9") 'HSI<br />
cboLivre.AddItem ("Hermas - Similitudes 10") 'HSJ<br />
ElseIf cboVersion.Text = "ANF" Then<br />
cboLivre.Clear<br />
cboLivre.AddItem ("Justin - Apologie")<br />
cboLivre.AddItem ("Justin - Dialogue avec Tryphon")<br />
cboLivre.AddItem ("Justin - Discours avec les Grecs")<br />
cboLivre.AddItem ("Justin - Adresse aux Grecs")<br />
cboLivre.AddItem ("Justin - Sur le gouvernement de Dieu")<br />
cboLivre.AddItem ("Justin - Fragments sur la Résurrection")<br />
cboLivre.AddItem ("Irénée - Contre les Hérésies Livre 1")<br />
cboLivre.AddItem ("Irénée - Contre les Hérésies Livre 2")<br />
cboLivre.AddItem ("Irénée - Contre les Hérésies Livre 3")<br />
cboLivre.AddItem ("Irénée - Contre les Hérésies Livre 4")<br />
cboLivre.AddItem ("Irénée - Contre les Hérésies Livre 5")<br />
cboLivre.AddItem ("Tatien - Adresse aux Grecs")<br />
cboLivre.AddItem ("Théophile d'Antioche à Autolycus")<br />
cboLivre.AddItem ("Athénagore - Défense des Chrétiens") 'PCA<br />
cboLivre.AddItem ("Athénagore - Sur la Résurrections des morts") 'ARD<br />
cboLivre.AddItem ("Clément d'Alexandrie - Exhoration aux cieux") 'CEH<br />
cboLivre.AddItem ("Clément d'Alexandrie - Pédagogue Livre 1") 'CI1<br />
cboLivre.AddItem ("Clément d'Alexandrie - Pédagogue Livre 2") 'CI2
frmBible - 12<br />
cboLivre.AddItem ("Clément d'Alexandrie - Pédagogue Livre 3") 'CI3<br />
cboLivre.AddItem ("Clément d'Alexandrie - Stromates Livre 1") 'CS1<br />
cboLivre.AddItem ("Clément d'Alexandrie - Stromates Livre 2") 'CS2<br />
cboLivre.AddItem ("Clément d'Alexandrie - Stromates Livre 3") 'CS3<br />
cboLivre.AddItem ("Clément d'Alexandrie - Stromates Livre 4") 'CS4<br />
cboLivre.AddItem ("Clément d'Alexandrie - Stromates Livre 5") 'CS5<br />
cboLivre.AddItem ("Clément d'Alexandrie - Stromates Livre 6") 'CS6<br />
cboLivre.AddItem ("Clément d'Alexandrie - Stromates Livre 7") 'CS7<br />
cboLivre.AddItem ("Clément d'Alexandrie - Stromates Livre 8") 'CS8<br />
cboLivre.AddItem ("Tertullien - Apologie") 'TAP, TAp<br />
cboLivre.AddItem ("Tertullien - Sur l'idolâtrie") 'TID<br />
cboLivre.AddItem ("Tertullien - Sur les spectacles") 'TSh TSH<br />
cboLivre.AddItem ("Tertullien - Sur le chapelet") 'TCH<br />
cboLivre.AddItem ("Tertullien - A Scapula") 'TTS<br />
cboLivre.AddItem ("Tertullien - Ad Nationes") 'TAD<br />
cboLivre.AddItem ("Tertullien - Réponse aux Juifs") 'TAJ<br />
cboLivre.AddItem ("Tertullien - Le témoignage de l'âme") 'TST<br />
cboLivre.AddItem ("Tertullien - Prescription contre les hérétiques") 'TPH<br />
cboLivre.AddItem ("Tertullien - Contre Marcion Livre 1") 'TM1<br />
cboLivre.AddItem ("Tertullien - Contre Marcion Livre 2") 'TM2<br />
cboLivre.AddItem ("Tertullien - Contre Marcion Livre 3") 'TM3<br />
cboLivre.AddItem ("Tertullien - Contre Marcion Livre 4") 'TM4<br />
cboLivre.AddItem ("Tertullien - Contre Marcion Livre 5") 'TM5<br />
cboLivre.AddItem ("Tertullien - Contre Hermogène") 'TAH<br />
cboLivre.AddItem ("Tertullien - Contre les Valentiniens") 'TAV<br />
cboLivre.AddItem ("Tertullien - Sur la chair du Christ") 'TFC<br />
cboLivre.AddItem ("Tertullien - Sur la résurrection de la chair") 'TRF<br />
cboLivre.AddItem ("Tertullien - Contre Praxeas") 'TPR<br />
cboLivre.AddItem ("Tertullien - Scorpiace") 'TSC<br />
cboLivre.AddItem ("Tertullien - Contre toutes les hérésies") 'AAH<br />
cboLivre.AddItem ("Tertullien - Sur la repentance") 'TOR<br />
cboLivre.AddItem ("Tertullien - Sur le baptême") 'TBa<br />
cboLivre.AddItem ("Tertullien - Sur la prière") 'TOP<br />
cboLivre.AddItem ("Tertullien - Ad martyras") 'TAM<br />
cboLivre.AddItem ("Tertullien - Martyr de Perpétue et Félécie") 'TPF<br />
cboLivre.AddItem ("Tertullien - Sur la patience") 'TPA<br />
cboLivre.AddItem ("Tertullien - Sur le Pallium") 'TPl<br />
cboLivre.AddItem ("Tertullien - Sur les ornements des femmes") 'TAW<br />
cboLivre.AddItem ("Tertullien - Sur le voile des vierges") 'TVV<br />
cboLivre.AddItem ("Tertullien - A sa femme") 'THW<br />
cboLivre.AddItem ("Tertullien - Exhortation à la chasteté") 'TEC<br />
cboLivre.AddItem ("Tertullien - Sur la monogamie") 'TOM<br />
cboLivre.AddItem ("Tertullien - Sur la modestie") 'TMD<br />
cboLivre.AddItem ("Tertullien - Sur les fêtes") 'TOF<br />
cboLivre.AddItem ("Tertullien - De fuga in persecutione") 'TFP<br />
cboLivre.AddItem ("Munucius Felix - L'Octavius") 'MFO<br />
cboLivre.AddItem ("Munucius Felix - Instructions de Commodianus") 'MFC<br />
cboLivre.AddItem ("Origène - Prologue") 'OPP<br />
cboLivre.AddItem ("Origène - De Principiis Livre 1") 'OP1<br />
cboLivre.AddItem ("Origène - De Principiis Livre 2") 'OP2<br />
cboLivre.AddItem ("Origène - De Principiis Livre 3") 'OP3<br />
cboLivre.AddItem ("Origène - De Principiis Livre 4") 'OP4<br />
cboLivre.AddItem ("Origène - Lettres") 'OLt<br />
cboLivre.AddItem ("Origène - Contre Celse") 'OAC<br />
cboLivre.AddItem ("Hippolyte - Réfutation de toutes les hérésies") 'HRH<br />
cboLivre.AddItem ("Anonyme - Canon de Muratori") 'TMC<br />
'LPC,Pontius the Deacon Life and Passion of Cyprian,LPC,LPC<br />
'CEp,Cyprian Epistles of Cyprian,CEp,CEP<br />
'CTr,Cyprian Treatises of Cyprian,CTr,CTR<br />
'CEM,Cyprian Exhortation to Martyrdom,CEM,CEM<br />
'CAJ,Cyprian Three Books of Testimonies Against the Jews,CAJ,CAJ<br />
'SCC,Seventh Council of Carthage re: Baptism of Heretics,SCC,SCC<br />
'TMC,The Muratorian Canon,TMC,TMC<br />
'NTT,Novatian Treatise re: the Trinity,NTT,NTT<br />
'NJM,Novation On the Jewish Meats,NJM,NJM<br />
'AAN,Anonymous Treatise Against Novatian,AAN,AAN<br />
'ATB,Anonymous Treatise on Re-Baptism,ATB,ATB<br />
'TDF,Gregory Thaumaturgus Declaration of Faith,TDF,TDF<br />
'TME,Gregory Thaumaturgus Metaphrase of Ecclesiastes,TME,TME<br />
'TCE,Gregory Thaumaturgus Canonical Epistle,TCE,TCE<br />
'TPO,Gregory Thaumaturgus Panegyric to Origen,TPO,TPO<br />
ElseIf cboVersion.Text = "FILLION" Then<br />
cboLivre.Clear<br />
cboLivre.AddItem ("Genèse")
frmBible - 13<br />
cboLivre.AddItem ("Exode")<br />
cboLivre.AddItem ("Lévitique")<br />
cboLivre.AddItem ("Nombres")<br />
cboLivre.AddItem ("Deutéronome")<br />
cboLivre.AddItem ("Josué")<br />
cboLivre.AddItem ("Juges")<br />
cboLivre.AddItem ("Ruth")<br />
cboLivre.AddItem ("1 Samuel")<br />
cboLivre.AddItem ("2 Samuel")<br />
cboLivre.AddItem ("1 Rois")<br />
cboLivre.AddItem ("2 Rois")<br />
cboLivre.AddItem ("1 Chroniques")<br />
cboLivre.AddItem ("2 Chroniques")<br />
cboLivre.AddItem ("Esdras")<br />
cboLivre.AddItem ("Néhémie")<br />
cboLivre.AddItem ("Esther")<br />
cboLivre.AddItem ("Judith")<br />
cboLivre.AddItem ("Tobie")<br />
cboLivre.AddItem ("1 Maccabées")<br />
cboLivre.AddItem ("2 Maccabées")<br />
cboLivre.AddItem ("Psaumes")<br />
cboLivre.AddItem ("Proverbes")<br />
cboLivre.AddItem ("Ecclésiaste")<br />
cboLivre.AddItem ("Cantique des cantiques")<br />
cboLivre.AddItem ("Job")<br />
cboLivre.AddItem ("Sagesse")<br />
cboLivre.AddItem ("Osée")<br />
cboLivre.AddItem ("Amos")<br />
cboLivre.AddItem ("Michée")<br />
cboLivre.AddItem ("Joël")<br />
cboLivre.AddItem ("Abdias")<br />
cboLivre.AddItem ("Jonas")<br />
cboLivre.AddItem ("Nahum")<br />
cboLivre.AddItem ("Habbacuc")<br />
cboLivre.AddItem ("Sophonie")<br />
cboLivre.AddItem ("Aggée")<br />
cboLivre.AddItem ("Zacharie")<br />
cboLivre.AddItem ("Malachie")<br />
cboLivre.AddItem ("Isaïe")<br />
cboLivre.AddItem ("Jérémie")<br />
cboLivre.AddItem ("Baruch")<br />
cboLivre.AddItem ("Lamentations")<br />
cboLivre.AddItem ("Ezékiel")<br />
cboLivre.AddItem ("Daniel")<br />
cboLivre.AddItem ("Matthieu")<br />
cboLivre.AddItem ("Marc")<br />
cboLivre.AddItem ("Luc")<br />
cboLivre.AddItem ("Jean")<br />
cboLivre.AddItem ("Actes")<br />
cboLivre.AddItem ("Romains")<br />
cboLivre.AddItem ("1 Corinthiens")<br />
cboLivre.AddItem ("2 Corinthiens")<br />
cboLivre.AddItem ("Galates")<br />
cboLivre.AddItem ("Ephésiens")<br />
cboLivre.AddItem ("Philippiens")<br />
cboLivre.AddItem ("Colossiens")<br />
cboLivre.AddItem ("1 Thessaloniciens")<br />
cboLivre.AddItem ("2 Thessaloniciens")<br />
cboLivre.AddItem ("1 Timothée")<br />
cboLivre.AddItem ("2 Timothée")<br />
cboLivre.AddItem ("Tite")<br />
cboLivre.AddItem ("Philémon")<br />
cboLivre.AddItem ("Hébreux")<br />
cboLivre.AddItem ("Jacques")<br />
cboLivre.AddItem ("1 Pierre")<br />
cboLivre.AddItem ("2 Pierre")<br />
cboLivre.AddItem ("1 Jean")<br />
cboLivre.AddItem ("2 Jean")<br />
cboLivre.AddItem ("3 Jean")<br />
cboLivre.AddItem ("Jude")<br />
cboLivre.AddItem ("Révélation")<br />
sortievocale.Visible = False<br />
ElseIf cboVersion.Text = "ASV" Or _<br />
cboVersion.Text = "KJV" Or _
frmBible - 14<br />
cboVersion.Text = "YLT" Or _<br />
cboVersion.Text = "WEB" Or _<br />
cboVersion.Text = "BBE" Or _<br />
cboVersion.Text = "JPS" Or _<br />
cboVersion.Text = "DR" Or _<br />
cboVersion.Text = "WBST" Or _<br />
cboVersion.Text = "NEG+" Or _<br />
cboVersion.Text = "LSG+" Or _<br />
cboVersion.Text = "LSG & Strong" Or _<br />
cboVersion.Text = "TM" Or _<br />
cboVersion.Text = "BHS+" Or _<br />
cboVersion.Text = "TMN" Or _<br />
cboVersion.Text = "JPS" Or _<br />
cboVersion.Text = "NET" Then<br />
cboLivre.Clear<br />
cboLivre.AddItem ("Genèse")<br />
cboLivre.AddItem ("Exode")<br />
cboLivre.AddItem ("Lévitique")<br />
cboLivre.AddItem ("Nombres")<br />
cboLivre.AddItem ("Deutéronome")<br />
cboLivre.AddItem ("Josué")<br />
cboLivre.AddItem ("Juges")<br />
cboLivre.AddItem ("Ruth")<br />
cboLivre.AddItem ("1 Samuel")<br />
cboLivre.AddItem ("2 Samuel")<br />
cboLivre.AddItem ("1 Rois")<br />
cboLivre.AddItem ("2 Rois")<br />
cboLivre.AddItem ("1 Chroniques")<br />
cboLivre.AddItem ("2 Chroniques")<br />
cboLivre.AddItem ("Esdras")<br />
cboLivre.AddItem ("Néhémie")<br />
cboLivre.AddItem ("Esther")<br />
cboLivre.AddItem ("Job")<br />
cboLivre.AddItem ("Psaumes")<br />
cboLivre.AddItem ("Proverbes")<br />
cboLivre.AddItem ("Ecclésiaste")<br />
cboLivre.AddItem ("Cantique des cantiques")<br />
cboLivre.AddItem ("Esaïe")<br />
cboLivre.AddItem ("Jérémie")<br />
cboLivre.AddItem ("Lamentations")<br />
cboLivre.AddItem ("Ezéchiel")<br />
cboLivre.AddItem ("Daniel")<br />
cboLivre.AddItem ("Osée")<br />
cboLivre.AddItem ("Joël")<br />
cboLivre.AddItem ("Amos")<br />
cboLivre.AddItem ("Abdias")<br />
cboLivre.AddItem ("Jonas")<br />
cboLivre.AddItem ("Michée")<br />
cboLivre.AddItem ("Nahoum")<br />
cboLivre.AddItem ("Habaquq")<br />
cboLivre.AddItem ("Sophonie")<br />
cboLivre.AddItem ("Aggée")<br />
cboLivre.AddItem ("Zacharie")<br />
cboLivre.AddItem ("Malachie")<br />
cboLivre.AddItem ("Matthieu")<br />
cboLivre.AddItem ("Marc")<br />
cboLivre.AddItem ("Luc")<br />
cboLivre.AddItem ("Jean")<br />
cboLivre.AddItem ("Actes")<br />
cboLivre.AddItem ("Romains")<br />
cboLivre.AddItem ("1 Corinthiens")<br />
cboLivre.AddItem ("2 Corinthiens")<br />
cboLivre.AddItem ("Galates")<br />
cboLivre.AddItem ("Ephésiens")<br />
cboLivre.AddItem ("Philippiens")<br />
cboLivre.AddItem ("Colossiens")<br />
cboLivre.AddItem ("1 Thessaloniciens")<br />
cboLivre.AddItem ("2 Thessaloniciens")<br />
cboLivre.AddItem ("1 Timothée")<br />
cboLivre.AddItem ("2 Timothée")<br />
cboLivre.AddItem ("Tite")<br />
cboLivre.AddItem ("Philémon")<br />
cboLivre.AddItem ("Hébreux")<br />
cboLivre.AddItem ("Jacques")<br />
cboLivre.AddItem ("1 Pierre")
frmBible - 15<br />
cboLivre.AddItem ("2 Pierre")<br />
cboLivre.AddItem ("1 Jean")<br />
cboLivre.AddItem ("2 Jean")<br />
cboLivre.AddItem ("3 Jean")<br />
cboLivre.AddItem ("Jude")<br />
cboLivre.AddItem ("Révélation")<br />
sortievocale.Visible = False<br />
ElseIf cboVersion.Text = "BHS" Or cboVersion.Text = "TM" Then<br />
txtPassage.RightToLeft = True<br />
sortievocale.Visible = False<br />
'<br />
cboLivre.Clear<br />
cboLivre.AddItem ("Genèse")<br />
cboLivre.AddItem ("Exode")<br />
cboLivre.AddItem ("Lévitique")<br />
cboLivre.AddItem ("Nombres")<br />
cboLivre.AddItem ("Deutéronome")<br />
cboLivre.AddItem ("Josué")<br />
cboLivre.AddItem ("Juges")<br />
cboLivre.AddItem ("Ruth")<br />
cboLivre.AddItem ("1 Samuel")<br />
cboLivre.AddItem ("2 Samuel")<br />
cboLivre.AddItem ("1 Rois")<br />
cboLivre.AddItem ("2 Rois")<br />
cboLivre.AddItem ("1 Chroniques")<br />
cboLivre.AddItem ("2 Chroniques")<br />
cboLivre.AddItem ("Esdras")<br />
cboLivre.AddItem ("Néhémie")<br />
cboLivre.AddItem ("Esther")<br />
cboLivre.AddItem ("Job")<br />
cboLivre.AddItem ("Psaumes")<br />
cboLivre.AddItem ("Proverbes")<br />
cboLivre.AddItem ("Ecclésiaste")<br />
cboLivre.AddItem ("Cantique des cantiques")<br />
cboLivre.AddItem ("Esaïe")<br />
cboLivre.AddItem ("Jérémie")<br />
cboLivre.AddItem ("Lamentations")<br />
cboLivre.AddItem ("Ezéchiel")<br />
cboLivre.AddItem ("Daniel")<br />
cboLivre.AddItem ("Osée")<br />
cboLivre.AddItem ("Joël")<br />
cboLivre.AddItem ("Amos")<br />
cboLivre.AddItem ("Abdias")<br />
cboLivre.AddItem ("Jonas")<br />
cboLivre.AddItem ("Michée")<br />
cboLivre.AddItem ("Nahoum")<br />
cboLivre.AddItem ("Habaquq")<br />
cboLivre.AddItem ("Sophonie")<br />
cboLivre.AddItem ("Aggée")<br />
cboLivre.AddItem ("Zacharie")<br />
cboLivre.AddItem ("Malachie")<br />
ElseIf cboVersion.Text = "NT Annoté" Then<br />
cboLivre.Clear<br />
cboLivre.AddItem ("Tite")<br />
cboLivre.AddItem ("Philémon")<br />
cboLivre.AddItem ("Jacques")<br />
cboLivre.AddItem ("1 Jean")<br />
cboLivre.AddItem ("2 Jean")<br />
cboLivre.AddItem ("3 Jean")<br />
cboLivre.AddItem ("Jude")<br />
sortievocale.Visible = False<br />
ElseIf cboVersion.Text = "NA27" Or cboVersion.Text = "WH+" Or cboVersion.Text = "SG" Or cboVersion.<br />
Text = "Tischendorf+" Or cboVersion.Text = "DIAGLOTT" Then<br />
cboLivre.Clear<br />
cboLivre.AddItem ("Matthieu")<br />
cboLivre.AddItem ("Marc")<br />
cboLivre.AddItem ("Luc")<br />
cboLivre.AddItem ("Jean")<br />
cboLivre.AddItem ("Actes")<br />
cboLivre.AddItem ("Romains")<br />
cboLivre.AddItem ("1 Corinthiens")<br />
cboLivre.AddItem ("2 Corinthiens")<br />
cboLivre.AddItem ("Galates")<br />
cboLivre.AddItem ("Ephésiens")
frmBible - 16<br />
cboLivre.AddItem ("Philippiens")<br />
cboLivre.AddItem ("Colossiens")<br />
cboLivre.AddItem ("1 Thessaloniciens")<br />
cboLivre.AddItem ("2 Thessaloniciens")<br />
cboLivre.AddItem ("1 Timothée")<br />
cboLivre.AddItem ("2 Timothée")<br />
cboLivre.AddItem ("Tite")<br />
cboLivre.AddItem ("Philémon")<br />
cboLivre.AddItem ("Hébreux")<br />
cboLivre.AddItem ("Jacques")<br />
cboLivre.AddItem ("1 Pierre")<br />
cboLivre.AddItem ("2 Pierre")<br />
cboLivre.AddItem ("1 Jean")<br />
cboLivre.AddItem ("2 Jean")<br />
cboLivre.AddItem ("3 Jean")<br />
cboLivre.AddItem ("Jude")<br />
cboLivre.AddItem ("Révélation")<br />
sortievocale.Visible = False<br />
ElseIf cboVersion.Text = "The Emphatic Diaglott" Then<br />
cboLivre.Clear<br />
cboLivre.AddItem ("Matthew")<br />
cboLivre.AddItem ("Mark")<br />
cboLivre.AddItem ("Luke")<br />
cboLivre.AddItem ("John")<br />
cboLivre.AddItem ("Acts")<br />
cboLivre.AddItem ("Romans")<br />
cboLivre.AddItem ("1 Corinthians")<br />
cboLivre.AddItem ("2 Corinthians")<br />
cboLivre.AddItem ("Galatians")<br />
cboLivre.AddItem ("Ephesians")<br />
cboLivre.AddItem ("Philippians")<br />
cboLivre.AddItem ("Colossians")<br />
cboLivre.AddItem ("1 Thessalonians")<br />
cboLivre.AddItem ("2 Thessalonians")<br />
cboLivre.AddItem ("1 Timothy")<br />
cboLivre.AddItem ("2 Timothy")<br />
cboLivre.AddItem ("Titus")<br />
cboLivre.AddItem ("Philemon")<br />
cboLivre.AddItem ("Hebrews")<br />
cboLivre.AddItem ("James")<br />
cboLivre.AddItem ("1 Peter")<br />
cboLivre.AddItem ("2 Peter")<br />
cboLivre.AddItem ("1 John")<br />
cboLivre.AddItem ("2 John")<br />
cboLivre.AddItem ("3 John")<br />
cboLivre.AddItem ("Jude")<br />
cboLivre.AddItem ("Revelation")<br />
sortievocale.Visible = False<br />
ElseIf cboVersion.Text = "NA26+" Or cboVersion.Text = "Stephanus" Or cboVersion.Text = "Scrivener"<br />
Then<br />
cboLivre.Clear<br />
cboLivre.AddItem ("Matthieu")<br />
cboLivre.AddItem ("Marc")<br />
cboLivre.AddItem ("Luc")<br />
cboLivre.AddItem ("Jean")<br />
cboLivre.AddItem ("Actes")<br />
cboLivre.AddItem ("Romains")<br />
cboLivre.AddItem ("1 Corinthiens")<br />
cboLivre.AddItem ("2 Corinthiens")<br />
cboLivre.AddItem ("Galates")<br />
cboLivre.AddItem ("Ephésiens")<br />
cboLivre.AddItem ("Philippiens")<br />
cboLivre.AddItem ("Colossiens")<br />
cboLivre.AddItem ("1 Thessaloniciens")<br />
cboLivre.AddItem ("2 Thessaloniciens")<br />
cboLivre.AddItem ("1 Timothée")<br />
cboLivre.AddItem ("2 Timothée")<br />
cboLivre.AddItem ("Tite")<br />
cboLivre.AddItem ("Philémon")<br />
cboLivre.AddItem ("Hébreux")<br />
cboLivre.AddItem ("Jacques")<br />
cboLivre.AddItem ("1 Pierre")<br />
cboLivre.AddItem ("2 Pierre")<br />
cboLivre.AddItem ("1 Jean")<br />
cboLivre.AddItem ("2 Jean")
frmBible - 17<br />
cboLivre.AddItem ("3 Jean")<br />
cboLivre.AddItem ("Jude")<br />
cboLivre.AddItem ("Révélation")<br />
sortievocale.Visible = False<br />
ElseIf cboVersion.Text = "W/H & Strong" Then<br />
cboLivre.Clear<br />
cboLivre.AddItem ("Matthieu")<br />
cboLivre.AddItem ("Marc")<br />
cboLivre.AddItem ("Luc")<br />
cboLivre.AddItem ("Jean")<br />
cboLivre.AddItem ("Actes")<br />
cboLivre.AddItem ("Romains")<br />
cboLivre.AddItem ("1 Corinthiens")<br />
cboLivre.AddItem ("2 Corinthiens")<br />
cboLivre.AddItem ("Galates")<br />
cboLivre.AddItem ("Ephésiens")<br />
cboLivre.AddItem ("Philippiens")<br />
cboLivre.AddItem ("Colossiens")<br />
cboLivre.AddItem ("1 Thessaloniciens")<br />
cboLivre.AddItem ("2 Thessaloniciens")<br />
cboLivre.AddItem ("1 Timothée")<br />
cboLivre.AddItem ("2 Timothée")<br />
cboLivre.AddItem ("Tite")<br />
cboLivre.AddItem ("Philémon")<br />
cboLivre.AddItem ("Hébreux")<br />
cboLivre.AddItem ("Jacques")<br />
cboLivre.AddItem ("1 Pierre")<br />
cboLivre.AddItem ("2 Pierre")<br />
cboLivre.AddItem ("1 Jean")<br />
cboLivre.AddItem ("2 Jean")<br />
cboLivre.AddItem ("3 Jean")<br />
cboLivre.AddItem ("Jude")<br />
cboLivre.AddItem ("Révélation")<br />
'<br />
sortievocale.Visible = False<br />
ElseIf cboVersion.Text = "Vulgate" Then<br />
cboLivre.Clear<br />
cboLivre.AddItem ("Genèse")<br />
cboLivre.AddItem ("Exode")<br />
cboLivre.AddItem ("Lévitique")<br />
cboLivre.AddItem ("Nombres")<br />
cboLivre.AddItem ("Deutéronome")<br />
cboLivre.AddItem ("Josué")<br />
cboLivre.AddItem ("Juges")<br />
cboLivre.AddItem ("Ruth")<br />
cboLivre.AddItem ("1 Samuel")<br />
cboLivre.AddItem ("2 Samuel")<br />
cboLivre.AddItem ("1 Rois")<br />
cboLivre.AddItem ("2 Rois")<br />
cboLivre.AddItem ("1 Chroniques")<br />
cboLivre.AddItem ("2 Chroniques")<br />
cboLivre.AddItem ("Esdras")<br />
cboLivre.AddItem ("Néhémie")<br />
cboLivre.AddItem ("Esther")<br />
cboLivre.AddItem ("Job")<br />
cboLivre.AddItem ("Psaumes")<br />
cboLivre.AddItem ("Proverbes")<br />
cboLivre.AddItem ("Ecclésiaste")<br />
cboLivre.AddItem ("Cantique des cantiques")<br />
cboLivre.AddItem ("Esaïe")<br />
cboLivre.AddItem ("Jérémie")<br />
cboLivre.AddItem ("Lamentations")<br />
cboLivre.AddItem ("Ezéchiel")<br />
cboLivre.AddItem ("Daniel")<br />
cboLivre.AddItem ("Osée")<br />
cboLivre.AddItem ("Joël")<br />
cboLivre.AddItem ("Amos")<br />
cboLivre.AddItem ("Abdias")<br />
cboLivre.AddItem ("Jonas")<br />
cboLivre.AddItem ("Michée")<br />
cboLivre.AddItem ("Nahoum")<br />
cboLivre.AddItem ("Habaquq")<br />
cboLivre.AddItem ("Sophonie")<br />
cboLivre.AddItem ("Aggée")<br />
cboLivre.AddItem ("Zacharie")
frmBible - 18<br />
cboLivre.AddItem ("Malachie")<br />
cboLivre.AddItem ("Matthieu")<br />
cboLivre.AddItem ("Marc")<br />
cboLivre.AddItem ("Luc")<br />
cboLivre.AddItem ("Jean")<br />
cboLivre.AddItem ("Actes")<br />
cboLivre.AddItem ("Romains")<br />
cboLivre.AddItem ("1 Corinthiens")<br />
cboLivre.AddItem ("2 Corinthiens")<br />
cboLivre.AddItem ("Galates")<br />
cboLivre.AddItem ("Ephésiens")<br />
cboLivre.AddItem ("Philippiens")<br />
cboLivre.AddItem ("Colossiens")<br />
cboLivre.AddItem ("1 Thessaloniciens")<br />
cboLivre.AddItem ("2 Thessaloniciens")<br />
cboLivre.AddItem ("1 Timothée")<br />
cboLivre.AddItem ("2 Timothée")<br />
cboLivre.AddItem ("Tite")<br />
cboLivre.AddItem ("Philémon")<br />
cboLivre.AddItem ("Hébreux")<br />
cboLivre.AddItem ("Jacques")<br />
cboLivre.AddItem ("1 Pierre")<br />
cboLivre.AddItem ("2 Pierre")<br />
cboLivre.AddItem ("1 Jean")<br />
cboLivre.AddItem ("2 Jean")<br />
cboLivre.AddItem ("3 Jean")<br />
cboLivre.AddItem ("Jude")<br />
cboLivre.AddItem ("Révélation")<br />
sortievocale.Visible = False<br />
ElseIf cboVersion.Text = "LSG" Or _<br />
cboVersion.Text = "NBS" Or _<br />
cboVersion.Text = "TOB" Or _<br />
cboVersion.Text = "JER" Or _<br />
cboVersion.Text = "Darby" Or _<br />
cboVersion.Text = "BFC" Or _<br />
cboVersion.Text = "NEG+" Or _<br />
cboVersion.Text = "MRT" Or _<br />
cboVersion.Text = "OST" Or _<br />
cboVersion.Text = "CRP" Then<br />
cboLivre.Clear<br />
cboLivre.AddItem ("Genèse")<br />
cboLivre.AddItem ("Exode")<br />
cboLivre.AddItem ("Lévitique")<br />
cboLivre.AddItem ("Nombres")<br />
cboLivre.AddItem ("Deutéronome")<br />
cboLivre.AddItem ("Josué")<br />
cboLivre.AddItem ("Juges")<br />
cboLivre.AddItem ("Ruth")<br />
cboLivre.AddItem ("1 Samuel")<br />
cboLivre.AddItem ("2 Samuel")<br />
cboLivre.AddItem ("1 Rois")<br />
cboLivre.AddItem ("2 Rois")<br />
cboLivre.AddItem ("1 Chroniques")<br />
cboLivre.AddItem ("2 Chroniques")<br />
cboLivre.AddItem ("Esdras")<br />
cboLivre.AddItem ("Néhémie")<br />
cboLivre.AddItem ("Esther")<br />
cboLivre.AddItem ("Job")<br />
cboLivre.AddItem ("Psaumes")<br />
cboLivre.AddItem ("Proverbes")<br />
cboLivre.AddItem ("Ecclésiaste")<br />
cboLivre.AddItem ("Cantique des cantiques")<br />
cboLivre.AddItem ("Esaïe")<br />
cboLivre.AddItem ("Jérémie")<br />
cboLivre.AddItem ("Lamentations")<br />
cboLivre.AddItem ("Ezéchiel")<br />
cboLivre.AddItem ("Daniel")<br />
cboLivre.AddItem ("Osée")<br />
cboLivre.AddItem ("Joël")<br />
cboLivre.AddItem ("Amos")<br />
cboLivre.AddItem ("Abdias")<br />
cboLivre.AddItem ("Jonas")<br />
cboLivre.AddItem ("Michée")<br />
cboLivre.AddItem ("Nahoum")
frmBible - 19<br />
cboLivre.AddItem ("Habaquq")<br />
cboLivre.AddItem ("Sophonie")<br />
cboLivre.AddItem ("Aggée")<br />
cboLivre.AddItem ("Zacharie")<br />
cboLivre.AddItem ("Malachie")<br />
cboLivre.AddItem ("Matthieu")<br />
cboLivre.AddItem ("Marc")<br />
cboLivre.AddItem ("Luc")<br />
cboLivre.AddItem ("Jean")<br />
cboLivre.AddItem ("Actes")<br />
cboLivre.AddItem ("Romains")<br />
cboLivre.AddItem ("1 Corinthiens")<br />
cboLivre.AddItem ("2 Corinthiens")<br />
cboLivre.AddItem ("Galates")<br />
cboLivre.AddItem ("Ephésiens")<br />
cboLivre.AddItem ("Philippiens")<br />
cboLivre.AddItem ("Colossiens")<br />
cboLivre.AddItem ("1 Thessaloniciens")<br />
cboLivre.AddItem ("2 Thessaloniciens")<br />
cboLivre.AddItem ("1 Timothée")<br />
cboLivre.AddItem ("2 Timothée")<br />
cboLivre.AddItem ("Tite")<br />
cboLivre.AddItem ("Philémon")<br />
cboLivre.AddItem ("Hébreux")<br />
cboLivre.AddItem ("Jacques")<br />
cboLivre.AddItem ("1 Pierre")<br />
cboLivre.AddItem ("2 Pierre")<br />
cboLivre.AddItem ("1 Jean")<br />
cboLivre.AddItem ("2 Jean")<br />
cboLivre.AddItem ("3 Jean")<br />
cboLivre.AddItem ("Jude")<br />
cboLivre.AddItem ("Révélation")<br />
sortievocale.Visible = False<br />
End If<br />
End Sub<br />
Public Sub cboVersion_Change()<br />
If txtverset.Text "" Then btnGo_Click<br />
If cboVersion.Text = "LXX" Then<br />
cboLivre.Clear<br />
cboLivre.AddItem ("Genèse")<br />
cboLivre.AddItem ("Exode")<br />
cboLivre.AddItem ("Lévitique")<br />
cboLivre.AddItem ("Nombres")<br />
cboLivre.AddItem ("Deutéronome")<br />
cboLivre.AddItem ("Josué")<br />
cboLivre.AddItem ("Juges")<br />
cboLivre.AddItem ("Ruth")<br />
cboLivre.AddItem ("1 Samuel")<br />
cboLivre.AddItem ("2 Samuel")<br />
cboLivre.AddItem ("1 Rois")<br />
cboLivre.AddItem ("2 Rois")<br />
cboLivre.AddItem ("1 Chroniques")<br />
cboLivre.AddItem ("2 Chroniques")<br />
cboLivre.AddItem ("Esdras")<br />
cboLivre.AddItem ("Néhémie")<br />
cboLivre.AddItem ("Esther")<br />
cboLivre.AddItem ("Judith")<br />
'cboLivre.AddItem ("Tobie")<br />
cboLivre.AddItem ("1 Maccabées")<br />
cboLivre.AddItem ("2 Maccabées")<br />
'cboLivre.AddItem ("3 Maccabées")<br />
'cboLivre.AddItem ("4 Maccabées")<br />
cboLivre.AddItem ("Psaumes")<br />
cboLivre.AddItem ("Odes")<br />
cboLivre.AddItem ("Proverbes")<br />
cboLivre.AddItem ("Ecclésiaste")<br />
cboLivre.AddItem ("Cantique des cantiques")<br />
cboLivre.AddItem ("Job")<br />
'cboLivre.AddItem ("Sagesse")<br />
'cboLivre.AddItem ("Siracides")
frmBible - 20<br />
'cboLivre.AddItem ("Psaumes de Salomon")<br />
cboLivre.AddItem ("Osée")<br />
cboLivre.AddItem ("Amos")<br />
cboLivre.AddItem ("Micah")<br />
cboLivre.AddItem ("Joël")<br />
cboLivre.AddItem ("Abdias")<br />
cboLivre.AddItem ("Jonas")<br />
cboLivre.AddItem ("Nahum")<br />
cboLivre.AddItem ("Habbacuc")<br />
cboLivre.AddItem ("Sophonie")<br />
cboLivre.AddItem ("Aggée")<br />
cboLivre.AddItem ("Zacharie")<br />
cboLivre.AddItem ("Malachie")<br />
cboLivre.AddItem ("Isaïe")<br />
cboLivre.AddItem ("Jérémie")<br />
'cboLivre.AddItem ("Baruch")<br />
cboLivre.AddItem ("Lamentations")<br />
'cboLivre.AddItem ("Epître de Jérémie")<br />
cboLivre.AddItem ("Ezékiel")<br />
'cboLivre.AddItem ("Susanna")<br />
cboLivre.AddItem ("Daniel")<br />
'cboLivre.AddItem ("Bel et Draco")<br />
ElseIf cboVersion.Text = "W/H & Strong" Then<br />
txtPassage.FontSize = "14"<br />
cboLivre.Clear<br />
frmBible.optstrongfr.Visible = False<br />
frmBible.lblstrongfr.Visible = False<br />
cboLivre.AddItem ("Matthieu")<br />
cboLivre.AddItem ("Marc")<br />
cboLivre.AddItem ("Luc")<br />
cboLivre.AddItem ("Jean")<br />
cboLivre.AddItem ("Actes")<br />
cboLivre.AddItem ("Romains")<br />
cboLivre.AddItem ("1 Corinthiens")<br />
cboLivre.AddItem ("2 Corinthiens")<br />
cboLivre.AddItem ("Galates")<br />
cboLivre.AddItem ("Ephésiens")<br />
cboLivre.AddItem ("Philippiens")<br />
cboLivre.AddItem ("Colossiens")<br />
cboLivre.AddItem ("1 Thessaloniciens")<br />
cboLivre.AddItem ("2 Thessaloniciens")<br />
cboLivre.AddItem ("1 Timothée")<br />
cboLivre.AddItem ("2 Timothée")<br />
cboLivre.AddItem ("Tite")<br />
cboLivre.AddItem ("Philémon")<br />
cboLivre.AddItem ("Hébreux")<br />
cboLivre.AddItem ("Jacques")<br />
cboLivre.AddItem ("1 Pierre")<br />
cboLivre.AddItem ("2 Pierre")<br />
cboLivre.AddItem ("1 Jean")<br />
cboLivre.AddItem ("2 Jean")<br />
cboLivre.AddItem ("3 Jean")<br />
cboLivre.AddItem ("Jude")<br />
cboLivre.AddItem ("Révélation")<br />
ElseIf cboVersion.Text = "Vulgate" Then<br />
txtPassage.FontSize = "12"<br />
cboLivre.Clear<br />
frmBible.optstrongfr.Visible = False<br />
frmBible.lblstrongfr.Visible = False<br />
cboLivre.AddItem ("Matthieu")<br />
cboLivre.AddItem ("Marc")<br />
cboLivre.AddItem ("Luc")<br />
cboLivre.AddItem ("Jean")<br />
cboLivre.AddItem ("Actes")<br />
cboLivre.AddItem ("Romains")<br />
cboLivre.AddItem ("1 Corinthiens")<br />
cboLivre.AddItem ("2 Corinthiens")<br />
cboLivre.AddItem ("Galates")<br />
cboLivre.AddItem ("Ephésiens")<br />
cboLivre.AddItem ("Philippiens")<br />
cboLivre.AddItem ("Colossiens")<br />
cboLivre.AddItem ("1 Thessaloniciens")<br />
cboLivre.AddItem ("2 Thessaloniciens")
frmBible - 21<br />
cboLivre.AddItem ("1 Timothée")<br />
cboLivre.AddItem ("2 Timothée")<br />
cboLivre.AddItem ("Tite")<br />
cboLivre.AddItem ("Philémon")<br />
cboLivre.AddItem ("Hébreux")<br />
cboLivre.AddItem ("Jacques")<br />
cboLivre.AddItem ("1 Pierre")<br />
cboLivre.AddItem ("2 Pierre")<br />
cboLivre.AddItem ("1 Jean")<br />
cboLivre.AddItem ("2 Jean")<br />
cboLivre.AddItem ("3 Jean")<br />
cboLivre.AddItem ("Jude")<br />
cboLivre.AddItem ("Révélation")<br />
ElseIf cboVersion.Text = "LSG" Then<br />
cboLivre.Clear<br />
frmBible.optstrongfr.Visible = False<br />
frmBible.lblstrongfr.Visible = False<br />
cboLivre.AddItem ("Genèse")<br />
cboLivre.AddItem ("Exode")<br />
cboLivre.AddItem ("Lévitique")<br />
cboLivre.AddItem ("Nombres")<br />
cboLivre.AddItem ("Deutéronome")<br />
cboLivre.AddItem ("Josué")<br />
cboLivre.AddItem ("Juges")<br />
cboLivre.AddItem ("Ruth")<br />
cboLivre.AddItem ("1 Samuel")<br />
cboLivre.AddItem ("2 Samuel")<br />
cboLivre.AddItem ("1 Rois")<br />
cboLivre.AddItem ("2 Rois")<br />
cboLivre.AddItem ("1 Chroniques")<br />
cboLivre.AddItem ("2 Chroniques")<br />
cboLivre.AddItem ("Esdras")<br />
cboLivre.AddItem ("Néhémie")<br />
cboLivre.AddItem ("Esther")<br />
cboLivre.AddItem ("Job")<br />
cboLivre.AddItem ("Psaumes")<br />
cboLivre.AddItem ("Proverbes")<br />
cboLivre.AddItem ("Ecclésiaste")<br />
cboLivre.AddItem ("Cantique des cantiques")<br />
cboLivre.AddItem ("Esaïe")<br />
cboLivre.AddItem ("Jérémie")<br />
cboLivre.AddItem ("Lamentations")<br />
cboLivre.AddItem ("Ezéchiel")<br />
cboLivre.AddItem ("Daniel")<br />
cboLivre.AddItem ("Osée")<br />
cboLivre.AddItem ("Joël")<br />
cboLivre.AddItem ("Amos")<br />
cboLivre.AddItem ("Abdias")<br />
cboLivre.AddItem ("Jonas")<br />
cboLivre.AddItem ("Michée")<br />
cboLivre.AddItem ("Nahoum")<br />
cboLivre.AddItem ("Habaquq")<br />
cboLivre.AddItem ("Sophonie")<br />
cboLivre.AddItem ("Aggée")<br />
cboLivre.AddItem ("Zacharie")<br />
cboLivre.AddItem ("Malachie")<br />
cboLivre.AddItem ("Matthieu")<br />
cboLivre.AddItem ("Marc")<br />
cboLivre.AddItem ("Luc")<br />
cboLivre.AddItem ("Jean")<br />
cboLivre.AddItem ("Actes")<br />
cboLivre.AddItem ("Romains")<br />
cboLivre.AddItem ("1 Corinthiens")<br />
cboLivre.AddItem ("2 Corinthiens")<br />
cboLivre.AddItem ("Galates")<br />
cboLivre.AddItem ("Ephésiens")<br />
cboLivre.AddItem ("Philippiens")<br />
cboLivre.AddItem ("Colossiens")<br />
cboLivre.AddItem ("1 Thessaloniciens")<br />
cboLivre.AddItem ("2 Thessaloniciens")<br />
cboLivre.AddItem ("1 Timothée")<br />
cboLivre.AddItem ("2 Timothée")<br />
cboLivre.AddItem ("Tite")<br />
cboLivre.AddItem ("Philémon")<br />
cboLivre.AddItem ("Hébreux")
frmBible - 22<br />
cboLivre.AddItem ("Jacques")<br />
cboLivre.AddItem ("1 Pierre")<br />
cboLivre.AddItem ("2 Pierre")<br />
cboLivre.AddItem ("1 Jean")<br />
cboLivre.AddItem ("2 Jean")<br />
cboLivre.AddItem ("3 Jean")<br />
cboLivre.AddItem ("Jude")<br />
cboLivre.AddItem ("Révélation")<br />
End If<br />
End Sub<br />
Public Sub cboVersion_LostFocus()<br />
If cboVersion.Text "DIAGLOTT" Then<br />
frmBible.Caption = "Menu Général - " & cboVersion.Text<br />
Else<br />
frmBible.Caption = "Menu Général - The Emphatic Diaglott, Benjamin Wilson [1942]"<br />
End If<br />
End Sub<br />
Public Sub Command1_Click()<br />
Unload Me<br />
End<br />
End Sub<br />
Public Sub Command2_Click()<br />
Load frmBHSLXX<br />
frmBHSLXX.Show<br />
End Sub<br />
Public Sub fctLexique_Click()<br />
Load frmGF<br />
frmGF.Show<br />
End Sub<br />
Public Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)<br />
If KeyCode = 13 Then btnGo_Click<br />
End Sub<br />
Private Sub m_frmSysTray_SysTrayDoubleClick(ByVal eButton As MouseButtonConstants)<br />
'double clic dans la barre de tache<br />
Me.Show<br />
Me.ZOrder<br />
End Sub<br />
Private Sub m_frmSysTray_SysTrayMouseDown(ByVal eButton As MouseButtonConstants)<br />
' clic droit souris<br />
If (eButton = vbRightButton) Then<br />
m_frmSysTray.ShowMenu<br />
End If<br />
End Sub<br />
Private Sub m_frmSysTray_MenuClick(ByVal lIndex As Long, ByVal sKey As String)<br />
Select Case sKey<br />
Case "open"<br />
Me.Show<br />
Me.ZOrder<br />
If Me.WindowState = 1 Then Me.WindowState = 0<br />
Case "close"<br />
Unload Me<br />
End<br />
Case "about"<br />
frmBible.mnuBP_Click<br />
Case "site"<br />
frmBrowser.cboAddress.Text = "http://www.areopage.net"<br />
End Select<br />
End Sub<br />
Public Sub Form_Load()<br />
Dim ofile%<br />
Dim fichier$, mot$<br />
automatos = False<br />
'fichier = App.Path & "\tools\bp.ini"<br />
'ofile = FreeFile<br />
'Open fichier For Input As #ofile<br />
'Input #ofile, mot<br />
'If mot = "NBS" Then
frmBible - 23<br />
' debloque = True<br />
' Else<br />
' debloque = flase<br />
'End If<br />
'----------------------<br />
'Mise en icône dans la barre des tâches (Merci à vbaccelerator.com !)<br />
If (chkSysTray.Value = Checked) Then<br />
Set m_frmSysTray = New frmSysTray<br />
With m_frmSysTray<br />
.AddMenuItem "&Ouvrir Bible Parser", "open", True<br />
.AddMenuItem "-"<br />
.AddMenuItem "&Site de l'auteur", "site"<br />
.AddMenuItem "&A propos...", "about"<br />
.AddMenuItem "-"<br />
.AddMenuItem "&Quitter", "close"<br />
.ToolTip = "Bible Parser 2006"<br />
End With<br />
m_frmSysTray.IconHandle = LoadPicture(App.Path & "\tools\book02.ico")<br />
Else<br />
Unload m_frmSysTray<br />
Set m_frmSysTray = Nothing<br />
End If<br />
'fin de la mise en barre de tâche<br />
Label4.Caption = "version " & App.Major & "." & App.Minor & "." & App.Revision<br />
lblprecedent.Visible = False<br />
lblsuivant.Visible = False<br />
txtPassage.Font = "Grenet"<br />
'frmBible.txtPassage.RightToLeft = True<br />
'------------------------------------------------------------------------------<br />
cboVersion.AddItem ("BHS+")<br />
cboVersion.AddItem ("BHS")<br />
cboVersion.AddItem ("TM")<br />
'cboVersion.AddItem ("SG")<br />
cboVersion.AddItem ("--")<br />
cboVersion.AddItem ("LXX")<br />
cboVersion.AddItem ("NA26+")<br />
cboVersion.AddItem ("NA27")<br />
cboVersion.AddItem ("WH+")<br />
cboVersion.AddItem ("Tischendorf+")<br />
cboVersion.AddItem ("W/H & Strong")<br />
cboVersion.AddItem ("Stephanus")<br />
cboVersion.AddItem ("Scrivener")<br />
cboVersion.AddItem ("--")<br />
cboVersion.AddItem ("APF-G")<br />
cboVersion.AddItem ("APF-F")<br />
cboVersion.AddItem ("APF-E")<br />
cboVersion.AddItem ("Lightfoot")<br />
cboVersion.AddItem ("ANF")<br />
cboVersion.AddItem ("--")<br />
cboVersion.AddItem ("Vulgate")<br />
cboVersion.AddItem ("--")<br />
cboVersion.AddItem ("LSG")<br />
'cboVersion.AddItem ("LSG+")<br />
cboVersion.AddItem ("LSG & Strong")<br />
cboVersion.AddItem ("TMN")<br />
cboVersion.AddItem ("OST")<br />
cboVersion.AddItem ("CRP")<br />
cboVersion.AddItem ("Darby")<br />
cboVersion.AddItem ("MRT")<br />
'cboVersion.AddItem ("Chouraqui (à faire)")<br />
cboVersion.AddItem ("--")<br />
cboVersion.AddItem ("DIAGLOTT")<br />
cboVersion.AddItem ("ASV")<br />
cboVersion.AddItem ("KJV")<br />
cboVersion.AddItem ("YLT")<br />
cboVersion.AddItem ("WEB")<br />
cboVersion.AddItem ("JPS")<br />
cboVersion.AddItem ("BBE")<br />
cboVersion.AddItem ("DR")<br />
cboVersion.AddItem ("WBST")<br />
cboVersion.AddItem ("--")<br />
cboVersion.AddItem ("Flavius Josèphe")
frmBible - 24<br />
cboVersion.AddItem ("Flavius Josèphe - En")<br />
cboVersion.AddItem ("Flavius Josèphe - Fr")<br />
'cboVersion.AddItem ("Homère")<br />
mnuGingrich.Enabled = False<br />
mnuTWOT.Enabled = False<br />
mnuTDNT.Enabled = False<br />
mnuRosetta.Enabled = False<br />
'mnuAuvray.Enabled = False<br />
'mnuAbel.Enabled = False<br />
cboVersion.Text = "NA27"<br />
cboLivre.Text = "Matthieu"<br />
txtChapitre.Text = "1"<br />
txtverset.Text = "1"<br />
btnGo_Click<br />
frmBible.lblprecedent.Visible = True<br />
frmBible.lblsuivant.Visible = True<br />
frmBible.optstrongfr.Visible = False<br />
frmBible.lblstrongfr.Visible = False<br />
mnuZetoG.Checked = False<br />
'frmBible.PopupMenu mnuRecherche<br />
'<strong>Microsoft</strong> Agent robby<br />
'Agent.Characters.Load "robby", DATAPATH<br />
'Set robby = Agent.Characters("robby")<br />
'robby.LanguageID = &H40C<br />
'Dim c<br />
'c = robby.MoveTo(640, 200)<br />
'robby.Show<br />
'robby.Play ("GetAttention")<br />
'robby.Think ("Bonjour, Je suis Robby. Je vous lirai les passages que vous souhaitez. Pour<br />
cela, cliquez moi, ou pressez F2")<br />
End Sub<br />
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)<br />
Unload m_frmSysTray<br />
Set m_frmSysTray = Nothing<br />
End Sub<br />
Public Sub Form_Resize()<br />
If Me.WindowState = 2 Then Me.WindowState = 0<br />
'If Me.WindowState = 1 Then Me.Hide<br />
On Error GoTo suite<br />
rmBible.Height = 5955<br />
rmBible.Width = 7260<br />
uite:<br />
nd Sub<br />
ublic Sub Label5_Click()<br />
rmBible.txtPassage.FontSize = frmBible.txtPassage.FontSize + 2<br />
nd Sub<br />
ublic Sub chkSysTray_Click()<br />
If (chkSysTray.Value = Checked) Then<br />
Set m_frmSysTray = New frmSysTray<br />
With m_frmSysTray<br />
.AddMenuItem "&Open SysTray Sample", "open", True<br />
.AddMenuItem "-"<br />
.AddMenuItem "&vbAccelerator on the Web", "vbAccelerator"<br />
.AddMenuItem "&About...", "About"<br />
.AddMenuItem "-"<br />
.AddMenuItem "&Close", "close"<br />
.ToolTip = "SysTray Sample!"<br />
End With<br />
m_frmSysTray.IconHandle = LoadPicture(App.Path & "\tools\book02.ico")<br />
Else<br />
Unload m_frmSysTray<br />
Set m_frmSysTray = Nothing<br />
End If<br />
nd Sub<br />
ublic Sub Label6_Click()<br />
rmBible.txtPassage.FontSize = frmBible.txtPassage.FontSize - 2<br />
nd Sub
frmBible - 25<br />
Public Sub lblprecedent_Click()<br />
txtverset.Text = Val(txtverset.Text) - 1<br />
btnGo_Click<br />
End Sub<br />
Public Sub lblsuivant_Click()<br />
txtverset.Text = Val(txtverset.Text) + 1<br />
btnGo_Click<br />
End Sub<br />
Public Sub mnuAcad_Click()<br />
frmBrowser.cboAddress.Text = "http://www.lib.uchicago.edu/efts/ARTFL/projects/dicos/ACADEMIE/CINQUI<br />
EME/search.form.fr.html"<br />
End Sub<br />
Public Sub mnuAcadFr_Click()<br />
Dim mot$<br />
mot = InputBox("Indiquez le mot que vous recherchez" & vbCrLf _<br />
& "Thésor de la langue française - Jean Nicot, 1606" & vbCrLf _<br />
& "Dictionnaire critique de la langue française - Jean-François Féraud, 1787-1788" & vbCrLf _<br />
& "Dictionaire de l'Académie Française, 1e, 4e, 5e, 6e et 8e éditions")<br />
If mot "" Then<br />
Load frmBrowser<br />
frmBrowser.cboAddress.Text = "http://colet.uchicago.edu/cgi-bin/dico1look.pl?strippedhw=" & mot & "<br />
&headword=&docyear=ALL&dicoid=ALL&articletype=1"<br />
Else<br />
mot = MsgBox("Vous n'avez pas saisi de mot à définir !", vbExclamation, "Erreur")<br />
Exit Sub<br />
End If<br />
End Sub<br />
Public Sub mnuAddEnglish_Click()<br />
mnuAddEnglish.Checked = True<br />
mnuRemoveEnglish.Checked = False<br />
cboVersion.Clear<br />
cboVersion.AddItem ("BHS")<br />
cboVersion.AddItem ("LXX")<br />
cboVersion.AddItem ("NA26+")<br />
cboVersion.AddItem ("W/H & Strong")<br />
cboVersion.AddItem ("Stephanus")<br />
cboVersion.AddItem ("Scrivener")<br />
cboVersion.AddItem ("Vulgate")<br />
cboVersion.AddItem ("LSG")<br />
cboVersion.AddItem ("Darby")<br />
cboVersion.AddItem ("NBS")<br />
cboVersion.AddItem ("ASV")<br />
cboVersion.AddItem ("KJV")<br />
cboVersion.AddItem ("YLT")<br />
cboVersion.AddItem ("WEB")<br />
cboVersion.AddItem ("BBE")<br />
cboVersion.AddItem ("DR")<br />
cboVersion.AddItem ("WBST")<br />
cboLivre.Text = "Genèse"<br />
txtChapitre.Text = "1"<br />
txtverset.Text = "1"<br />
cboVersion.Text = "ASV"<br />
btnGo_Click<br />
End Sub<br />
Public Sub mnuAnalyseGrec_Click()<br />
frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/cgi-bin/morphindex?lang=greek"<br />
'<br />
End Sub<br />
Public Sub mnuAnalyseLatin_Click()<br />
frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/cgi-bin/morphindex?lang=latin"<br />
End Sub<br />
Public Sub mnuBaker_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Dictionaries/BakersEvangelicalDictionary/"<br />
End Sub
frmBible - 26<br />
Public Sub mnuA_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuAbel_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\abel\abel.pdf")<br />
frmPDF.Caption = "Abel, Grammaire de grec biblique"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuAG_Click()<br />
Load frmGrammaire<br />
ssaidegr = False<br />
frmGrammaire.Show<br />
End Sub<br />
Public Sub mnuAlpha_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (2)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuAntiquites_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\grk\AGrecques.pdf")<br />
frmPDF.Caption = "P. Paris/G. Roques, Lexique des Antiquités grecques et latines (1909)"<br />
frmPDF.Show<br />
'AGrecques.pdf<br />
End Sub<br />
Private Sub mnuApparatCritique_Click()<br />
livre = cboLivre.Text<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
If livre = "Matthieu" Then<br />
chercher = "47"<br />
ElseIf livre = "Marc" Then<br />
chercher = "48"<br />
ElseIf livre = "Luc" Then<br />
chercher = "49"<br />
ElseIf livre = "Jean" Then<br />
chercher = "50"<br />
ElseIf livre = "Actes" Then<br />
chercher = "51"<br />
ElseIf livre = "Romains" Then<br />
chercher = "52"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "53"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "54"<br />
ElseIf livre = "Galates" Then<br />
chercher = "55"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "56"<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "57"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "58"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "59"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "60"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "61"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "62"
frmBible - 27<br />
ElseIf livre = "Tite" Then<br />
chercher = "63"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "64"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "65"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "66"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "67"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "68"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "69"<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "70"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "71"<br />
ElseIf livre = "Jude" Then<br />
chercher = "72"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "73"<br />
'http://www.laparola.net/greco/index.php?rif1=49&rif2=4%3A15<br />
End If<br />
frmBrowser.cboAddress.Text = "http://www.laparola.net/greco/index.php?rif1=" & chercher & "&rif2="<br />
& chapitre & "%3A" & verset<br />
'http://bible.ovc.edu/tc/lay13act.htm#ac20_28b<br />
End Sub<br />
Private Sub mnuApparatus_Click()<br />
Dim page As Integer<br />
Dim livre As String<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\Apparat.pdf")<br />
frmPDF.Caption = "A Student's Guide to New Testament Textual Variants"<br />
frmPDF.pdfmain.setCurrentPage (0)<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuATSBD_Click()<br />
Load frmDictionnaires<br />
frmDictionnaires.cboEncyclo.Text = "ATSBD"<br />
frmDictionnaires.Show<br />
End Sub<br />
Private Sub mnuAutomatos_Click()<br />
automatos = True<br />
Dim msg$<br />
If cboVersion.Text = "W/H & Strong" Or cboVersion = "BHS+" Or cboVersion = "TM" Then<br />
Load frmAutomatos<br />
frmAutomatos.Show<br />
'frmBible.Hide<br />
Else<br />
msg = MsgBox("Verse Parser n'est disponible pour que le texte grec Westcott/Hort & Strong et hé<br />
breu BHS+ !", vbInformation)<br />
End If<br />
End Sub<br />
Public Sub mnuAuvray_Click()<br />
'frmBible.pdfmain.LoadFile (App.Path & "\ref\auv\auvray.pdf")<br />
'frmBible.pdfmain.setCurrentPage (1)<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\auv\auvray.pdf")<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuBDBA_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\boxus\boxus.pdf")<br />
frmPDF.Caption = "Anne-Marie Boxus, Précis de grammaire grecque"<br />
frmPDF.Show
frmBible - 28<br />
End Sub<br />
Private Sub mnuAyin_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.pdfmain.setCurrentPage (1133)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuBaillyTout_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuBeta_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (146)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuBeth_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.pdfmain.setCurrentPage (146)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuBHSLXX_Click()<br />
Load frmBHSLXX<br />
frmBHSLXX.Show<br />
End Sub<br />
Public Sub mnuBoxus_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\boxus\boxus.pdf")<br />
frmPDF.Caption = "Anne-Marie Boxus, Précis de grammaire grecque"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuBP_Click()<br />
MsgBox "Bible Parser v." & App.Major & "." & App.Minor & "." & App.Revision & ", par Didier Fontain<br />
e" & vbCrLf & vbCrLf & "(c) 2003 - 2006", vbInformation, "A propos..."<br />
End Sub<br />
Public Sub mnuParse_Click()<br />
Load frmParse<br />
frmParse.Show<br />
End Sub<br />
Public Sub mnuBPT_Click()<br />
'frmBrowser.cboAddress.Text = "http://www.unboundbible.org/index.cfm?lang=french"<br />
End Sub<br />
Public Sub mnuBST_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/"<br />
End Sub<br />
Private Sub mnuBurnouf_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\grk\Burnouf.pdf")<br />
frmPDF.Caption = "Burnouf - Méthode pour étudier la langue grecque"<br />
frmPDF.Show<br />
End Sub
frmBible - 29<br />
Public Sub mnuBurton_Click()<br />
frmBrowser.cboAddress.Text = "http://www.dabar.org/BurtonMoodsTenses/Main-Burton.html"<br />
'<br />
End Sub<br />
Public Sub mnuCBC_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Encyclopedias/CondensedBiblicalCyclopedia/<br />
"<br />
End Sub<br />
Public Sub mnuCBC2_Click()<br />
Load frmDictionnaires<br />
frmDictionnaires.Show<br />
frmDictionnaires.optCBC.Value = True<br />
End Sub<br />
Public Sub mnuCE_Click()<br />
frmBrowser.cboAddress.Text = "http://www.newadvent.org/cathen/"<br />
End Sub<br />
Public Sub mnuDarby_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/DarbysSynopsisofNewTestament/<br />
"<br />
End Sub<br />
Public Sub mnuDavid_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/TreasuryofDavid/"<br />
End Sub<br />
Public Sub mnuBurton2_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\burton\burton.pdf")<br />
frmPDF.pdfmain.setCurrentPage (6)<br />
frmPDF.Caption = "Burton - Moods and Tenses of New Testament Greek"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuCAF_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\Dicogr\LMG.pdf")<br />
frmPDF.Caption = "P. Crouzet, P. Andraud, A. Font - Dictionnaire grec-français [Méthode grecque, 19<br />
27]"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuCatenaRC_Click()<br />
livre = frmBible.cboLivre.Text<br />
chapitre = frmBible.txtChapitre.Text<br />
Call eCatena(livre, chapitre)<br />
End Sub<br />
Public Sub mnuCellerier_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\cel\cellerier.pdf")<br />
frmPDF.Caption = "Cellerier - Elements de grammaire hébraïque"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuConybeare_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\cony\conybeare.pdf")<br />
frmPDF.Caption = "Conybeare - A Grammar of Septuagint Greek"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuDalet_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.pdfmain.setCurrentPage (284)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"
frmBible - 30<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuDavis_Click()<br />
frmBrowser.cboAddress.Text = "http://www.earlychristianwritings.com/davis/"<br />
End Sub<br />
Public Sub mnuDelta_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (179)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuDicEaston_Click()<br />
Load frmDictionnaires<br />
frmDictionnaires.Show<br />
frmDictionnaires.optEaston.Value = True<br />
frmDictionnaires.cboEncyclo.Text = "Easton"<br />
End Sub<br />
Public Sub mnuDicoLat_Click()<br />
Load frmDicoLatFr<br />
frmDicoLatFr.Show<br />
End Sub<br />
Private Sub mnuDicoLatC_Click()<br />
mot = Trim(txtPassage.SelText)<br />
Load frmDicoLatFr<br />
frmDicoLatFr.Text1.Text = mot<br />
frmDicoLatFr.btnGo_Click<br />
frmDicoLatFr.Show<br />
End Sub<br />
Private Sub mnuDicoST_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\ST\ST.pdf")<br />
frmPDF.Caption = "Sander et Trenel - Dictionnaire hébreu-français"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuDictionnairesC_Click()<br />
mot = frmBible.txtPassage.SelText<br />
Load frmDictionnaires<br />
frmDictionnaires.txtRecherche = mot<br />
frmDictionnaires.optEaston.Value = True<br />
frmDictionnaires.btnRechercher_Click<br />
frmDictionnaires.Show<br />
End Sub<br />
Public Sub mnuDictSmith_Click()<br />
Load frmDictionnaires<br />
frmDictionnaires.Show<br />
frmDictionnaires.optSmith.Value = True<br />
frmDictionnaires.cboEncyclo.Text = "Smith"<br />
End Sub<br />
Public Sub mnuEastond_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Dictionaries/EastonBibleDictionary/"<br />
End Sub<br />
Public Sub mnuDzeta_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (398)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnueCatena_Click()<br />
frmBrowser.cboAddress.Text = "http://www.earlychristianwritings.com/e-catena/"
frmBible - 31<br />
End Sub<br />
Private Sub mnuEB1911_Click()<br />
frmBrowser.cboAddress.Text = "http://www.1911encyclopedia.org/"<br />
'<br />
End Sub<br />
Private Sub mnuEBCB_Click()<br />
frmBrowser.cboAddress.Text = "http://www.cwru.edu/UL/preserve/Etana/encyl_biblica_a-d/encyl_biblica<br />
_a-d.html"<br />
End Sub<br />
Public Sub mnuEpsilonn_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (239)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuEta_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (398)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuEulalie_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\grk\Eulalie.pdf")<br />
frmPDF.Caption = "S. Reinach - Eulalie, le grec sans larmes"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuEusebe_Click()<br />
frmBrowser.cboAddress.Text = "http://remacle.org/bloodwolf/historiens/eusebe/index.htm"<br />
'<br />
End Sub<br />
Public Sub mnuFisher_Click()<br />
frmBrowser.cboAddress.Text = "http://www-users.cs.york.ac.uk/~fisher/gnt/chapters.html"<br />
End Sub<br />
Public Sub mnuFrenchOnly_Click()<br />
cboLivre.Text = "Genèse"<br />
txtChapitre.Text = "1"<br />
txtverset.Text = "1"<br />
cboVersion.Clear<br />
cboVersion.AddItem ("LSG")<br />
cboVersion.AddItem ("Darby")<br />
cboVersion.AddItem ("NBS")<br />
cboVersion.Text = "NBS"<br />
btnGo_Click<br />
End Sub<br />
Public Sub mnuFJ_Click()<br />
frmBrowser.cboAddress.Text = "http://remacle.org/bloodwolf/historiens/Flajose/intro.htm"<br />
'<br />
End Sub<br />
Public Sub mnuGeneva_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/GenevaStudyBible/"<br />
End Sub<br />
Public Sub mnuGill_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/GillsExpositionoftheBible/"<br />
End Sub
frmBible - 32<br />
Public Sub mnuGospel_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/TheFourfoldGospel/"<br />
End Sub<br />
Public Sub mnuFormeExacte_Click()<br />
Dim mot$<br />
mot = Trim(frmBible.txtPassage.SelText)<br />
Load frmZetoGraphe<br />
If cboVersion.Text = "NA27" Then<br />
frmZetoGraphe.cboVersion.Text = "NA27"<br />
ElseIf cboVersion.Text = "LXX" Then<br />
frmZetoGraphe.cboVersion.Text = "LXX"<br />
ElseIf cboVersion.Text = "APF-G" Then<br />
frmZetoGraphe.cboVersion.Text = "APF-G"<br />
End If<br />
frmZetoGraphe.txtRecherche.Text = mot<br />
frmZetoGraphe.Show<br />
'RechercheLemmatiqueNA27(mot)<br />
End Sub<br />
Public Sub mnuGamma_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (163)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuGesenius_Click()<br />
'Load frmReferences<br />
'frmReferences. Show 1<br />
'frmReferences.Image1.Picture = LoadPicture(App.Path & "\ref\ges\ges_014_0001.jpg")<br />
'frmReferences.cboRef.Text = "Gesenius's Hebrew Grammar"<br />
'frmReferences.txtPage.Text = "14"<br />
'frmReferences.txtRefPage.Text = "ges_014_0001.jpg"<br />
'frmReferences.txtNombrePage.Text = "582"<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\ges\gesenius.pdf")<br />
frmPDF.Caption = "Gesenius's Hebrew Grammar"<br />
frmPDF.Show<br />
'pdfmain.setCurrentPage 0<br />
End Sub<br />
Private Sub mnuGeseniusLexicon_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\ges\GeseniusLexicon.pdf")<br />
frmPDF.Caption = "Gesenius - Lexicon manuale Hebraicum et Chaldaicum in Veteris Testamentis Lib<br />
ros"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuGesHC_Click()<br />
mot = frmBible.txtPassage.SelText<br />
Call LireStrongC(mot)<br />
If Mid(mot, 1, 1) "0" Then<br />
mot = "0" & mot<br />
End If<br />
Load frmBrowser<br />
frmBrowser.cboAddress.Text = "http://www.blueletterbible.org/cgi-bin/words.pl?Strong=" & mot & "&pa<br />
ge=1&flag_full=1"<br />
frmBrowser.Show<br />
End Sub<br />
Public Sub mnuGG_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\gg\GG.pdf")<br />
frmPDF.Caption = "Wallace / Mounce Greek Grammar [Compilation]"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuGildersleeve_Click()<br />
frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04
frmBible - 33<br />
.0074"<br />
End Sub<br />
Public Sub mnuGim_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.pdfmain.setCurrentPage (230)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuGingrich_Click()<br />
Dim adresse$<br />
adresse = App.Path & "\ref\a&g\main.htm"<br />
frmBrowser.cboAddress.Text = adresse<br />
frmBrowser.Show<br />
End Sub<br />
Public Sub mnuGoodwinG_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\goodw\GoodwinG.pdf")<br />
frmPDF.Caption = "Goodwin - Greek Grammar"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuGoodwinS_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\goodw\GoodwinS.pdf")<br />
frmPDF.Caption = "Goodwin - Syntax of the Moods and Tenses of the Greek Verb"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnugrechebreu_Click()<br />
Load frmGrecHebreu<br />
frmGrecHebreu.Show<br />
End Sub<br />
Public Sub mnuGreek_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Lexicons/Greek/"<br />
End Sub<br />
Public Sub mnuGreekOnly_Click()<br />
cboVersion.Clear<br />
cboVersion.AddItem ("LXX")<br />
cboVersion.AddItem ("NA26+")<br />
cboVersion.AddItem ("W/H & Strong")<br />
cboVersion.AddItem ("Stephanus")<br />
cboVersion.AddItem ("Scrivener")<br />
cboVersion.Text = "NA26+"<br />
cboVersion.Text = "NA27"<br />
cboLivre.Text = "Matthieu"<br />
txtChapitre.Text = "1"<br />
txtverset.Text = "1"<br />
btnGo_Click<br />
End Sub<br />
Public Sub mnuGrekkbible_Click()<br />
frmBrowser.cboAddress.Text = "http://www.greekbible.com/"<br />
End Sub<br />
Public Sub mnuHebrewOnly_Click()<br />
cboLivre.Text = "Genèse"<br />
txtChapitre.Text = "1"<br />
txtverset.Text = "1"<br />
cboVersion.Clear<br />
cboVersion.AddItem ("BHS")<br />
cboVersion.Text = "BHS"<br />
btnGo_Click<br />
End Sub
frmBible - 34<br />
Public Sub mnuHe_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.pdfmain.setCurrentPage (319)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuHebrewChaldee_Click()<br />
Dim adresse$<br />
adresse = "http://books.google.fr/books?ie=UTF-8&id=dxCBQLh9-9kC&pg=PP3&printsec=2&lpg=PP3"<br />
frmBrowser.cboAddress.Text = adresse<br />
frmBrowser.Show<br />
End Sub<br />
Public Sub mnuHeth_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.pdfmain.setCurrentPage (392)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuHitch_Click()<br />
Load frmDictionnaires<br />
frmDictionnaires.Show<br />
frmDictionnaires.cboEncyclo.Text = "Hitchcock"<br />
End Sub<br />
Private Sub mnuHolman_Click()<br />
frmBrowser.cboAddress.Text = "http://www.studylight.org/dic/hbd/"<br />
'<br />
End Sub<br />
Public Sub mnuIBE_Click()<br />
Load frmDictionnaires<br />
frmDictionnaires.Show<br />
frmDictionnaires.opt<strong>Encyclopaedia</strong>.Value = True<br />
frmDictionnaires.cboEncyclo.Text = "ISBE"<br />
End Sub<br />
Public Sub mnuJER_Click()<br />
frmBrowser.cboAddress.Text = "http://www.tradere.com/biblio/bdj/index.htm"<br />
End Sub<br />
Public Sub mnuJFB_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/JamiesonFaussetBrown/"<br />
End Sub<br />
Public Sub mnuJVI_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Dictionaries/JVIProphecyDictionary/"<br />
End Sub<br />
Public Sub mnuKJVDic_Click()<br />
Load frmDictionnaires<br />
frmDictionnaires.Show<br />
frmDictionnaires.optKJVD.Value = True<br />
End Sub<br />
Public Sub mnuKof_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.pdfmain.setCurrentPage (639)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuIota_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (429)
frmBible - 35<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuJastrow_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\Dicoheb\Jastrow.pdf")<br />
frmPDF.Caption = "Marcus Jastrow - A Dictionary of the Targumim, the Talmud Babli and Yerushalm<br />
i and the Midrashic Literature"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuJE_Click()<br />
frmBrowser.cboAddress.Text = "http://www.jewishencyclopedia.com/index.jsp"<br />
End Sub<br />
Private Sub mnuJO_Click()<br />
mot = Trim(frmBible.txtPassage.SelText)<br />
frmBrowser.cboAddress.Text = "http://collatinus.fltr.ucl.ac.be/jcoll.php?forme=m:" & mot<br />
frmBrowser.Caption = "Analyse Collatinus - Jeanneau"<br />
' *** autres possibilités<br />
' dictionnaire latinogallicum : http://colet.uchicago.edu/cgi-bin/search2e?headword=" & Mot & "&wor<br />
d=" & Mot & "&CONJUNCT=PHRASE&DISTANCE=3&PROXY=or+fewer&OUTPUT=conc&SYSTEM_DIR=%2Fprojects%2Fartflb<br />
%2Fdatabases%2Fartfl%2Fdicos%2Festienne%2Ffulltext%2FIMAGE%2F<br />
End Sub<br />
Private Sub mnuJRCox_Click()<br />
frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04<br />
.0052"<br />
End Sub<br />
Public Sub mnuKappa_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (445)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuKhi_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (949)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuLambda_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (523)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuLamed_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.pdfmain.setCurrentPage (710)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuLemme_Click()<br />
Dim mot$<br />
mot = frmBible.txtPassage.SelText<br />
If cboVersion.Text = "NA27" Then<br />
RechercheLemmatiqueNA27 (mot)<br />
ElseIf cboVersion.Text = "LXX" Then
frmBible - 36<br />
RechercheLemmatiqueLXX (mot)<br />
End If<br />
End Sub<br />
Public Sub mnuLexHG_Click()<br />
Load frmHebreuGrec<br />
frmHebreuGrec.Show<br />
End Sub<br />
Private Sub mnuLexiConc_Click()<br />
mot = frmBible.txtPassage.SelText<br />
Load frmBrowser<br />
frmBrowser.cboAddress.Text = "http://cf.blueletterbible.org/search/lexiconc.cfm?ss=" & mot & "&sear<br />
chtype=any"<br />
frmBrowser.Show<br />
End Sub<br />
Public Sub mnuLexiqueHebFr_Click()<br />
Load frmDicoHebreu<br />
frmDicoHebreu.Timer1.Enabled = False<br />
frmDicoHebreu.Show<br />
End Sub<br />
Public Sub mnuLexiqueNT_Click()<br />
Load frmGF<br />
frmGF.Show<br />
End Sub<br />
Public Sub mnuLSG_Click()<br />
frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/cgi-bin/resolveform"<br />
End Sub<br />
Public Sub mnuMH_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/MatthewHenryComplete/"<br />
End Sub<br />
Public Sub mnuMonde_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/PeoplesNewTestament/"<br />
End Sub<br />
Public Sub mnuMotsGrecs_Click()<br />
Dim numstrong$, msg$<br />
msg = InputBox("Entrez le numéro")<br />
Load frmBrowser<br />
frmBrowser.Show<br />
frmBrowser.cboAddress = "http://www.blueletterbible.org/cgi-bin/words.pl?Strong=" & msg & "&page=1&<br />
flag_full=1"<br />
End Sub<br />
Public Sub mnuNave_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Concordances/NavesTopicalBible/"<br />
End Sub<br />
Public Sub mnuNTP_Click()<br />
frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.<br />
01.0155"<br />
End Sub<br />
Public Sub mnuOlive_Click()<br />
frmBrowser.cboAddress.Text = "http://www.olivetree.com/cgi-bin/EnglishBible.htm"<br />
End Sub<br />
Public Sub mnuOT_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Lexicons/Hebrew/"<br />
End Sub<br />
Private Sub mnuLG_Click()
frmBible - 37<br />
mot = Trim(frmBible.txtPassage.SelText)<br />
frmBrowser.cboAddress.Text = "http://colet.uchicago.edu/cgi-bin/Estienne.sh?WORD=" & mot<br />
frmBrowser.Caption = "Robert Estienne - Dictionarium Latinogallicum"<br />
End Sub<br />
Private Sub mnuLouwNida_Click()<br />
Dim adresse$<br />
adresse = "http://www.laparola.net/greco/louwnida.php"<br />
frmBrowser.cboAddress.Text = adresse<br />
frmBrowser.Show<br />
End Sub<br />
Private Sub mnuLS_Click()<br />
mot = frmBible.txtPassage.SelText<br />
frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04<br />
.0059:entry=" & mot<br />
'<br />
End Sub<br />
Private Sub mnuMem_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.pdfmain.setCurrentPage (762)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuMu_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (544)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuNu_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (584)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuNun_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.pdfmain.setCurrentPage (996)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuNuttall_Click()<br />
Load frmDictionnaires<br />
frmDictionnaires.cboEncyclo.Text = "Nuttall"<br />
frmDictionnaires.Show<br />
End Sub<br />
Public Sub mnuOLBheb_Click()<br />
'Load frmPDF<br />
'frmPDF.pdfmain.LoadFile (App.Path & "\ref\OLB.pdf")<br />
'frmPDF.Caption = "Online Bible Hebrew-English Lexicon [Enhanced Strong]"<br />
'frmPDF.Show<br />
End Sub<br />
Public Sub mnuOmega_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (977)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show
frmBible - 38<br />
End Sub<br />
Public Sub mnuOmicronn_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (600)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuPé_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.pdfmain.setCurrentPage (1265)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuPerseusVulgate_Click()<br />
mot = Trim(frmBible.txtPassage.SelText)<br />
frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/hopper/morph.jsp?l=" & mot & "&la=la"<br />
End Sub<br />
Public Sub mnuPhi_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (922)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuPi_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (642)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuPsi_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (972)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuQof_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.pdfmain.setCurrentPage (1378)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuQuit_Click()<br />
Unload m_frmSysTray<br />
Set m_frmSysTray = Nothing<br />
End<br />
End Sub<br />
Public Sub mnuRemoveEnglish_Click()<br />
mnuAddEnglish.Checked = False<br />
mnuRemoveEnglish.Checked = True<br />
cboVersion.Clear<br />
cboVersion.AddItem ("BHS")<br />
cboVersion.AddItem ("LXX")
frmBible - 39<br />
cboVersion.AddItem ("NA26+")<br />
cboVersion.AddItem ("W/H & Strong")<br />
cboVersion.AddItem ("Stephanus")<br />
cboVersion.AddItem ("Scrivener")<br />
cboVersion.AddItem ("Vulgate")<br />
cboVersion.AddItem ("LSG")<br />
cboVersion.AddItem ("Darby")<br />
cboVersion.AddItem ("NBS")<br />
cboLivre.Text = "Genèse"<br />
txtChapitre.Text = "1"<br />
txtverset.Text = "1"<br />
cboVersion.Text = "BHS"<br />
End Sub<br />
Public Sub mnuRJ_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Dictionaries/KingJamesDictionary/"<br />
End Sub<br />
Private Sub mnuRech_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.pdfmain.setCurrentPage (1436)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuRecherche_Click()<br />
'Dim i<br />
'i = toto<br />
'msg toto<br />
End Sub<br />
Private Sub mnuRechercheMorphoC_Click()<br />
Dim mot$, vientde$, code$<br />
mot = Trim(txtPassage.SelText)<br />
Call MorphContextuelle(mot, code, vientde)<br />
Unload frmAnalyseMorphologique<br />
Load frmAssistant<br />
frmAssistant.txtMot.Text = mot<br />
frmAssistant.txtcode.Text = code<br />
frmAssistant.txtRecherche.Text = vientde<br />
'frmAssistant.Command2_Click<br />
recherche = vientde & " (" & code & ")"<br />
nveaucode = code<br />
Call RechercheMorphologique(recherche, nveaucode)<br />
frmAssistant.lstPassages.Text = frmAssistant.lstPassages.List(0)<br />
frmAssistant.lstPassages_Click<br />
frmAssistant.Show<br />
End Sub<br />
Public Sub mnuRho_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (773)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuRosetta_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\Dicoheb\ROS.pdf")<br />
frmPDF.pdfmain.setCurrentPage (1)<br />
frmPDF.Caption = "The Rosetta Stone Hebrew Lexicon"<br />
frmPDF.Show<br />
End Sub<br />
'MsgBox clique<br />
'End Sub<br />
Public Sub mnuRWP_Click()
frmBible - 40<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/RobertsonsWordPictures/"<br />
'<br />
End Sub<br />
Public Sub mnuRWP2_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/RobertsonsWordPictures/"<br />
End Sub<br />
Public Sub mnuScofield_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/ScofieldReferenceNotes/"<br />
End Sub<br />
Public Sub mnuSDd_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Dictionaries/SmithsBibleDictionary/"<br />
End Sub<br />
Private Sub mnuSamek_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.pdfmain.setCurrentPage (1092)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuSE_Click()<br />
frmBrowser.cboAddress.Text = "http://www.ccel.org/s/schaff/encyc/encyc13/htm/TOC.htm"<br />
'New Schaff-Herzog Encyclopedia of Religious Knowledge<br />
End Sub<br />
Public Sub mnuSigma_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (780)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuSin_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.pdfmain.setCurrentPage (1506)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuSmithGG_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\smith\smith.pdf")<br />
frmPDF.Caption = "Smith - Greek Grammar"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub MnuSortieVocale_Click()<br />
' ACCENT français ou anglais ?<br />
'If frmBible.cboVersion.Text = "LSG" Or _<br />
'frmBible.cboVersion.Text = "NBS" Or _<br />
'frmBible.cboVersion.Text = "Darby" Then<br />
'robby.LanguageID = &H40C<br />
'ElseIf frmBible.cboVersion.Text = "ASV" Or _<br />
'frmBible.cboVersion.Text = "KJV" Or _<br />
'frmBible.cboVersion.Text = "YLT" Or _<br />
'frmBible.cboVersion.Text = "WEB" Or _<br />
'frmBible.cboVersion.Text = "BBE" Or _<br />
'frmBible.cboVersion.Text = "DR" Or _<br />
'frmBible.cboVersion.Text = "WBST" Then<br />
'robby.LanguageID = &H809<br />
'ElseIf frmBible.cboVersion.Text = "Vulgate" Then<br />
' robby.Think ("Désolé, je ne parle par latin !")<br />
' Exit Sub<br />
'Else<br />
' robby.Think ("Désolé, je ne parle pas grec !")
frmBible - 41<br />
' Exit Sub<br />
'End If<br />
' prononciation & gestion erreur<br />
'If frmBible.txtPassage.Text "" Then<br />
'robby.Play ("Explain")<br />
'robby.Speak frmBible.txtPassage.Text<br />
'Else<br />
'robby.Play ("Sad")<br />
'robby.Think ("Il n'y a rien à prononcer !")<br />
'End If<br />
End Sub<br />
Public Sub mnuStrong_Click()<br />
chkstrong.Value = True<br />
End Sub<br />
Public Sub mnuThayer_Click()<br />
chkthayer.Value = False<br />
End Sub<br />
Public Sub mnuTLF_Click()<br />
frmBrowser.cboAddress.Text = "http://www.lib.uchicago.edu/efts/ARTFL/projects/dicos/TLF-NICOT/searc<br />
h.form.html"<br />
End Sub<br />
Public Sub mnuTOB_Click()<br />
frmBrowser.cboAddress.Text = "http://www.tradere.com/biblio/tob/index.htm"<br />
End Sub<br />
Public Sub mnuTorrey_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Concordances/TorreysTopicalTextbook/"<br />
End Sub<br />
Public Sub mnuTSK_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Concordances/TreasuryofScriptureKnowledge/<br />
"<br />
End Sub<br />
Public Sub mnuUnbound_Click()<br />
'frmBrowser.cboAddress.Text = "http://www.unboundbible.org/greek_search/index.cfm?lang=french"<br />
End Sub<br />
Private Sub mnuSouter_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\Dicogr\Souter.pdf")<br />
frmPDF.Caption = "A. Souter - A Pocket Lexicon to the Greek New Testament"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuStrongD_Click()<br />
mot = frmBible.txtPassage.SelText<br />
Call LireStrongNEG(mot)<br />
End Sub<br />
Public Sub mnuTau_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (852)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuTaw_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")
frmBible - 42<br />
frmPDF.pdfmain.setCurrentPage (1656)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuTDNT_Click()<br />
Dim adresse$<br />
adresse = App.Path & "\ref\kittel\main.htm"<br />
frmBrowser.cboAddress.Text = adresse<br />
frmBrowser.Show<br />
End Sub<br />
Private Sub mnuThayerC_Click()<br />
mot = frmBible.txtPassage.SelText<br />
Call LireStrongC(mot)<br />
If Mid(mot, 1, 1) = "0" Then<br />
mot = Mid(mot, 2, Len(mot))<br />
End If<br />
Load frmBrowser<br />
frmBrowser.cboAddress.Text = "http://www.blueletterbible.org/cgi-bin/words.pl?Strong=" & mot & "&pa<br />
ge=1&flag_full=1"<br />
'http://www.blueletterbible.org/cgi-bin/words.pl?Strong=4228&page=1&flag_full=1<br />
frmBrowser.Show<br />
End Sub<br />
Public Sub mnuThet_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.pdfmain.setCurrentPage (512)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuTheta_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (411)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuTMN_Click()<br />
frmBrowser.cboAddress.Text = "http://www.areopage.net/traducnt.htm#versions"<br />
End Sub<br />
Private Sub mnuToto_Click()<br />
frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04<br />
.0052"<br />
End Sub<br />
Private Sub mnuTsadé_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.pdfmain.setCurrentPage (1326)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuTWOT_Click()<br />
Dim adresse$<br />
adresse = App.Path & "\ref\twot\main.htm"<br />
frmBrowser.cboAddress.Text = adresse<br />
frmBrowser.Show<br />
End Sub<br />
Private Sub mnuUnlock_Click()<br />
Dim pw$<br />
Dim fichier$<br />
Dim ofile%, msg$
frmBible - 43<br />
ofile = FreeFile<br />
fichier = App.Path & "\tools\bp.ini"<br />
pw = InputBox("Saisissez le mot de passe (respecter la casse)." & vbCrLf & "Nota: pour obtenir le m<br />
ot de passe, contact: didier@areopage.net [objet : PW-BP]." & vbCrLf & "En envoyant un mail blanc (<br />
ou avec un message sympa!) avec cet objet, vous certifiez posséder les versions papier des document<br />
s suivants : TWOT, TDNT, NEG, NBS, JER, TOB, BFC, NET, Abel, Auvray, et considérez les modules du p<br />
résent logiciel comme vos copies de sauvegarde personnelles (reproduction et diffusion interdites).<br />
", "Débloquer les Bibles...")<br />
If pw = "nbs" Then<br />
debloque = True<br />
Open fichier For Output As #ofile<br />
Print #ofile, "NBS"<br />
Close<br />
msg = MsgBox("Débloquage effectué !", vbInformation)<br />
mnuGingrich.Enabled = True<br />
mnuTWOT.Enabled = True<br />
mnuTDNT.Enabled = True<br />
mnuRosetta.Enabled = True<br />
mnuAuvray.Enabled = True<br />
mnuAbel.Enabled = True<br />
cboVersion.Clear<br />
cboVersion.AddItem ("BHS")<br />
'cboVersion.AddItem ("WTM")<br />
cboVersion.AddItem ("TM")<br />
cboVersion.AddItem ("SG")<br />
cboVersion.AddItem ("--")<br />
cboVersion.AddItem ("LXX")<br />
cboVersion.AddItem ("NA26+")<br />
cboVersion.AddItem ("NA27")<br />
cboVersion.AddItem ("WH+")<br />
cboVersion.AddItem ("W/H & Strong")<br />
cboVersion.AddItem ("Stephanus")<br />
cboVersion.AddItem ("Scrivener")<br />
cboVersion.AddItem ("--")<br />
cboVersion.AddItem ("APF-G")<br />
cboVersion.AddItem ("APF-F")<br />
cboVersion.AddItem ("--")<br />
cboVersion.AddItem ("Vulgate")<br />
cboVersion.AddItem ("--")<br />
cboVersion.AddItem ("TMN")<br />
cboVersion.AddItem ("LSG")<br />
cboVersion.AddItem ("FILLION")<br />
cboVersion.AddItem ("JER")<br />
cboVersion.AddItem ("NEG+")<br />
cboVersion.AddItem ("LSG+")<br />
cboVersion.AddItem ("CRP")<br />
cboVersion.AddItem ("Darby")<br />
cboVersion.AddItem ("NBS")<br />
cboVersion.AddItem ("TOB")<br />
cboVersion.AddItem ("BFC")<br />
cboVersion.AddItem ("MRT")<br />
'cboVersion.AddItem ("Chouraqui (à faire)")<br />
cboVersion.AddItem ("OST")<br />
cboVersion.AddItem ("--")<br />
cboVersion.AddItem ("NET")<br />
cboVersion.AddItem ("DIAGLOTT")<br />
cboVersion.AddItem ("ASV")<br />
cboVersion.AddItem ("KJV")<br />
cboVersion.AddItem ("YLT")<br />
cboVersion.AddItem ("WEB")<br />
cboVersion.AddItem ("BBE")<br />
cboVersion.AddItem ("JPS")<br />
End If<br />
End Sub<br />
cboVersion.AddItem ("DR")<br />
cboVersion.AddItem ("WBST")<br />
Public Sub mnuUpsilonn_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (892)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub
frmBible - 44<br />
Private Sub mnuVincentNT_Click()<br />
frmBrowser.cboAddress.Text = "http://www.godrules.net/library/vincent/vincent.htm"<br />
End Sub<br />
Public Sub mnuVine_Click()<br />
frmBrowser.cboAddress.Text = "http://www.antioch.com.sg/bible/vines/"<br />
End Sub<br />
Public Sub mnuVocMacchi_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\Dicoheb\vocheb.pdf")<br />
frmPDF.Caption = "Macchi - Vocabulaire d'hébreu biblique [termes apparaissant plus de 70 fois]"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuVoltaire_Click()<br />
frmBrowser.cboAddress.Text = "http://www.fh-augsburg.de/%7Eharsch/gallica/Chronologie/18siecle/Volt<br />
aire/vol_dp00.html"<br />
End Sub<br />
Private Sub mnuVulZG_Click()<br />
mot = Trim(txtPassage.SelText)<br />
Load frmZetoGraphe<br />
frmZetoGraphe.txtRecherche.Text = mot<br />
frmZetoGraphe.cboVersion.Text = "Vulgate"<br />
frmZetoGraphe.btnRechercher_Click<br />
End Sub<br />
Private Sub mnuWace_Click()<br />
Load frmDictionnaires<br />
frmDictionnaires.Show<br />
frmDictionnaires.cboEncyclo.Text = "Wace"<br />
End Sub<br />
Public Sub mnuWaw_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.pdfmain.setCurrentPage (353)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuwb_Click()<br />
frmBrowser.cboAddress.Text = "http://www.areopage.net/bp.html"<br />
End Sub<br />
Public Sub mnuWesley_Click()<br />
frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/WesleysExplanatoryNotes/"<br />
End Sub<br />
Public Sub mnuWordSearch_Click()<br />
Dim msg<br />
msg = InputBox("Saisissez un mot (Nave's Topical, Torrey's Topical, Vine's Dictionary, Easton's Dic<br />
tionary, Subject Guide, Hitchcock's Dictionary)", "Blue Letter Bible")<br />
If msg "" Then<br />
Load frmBrowser<br />
frmBrowser.cboAddress.Text = "http://www.blueletterbible.org/cgi-bin/detailed_words.pl?word=" &<br />
msg<br />
frmBrowser.Show<br />
End If<br />
End Sub<br />
Public Sub mnuWebster_Click()<br />
Load frmDictionnaires<br />
frmDictionnaires.cboEncyclo.Text = "Webster"<br />
frmDictionnaires.Show<br />
End Sub<br />
Public Sub mnuWilson_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\wilson\wilson.pdf")
frmBible - 45<br />
frmPDF.Caption = "Wilson -Analytical Hebrew and Chaldee Lexicon (Paradigms)"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub mnuWiner_Click()<br />
frmBrowser.cboAddress.Text = "http://books.google.com/books?ie=UTF-8&hl=fr&id=872gnvIsAiMC&pg=PP7&p<br />
rintsec=2&lpg=PP7"<br />
End Sub<br />
Public Sub mnuXi_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")<br />
frmPDF.pdfmain.setCurrentPage (597)<br />
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuYod_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.pdfmain.setCurrentPage (531)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuZa_Click()<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")<br />
frmPDF.pdfmain.setCurrentPage (359)<br />
frmPDF.Caption = "The Abridged Brown-Driver-Briggs"<br />
frmPDF.Show<br />
End Sub<br />
Public Sub mnuZetoG_Click()<br />
Load frmZetoGraphe<br />
frmZetoGraphe.Show<br />
mnuZetoG.Checked = True<br />
'zetographedirect = True<br />
End Sub<br />
Private Sub mnuZGC_Click()<br />
mot = frmBible.txtPassage.SelText<br />
Load frmZetoGraphe<br />
frmZetoGraphe.txtRecherche.Text = mot<br />
frmZetoGraphe.cboVersion.Text = cboVersion.Text<br />
frmZetoGraphe.Show<br />
End Sub<br />
Public Sub sortievocale_Click()<br />
MnuSortieVocale_Click<br />
End Sub<br />
Public Sub Timer1_Timer()<br />
If cboVersion.Text = "W/H & Strong" Then<br />
chkthayer.Visible = False<br />
lblthayer.Visible = False<br />
chkstrong.Visible = False<br />
lblStrong.Visible = False<br />
frmBible.optstrongfr.Visible = False<br />
frmBible.lblstrongfr.Visible = False<br />
End If<br />
cboVersion.AddItem ("NT grec ancien")<br />
cboVersion.AddItem ("W/H & Strong")<br />
cboVersion.AddItem ("LXX")<br />
cboVersion.AddItem ("Vulgate")<br />
cboVersion.AddItem ("LSG")<br />
cboLivre.AddItem ("Matthieu")<br />
cboLivre.AddItem ("Marc")<br />
cboLivre.AddItem ("Luc")<br />
cboLivre.AddItem ("Jean")<br />
cboLivre.AddItem ("Actes")<br />
cboLivre.AddItem ("Romains")
frmBible - 46<br />
cboLivre.AddItem ("1 Corinthiens")<br />
cboLivre.AddItem ("2 Corinthiens")<br />
cboLivre.AddItem ("Galates")<br />
cboLivre.AddItem ("Ephésiens")<br />
cboLivre.AddItem ("Philippiens")<br />
cboLivre.AddItem ("Colossiens")<br />
cboLivre.AddItem ("1 Thessaloniciens")<br />
cboLivre.AddItem ("2 Thessaloniciens")<br />
cboLivre.AddItem ("1 Timothée")<br />
cboLivre.AddItem ("2 Timothée")<br />
cboLivre.AddItem ("Tite")<br />
cboLivre.AddItem ("Philémon")<br />
cboLivre.AddItem ("Hébreux")<br />
cboLivre.AddItem ("Jacques")<br />
cboLivre.AddItem ("1 Pierre")<br />
cboLivre.AddItem ("2 Pierre")<br />
cboLivre.AddItem ("1 Jean")<br />
cboLivre.AddItem ("2 Jean")<br />
cboLivre.AddItem ("3 Jean")<br />
cboLivre.AddItem ("Jude")<br />
cboLivre.AddItem ("Révélation")<br />
End Sub<br />
Public Sub Timer2_Timer()<br />
i = 1<br />
If i < 2 Then btnGo_Click<br />
i = i + 1<br />
End Sub<br />
Public Sub txtChapitre_Change()<br />
btnGo_Click<br />
End Sub<br />
Public Sub txtChapitre_KeyPress(KeyAscii As Integer)<br />
If KeyAscii = 8 Then Exit Sub<br />
If KeyAscii < 47 Or KeyAscii > 57 Then<br />
KeyAscii = 0<br />
Beep<br />
End If<br />
End Sub<br />
Public Sub txtChapitre_KeyUp(KeyCode As Integer, Shift As Integer)<br />
If KeyCode = 13 Then btnGo_Click<br />
End Sub<br />
Public Sub txtPassage_DblClick()<br />
'déclarations<br />
Dim mot$, livre$, valinstr%, motr$, mott$<br />
mot = Trim(frmBible.txtPassage.SelText)<br />
If Right(mot, 1) = "." Then mot = Mid(mot, 1, Len(mot) - 1)<br />
If Right(mot, 1) = "," Then mot = Mid(mot, 1, Len(mot) - 1)<br />
If Right(mot, 1) = ";" Then mot = Mid(mot, 1, Len(mot) - 1)<br />
If Right(mot, 1) = ":" Then mot = Mid(mot, 1, Len(mot) - 1)<br />
'les versions autres que NA26+ utilisent la fonte Bwgrkn<br />
If cboVersion.Text "NA26+" Then<br />
mot = Replace(mot, "", "")<br />
mot = Replace(mot, "(", "")<br />
mot = Replace(mot, ")", "")<br />
End If<br />
livre = frmBible.cboLivre.Text<br />
If Right(mot, 1) = "." Or Right(mot, 1) = "," Or Right(mot, 1) = ";" Or Right(mot, 1) = ":" Or<br />
Right(mot, 1) = "?" Or Right(mot, 1) = "!" Then<br />
mot = Mid(mot, 1, Len(mot) - 1)<br />
End If<br />
If cboVersion.Text = "LSG" Then<br />
Load frmZetoGraphe
frmBible - 47<br />
frmZetoGraphe.txtRecherche.Text = mot<br />
frmZetoGraphe.cboVersion.Text = "LSG"<br />
frmZetoGraphe.Show<br />
Exit Sub<br />
End If<br />
If cboVersion.Text = "Darby" Then<br />
Load frmZetoGraphe<br />
frmZetoGraphe.txtRecherche.Text = mot<br />
frmZetoGraphe.cboVersion.Text = "Darby"<br />
frmZetoGraphe.Show<br />
Exit Sub<br />
End If<br />
If cboVersion.Text = "APF-G" Then<br />
Call RechercheMorphAPFG(mot)<br />
Exit Sub<br />
End If<br />
If cboVersion.Text = "TOB" Then<br />
Load frmZetoGraphe<br />
frmZetoGraphe.txtRecherche.Text = mot<br />
frmZetoGraphe.cboVersion.Text = "TOB"<br />
frmZetoGraphe.Show<br />
Exit Sub<br />
End If<br />
If cboVersion.Text = "BFC" Then<br />
Load frmZetoGraphe<br />
frmZetoGraphe.txtRecherche.Text = mot<br />
frmZetoGraphe.cboVersion.Text = "BFC"<br />
frmZetoGraphe.Show<br />
Exit Sub<br />
End If<br />
If cboVersion.Text = "LSG & Strong" Then<br />
mot = Trim(txtPassage.SelText)<br />
btnGo_Click<br />
Call LireStrongLSG2(mot)<br />
Exit Sub<br />
End If<br />
If cboVersion.Text = "JER" Then<br />
Load frmZetoGraphe<br />
frmZetoGraphe.txtRecherche.Text = mot<br />
frmZetoGraphe.cboVersion.Text = "JER"<br />
frmZetoGraphe.Show<br />
Exit Sub<br />
End If<br />
If cboVersion.Text = "Flavius Josèphe" Then<br />
Load frmZetoGraphe<br />
frmZetoGraphe.txtRecherche.Text = mot<br />
frmZetoGraphe.cboVersion.Text = "Flavius Josèphe"<br />
frmZetoGraphe.Show<br />
Exit Sub<br />
End If<br />
If cboVersion.Text = "BHS" Then<br />
chapitre = txtChapitre.Text<br />
verset = txtverset.Text<br />
Call LireWTM(livre, chapitre, verset, mot)<br />
'Load frmZetoGraphe<br />
'frmZetoGraphe.txtRecherche.Text = mot<br />
'frmZetoGraphe.cboVersion.Text = "BHS"<br />
'frmZetoGraphe.Show<br />
'Exit Sub<br />
End If<br />
If cboVersion.Text = "WH+" Then<br />
Load frmZetoGraphe<br />
frmZetoGraphe.txtRecherche.Text = mot<br />
frmZetoGraphe.cboVersion.Text = "WH+"<br />
frmZetoGraphe.Show<br />
Exit Sub
frmBible - 48<br />
End If<br />
If cboVersion.Text = "Tischendorf+" Then<br />
Load frmZetoGraphe<br />
frmZetoGraphe.txtRecherche.Text = mot<br />
frmZetoGraphe.cboVersion.Text = "Tischendorf+"<br />
frmZetoGraphe.Show<br />
Exit Sub<br />
End If<br />
If cboVersion.Text = "NA27" Then<br />
Call MorphNA27Plus(mot)<br />
Exit Sub<br />
End If<br />
If cboVersion.Text = "LXX" Then<br />
Call MorphLXX(mot)<br />
Exit Sub<br />
End If<br />
If cboVersion.Text = "BHS+" Then<br />
mot = Trim(txtPassage.SelText)<br />
frmBible.btnGo_Click<br />
Call StrongBHSPlus(mot)<br />
Exit Sub<br />
End If<br />
If cboVersion.Text = "BHS" Or _<br />
cboVersion.Text = "NBS" Or _<br />
cboVersion.Text = "BFC" Or _<br />
cboVersion.Text = "Stephanus" Or _<br />
cboVersion.Text = "MRT" Or _<br />
cboVersion.Text = "CRP" Or _<br />
cboVersion.Text = "OST" Or _<br />
cboVersion.Text = "SG" Or _<br />
cboVersion.Text = "Scrivener" Then<br />
Exit Sub<br />
End If<br />
'VULGATE<br />
If cboVersion.Text = "Vulgate" Then<br />
' Load frmBrowser<br />
' frmBrowser.cboAddress.Text = "http://collatinus.fltr.ucl.ac.be/jcoll.php?forme=m:" & mot<br />
' frmBrowser.WindowState = 0<br />
' frmBrowser.Show<br />
Load frmDicoLatFr<br />
frmDicoLatFr.Show<br />
frmDicoLatFr.Text1.Text = mot<br />
frmDicoLatFr.btnGo_Click<br />
Exit Sub<br />
End If<br />
'j'appelle la fonction désignée<br />
Call DoubleCliqueMP(mot, livre)<br />
End Sub<br />
Public Sub txtPassage_KeyUp(KeyCode As Integer, Shift As Integer)<br />
If KeyCode = 13 Then<br />
btnGo_Click<br />
ElseIf KeyCode = vbKeyEscape Then<br />
End<br />
Unload Me<br />
End If<br />
End Sub<br />
Public Sub txtPassage_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
frmBible - 49<br />
mot = frmBible.txtPassage.SelText<br />
If Button = vbRightButton And cboVersion.Text = "NA27" Then<br />
txtPassage.Enabled = False<br />
txtPassage.Enabled = True<br />
If InStr(1, mot, " ") 0 Then<br />
mnuLemme.Enabled = False<br />
PopupMenu mnuRecherche, vbPopupMenuLeftAlign<br />
Else<br />
mnuLemme.Enabled = True<br />
PopupMenu mnuRecherche, vbPopupMenuLeftAlign<br />
End If<br />
ElseIf Button = vbRightButton And cboVersion.Text = "LXX" Then<br />
mnuCatenaRC.Visible = False<br />
mnuApparatus.Visible = False<br />
mnuApparatCritique.Visible = False<br />
txtPassage.Enabled = False<br />
txtPassage.Enabled = True<br />
If InStr(1, mot, " ") 0 Then<br />
mnuLemme.Enabled = False<br />
PopupMenu mnuRecherche, vbPopupMenuLeftAlign<br />
Else<br />
mnuLemme.Enabled = True<br />
PopupMenu mnuRecherche, vbPopupMenuLeftAlign<br />
End If<br />
ElseIf Button = vbRightButton And cboVersion.Text = "NET" Or _<br />
frmBible.cboVersion.Text = "ASV" And Button = vbRightButton Or _<br />
frmBible.cboVersion.Text = "KJV" And Button = vbRightButton Or _<br />
frmBible.cboVersion.Text = "YLT" And Button = vbRightButton Or _<br />
frmBible.cboVersion.Text = "WEB" And Button = vbRightButton Or _<br />
frmBible.cboVersion.Text = "BBE" And Button = vbRightButton Or _<br />
frmBible.cboVersion.Text = "JPS" And Button = vbRightButton Or _<br />
frmBible.cboVersion.Text = "DR" And Button = vbRightButton Or _<br />
frmBible.cboVersion.Text = "NET" And Button = vbRightButton Or _<br />
frmBible.cboVersion.Text = "DIAGLOTT" And Button = vbRightButton Or _<br />
frmBible.cboVersion.Text = "ANF" And Button = vbRightButton Or _<br />
frmBible.cboVersion.Text = "APF-G" And Button = vbRightButton Or _<br />
frmBible.cboVersion.Text = "APF-E" And Button = vbRightButton Or _<br />
frmBible.cboVersion.Text = "Lightfoot" And Button = vbRightButton Or _<br />
frmBible.cboVersion.Text = "Flavius Josèphe - En" And Button = vbRightButton Or _<br />
frmBible.cboVersion.Text = "WBST" And Button = vbRightButton Then<br />
txtPassage.Enabled = False<br />
txtPassage.Enabled = True<br />
If InStr(1, mot, " ") 0 Then mot = Trim(mot)<br />
PopupMenu mnuDicoC, vbPopupMenuLeftAlign<br />
ElseIf Button = vbRightButton And cboVersion.Text = "Vulgate" Then<br />
txtPassage.Enabled = False<br />
txtPassage.Enabled = True<br />
PopupMenu mnuVulgate, vbPopupMenuLeftAlign<br />
ElseIf Button = vbRightButton And cboVersion.Text = "APF-G" Then<br />
mnuCatenaRC.Visible = False<br />
mnuApparatus.Visible = False<br />
txtPassage.Enabled = False<br />
txtPassage.Enabled = True<br />
mnuRechercheMorphoC.Visible = False<br />
mnuLemme.Visible = False<br />
mnuApparatCritique.Visible = False<br />
If InStr(1, mot, " ") 0 Then mot = Trim(mot)<br />
PopupMenu mnuRecherche, vbPopupMenuLeftAlign<br />
ElseIf Button = vbRightButton And cboVersion.Text = "LSG+" Then<br />
txtPassage.Enabled = False<br />
txtPassage.Enabled = True
frmBible - 50<br />
End If<br />
End Sub<br />
PopupMenu mnuLexiquesC, vbPopupMenuLeftAlign<br />
Public Sub txtverset_Change()<br />
btnGo_Click<br />
End Sub<br />
Public Sub txtverset_KeyPress(KeyAscii As Integer)<br />
If KeyAscii = 8 Then Exit Sub<br />
If KeyAscii < 47 Or KeyAscii > 57 Then<br />
KeyAscii = 0<br />
Beep<br />
End If<br />
End Sub<br />
Public Sub txtverset_KeyUp(KeyCode As Integer, Shift As Integer)<br />
If KeyCode = 13 Then<br />
btnGo_Click<br />
ElseIf KeyCode = vbKeyEscape Then<br />
End<br />
Unload Me<br />
End If<br />
End Sub
frmBible - 1<br />
VERSION 5.00<br />
Begin VB.Form frmBible<br />
BackColor = &H00FFFFFF&<br />
Caption = "Bible Parser 2006"<br />
ClientHeight = 5145<br />
ClientLeft = 4485<br />
ClientTop = 3630<br />
ClientWidth = 7140<br />
Icon = (Icon)<br />
LinkTopic = "Form1"<br />
MousePointer = 1 'Arrow<br />
Picture = (Bitmap)<br />
ScaleHeight = 5145<br />
ScaleWidth = 7140<br />
StartUpPosition = 2 'CenterScreen<br />
Begin VB.TextBox txtPassage<br />
Height = 1815<br />
Left = 360<br />
MultiLine = -1 'True<br />
ScrollBars = 2 'Vertical<br />
TabIndex = 32<br />
Top = 2640<br />
Width = 6135<br />
End<br />
Begin VB.CheckBox chkSysTray<br />
Caption = "chkSysTray"<br />
Height = 375<br />
Left = 120<br />
TabIndex = 31<br />
Top = 600<br />
Value = 1 'Checked<br />
Visible = 0 'False<br />
Width = 1335<br />
End<br />
Begin VB.Timer Timer2<br />
Left = 0<br />
Top = 4080<br />
End<br />
Begin VB.CommandButton btnQuitter<br />
Cancel = -1 'True<br />
Caption = "&Fermer"<br />
Height = 375<br />
Left = 6240<br />
TabIndex = 27<br />
Top = 4560<br />
Width = 855<br />
End<br />
Begin VB.CommandButton btnFermer<br />
Height = 255<br />
Left = 0<br />
TabIndex = 24<br />
Top = 4800<br />
Visible = 0 'False<br />
Width = 255<br />
End<br />
Begin VB.PictureBox sortievocale<br />
BackColor = &H00FFFFFF&<br />
BorderStyle = 0 'None<br />
Height = 255<br />
Left = 6480<br />
MouseIcon = (Icon)<br />
MousePointer = 4 'Icon<br />
Picture = (Bitmap)<br />
ScaleHeight = 255<br />
ScaleWidth = 255<br />
TabIndex = 23<br />
ToolTipText = "Lire le passage"<br />
Top = 1800<br />
Visible = 0 'False<br />
Width = 255<br />
End<br />
Begin VB.OptionButton optstrongfr<br />
BackColor = &H00C0E0FF&<br />
Height = 255<br />
Left = 4440<br />
TabIndex = 21
frmBible - 2<br />
Top = 4800<br />
Visible = 0 'False<br />
Width = 255<br />
End<br />
Begin VB.Timer Timer1<br />
Left = 6720<br />
Top = 3960<br />
End<br />
Begin VB.Frame framOutils<br />
BackColor = &H00C0E0FF&<br />
BorderStyle = 0 'None<br />
Height = 375<br />
Left = 360<br />
TabIndex = 19<br />
Top = 4680<br />
Visible = 0 'False<br />
Width = 1575<br />
Begin VB.CheckBox chkConcordance<br />
Caption = "Cliquez ici pour activer l'option Concordance au double-click"<br />
Enabled = 0 'False<br />
Height = 255<br />
Left = 120<br />
TabIndex = 28<br />
Top = 120<br />
Width = 255<br />
End<br />
Begin VB.Label lblConcordance<br />
BackStyle = 0 'Transparent<br />
Caption = "&Concordance"<br />
Enabled = 0 'False<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 8.25<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
ForeColor = &H00000000&<br />
Height = 255<br />
Left = 360<br />
TabIndex = 20<br />
ToolTipText = "Dictionnaire et analyseur de Bible Parser, rapide et concis."<br />
Top = 120<br />
Visible = 0 'False<br />
Width = 1215<br />
End<br />
End<br />
Begin VB.OptionButton chkthayer<br />
BackColor = &H00C0E0FF&<br />
Caption = "Option2"<br />
Height = 255<br />
Left = 3840<br />
TabIndex = 6<br />
Top = 2160<br />
Visible = 0 'False<br />
Width = 255<br />
End<br />
Begin VB.OptionButton chkstrong<br />
BackColor = &H00C0E0FF&<br />
Caption = "Option1"<br />
Height = 255<br />
Left = 2880<br />
TabIndex = 5<br />
Top = 2160<br />
Value = -1 'True<br />
Visible = 0 'False<br />
Width = 255<br />
End<br />
Begin VB.TextBox lbltampon<br />
Height = 375<br />
Left = 120<br />
TabIndex = 16<br />
Top = 120<br />
Visible = 0 'False
frmBible - 3<br />
Width = 975<br />
End<br />
Begin VB.PictureBox Picture1<br />
Height = 1335<br />
Left = 5160<br />
Picture = (Bitmap)<br />
ScaleHeight = 1275<br />
ScaleWidth = 1635<br />
TabIndex = 15<br />
Top = 120<br />
Width = 1695<br />
End<br />
Begin VB.CommandButton Command1<br />
Caption = "&Ok"<br />
DisabledPicture = (Icon)<br />
Height = 495<br />
Left = 6600<br />
Picture = (Icon)<br />
TabIndex = 13<br />
Top = 3240<br />
Visible = 0 'False<br />
Width = 735<br />
End<br />
Begin VB.ComboBox cboVersion<br />
Height = 315<br />
Left = 240<br />
TabIndex = 0<br />
Text = "Version"<br />
Top = 1080<br />
Width = 2295<br />
End<br />
Begin VB.CommandButton btnGo<br />
Caption = "&Rechercher"<br />
Default = -1 'True<br />
Height = 375<br />
Left = 5160<br />
TabIndex = 4<br />
Top = 1680<br />
Width = 1215<br />
End<br />
Begin VB.TextBox txtverset<br />
Alignment = 2 'Center<br />
Height = 285<br />
Left = 3960<br />
TabIndex = 3<br />
Top = 1560<br />
Width = 975<br />
End<br />
Begin VB.TextBox txtChapitre<br />
Alignment = 2 'Center<br />
Height = 285<br />
Left = 2880<br />
TabIndex = 2<br />
Top = 1560<br />
Width = 975<br />
End<br />
Begin VB.ComboBox cboLivre<br />
Height = 315<br />
Left = 240<br />
TabIndex = 1<br />
Text = "Livre"<br />
Top = 1560<br />
Width = 2295<br />
End<br />
Begin VB.Label Label6<br />
Alignment = 2 'Center<br />
BackStyle = 0 'Transparent<br />
Caption = "-"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 12<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False
frmBible - 4<br />
EndProperty<br />
Height = 255<br />
Left = 6480<br />
TabIndex = 30<br />
ToolTipText = "Réduire le texte d'une taille"<br />
Top = 3000<br />
Width = 255<br />
End<br />
Begin VB.Label Label5<br />
Alignment = 2 'Center<br />
BackStyle = 0 'Transparent<br />
Caption = "+"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 12<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 255<br />
Left = 6480<br />
TabIndex = 29<br />
ToolTipText = "Agrandir le texte d'une taille"<br />
Top = 2760<br />
Width = 255<br />
End<br />
Begin VB.Label Label10<br />
BackStyle = 0 'Transparent<br />
Height = 615<br />
Left = 6360<br />
TabIndex = 26<br />
ToolTipText = "Quitter Bible Parser"<br />
Top = 4560<br />
Width = 735<br />
End<br />
Begin VB.Label Label9<br />
BackStyle = 0 'Transparent<br />
Height = 615<br />
Left = 6600<br />
TabIndex = 25<br />
ToolTipText = "Robertson's Word Pictures in the New Testament"<br />
Top = 2640<br />
Width = 495<br />
End<br />
Begin VB.Label lblstrongfr<br />
BackStyle = 0 'Transparent<br />
Caption = "Strong fr (Internet)"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 8.25<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = -1 'True<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 255<br />
Left = 4680<br />
TabIndex = 22<br />
Top = 4800<br />
Visible = 0 'False<br />
Width = 1455<br />
End<br />
Begin VB.Label lblthayer<br />
BackStyle = 0 'Transparent<br />
Caption = "Thayer"<br />
Height = 255<br />
Left = 4080<br />
TabIndex = 18<br />
ToolTipText = "Thayer's Greek Lexicon with Strongs"<br />
Top = 2160<br />
Visible = 0 'False<br />
Width = 615<br />
End
frmBible - 5<br />
Begin VB.Label lblstrong<br />
BackStyle = 0 'Transparent<br />
Caption = "Strong"<br />
Height = 255<br />
Left = 3120<br />
TabIndex = 17<br />
ToolTipText = "Stong's Exhaustive Concordance"<br />
Top = 2160<br />
Visible = 0 'False<br />
Width = 615<br />
End<br />
Begin VB.Label Label4<br />
BackStyle = 0 'Transparent<br />
Height = 375<br />
Left = 2640<br />
TabIndex = 14<br />
Top = 600<br />
Width = 1335<br />
End<br />
Begin VB.Label lblsuivant<br />
BackStyle = 0 'Transparent<br />
Caption = ">"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 18<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 375<br />
Left = 6240<br />
TabIndex = 12<br />
ToolTipText = "Verset suivant"<br />
Top = 2280<br />
Width = 375<br />
End<br />
Begin VB.Label lblprecedent<br />
BackStyle = 0 'Transparent<br />
Caption = "
frmBible - 6<br />
BackStyle = 0 'Transparent<br />
Caption = "verset"<br />
Height = 255<br />
Left = 3960<br />
TabIndex = 9<br />
Top = 1920<br />
Width = 975<br />
End<br />
Begin VB.Label Label2<br />
BackStyle = 0 'Transparent<br />
Caption = "chapitre"<br />
Height = 255<br />
Left = 2880<br />
TabIndex = 8<br />
Top = 1920<br />
Width = 975<br />
End<br />
Begin VB.Label Label1<br />
Alignment = 2 'Center<br />
BackStyle = 0 'Transparent<br />
Caption = "Bible Parser 2006"<br />
BeginProperty Font<br />
Name = "Georgia"<br />
Size = 20.25<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = -1 'True<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 495<br />
Left = 1320<br />
TabIndex = 7<br />
Top = 120<br />
Width = 3615<br />
End<br />
Begin VB.Menu mnuFichier<br />
Caption = "Fichier"<br />
Begin VB.Menu mnuAutomatos<br />
Caption = "Ouvrir Verse Parser"<br />
Shortcut = {F7}<br />
End<br />
Begin VB.Menu mnuUnlock<br />
Caption = "Débloquer modules..."<br />
Visible = 0 'False<br />
End<br />
Begin VB.Menu mnuZetoG<br />
Caption = "Concordance"<br />
Checked = -1 'True<br />
Shortcut = ^Z<br />
End<br />
Begin VB.Menu MnuSortieVocale<br />
Caption = "Sortie vocale"<br />
Shortcut = {F2}<br />
Visible = 0 'False<br />
End<br />
Begin VB.Menu mnuQuit<br />
Caption = "Quitter"<br />
Shortcut = ^{F4}<br />
End<br />
Begin VB.Menu mnuBHSLXX<br />
Caption = "BHSLXX"<br />
Visible = 0 'False<br />
End<br />
End<br />
Begin VB.Menu mnuLexique<br />
Caption = "Dictionnaires"<br />
Begin VB.Menu mnuBailly<br />
Caption = "Abrégé du Dictionnaire Grec - Français A. Bailly"<br />
Begin VB.Menu mnuBaillyTout<br />
Caption = "Bailly [tout]"<br />
End<br />
Begin VB.Menu mnuAlpha<br />
Caption = "Alpha"<br />
End<br />
Begin VB.Menu mnuBeta
frmBible - 7<br />
Caption = "Bêta"<br />
End<br />
Begin VB.Menu mnuGamma<br />
Caption = "Gamma"<br />
End<br />
Begin VB.Menu mnuDelta<br />
Caption = "Delta"<br />
End<br />
Begin VB.Menu mnuEpsilonn<br />
Caption = "Epsilonn"<br />
End<br />
Begin VB.Menu mnuDzeta<br />
Caption = "Dzêta"<br />
End<br />
Begin VB.Menu mnuEta<br />
Caption = "Eta"<br />
End<br />
Begin VB.Menu mnuTheta<br />
Caption = "Thêta"<br />
End<br />
Begin VB.Menu mnuIota<br />
Caption = "Iota"<br />
End<br />
Begin VB.Menu mnuKappa<br />
Caption = "Kappa"<br />
End<br />
Begin VB.Menu mnuLambda<br />
Caption = "Lambda"<br />
End<br />
Begin VB.Menu mnuMu<br />
Caption = "Mu"<br />
End<br />
Begin VB.Menu mnuNu<br />
Caption = "Nu"<br />
End<br />
Begin VB.Menu mnuXi<br />
Caption = "Xi"<br />
End<br />
Begin VB.Menu mnuOmicronn<br />
Caption = "Omicronn"<br />
End<br />
Begin VB.Menu mnuPi<br />
Caption = "Pi"<br />
End<br />
Begin VB.Menu mnuRho<br />
Caption = "Rhô"<br />
End<br />
Begin VB.Menu mnuSigma<br />
Caption = "Sigma"<br />
End<br />
Begin VB.Menu mnuTau<br />
Caption = "Tau"<br />
End<br />
Begin VB.Menu mnuUpsilonn<br />
Caption = "Upsilonn"<br />
End<br />
Begin VB.Menu mnuPhi<br />
Caption = "Phi"<br />
End<br />
Begin VB.Menu mnuKhi<br />
Caption = "Khi"<br />
End<br />
Begin VB.Menu mnuPsi<br />
Caption = "Psi"<br />
End<br />
Begin VB.Menu mnuOmega<br />
Caption = "Omêga"<br />
End<br />
End<br />
Begin VB.Menu mnuCAF<br />
Caption = "Crouzet/Andraud/Font - Dictionnaire grec-français"<br />
End<br />
Begin VB.Menu mnuSouter<br />
Caption = "Souter - A Pocket Lexicon to the Greek New Testament"<br />
End<br />
Begin VB.Menu mnuLouwNida
frmBible - 8<br />
Caption = "Louw-Nida Greek-English Lexicon of the NT Based on Semantic Domains*"<br />
End<br />
Begin VB.Menu mnuGingrich<br />
Caption = "Gingrich/Danker - Greek-English Lexicon NT And Other Literature"<br />
Visible = 0 'False<br />
End<br />
Begin VB.Menu mnuTDNT<br />
Caption = "Kittel/Friedrich - Theological Dictionary of the New Testament"<br />
Visible = 0 'False<br />
End<br />
Begin VB.Menu mnuAntiquites<br />
Caption = "Paris/Roques - Lexique des Antiquités grecques et latines"<br />
End<br />
Begin VB.Menu mnuTiretDico<br />
Caption = "-"<br />
End<br />
Begin VB.Menu mnuDicoST<br />
Caption = "Dictionnaire hébreu-français Sander-Trenel"<br />
End<br />
Begin VB.Menu mnuJastrow<br />
Caption = "Jastrow - Dictionary of the Targumim"<br />
End<br />
Begin VB.Menu mnuHebrewChaldee<br />
Caption = "Gesenius' Hebrew-Chaldee Lexicon to the Old Testament*"<br />
End<br />
Begin VB.Menu mnuGeseniusLexicon<br />
Caption = "Gesenius - Lexicon Manuale Hebraicum [heb/lat]"<br />
End<br />
Begin VB.Menu mnuTWOT<br />
Caption = "Theological Wordbook of the Old Testament"<br />
Visible = 0 'False<br />
End<br />
Begin VB.Menu mnuABDB<br />
Caption = "Abridged Brown-Driver-Briggs"<br />
Begin VB.Menu mnuBDBT<br />
Caption = "BDB [tout]"<br />
End<br />
Begin VB.Menu mnuA<br />
Caption = "Aleph"<br />
End<br />
Begin VB.Menu mnuBeth<br />
Caption = "Beth"<br />
End<br />
Begin VB.Menu mnuGim<br />
Caption = "Gimel"<br />
End<br />
Begin VB.Menu mnuDalet<br />
Caption = "Daleth"<br />
End<br />
Begin VB.Menu mnuHE<br />
Caption = "Hé"<br />
End<br />
Begin VB.Menu mnuWaw<br />
Caption = "Wav"<br />
End<br />
Begin VB.Menu mnuZa<br />
Caption = "Zayin"<br />
End<br />
Begin VB.Menu mnuHeth<br />
Caption = "Heth"<br />
End<br />
Begin VB.Menu mnuThet<br />
Caption = "Thet"<br />
End<br />
Begin VB.Menu mnuYod<br />
Caption = "Yod"<br />
End<br />
Begin VB.Menu mnuKaf<br />
Caption = "Kaf"<br />
End<br />
Begin VB.Menu mnuLamed<br />
Caption = "Lamed"<br />
End<br />
Begin VB.Menu mnuMem<br />
Caption = "Mem"<br />
End
frmBible - 9<br />
Begin VB.Menu mnuNun<br />
Caption = "Nun"<br />
End<br />
Begin VB.Menu mnuSamek<br />
Caption = "Samek"<br />
End<br />
Begin VB.Menu mnuAyin<br />
Caption = "Ayin"<br />
End<br />
Begin VB.Menu mnuPé<br />
Caption = "Pé"<br />
End<br />
Begin VB.Menu mnuTsadé<br />
Caption = "Tsadé"<br />
End<br />
Begin VB.Menu mnuQof<br />
Caption = "Qof"<br />
End<br />
Begin VB.Menu mnuRech<br />
Caption = "Rech"<br />
End<br />
Begin VB.Menu mnuSin<br />
Caption = "Sin/Schin"<br />
End<br />
Begin VB.Menu mnuTaw<br />
Caption = "Taw"<br />
End<br />
End<br />
Begin VB.Menu mnuRosetta<br />
Caption = "The Rosetta Stone Hebrew Lexicon"<br />
Visible = 0 'False<br />
End<br />
Begin VB.Menu mnuTiretDicoBP<br />
Caption = "-"<br />
End<br />
Begin VB.Menu mnuLexiqueHebFr<br />
Caption = "Bible Parser - Dictionnaire hébreu / français"<br />
Shortcut = ^H<br />
End<br />
Begin VB.Menu mnuLexiqueNT<br />
Caption = "Bible Parser - Dictionnaire grec / français"<br />
Shortcut = ^G<br />
End<br />
Begin VB.Menu mnuDicoLat<br />
Caption = "Bible Parser - Dictionnaire latin / français"<br />
Shortcut = ^L<br />
End<br />
Begin VB.Menu mnuB4<br />
Caption = "-"<br />
End<br />
Begin VB.Menu mnugrechebreu<br />
Caption = "Lexique grec/hébreu"<br />
End<br />
Begin VB.Menu mnuLexHG<br />
Caption = "Lexique hébreu/grec"<br />
End<br />
End<br />
Begin VB.Menu mnuDictionnaires<br />
Caption = "Références"<br />
Begin VB.Menu mnuDicEaston<br />
Caption = "Easton"<br />
Shortcut = ^E<br />
End<br />
Begin VB.Menu mnuDictSmith<br />
Caption = "Smith"<br />
Shortcut = ^V<br />
End<br />
Begin VB.Menu mnuIBE<br />
Caption = "ISBE"<br />
Shortcut = ^I<br />
End<br />
Begin VB.Menu mnuATSBD<br />
Caption = "ATSBD"<br />
Shortcut = ^A<br />
End<br />
Begin VB.Menu mnuNuttall
frmBible - 10<br />
Caption = "Nuttall"<br />
Shortcut = ^N<br />
End<br />
Begin VB.Menu mnuWebster<br />
Caption = "Webster"<br />
Shortcut = ^W<br />
End<br />
Begin VB.Menu mnuHitch<br />
Caption = "Hitchkcok"<br />
Shortcut = ^J<br />
End<br />
Begin VB.Menu mnuWace<br />
Caption = "Wace"<br />
Shortcut = ^{F1}<br />
End<br />
Begin VB.Menu mnuSepXcvb<br />
Caption = "-"<br />
End<br />
Begin VB.Menu mnuVine<br />
Caption = "Vine's Expository Dictionary*"<br />
End<br />
Begin VB.Menu mnuVincentNT<br />
Caption = "Vincent NT Word Studies*"<br />
End<br />
Begin VB.Menu mnuHolman<br />
Caption = "Holman Bible Dictionary*"<br />
End<br />
Begin VB.Menu mnuRWP<br />
Caption = "Robertson's Word Pictures*"<br />
End<br />
Begin VB.Menu mnuRefEncy<br />
Caption = "Références encyclopédiques"<br />
Begin VB.Menu mnuEB1911<br />
Caption = "Encyclopedia Britannica 1911*"<br />
End<br />
Begin VB.Menu mnuCE<br />
Caption = "The Catholic Encyclopedia*"<br />
End<br />
Begin VB.Menu mnuJE<br />
Caption = "The Jewish Encyclopedia*"<br />
End<br />
Begin VB.Menu mnuSE<br />
Caption = "New Schaff-Herzog Encyclopedia of Religious Knowledge*"<br />
End<br />
Begin VB.Menu mnuEBCB<br />
Caption = "Encyclopedia Biblica [Cheyne/Black]*"<br />
End<br />
Begin VB.Menu mnuVoltaire<br />
Caption = "Dictionnaire philosophique portatif [Voltaire]*"<br />
End<br />
End<br />
Begin VB.Menu mnuAutres<br />
Caption = "Autres versions bibliques"<br />
Begin VB.Menu mnuTMN<br />
Caption = "TMN, FILLION, JER, TOB, SEM, NET, etc."<br />
End<br />
End<br />
End<br />
Begin VB.Menu mnuGrammaires<br />
Caption = "Grammaires"<br />
Begin VB.Menu mnuAG<br />
Caption = "Aide grammaticale"<br />
End<br />
Begin VB.Menu mnuHebreu<br />
Caption = "-"<br />
End<br />
Begin VB.Menu mnuAuvray<br />
Caption = "Auvray - Initiation à l'hébreu biblique"<br />
End<br />
Begin VB.Menu mnuGesenius<br />
Caption = "Gesenius - Hebrew Grammar"<br />
End<br />
Begin VB.Menu mnuCellerier<br />
Caption = "Cellerier - Elemens de grammaire hébraïque"<br />
End<br />
Begin VB.Menu mnuWilson
frmBible - 11<br />
Caption = "Wilson - Analytical Heb. & Ch. Lexicon Paradigms"<br />
End<br />
Begin VB.Menu mnuVocMacchi<br />
Caption = "Macchi - Vocabulaire d'hébreu biblique"<br />
End<br />
Begin VB.Menu mnuGrec<br />
Caption = "-"<br />
End<br />
Begin VB.Menu mnuBoxus<br />
Caption = "Boxus - Précis de grammaire grecque"<br />
End<br />
Begin VB.Menu mnuAbel<br />
Caption = "Abel - Grammaire du grec biblique"<br />
End<br />
Begin VB.Menu mnuBurnouf<br />
Caption = "Burnouf - Grammaire grecque"<br />
End<br />
Begin VB.Menu mnuGG<br />
Caption = "Wallace / Mounce Compilation"<br />
End<br />
Begin VB.Menu mnuSmithGG<br />
Caption = "Smith - Greek Grammar"<br />
End<br />
Begin VB.Menu mnuGoodwinG<br />
Caption = "Goodwin - Greek Grammar"<br />
End<br />
Begin VB.Menu mnuGoodwinS<br />
Caption = "Goodwin - Syntax Moods/Tenses Greek Verb"<br />
End<br />
Begin VB.Menu mnuBurton2<br />
Caption = "Burton - Moods/Tenses of New Testament Greek"<br />
End<br />
Begin VB.Menu mnuConybeare<br />
Caption = "Conybeare - A Grammar of Septuagint Greek"<br />
End<br />
Begin VB.Menu mnuEulalie<br />
Caption = "Reinach - Eulalie, le grec sans larmes"<br />
End<br />
Begin VB.Menu mnuWiner<br />
Caption = "G.B.Winer - A Grammar of the New Testament Diction*"<br />
End<br />
Begin VB.Menu mnuGildersleeve<br />
Caption = "B.L.Gildersleeve - Syntax of Classical Greek*"<br />
End<br />
Begin VB.Menu mnuJRCox<br />
Caption = "J. R-Cox- Overview of Greek Syntax*"<br />
End<br />
Begin VB.Menu mnuDavis<br />
Caption = "W.H.Davis - Beginner's Grammar of the Greek New Testament *"<br />
End<br />
End<br />
Begin VB.Menu mnuAbout<br />
Caption = "?"<br />
Begin VB.Menu mnuwb<br />
Caption = "Mise à jour Bible Parser..."<br />
End<br />
Begin VB.Menu mnuSeptt<br />
Caption = "-"<br />
End<br />
Begin VB.Menu mnuBP<br />
Caption = "A propos de Bible Parser"<br />
Shortcut = {F1}<br />
End<br />
Begin VB.Menu mnuRecherche<br />
Caption = "Recherche"<br />
Visible = 0 'False<br />
Begin VB.Menu mnuFormeExacte<br />
Caption = "Recherche forme exacte"<br />
End<br />
Begin VB.Menu mnuLemme<br />
Caption = "Recherche toutes les formes"<br />
End<br />
Begin VB.Menu mnuRechercheMorphoC<br />
Caption = "Recherche morphologique"<br />
End<br />
Begin VB.Menu mnuApparatCritique
frmBible - 12<br />
Caption = "Greek New Testament Textual Apparatus*"<br />
End<br />
Begin VB.Menu mnuApparatus<br />
Caption = "Apparat critique : Terry/Marlowe/Willker"<br />
Visible = 0 'False<br />
End<br />
Begin VB.Menu mnuCatenaRC<br />
Caption = "e-Catena : allusions à ce verset chez les Pères*"<br />
End<br />
End<br />
Begin VB.Menu mnuLexiquesC<br />
Caption = "LexiquesContextuels"<br />
Visible = 0 'False<br />
Begin VB.Menu mnuStrongD<br />
Caption = "Strong - Greek and Hebrew Dictionaries"<br />
End<br />
Begin VB.Menu mnuThayerC<br />
Caption = "Thayer - Greek/English Lexicon of the NT*"<br />
End<br />
Begin VB.Menu mnuGesHC<br />
Caption = "Gesenius - Hebrew and Chaldee Lexicon...*"<br />
End<br />
End<br />
Begin VB.Menu mnuDicoC<br />
Caption = "DictionnairesC"<br />
Visible = 0 'False<br />
Begin VB.Menu mnuZGC<br />
Caption = "ZetoGraphê"<br />
End<br />
Begin VB.Menu mnuDictionnairesC<br />
Caption = "Dictionnaires"<br />
End<br />
Begin VB.Menu mnuLexiConc<br />
Caption = "English to Hebrew/Greek*"<br />
End<br />
End<br />
Begin VB.Menu mnuVulgate<br />
Caption = "Vulgate"<br />
Visible = 0 'False<br />
Begin VB.Menu mnuVulZG<br />
Caption = "ZetôGraphê"<br />
End<br />
Begin VB.Menu mnuDicoLatC<br />
Caption = "Dictionnaire latin/français"<br />
End<br />
Begin VB.Menu mnuJO<br />
Caption = "Jeanneau/Ouvrard : morphologie + dictionnaire*"<br />
End<br />
Begin VB.Menu mnuPerseusVulgate<br />
Caption = "Perseus : analyse morphologique*"<br />
End<br />
Begin VB.Menu mnuLS<br />
Caption = "Lewis/Short : Latin/English Dictionary*"<br />
End<br />
Begin VB.Menu mnuLG<br />
Caption = "R. Estienne - Dictionarium Latinogallicum*"<br />
End<br />
End<br />
End<br />
End
Bible Parser 2006<br />
chapitre verset<br />
<<br />
Strong Thayer<br />
><br />
Concordance<br />
Strong fr (Internet)<br />
+<br />
-
frmBrowser - 1<br />
Option Explicit<br />
ublic StartingAddress As String<br />
im mbDontNavigateNow As Boolean<br />
rivate Sub cboAddress_Change()<br />
If mbDontNavigateNow Then Exit Sub<br />
timTimer.Enabled = True<br />
brwWebBrowser.Navigate cboAddress.Text<br />
nd Sub<br />
rivate Sub Form_Load()<br />
On Error Resume Next<br />
Me.Show<br />
tbToolBar.Refresh<br />
Form_Resize<br />
cboAddress.Move 50, lblAddress.Top + lblAddress.Height + 15<br />
If Len(StartingAddress) > 0 Then<br />
cboAddress.Text = StartingAddress<br />
cboAddress.AddItem cboAddress.Text<br />
' Essaie d'aller vers l'adresse de départ.<br />
timTimer.Enabled = True<br />
brwWebBrowser.Navigate StartingAddress<br />
End If<br />
nd Sub<br />
rivate Sub brwWebBrowser_DownloadComplete()<br />
On Error Resume Next<br />
Me.Caption = brwWebBrowser.LocationName<br />
nd Sub<br />
rivate Sub brwWebBrowser_NavigateComplete(ByVal URL As String)<br />
Dim i As Integer<br />
Dim bFound As Boolean<br />
Me.Caption = brwWebBrowser.LocationName<br />
For i = 0 To cboAddress.ListCount - 1<br />
If cboAddress.List(i) = brwWebBrowser.LocationURL Then<br />
bFound = True<br />
Exit For<br />
End If<br />
Next i<br />
mbDontNavigateNow = True<br />
If bFound Then<br />
cboAddress.RemoveItem i<br />
End If<br />
cboAddress.AddItem brwWebBrowser.LocationURL, 0<br />
cboAddress.ListIndex = 0<br />
mbDontNavigateNow = False<br />
nd Sub<br />
rivate Sub cboAddress_Click()<br />
If mbDontNavigateNow Then Exit Sub<br />
timTimer.Enabled = True<br />
brwWebBrowser.Navigate cboAddress.Text<br />
nd Sub<br />
rivate Sub cboAddress_KeyPress(KeyAscii As Integer)<br />
On Error Resume Next<br />
If KeyAscii = vbKeyReturn Then<br />
cboAddress_Click<br />
End If<br />
nd Sub<br />
rivate Sub Form_Resize()<br />
On Error Resume Next<br />
cboAddress.Width = Me.ScaleWidth - 100<br />
brwWebBrowser.Width = Me.ScaleWidth - 100<br />
brwWebBrowser.Height = Me.ScaleHeight - (picAddress.Top + picAddress.Height) - 100<br />
nd Sub
frmBrowser - 2<br />
Private Sub timTimer_Timer()<br />
If brwWebBrowser.Busy = False Then<br />
timTimer.Enabled = False<br />
Me.Caption = brwWebBrowser.LocationName<br />
Else<br />
Me.Caption = "Traitement en cours..."<br />
End If<br />
End Sub<br />
Private Sub tbToolBar_ButtonClick(ByVal Button As Button)<br />
On Error Resume Next<br />
End Sub<br />
timTimer.Enabled = True<br />
Select Case Button.Key<br />
Case "Back"<br />
brwWebBrowser.GoBack<br />
Case "Forward"<br />
brwWebBrowser.GoForward<br />
Case "Refresh"<br />
brwWebBrowser.Refresh<br />
Case "Home"<br />
brwWebBrowser.GoHome<br />
Case "Search"<br />
brwWebBrowser.GoSearch<br />
Case "Stop"<br />
timTimer.Enabled = False<br />
brwWebBrowser.Stop<br />
Me.Caption = brwWebBrowser.LocationName<br />
End Select
frmBrowser - 1<br />
VERSION 5.00<br />
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.dll"<br />
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"<br />
egin VB.Form frmBrowser<br />
ClientHeight = 5205<br />
ClientLeft = 8265<br />
ClientTop = 1710<br />
ClientWidth = 5790<br />
LinkTopic = "Form1"<br />
LockControls = -1 'True<br />
ScaleHeight = 5205<br />
ScaleWidth = 5790<br />
ShowInTaskbar = 0 'False<br />
WindowState = 2 'Maximized<br />
Begin ComctlLib.Toolbar tbToolBar<br />
Align = 1 'Align Top<br />
Height = 540<br />
Left = 0<br />
TabIndex = 3<br />
Top = 0<br />
Width = 5790<br />
_ExtentX = 10213<br />
_ExtentY = 953<br />
ButtonWidth = 820<br />
ButtonHeight = 794<br />
Appearance = 1<br />
ImageList = "imlIcons"<br />
_Version = 327682<br />
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}<br />
NumButtons = 6<br />
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}<br />
Key = "Back"<br />
Object.ToolTipText = "Précédent"<br />
Object.Tag = ""<br />
ImageIndex = 1<br />
EndProperty<br />
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}<br />
Key = "Forward"<br />
Object.ToolTipText = "Suivant"<br />
Object.Tag = ""<br />
ImageIndex = 2<br />
EndProperty<br />
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}<br />
Key = "Stop"<br />
Object.ToolTipText = "Arrêter"<br />
Object.Tag = ""<br />
ImageIndex = 3<br />
EndProperty<br />
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}<br />
Key = "Refresh"<br />
Object.ToolTipText = "Actualiser"<br />
Object.Tag = ""<br />
ImageIndex = 4<br />
EndProperty<br />
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}<br />
Key = "Home"<br />
Object.ToolTipText = "Démarrage"<br />
Object.Tag = ""<br />
ImageIndex = 5<br />
EndProperty<br />
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}<br />
Key = "Search"<br />
Object.ToolTipText = "Rechercher"<br />
Object.Tag = ""<br />
ImageIndex = 6<br />
EndProperty<br />
EndProperty<br />
End<br />
Begin SHDocVwCtl.WebBrowser brwWebBrowser<br />
Height = 3734<br />
Left = 50<br />
TabIndex = 0<br />
Top = 1215<br />
Width = 5393<br />
ExtentX = 9525<br />
ExtentY = 6588
frmBrowser - 2<br />
ViewMode = 1<br />
Offline = 0<br />
Silent = 0<br />
RegisterAsBrowser= 0<br />
RegisterAsDropTarget= 0<br />
AutoArrange = -1 'True<br />
NoClientEdge = -1 'True<br />
AlignLeft = 0 'False<br />
NoWebView = 0 'False<br />
HideFileNames = 0 'False<br />
SingleClick = 0 'False<br />
SingleSelection = 0 'False<br />
NoFolders = 0 'False<br />
Transparent = 0 'False<br />
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"<br />
Location = ""<br />
End<br />
Begin VB.Timer timTimer<br />
Enabled = 0 'False<br />
Interval = 5<br />
Left = 6180<br />
Top = 1500<br />
End<br />
Begin VB.PictureBox picAddress<br />
Align = 1 'Align Top<br />
BorderStyle = 0 'None<br />
Height = 675<br />
Left = 0<br />
ScaleHeight = 675<br />
ScaleWidth = 5790<br />
TabIndex = 4<br />
TabStop = 0 'False<br />
Top = 540<br />
Width = 5790<br />
Begin VB.ComboBox cboAddress<br />
Height = 315<br />
Left = 30<br />
TabIndex = 2<br />
Top = 330<br />
Width = 5415<br />
End<br />
Begin VB.Label lblAddress<br />
Caption = "&Adresse:"<br />
Height = 255<br />
Left = 45<br />
TabIndex = 1<br />
Tag = "&Address:"<br />
Top = 60<br />
Width = 3075<br />
End<br />
End<br />
Begin ComctlLib.ImageList imlIcons<br />
Left = 2670<br />
Top = 2325<br />
_ExtentX = 1005<br />
_ExtentY = 1005<br />
BackColor = -2147483643<br />
ImageWidth = 24<br />
ImageHeight = 24<br />
MaskColor = 12632256<br />
_Version = 327682<br />
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}<br />
NumListImages = 6<br />
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}<br />
Picture = {Binary}<br />
Key = ""<br />
EndProperty<br />
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}<br />
Picture = {Binary}<br />
Key = ""<br />
EndProperty<br />
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}<br />
Picture = {Binary}<br />
Key = ""<br />
EndProperty<br />
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
frmBrowser - 3<br />
Picture = {Binary}<br />
Key = ""<br />
EndProperty<br />
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}<br />
Picture = {Binary}<br />
Key = ""<br />
EndProperty<br />
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}<br />
Picture = {Binary}<br />
Key = ""<br />
EndProperty<br />
EndProperty<br />
End<br />
End
Adresse:
frmDicoHebreu - 1<br />
'Private Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _<br />
'(ByVal hwndCaller As Long, ByVal pszFile As String, _<br />
'ByVal uCommand As Long, ByVal dwData As Long) As Long<br />
'Dim robby As IAgentCtlCharacterEx<br />
'Const DATAPATH = "robby.acs"<br />
Private Sub btnAjouter_Click()<br />
' au cas où<br />
Close<br />
Dim lexique$, lfile, hebreu$, prononciation$, francais$, notes$<br />
lexique = App.Path & "\tools\lexiqueheb.dic"<br />
lfile = FreeFile<br />
'définitions des variables<br />
hebreu = txtHebreu.Text<br />
prononciation = txtPrononciation.Text<br />
francais = txtFrancais.Text<br />
notes = txtNotes.Text<br />
' attention VB ne gère pas les virgules & les guilleemnts<br />
francais = Replace(francais, ",", "~", 1, , vbTextCompare)<br />
notes = Replace(notes, ",", "~", 1, , vbTextCompare)<br />
notes = Replace(notes, Chr$(51), "'", 1)<br />
' ouverture du lexique pour écriture<br />
Open lexique For Append As #lfile<br />
rite #lfile, hebreu & "1/" & prononciation & "2/" & francais & "3/" & notes<br />
lose<br />
tnEffacer_Click<br />
nd Sub<br />
rivate Sub btnEscape_Click()<br />
nload Me<br />
nd Sub<br />
rivate Sub btnEffacer_Click()<br />
xtHebreu.Text = ""<br />
xtPrononciation.Text = ""<br />
xtFrancais.Text = ""<br />
xtNotes.Text = ""<br />
imer1.Enabled = False<br />
nd Sub<br />
rivate Sub btnFermer_Click()<br />
robby.Hide 0<br />
nload Me<br />
nd Sub<br />
rivate Sub btnGo_Click()<br />
im hebreu$, prononciation$, francais$, notes$, recherche$, mot$<br />
définitions des variables<br />
ebreu = txtHebreu.Text<br />
rononciation = txtPrononciation.Text<br />
rancais = txtFrancais.Text<br />
otes = txtNotes.Text<br />
gestion erreurs<br />
f txtHebreu.Text = "" And _<br />
xtFrancais.Text = "" Then<br />
file = MsgBox("Vous n'avez pas saisi votre recherche !", vbExclamation, "Rechercher un mot")<br />
xit Sub<br />
nd If<br />
Par défaut la recherche est EXACTE<br />
détermination du mot-clé à chercher dans le lexique<br />
je cherche un mot HEBREU<br />
f txtFrancais.Text = "" Then 'And _<br />
'txtPrononciation.Text = "" And _<br />
'txtNotes.Text = "" Then
frmDicoHebreu - 2<br />
recherche = txtHebreu.Text<br />
Call HebreuFrancais(recherche)<br />
Exit Sub<br />
' je cherche un mot FRANCAIS<br />
ElseIf txtHebreu.Text = "" Then 'And _<br />
'txtPrononciation.Text = "" And _<br />
'txtNotes.Text = "" Then<br />
recherche = txtFrancais.Text<br />
Call FrancaisHebreu(recherche)<br />
Exit Sub<br />
' C'est du français que je cherche !<br />
End If<br />
End Sub<br />
Private Sub btnGo2_Click()<br />
End Sub<br />
Private Sub BtnGraphic1_Click()<br />
txtHebreu.Text = ""<br />
txtPrononciation.Text = ""<br />
txtFrancais.Text = ""<br />
txtNotes.Text = ""<br />
Timer1.Enabled = False<br />
End Sub<br />
Private Sub btnRechercher_Click()<br />
btnGo_Click<br />
End Sub<br />
Private Sub Command1_Click()<br />
Dim mothebreu$<br />
mothebreu = txtHebreu.Text<br />
mothebreu = StrReverse(mothebreu)<br />
If Left(mothebreu, 1) = "m" Then<br />
mothebreu = "M" & Mid(mothebreu, 2, Len(mothebreu))<br />
ElseIf Left(mothebreu, 1) = "k" Then<br />
mothebreu = "n" & Mid(mothebreu, 2, Len(mothebreu))<br />
ElseIf Left(mothebreu, 1) = "k" Then<br />
mothebreu = "N" & Mid(mothebreu, 2, Len(mothebreu))<br />
ElseIf Left(mothebreu, 1) = "p" Then<br />
mothebreu = "P" & Mid(mothebreu, 2, Len(mothebreu))<br />
ElseIf Left(mothebreu, 1) = "u" Then<br />
mothebreu = "U" & Mid(mothebreu, 2, Len(mothebreu))<br />
End If<br />
txtHebreu.Text = mothebreu<br />
End Sub<br />
Private Sub Form_Load()<br />
Command1.Visible = False<br />
btnAjouter.Visible = False<br />
mnuConsultation.Checked = True<br />
'<strong>Microsoft</strong> Agent robby<br />
'Agent.Characters.Load "robby", DATAPATH<br />
'Set robby = Agent.Characters("robby")<br />
'robby.LanguageID = &H40C<br />
'Dim c<br />
'c = robby.MoveTo(640, 200)<br />
'robby.Show<br />
'robby.Play ("GetAttention")<br />
'robby.Think ("Bonjour, Je suis Robby. Je vous lirai les passages que vous souhaitez. Pour<br />
cela, cliquez moi, ou pressez F2")<br />
End Sub<br />
Private Sub Image2_Click()<br />
Dim erreur<br />
'If txtPrononciation.Text "" Then
frmDicoHebreu - 3<br />
'robby.Speak (txtPrononciation.Text & ", qui signifie : " & txtFrancais.Text)<br />
'Else<br />
'erreur = MsgBox("Il n'y a rien à prononcer !", vbExclamation, "Erreur")<br />
'End If<br />
End Sub<br />
Private Sub Label5_Click()<br />
Dim erreur<br />
'If txtPrononciation.Text "" Then<br />
'Prononce.Speak (txtPrononciation.Text)<br />
'Else<br />
'erreur = MsgBox("Il n'y a rien à prononcer !", vbExclamation)<br />
'End If<br />
End Sub<br />
Private Sub mnuAide2_Click()<br />
Dim msg$<br />
msg = MsgBox("Abbréviations :" & vbCrLf & "- S + numéro = Numéro strong" & vbCrLf & "- EP : Etude P<br />
erspicaces des Ecritures (2 vol.)" & vbCrLf & "- BDB : Brown-Driver-Briggs Hebrew and Chaldee Lexic<br />
on, Hendrikson Publishers, 7e éd." & vbCrLf & "- DHAB: Dictionnaire d'Hébreu et d'Araméen Bibliques<br />
, Ph. Reymond, éd. CERF/SBF, 2002", vbInformation)<br />
End Sub<br />
Private Sub mnuConsultation_Click()<br />
btnAjouter.Visible = False<br />
Command1.Visible = True<br />
mnuConsultation.Checked = True<br />
mnuEdition.Checked = False<br />
Timer1.Enabled = False<br />
End Sub<br />
Private Sub mnuEdition_Click()<br />
Dim msg<br />
msg = InputBox("Vous allez modifier le lexique de Bible Parser." & vbCrLf & vbCrLf & "Veuillez sasi<br />
sir le mot de passe !", "Mode Edition")<br />
If msg = "debarim" Then<br />
btnAjouter.Visible = True<br />
btnAjouter.Enabled = True<br />
Command1.Visible = True<br />
mnuConsultation.Checked = False<br />
mnuEdition.Checked = True<br />
mnuVisible_Click<br />
mnuStrRev_Click<br />
Timer1.Enabled = False<br />
End If<br />
End Sub<br />
Private Sub mnuInvisible_Click()<br />
mnuVisible.Checked = False<br />
mnuInvisible.Checked = True<br />
txtPrononciation.Visible = False<br />
Label5.Visible = False<br />
End Sub<br />
Private Sub mnuQuit_Click()<br />
Unload Me<br />
End Sub<br />
Private Sub mnuStrRev_Click()<br />
Command1.Visible = True<br />
Command1_Click<br />
End Sub<br />
Private Sub mnuVisible_Click()<br />
mnuVisible.Checked = True<br />
mnuInvisible.Checked = False<br />
txtPrononciation.Visible = True<br />
End Sub
frmDicoHebreu - 4<br />
Private Sub Timer1_Timer()<br />
If mnuEdition.Checked = False Then btnGo_Click<br />
End Sub<br />
Private Sub Timer2_Timer()<br />
If txtHebreu.Text = "" Then<br />
Timer1.Enabled = False<br />
End If<br />
End Sub<br />
Private Sub txtFrancais_KeyUp(KeyCode As Integer, Shift As Integer)<br />
If KeyCode = 13 Then btnGo_Click<br />
End Sub<br />
Private Sub txtHebreu_KeyUp(KeyCode As Integer, Shift As Integer)<br />
If KeyCode = 13 Then btnGo_Click<br />
If KeyCode = 27 Then Unload Me<br />
End Sub<br />
Private Sub txtNotes_Change()<br />
Timer1.Enabled = False<br />
End Sub
frmDicoHebreu - 1<br />
VERSION 5.00<br />
Begin VB.Form frmDicoHebreu<br />
BorderStyle = 4 'Fixed ToolWindow<br />
Caption = " Dictionnaire hébreu / français"<br />
ClientHeight = 3765<br />
ClientLeft = 45<br />
ClientTop = 540<br />
ClientWidth = 6525<br />
ForeColor = &H00000000&<br />
Icon = (Icon)<br />
LinkTopic = "Form1"<br />
MaxButton = 0 'False<br />
MinButton = 0 'False<br />
Picture = (Bitmap)<br />
ScaleHeight = 3765<br />
ScaleWidth = 6525<br />
ShowInTaskbar = 0 'False<br />
StartUpPosition = 2 'CenterScreen<br />
Begin VB.CommandButton btnAjouter<br />
Caption = "&Ajouter"<br />
Height = 375<br />
Left = 5040<br />
TabIndex = 16<br />
Top = 2160<br />
Width = 1455<br />
End<br />
Begin VB.CommandButton btnRechercher<br />
Caption = "Rechercher"<br />
Height = 375<br />
Left = 5040<br />
TabIndex = 15<br />
Top = 1680<br />
Width = 1455<br />
End<br />
Begin VB.CommandButton btnEffacer<br />
Caption = "&Effacer"<br />
Height = 375<br />
Left = 5280<br />
TabIndex = 14<br />
Top = 960<br />
Width = 1095<br />
End<br />
Begin VB.CommandButton btnFermer<br />
Caption = "&Fermer"<br />
Height = 375<br />
Left = 5520<br />
TabIndex = 13<br />
Top = 3360<br />
Width = 855<br />
End<br />
Begin VB.Timer Timer2<br />
Interval = 20<br />
Left = 720<br />
Top = 3120<br />
End<br />
Begin VB.CheckBox chkCase<br />
Height = 195<br />
Left = 5040<br />
TabIndex = 11<br />
Top = 1440<br />
Value = 1 'Checked<br />
Width = 195<br />
End<br />
Begin VB.Timer Timer1<br />
Interval = 250<br />
Left = 5520<br />
Top = 2640<br />
End<br />
Begin VB.CommandButton btnGo<br />
Caption = "btnGo"<br />
Height = 195<br />
Left = 480<br />
TabIndex = 10<br />
Top = 120<br />
Visible = 0 'False<br />
Width = 1335
frmDicoHebreu - 2<br />
End<br />
Begin VB.CommandButton Command1<br />
Caption = ""<br />
Height = 255<br />
Left = 2040<br />
TabIndex = 9<br />
ToolTipText = "Cliquez ici pour inverser votre mot hébreu"<br />
Top = 1440<br />
Visible = 0 'False<br />
Width = 735<br />
End<br />
Begin VB.TextBox txtPrononciation<br />
Height = 405<br />
Left = 0<br />
MouseIcon = (Icon)<br />
TabIndex = 2<br />
ToolTipText = "Cliquez ici pour écouter la prononciation de ce mot"<br />
Top = 1680<br />
Visible = 0 'False<br />
Width = 1815<br />
End<br />
Begin VB.TextBox txtFrancais<br />
Height = 495<br />
Left = 3000<br />
TabIndex = 1<br />
Top = 960<br />
Width = 2055<br />
End<br />
Begin VB.TextBox txtHebreu<br />
BeginProperty Font<br />
Name = "OLBHEB"<br />
Size = 14.25<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 495<br />
Left = 720<br />
TabIndex = 0<br />
Top = 960<br />
Width = 2055<br />
End<br />
Begin VB.TextBox txtNotes<br />
Height = 975<br />
Left = 1320<br />
MultiLine = -1 'True<br />
ScrollBars = 2 'Vertical<br />
TabIndex = 3<br />
Top = 2640<br />
Width = 3615<br />
End<br />
Begin VB.Image Image2<br />
Height = 480<br />
Left = 120<br />
MousePointer = 2 'Cross<br />
Picture = (Icon)<br />
ToolTipText = "Prononcer le mot hébreu"<br />
Top = 960<br />
Visible = 0 'False<br />
Width = 480<br />
End<br />
Begin VB.Label Label6<br />
BackStyle = 0 'Transparent<br />
Caption = "Repecter la casse"<br />
BeginProperty Font<br />
Name = "Times New Roman"<br />
Size = 8.25<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = -1 'True<br />
Strikethrough = 0 'False<br />
EndProperty<br />
ForeColor = &H00FFFFFF&
frmDicoHebreu - 3<br />
Height = 255<br />
Left = 5280<br />
TabIndex = 12<br />
Top = 1440<br />
Width = 1215<br />
End<br />
Begin VB.Label Label5<br />
BackStyle = 0 'Transparent<br />
Caption = "Prononciation"<br />
BeginProperty Font<br />
Name = "Times New Roman"<br />
Size = 9.75<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = -1 'True<br />
Strikethrough = 0 'False<br />
EndProperty<br />
ForeColor = &H00FFFFFF&<br />
Height = 255<br />
Left = 0<br />
TabIndex = 8<br />
ToolTipText = "Cliquez ici pour écouter la prononciation de ce mot"<br />
Top = 2160<br />
Visible = 0 'False<br />
Width = 1215<br />
End<br />
Begin VB.Label Label4<br />
BackStyle = 0 'Transparent<br />
Caption = "Français"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 8.25<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
ForeColor = &H00FFFFFF&<br />
Height = 255<br />
Left = 3480<br />
TabIndex = 7<br />
Top = 1440<br />
Width = 975<br />
End<br />
Begin VB.Label Label3<br />
BackStyle = 0 'Transparent<br />
Caption = "Hébreu"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 8.25<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
ForeColor = &H00FFFFFF&<br />
Height = 255<br />
Left = 1320<br />
TabIndex = 6<br />
ToolTipText = "Cliquez ici pour écouter la prononciation de ce mot"<br />
Top = 1440<br />
Width = 975<br />
End<br />
Begin VB.Label Label2<br />
Alignment = 2 'Center<br />
BackStyle = 0 'Transparent<br />
Caption = "Notes"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 12<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False
frmDicoHebreu - 4<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
ForeColor = &H00FFFFFF&<br />
Height = 375<br />
Left = 1200<br />
TabIndex = 5<br />
Top = 2280<br />
Width = 3615<br />
End<br />
Begin VB.Label Label1<br />
Alignment = 2 'Center<br />
BackStyle = 0 'Transparent<br />
Caption = "Mrbd"<br />
BeginProperty Font<br />
Name = "OLBHEB"<br />
Size = 24<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
ForeColor = &H00FFFFFF&<br />
Height = 495<br />
Left = 0<br />
TabIndex = 4<br />
ToolTipText = "DEBARIM : LES PAROLES, LES MOTS, LES CHOSES"<br />
Top = 120<br />
Width = 6495<br />
End<br />
Begin VB.Menu mnuFichier<br />
Caption = "Fichier"<br />
Begin VB.Menu mnuQuit<br />
Caption = "Quitter"<br />
Shortcut = ^{F4}<br />
End<br />
End<br />
Begin VB.Menu mnuMode<br />
Caption = "Mode"<br />
Begin VB.Menu mnuConsultation<br />
Caption = "Consultation"<br />
Checked = -1 'True<br />
Shortcut = ^C<br />
End<br />
Begin VB.Menu mnuB1<br />
Caption = "-"<br />
End<br />
Begin VB.Menu mnuEdition<br />
Caption = "Edition"<br />
Shortcut = ^E<br />
End<br />
End<br />
Begin VB.Menu mnuOptions<br />
Caption = "Options"<br />
Begin VB.Menu mnuStrRev<br />
Caption = "Inverse hébreu"<br />
Shortcut = {DEL}<br />
End<br />
Begin VB.Menu mnuB2<br />
Caption = "-"<br />
End<br />
Begin VB.Menu mnuTrans<br />
Caption = "Translitération"<br />
Begin VB.Menu mnuVisible<br />
Caption = "Visible"<br />
End<br />
Begin VB.Menu mnuInvisible<br />
Caption = "Invisible"<br />
Checked = -1 'True<br />
End<br />
End<br />
End<br />
Begin VB.Menu mnuAide<br />
Caption = "?"<br />
Begin VB.Menu mnuAide2
frmDicoHebreu - 5<br />
Caption = "Aide"<br />
Shortcut = {F1}<br />
End<br />
Begin VB.Menu mnuTimerOui<br />
Caption = "TimerOui"<br />
Visible = 0 'False<br />
End<br />
Begin VB.Menu mnuTimerNon<br />
Caption = "TimerNon"<br />
Visible = 0 'False<br />
End<br />
End<br />
End
Prononciation<br />
Mrbd<br />
Hébreu Français<br />
Notes<br />
Repecter la casse
frmDicoLatFr - 1<br />
Public Sub btnGo_Click()<br />
Dim mot$<br />
mot = Text1.Text<br />
Text2.Text = ""<br />
If Option1.Value = 1 Then<br />
Call FrancaisLatin(mot)<br />
Else<br />
Call LatinFrancais(mot)<br />
End If<br />
Text2.Visible = True<br />
txtWords.Visible = True<br />
End Sub<br />
Private Sub Command1_Click()<br />
Unload Me<br />
End Sub<br />
Private Sub Text1_Click()<br />
Text1.Text = ""<br />
txtWords.Text = ""<br />
Text2.Visible = False<br />
txtWords.Visible = False<br />
List1.Visible = False<br />
End Sub<br />
Private Sub Text1_KeyPress(KeyAscii As Integer)<br />
If KeyAscii = 13 Then btnGo_Click<br />
If KeyAscii = 27 Then Command1_Click<br />
End Sub
frmDicoLatFr - 1<br />
VERSION 5.00<br />
Begin VB.Form frmDicoLatFr<br />
BorderStyle = 4 'Fixed ToolWindow<br />
Caption = " Latin / Français & Anglais + analyse morphologique"<br />
ClientHeight = 3405<br />
ClientLeft = 45<br />
ClientTop = 315<br />
ClientWidth = 5145<br />
LinkTopic = "Form1"<br />
MaxButton = 0 'False<br />
MinButton = 0 'False<br />
Picture = (Bitmap)<br />
ScaleHeight = 3405<br />
ScaleWidth = 5145<br />
ShowInTaskbar = 0 'False<br />
StartUpPosition = 2 'CenterScreen<br />
Begin VB.ListBox List1<br />
Height = 645<br />
Left = 120<br />
TabIndex = 6<br />
Top = 2520<br />
Width = 4455<br />
End<br />
Begin VB.TextBox txtWords<br />
Height = 1575<br />
Left = 2280<br />
MultiLine = -1 'True<br />
ScrollBars = 2 'Vertical<br />
TabIndex = 5<br />
Top = 840<br />
Visible = 0 'False<br />
Width = 2775<br />
End<br />
Begin VB.CheckBox Option1<br />
BackColor = &H00C0E0FF&<br />
Caption = "ou français/latin"<br />
Height = 255<br />
Left = 120<br />
TabIndex = 4<br />
Top = 480<br />
Width = 1575<br />
End<br />
Begin VB.CommandButton btnGo<br />
Caption = "Go"<br />
Height = 375<br />
Left = 1920<br />
TabIndex = 3<br />
Top = 120<br />
Width = 375<br />
End<br />
Begin VB.TextBox Text2<br />
Height = 1575<br />
Left = 120<br />
MultiLine = -1 'True<br />
ScrollBars = 2 'Vertical<br />
TabIndex = 2<br />
Top = 840<br />
Visible = 0 'False<br />
Width = 2175<br />
End<br />
Begin VB.CommandButton Command1<br />
Cancel = -1 'True<br />
Caption = "X"<br />
Height = 375<br />
Left = 4680<br />
TabIndex = 1<br />
Top = 2520<br />
Width = 375<br />
End<br />
Begin VB.TextBox Text1<br />
Height = 375<br />
Left = 120<br />
TabIndex = 0<br />
Top = 120<br />
Width = 1575<br />
End
frmDicoLatFr - 2<br />
End
frmDictionnaires - 1<br />
Private Sub btnQuitter_Click()<br />
Unload Me<br />
End Sub<br />
Public Sub btnRechercher_Click()<br />
Dim mot$<br />
msg = Replace(frmDictionnaires.txtRecherche.Text, ",", "", 1)<br />
If frmDictionnaires.txtRecherche.Text = "" Then Exit Sub<br />
'If cboEncyclo.Text = "KJD" Then<br />
' mot = txtRecherche.Text<br />
' Call LireKJVD(mot)<br />
' Exit Sub<br />
'End If<br />
'If cboEncyclo.Text = "CBC" Then<br />
' mot = txtRecherche.Text<br />
' Call LireCBC(mot)<br />
' Exit Sub<br />
'End If<br />
frmParse2.Text1.Text = ""<br />
' définition des variables<br />
Dim lfile As Long 'Lecture<br />
Dim ofile As String 'Fichier à ouvrir<br />
Dim chercher$, reference$<br />
Dim dico$<br />
mot = frmDictionnaires.txtRecherche.Text<br />
lfile = FreeFile<br />
' conditions pour les différents fichiers<br />
If cboEncyclo.Text = "Easton" Then<br />
mot = LCase(mot)<br />
dico = "easton.txt"<br />
ElseIf cboEncyclo.Text = "Smith" Then<br />
dico = "smith.txt"<br />
ElseIf cboEncyclo.Text = "ISBE" Then<br />
dico = "isbe.txt"<br />
ElseIf cboEncyclo.Text = "Hitchcock" Then<br />
dico = "hitch.txt"<br />
ElseIf cboEncyclo.Text = "ATSBD" Then<br />
RechercherATSBD (mot)<br />
Exit Sub<br />
ElseIf cboEncyclo.Text = "Webster" Then<br />
RechercherWebster (mot)<br />
Exit Sub<br />
ElseIf cboEncyclo.Text = "Nuttall" Then<br />
RechercherNuttall (mot)<br />
Exit Sub<br />
ElseIf cboEncyclo.Text = "Wace" Then<br />
RechercherWace (mot)<br />
Exit Sub<br />
End If<br />
' affectation du fichier à ouvrir<br />
ofile = App.Path & "\modules\dictionnaires\" & dico<br />
If dico = "isbe.txt" Then<br />
mot = UCase(mot)<br />
End If<br />
If cboEncyclo.Text = "Easton" Or cboEncyclo.Text = "Smith" Then<br />
premierelettre = UCase(Left(mot, 1))<br />
mot = premierelettre & Mid(mot, 2, Len(mot))<br />
End If<br />
reference = "\" & mot & "\"<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(reference)) = reference Then ' pour que le mot recherché soit exact<br />
'affectation du verset du fichier à la variable<br />
frmParse2.Text1.Text = frmParse2.Text1.Text & ligne<br />
Do<br />
Line Input #lfile, ligne
frmDictionnaires - 2<br />
Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
If Left(ligne, 2) = "$$" Then<br />
GoTo apres:<br />
Else<br />
frmParse2.Text1.Text = frmParse2.Text1.Text & " " & ligne<br />
End If<br />
apres:<br />
'MsgBox frmParse2.Text1.Text<br />
'mot = frmParse2.Text1.Text<br />
Close #lfile<br />
frmDictionnaires.txtResultat = UCase(mot) & " :" & vbCrLf & Mid(frmParse2.Text1.Text, Len(mot) + 4,<br />
Len(frmParse2.Text1.Text))<br />
End Sub<br />
Private Sub Form_Load()<br />
cboEncyclo.AddItem ("Easton")<br />
cboEncyclo.AddItem ("Smith")<br />
cboEncyclo.AddItem ("ISBE")<br />
cboEncyclo.AddItem ("ATSBD")<br />
cboEncyclo.AddItem ("Wace")<br />
cboEncyclo.AddItem ("Webster")<br />
cboEncyclo.AddItem ("Nuttall")<br />
cboEncyclo.AddItem ("Hitchcock")<br />
cboEncyclo.Text = "Easton"<br />
End Sub<br />
Private Sub txtrecherche_KeyUp(KeyCode As Integer, Shift As Integer)<br />
If KeyCode = 13 Then btnRechercher_Click<br />
End Sub<br />
Private Sub txtresultat_DblClick()<br />
txtRecherche.Text = txtResultat.SelText<br />
txtRecherche.Text = Trim(txtRecherche.Text)<br />
txtRecherche.Text = Replace(txtRecherche.Text, ",", "")<br />
txtRecherche.Text = Replace(txtRecherche.Text, ".", "")<br />
txtRecherche.Text = Replace(txtRecherche.Text, "!", "")<br />
txtRecherche.Text = Replace(txtRecherche.Text, ":", "")<br />
txtRecherche.Text = Replace(txtRecherche.Text, "(", "")<br />
txtRecherche.Text = Replace(txtRecherche.Text, ")", "")<br />
btnRechercher_Click<br />
End Sub
frmDictionnaires - 1<br />
VERSION 5.00<br />
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"<br />
egin VB.Form frmDictionnaires<br />
BackColor = &H00FFFFFF&<br />
BorderStyle = 4 'Fixed ToolWindow<br />
ClientHeight = 4380<br />
ClientLeft = 7455<br />
ClientTop = 2445<br />
ClientWidth = 4200<br />
Icon = (Icon)<br />
LinkTopic = "Form1"<br />
MaxButton = 0 'False<br />
MinButton = 0 'False<br />
Picture = (Bitmap)<br />
ScaleHeight = 4380<br />
ScaleWidth = 4200<br />
Begin RichTextLib.RichTextBox txtresultat<br />
Height = 2415<br />
Left = 120<br />
TabIndex = 13<br />
Top = 1440<br />
Width = 3855<br />
_ExtentX = 6800<br />
_ExtentY = 4260<br />
_Version = 393217<br />
Enabled = -1 'True<br />
ScrollBars = 2<br />
TextRTF = <br />
End<br />
Begin VB.ComboBox cboEncyclo<br />
Height = 315<br />
Left = 1920<br />
TabIndex = 11<br />
Top = 840<br />
Width = 1575<br />
End<br />
Begin VB.CommandButton btnQuitter<br />
Cancel = -1 'True<br />
Caption = "X"<br />
Height = 375<br />
Left = 3600<br />
TabIndex = 10<br />
Top = 3960<br />
Width = 495<br />
End<br />
Begin VB.OptionButton optCBC<br />
BackColor = &H00C0E0FF&<br />
Caption = "Option1"<br />
ForeColor = &H00000000&<br />
Height = 255<br />
Left = 4080<br />
TabIndex = 8<br />
Top = 4800<br />
Visible = 0 'False<br />
Width = 255<br />
End<br />
Begin VB.OptionButton optKJVD<br />
BackColor = &H00C0E0FF&<br />
Caption = "Option1"<br />
ForeColor = &H00000000&<br />
Height = 255<br />
Left = 4080<br />
TabIndex = 6<br />
Top = 4440<br />
Visible = 0 'False<br />
Width = 255<br />
End<br />
Begin VB.CommandButton btnrechercher<br />
Caption = "Go"<br />
Default = -1 'True<br />
Height = 375<br />
Left = 3600<br />
TabIndex = 1<br />
Top = 840<br />
Width = 495<br />
End
frmDictionnaires - 2<br />
Begin VB.TextBox txtrecherche<br />
Height = 405<br />
Left = 120<br />
TabIndex = 0<br />
ToolTipText = "Tapez votre recherche en anglais"<br />
Top = 840<br />
Width = 1695<br />
End<br />
Begin VB.OptionButton opt<strong>Encyclopaedia</strong><br />
BackColor = &H00C0E0FF&<br />
Caption = "&International Bible Standard <strong>Encyclopaedia</strong>"<br />
Height = 255<br />
Left = 4080<br />
TabIndex = 5<br />
Top = 4080<br />
Visible = 0 'False<br />
Width = 3375<br />
End<br />
Begin VB.OptionButton optSmith<br />
BackColor = &H00C0E0FF&<br />
Caption = "Dictionnaire biblique de &Smith"<br />
Height = 255<br />
Left = 4080<br />
TabIndex = 4<br />
Top = 3720<br />
Visible = 0 'False<br />
Width = 2415<br />
End<br />
Begin VB.OptionButton optHitch<br />
BackColor = &H00C0E0FF&<br />
Caption = "Dictionnaire de &Hitchcock"<br />
Height = 255<br />
Left = 4080<br />
TabIndex = 3<br />
Top = 3360<br />
Visible = 0 'False<br />
Width = 2535<br />
End<br />
Begin VB.OptionButton optEaston<br />
BackColor = &H00C0E0FF&<br />
Caption = "Dictionnaire de &Easton"<br />
Height = 255<br />
Left = 4080<br />
TabIndex = 2<br />
Top = 3000<br />
Visible = 0 'False<br />
Width = 1935<br />
End<br />
Begin VB.Label Label2<br />
BackStyle = 0 'Transparent<br />
Caption = "Références"<br />
BeginProperty Font<br />
Name = "Georgia"<br />
Size = 15.75<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = -1 'True<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 615<br />
Left = 1080<br />
TabIndex = 12<br />
Top = 120<br />
Width = 3255<br />
End<br />
Begin VB.Label lblCBC<br />
BackColor = &H00C0E0FF&<br />
Caption = "Encyclopédie biblique condensée"<br />
ForeColor = &H00000000&<br />
Height = 255<br />
Left = 4320<br />
TabIndex = 9<br />
Top = 4800<br />
Visible = 0 'False<br />
Width = 2535
frmDictionnaires - 3<br />
End<br />
Begin VB.Label Label1<br />
BackColor = &H00C0E0FF&<br />
Caption = "Dictionnaire de la Bible King James"<br />
ForeColor = &H00000000&<br />
Height = 255<br />
Left = 4320<br />
TabIndex = 7<br />
Top = 4440<br />
Visible = 0 'False<br />
Width = 2535<br />
End<br />
End
Références
frmGF - 1<br />
Private Sub Agent1_Bookmark(ByVal BookmarkID As Long)<br />
Dim msg<br />
If BookmarkID = 100 Then<br />
msg = MsgBox("Voulez-vous visiter ce site ?", vbYesNo, "Consulter le dictionnaire Liddell Scott")<br />
If msg = vbYes Then<br />
Load frmBrowser<br />
frmBrowser.Show<br />
frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/cgi-bin/resolveform"<br />
End If<br />
End If<br />
End Sub<br />
Private Sub Command1_Click()<br />
If optgrec.Value = True Then<br />
Text1.Font = "Grenet"<br />
Label1.Font = "Papyrus"<br />
ElseIf optfra.Value = True Then<br />
Text1.Font = "Papyrus"<br />
Label1.Font = "Grenet"<br />
End If<br />
Dim definition$, motr$, mott$, msg$<br />
msg = "Vous devez saisir un mot à définir ! | Vous n'avez pas saisi de mot à définir... | Que voule<br />
z-vous définir ? | Il vous faut indiquer un mot à définir."<br />
If Text1.Text = "" Then<br />
MsgBox msg<br />
Exit Sub<br />
End If<br />
If optgrec.Value = True Then '--------- appel de fonction pour le grec ( Gr > Fr )<br />
motr = Text1.Text<br />
Call DefinirGrec(motr, mott)<br />
If mott = "Pas de définition disponible" Then<br />
mott = "???"<br />
End If<br />
Label1.Caption = mott<br />
Label1.ToolTipText = "Résultat pour " & motr<br />
ElseIf optfra.Value = True Then ' ----- appel de fonction pour le français ( Fr > Gr )<br />
motr = Text1.Text<br />
Call DefinirFrancais(motr, mott)<br />
If mott = "Pas de définition disponible" Then<br />
mott = "***"<br />
End If<br />
Label1.Caption = mott<br />
Label1.ToolTipText = "Résultat pour " & motr<br />
End If<br />
End Sub<br />
Private Sub Command2_Click()<br />
Unload Me<br />
End Sub<br />
Private Sub Form_Load()<br />
If optgrec.Value = True Then<br />
Text1.Font = "Grenet"<br />
Label1.Font = "Papyrus"<br />
Else<br />
Text1.Font = "Papyrus"<br />
Label1.Font = "Grenet"<br />
End If<br />
End Sub<br />
Private Sub Label2_Click()<br />
Text1.Text = ""
frmGF - 2<br />
Label1.Caption = ""<br />
End Sub<br />
Private Sub optfra_Click()<br />
Text1.Text = ""<br />
Label1.Caption = ""<br />
Text1.Font = "Papyrus"<br />
Label1.Font = "Papyrus"<br />
End Sub<br />
Private Sub optgrec_Click()<br />
Text1.Text = ""<br />
Label1.Caption = ""<br />
Text1.Font = "Papyrus"<br />
Label1.Font = "Papyrus"<br />
End Sub<br />
Private Sub Picture1_Click()<br />
Unload Me<br />
End Sub<br />
Private Sub Text1_GotFocus()<br />
Text1.Text = ""<br />
End Sub<br />
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)<br />
If KeyCode = 13 Then<br />
Command1_Click 'Lance la recherche<br />
ElseIf KeyCode = vbKeyEscape Then<br />
Unload Me<br />
End If<br />
End Sub
frmGF - 1<br />
VERSION 5.00<br />
Begin VB.Form frmGF<br />
BorderStyle = 4 'Fixed ToolWindow<br />
Caption = " Dictionnaire grec/français"<br />
ClientHeight = 2190<br />
ClientLeft = 45<br />
ClientTop = 315<br />
ClientWidth = 5115<br />
Icon = (Icon)<br />
LinkTopic = "Form1"<br />
MaxButton = 0 'False<br />
MinButton = 0 'False<br />
Picture = (Bitmap)<br />
ScaleHeight = 2190<br />
ScaleWidth = 5115<br />
ShowInTaskbar = 0 'False<br />
StartUpPosition = 2 'CenterScreen<br />
Begin VB.CommandButton Command2<br />
Cancel = -1 'True<br />
Caption = "X"<br />
Height = 375<br />
Left = 4560<br />
TabIndex = 6<br />
Top = 1680<br />
Width = 375<br />
End<br />
Begin VB.CommandButton Command1<br />
Caption = "&Définir"<br />
Default = -1 'True<br />
BeginProperty Font<br />
Name = "Times New Roman"<br />
Size = 8.25<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 375<br />
Left = 2400<br />
TabIndex = 5<br />
Top = 0<br />
Width = 735<br />
End<br />
Begin VB.TextBox Text1<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 13.5<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 495<br />
Left = 0<br />
TabIndex = 0<br />
Top = 0<br />
Width = 2295<br />
End<br />
Begin VB.OptionButton optfra<br />
BackColor = &H00FFFFFF&<br />
Caption = "&Français"<br />
Height = 255<br />
Left = 840<br />
TabIndex = 2<br />
Top = 480<br />
Width = 1455<br />
End<br />
Begin VB.OptionButton optgrec<br />
BackColor = &H00FFFFFF&<br />
Caption = "Grec"<br />
Height = 255<br />
Left = 0<br />
TabIndex = 1<br />
Top = 480
frmGF - 2<br />
Value = -1 'True<br />
Width = 855<br />
End<br />
Begin VB.Label Label2<br />
Alignment = 2 'Center<br />
BackStyle = 0 'Transparent<br />
Caption = "Effacer"<br />
ForeColor = &H000000FF&<br />
Height = 255<br />
Left = 2040<br />
TabIndex = 4<br />
Top = 480<br />
Width = 1335<br />
End<br />
Begin VB.Label Label1<br />
BackStyle = 0 'Transparent<br />
BeginProperty Font<br />
Name = "Grenet"<br />
Size = 14.25<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 615<br />
Left = 240<br />
TabIndex = 3<br />
Top = 1320<br />
Width = 3495<br />
End<br />
End
Effacer
frmGrammaire - 1<br />
Private Sub btnFermer_Click()<br />
If frmAnalyseMorphologique.lblanalyse "" Then<br />
Unload Me<br />
'Me.Hide<br />
frmAnalyseMorphologique.Show<br />
Else<br />
Unload Me<br />
End If<br />
End Sub<br />
Private Sub btnGo_Click()<br />
Dim ofile, lfile, ligne, texte<br />
lstGrammaires.Text = ""<br />
If chkExact.Value = 0 Then<br />
ofile = App.Path & "\tools\temp.txt"<br />
lfile = FreeFile<br />
texte = Replace(txtAnalyse.Text, " ", vbCrLf)<br />
texte = Replace(texte, "1", "")<br />
texte = Replace(texte, "2", "")<br />
texte = Replace(texte, "3", "")<br />
texte = Replace(texte, "personne", "")<br />
texte = Replace(texte, "ème", "")<br />
texte = Replace(texte, "ère", "")<br />
texte = Replace(texte, "(", "")<br />
texte = Replace(texte, ")", "")<br />
List1.Clear<br />
Open ofile For Output As #lfile<br />
Print #lfile, texte<br />
Close<br />
lfile = FreeFile<br />
texte = ""<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, texte<br />
If texte "" Then<br />
List1.AddItem (texte)<br />
End If<br />
Loop While Not EOF(lfile)<br />
Close<br />
List1.Text = List1.List(1)<br />
'Call GrammaireAbel(recherche)<br />
'If recherche "" Then lstGrammaires.AddItem ("Abel, Grammaire du grec biblique")<br />
'Call GrammaireBoxus(recherche)<br />
'If recherche "" Then lstGrammaires.AddItem ("Boxus, Grammaire grecque")<br />
'Call GrammaireWallace(recherche)<br />
'If recherche "" Then lstGrammaires.AddItem ("Wallace/Mounce, Greek Grammar Compilation")<br />
'List1_Click<br />
Else<br />
'RECHERCHE COMPOSEE, genre: aoriste moyen<br />
List1.Clear<br />
List1.AddItem (txtAnalyse.Text)<br />
'List1.Text = recherche<br />
'Call GrammaireAbel(recherche)<br />
'If recherche "" Then lstGrammaires.AddItem ("Abel, Grammaire du Grec biblique")<br />
'Call GrammaireBoxus(recherche)<br />
'If recherche "" Then lstGrammaires.AddItem ("Boxus, Grammaire grecque")<br />
'Call GrammaireWallace(recherche)<br />
'If recherche "" Then lstGrammaires.AddItem ("Wallace/Mounce, Greek Grammar Compilation")<br />
End If<br />
End Sub<br />
Private Sub lblAbel_Click()<br />
Dim msg$, debloque As Boolean<br />
Dim fichier$<br />
Dim ofile%
frmGrammaire - 2<br />
ofile = FreeFile<br />
fichier = App.Path & "\tools\bp.ini"<br />
Open fichier For Input As #ofile<br />
Input #ofile, mot<br />
End Sub<br />
If lblAbel.Caption = "" Then Exit Sub<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\abel\abel.pdf")<br />
frmPDF.pdfmain.setCurrentPage (Val(lblAbel.Caption))<br />
frmPDF.Caption = "Abel, Grammaire de grec biblique"<br />
frmPDF.Show<br />
Private Sub lblBurton_Click()<br />
If lblBurton.Caption = "" Then Exit Sub<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\burton\burton.pdf")<br />
frmPDF.pdfmain.setCurrentPage (Val(lblBurton.Caption))<br />
frmPDF.Caption = "Burton - Moods and Tenses of New Testament Greek"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub lblConybeare_Click()<br />
If lblConybeare.Caption = "" Then Exit Sub<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\cony\conybeare.pdf")<br />
frmPDF.pdfmain.setCurrentPage (Val(lblConybeare.Caption))<br />
frmPDF.Caption = "Conybeare - A Grammar of Septuagint Greek"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub lblGoodwin_Click()<br />
If lblGoodwin.Caption = "" Then Exit Sub<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\goodw\GoodwinG.pdf")<br />
frmPDF.pdfmain.setCurrentPage (Val(lblGoodwin.Caption))<br />
frmPDF.Caption = "Goodwin - Greek Grammar"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub lblSmith_Click()<br />
If lblSmith.Caption = "" Then Exit Sub<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\smith\smith.pdf")<br />
frmPDF.pdfmain.setCurrentPage (Val(lblSmith.Caption))<br />
frmPDF.Caption = "Smith - Greek Grammar"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub lblWallace_Click()<br />
If lblWallace.Caption = "" Then Exit Sub<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\gg\GG.pdf")<br />
frmPDF.pdfmain.setCurrentPage (Val(lblWallace.Caption))<br />
frmPDF.Caption = "Wallace / Mounce Greek Grammar [Compilation]"<br />
frmPDF.Show<br />
End Sub<br />
Private Sub List1_Click()<br />
Dim abel, boxus, conybeare, burnouf, wallace, burton, smith, goodwing, goodwins, gildersleeve, cox<br />
As Boolean<br />
mot = List1.Text<br />
abel = False<br />
boxus = False<br />
burnouf = False<br />
conybeare = False<br />
wallace = False<br />
smyth = False
frmGrammaire - 3<br />
goodwing = False<br />
goodwins = False<br />
cox = False<br />
gildersleeve = False<br />
burton = False<br />
conybeare = False<br />
Dim abel1<br />
lstGrammaires.Clear<br />
recherche = mot<br />
Call GrammaireAbel(recherche)<br />
If recherche "" Then abel = True<br />
recherche = mot<br />
Call GrammaireBoxus(recherche)<br />
If recherche "" Then boxus = True<br />
recherche = mot<br />
Call GrammaireWallace(recherche)<br />
If recherche "" Then wallace = True<br />
recherche = mot<br />
Call GrammaireSmyth(recherche)<br />
If recherche "" Then smyth = True<br />
recherche = mot<br />
Call GrammaireBurnouf(recherche)<br />
If recherche "" Then burnouf = True<br />
recherche = mot<br />
Call GrammaireCox(recherche)<br />
If recherche "" Then cox = True<br />
recherche = mot<br />
Call GrammaireGildersleeve(recherche)<br />
If recherche "" Then gildersleeve = True<br />
recherche = mot<br />
Call GrammaireBurton(recherche)<br />
If recherche "" Then burton = True<br />
recherche = mot<br />
Call GrammaireConybeare(recherche)<br />
If recherche "" Then conybeare = True<br />
'idem pour toutes les grammaires<br />
If abel = True Then lstGrammaires.AddItem "Abel, Grammaire du grec biblique"<br />
If boxus = True Then lstGrammaires.AddItem "Boxus, Grammaire grecque"<br />
If wallace = True Then lstGrammaires.AddItem "Wallace/Mounce, Greek Grammar Compilation"<br />
If smyth = True Then lstGrammaires.AddItem "Smyth - Greek Grammar for Colleges"<br />
If burnouf = True Then lstGrammaires.AddItem "Burnouf - Méthode pour étudier la langue grecque"<br />
If cox = True Then lstGrammaires.AddItem "Jeffrey A. Rydberg-Cox, Overview of Greek Syntax"<br />
If gildersleeve = True Then lstGrammaires.AddItem "Basil Lanneau Gildersleeve, Syntax of Classical<br />
Greek"<br />
If burton = True Then lstGrammaires.AddItem "Burton - Moods and Tenses of New Testament Greek"<br />
If conybeare = True Then lstGrammaires.AddItem "Conybeare - Grammar of Septuagint Greek"<br />
End Sub<br />
Private Sub lstGrammaires_Click()<br />
'GREC<br />
recherche = List1.Text<br />
'recherche = lstGrammaires.List(lstGrammaires.ListIndex)<br />
If lstGrammaires.Text = "Abel, Grammaire du grec biblique" Then<br />
Call GrammaireAbel(recherche)<br />
If recherche = "" Then Exit Sub<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\abel\abel.pdf")<br />
frmPDF.Caption = "Abel, Grammaire du grec biblique"<br />
frmPDF.pdfmain.setCurrentPage (recherche)<br />
frmPDF.Show
frmGrammaire - 4<br />
ElseIf lstGrammaires.Text = "Boxus, Grammaire grecque" Then<br />
Call GrammaireBoxus(recherche)<br />
If recherche = "" Then Exit Sub<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\boxus\Boxus.pdf")<br />
frmPDF.Caption = "Boxus, Grammaire grecque"<br />
frmPDF.pdfmain.setCurrentPage (recherche)<br />
frmPDF.Show<br />
ElseIf lstGrammaires.Text = "Wallace/Mounce, Greek Grammar Compilation" Then<br />
Call GrammaireWallace(recherche)<br />
If recherche = "" Then Exit Sub<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\GG\gg.pdf")<br />
frmPDF.Caption = "Wallace/Mounce, Greek Grammar Compilation"<br />
frmPDF.pdfmain.setCurrentPage (recherche)<br />
frmPDF.Show<br />
ElseIf lstGrammaires.Text = "Smyth - Greek Grammar for Colleges" Then<br />
Call GrammaireSmyth(recherche)<br />
If recherche = "" Then Exit Sub<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\smith\smith.pdf")<br />
frmPDF.Caption = "Smyth - Greek Grammar for Colleges"<br />
frmPDF.pdfmain.setCurrentPage (recherche)<br />
frmPDF.Show<br />
ElseIf lstGrammaires.Text = "Burnouf - Méthode pour étudier la langue grecque" Then<br />
Call GrammaireBurnouf(recherche)<br />
If recherche = "" Then Exit Sub<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\grk\Burnouf.pdf")<br />
frmPDF.Caption = "Burnouf - Méthode pour étudier la langue grecque"<br />
frmPDF.pdfmain.setCurrentPage (recherche)<br />
frmPDF.Show<br />
ElseIf lstGrammaires.Text = "Jeffrey A. Rydberg-Cox, Overview of Greek Syntax" Then<br />
Call GrammaireCox(recherche)<br />
If recherche = "" Then Exit Sub<br />
frmBrowser.cboAddress.Text = recherche<br />
ElseIf lstGrammaires.Text = "Basil Lanneau Gildersleeve, Syntax of Classical Greek" Then<br />
Call GrammaireGildersleeve(recherche)<br />
If recherche = "" Then Exit Sub<br />
frmBrowser.cboAddress.Text = recherche<br />
ElseIf lstGrammaires.Text = "Burton - Moods and Tenses of New Testament Greek" Then<br />
Call GrammaireBurton(recherche)<br />
If recherche = "" Then Exit Sub<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\burton\burton.pdf")<br />
frmPDF.Caption = "Burton - Moods and Tenses of New Testament Greek"<br />
frmPDF.pdfmain.setCurrentPage (recherche)<br />
frmPDF.Show<br />
ElseIf lstGrammaires.Text = "Conybeare - Grammar of Septuagint Greek" Then<br />
Call GrammaireConybeare(recherche)<br />
If recherche = "" Then Exit Sub<br />
Load frmPDF<br />
frmPDF.pdfmain.LoadFile (App.Path & "\ref\cony\conybeare.pdf")<br />
frmPDF.Caption = "Conybeare - Grammar of Septuagint Greek"<br />
frmPDF.pdfmain.setCurrentPage (recherche)<br />
frmPDF.Show<br />
End If<br />
End Sub<br />
Private Sub Timer1_Timer()<br />
If frmAnalyseMorphologique.lblanalyse.Caption "" Then<br />
btnGo_Click<br />
Timer1.Enabled = False<br />
End If<br />
End Sub<br />
Private Sub txtAnalyse_KeyPress(KeyAscii As Integer)<br />
If KeyAscii = 27 Then btnFermer_Click<br />
End Sub
frmGrammaire - 1<br />
VERSION 5.00<br />
Begin VB.Form frmGrammaire<br />
BorderStyle = 4 'Fixed ToolWindow<br />
Caption = " Aide grammaticale ..."<br />
ClientHeight = 4530<br />
ClientLeft = 45<br />
ClientTop = 315<br />
ClientWidth = 4365<br />
LinkTopic = "Form1"<br />
MaxButton = 0 'False<br />
MinButton = 0 'False<br />
Picture = (Bitmap)<br />
ScaleHeight = 4530<br />
ScaleWidth = 4365<br />
ShowInTaskbar = 0 'False<br />
StartUpPosition = 2 'CenterScreen<br />
Begin VB.ListBox lstGrammaires<br />
Height = 2595<br />
Left = 0<br />
TabIndex = 5<br />
Top = 1800<br />
Width = 4215<br />
End<br />
Begin VB.CheckBox chkExact<br />
BackColor = &H00C0E0FF&<br />
Caption = "expression exacte"<br />
Height = 255<br />
Left = 2640<br />
TabIndex = 4<br />
Top = 720<br />
Width = 1695<br />
End<br />
Begin VB.Timer Timer1<br />
Interval = 10<br />
Left = 3840<br />
Top = 1200<br />
End<br />
Begin VB.ListBox List1<br />
Height = 1035<br />
Left = 0<br />
TabIndex = 3<br />
Top = 720<br />
Width = 2415<br />
End<br />
Begin VB.CommandButton btnGo<br />
Caption = "chercher !"<br />
Height = 375<br />
Left = 2640<br />
TabIndex = 2<br />
Top = 1080<br />
Width = 1215<br />
End<br />
Begin VB.TextBox txtAnalyse<br />
Height = 615<br />
Left = 0<br />
MultiLine = -1 'True<br />
ScrollBars = 2 'Vertical<br />
TabIndex = 1<br />
Top = 0<br />
Width = 4335<br />
End<br />
Begin VB.CommandButton btnFermer<br />
Cancel = -1 'True<br />
Caption = "X"<br />
Height = 375<br />
Left = 3960<br />
TabIndex = 0<br />
Top = 4080<br />
Visible = 0 'False<br />
Width = 375<br />
End<br />
End
frmGrecHebreu - 1<br />
Option Explicit<br />
ublic numéro As Boolean<br />
rivate Sub Command1_Click()<br />
im ofile$, lfile, strong$, texte$, toto, i, texterev$<br />
im premiereespace, deuxiemeespace<br />
trong = ""<br />
xtResultat.Text = ""<br />
file = App.Path & "\modules\gh\grechebreu.txt"<br />
file = FreeFile<br />
trong = LCase(txtStrong.Text)<br />
rmTSK.Text = ""<br />
f numéro = False Then<br />
If Len(strong) = 1 Then<br />
strong = "OOOO" & strong<br />
End If<br />
If Len(strong) = 2 Then<br />
strong = "OOO" & strong<br />
End If<br />
If Len(strong) = 3 Then<br />
strong = "OO" & strong<br />
End If<br />
If Len(strong) = 4 Then<br />
strong = "O" & strong<br />
End If<br />
nd If<br />
strong = Replace(strong, "x", "ch")<br />
strong = Replace(strong, "q", "th")<br />
strong = Replace(strong, "f", "ph")<br />
strong = Replace(strong, "w", "o")<br />
strong = Replace(strong, "y", "ps")<br />
strong = Replace(strong, "j", "s")<br />
f numéro = False Then<br />
lse<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, texte<br />
If texte = strong Then<br />
Do<br />
Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
Close<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, texte<br />
Input #lfile, texte<br />
If Left(texte, 1) = "O" Then Exit Do<br />
txtResultat.Text = txtResultat.Text & vbCrLf & texte<br />
If Left(texte, Len(strong)) = strong Then<br />
txtResultat.Text = txtResultat.Text & vbCrLf & texte<br />
If Left(texte, 1) = "O" Then Exit Do<br />
' Do<br />
' Input #lfile, texte<br />
' txtResultat.Text = txtResultat.Text & vbCrLf & texte
frmGrecHebreu - 2<br />
End If<br />
'Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
Close<br />
ofile = App.Path & "\tools\corrwh.txt"<br />
lfile = FreeFile + 1<br />
Open ofile For Output As #lfile<br />
rint #lfile, txtResultat.Text<br />
lose<br />
xtResultat.Text = ""<br />
Open ofile For Input As #lfile<br />
o<br />
Input #lfile, texte<br />
i = i + 1<br />
If texte "" Then<br />
premiereespace = InStr(1, texte, " ", vbTextCompare)<br />
texte = Trim(Mid(texte, premiereespace, Len(texte)))<br />
deuxiemeespace = InStr(1, texte, " ", vbTextCompare)<br />
texte = Mid(texte, deuxiemeespace, Len(texte))<br />
End If<br />
If texte "" Then<br />
txtResultat.Text = txtResultat.Text & vbCrLf & i - 1 & ") " & texte<br />
'frmTSK.Text.Text = frmTSK.Text.Text & vbCrLf & i - 1 & "-" & StrReverse(texte)<br />
'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "a", "")<br />
'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "e", "")<br />
'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "i", "")<br />
'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "o", "")<br />
'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "u", "")<br />
'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "v", "b")<br />
End If<br />
oop While Not EOF(lfile)<br />
MsgBox strong<br />
MsgBox numéro<br />
nd Sub<br />
rivate Sub Command2_Click()<br />
nload Me<br />
nd Sub<br />
rivate Sub Command3_Click()<br />
im texte$, strong$<br />
trong = frmGrecHebreu.txtStrong.Text<br />
Load frmTSK<br />
frmTSK. Show 1<br />
frmTSK.lblpassage.Font = "Grenet"<br />
frmTSK.lblpassage.Caption = strong<br />
frmTSK.Text.Font = "Shibolet"<br />
frmTSK.Text.Text = frmGrecHebreu.txtResultat.Text<br />
frmTSK.Text.Text = frmGrecHebreu.txtResultat.Text<br />
texte = StrReverse(frmGrecHebreu.txtResultat.Text)<br />
frmTSK.Text.Text = texte<br />
texte = txtResultat.Text<br />
premiereespace = InStr(1, texte, ")", vbTextCompare)<br />
texte = Trim(Mid(texte, premiereespace + 1, Len(texte)))
frmGrecHebreu - 3<br />
'Load frmTSK<br />
'frmTSK. Show 1<br />
'frmTSK.Text1.Font = "OLBHEB"<br />
'txtResultat.Text = txtResultat.Text & vbCrLf & StrReverse(texte)<br />
End Sub<br />
Private Sub txtStrong_KeyPress(KeyAscii As Integer)<br />
If KeyAscii < 47 Or KeyAscii > 57 Then<br />
numéro = True<br />
End If<br />
End Sub
frmGrecHebreu - 1<br />
VERSION 5.00<br />
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"<br />
egin VB.Form frmGrecHebreu<br />
BackColor = &H00FFFFFF&<br />
BorderStyle = 1 'Fixed Single<br />
Caption = "Lexique grec/hébreu"<br />
ClientHeight = 3060<br />
ClientLeft = 6705<br />
ClientTop = 2220<br />
ClientWidth = 4530<br />
Icon = (Icon)<br />
LinkTopic = "Form1"<br />
MaxButton = 0 'False<br />
MinButton = 0 'False<br />
Picture = (Bitmap)<br />
ScaleHeight = 3060<br />
ScaleWidth = 4530<br />
StartUpPosition = 2 'CenterScreen<br />
Begin VB.CommandButton Command3<br />
Caption = "&voir hébreu"<br />
Height = 375<br />
Left = 2640<br />
TabIndex = 6<br />
Top = 2640<br />
Visible = 0 'False<br />
Width = 1095<br />
End<br />
Begin VB.TextBox Text1<br />
Height = 375<br />
Left = 120<br />
MultiLine = -1 'True<br />
TabIndex = 5<br />
Top = 2640<br />
Visible = 0 'False<br />
Width = 975<br />
End<br />
Begin RichTextLib.RichTextBox txtResultat<br />
Height = 1815<br />
Left = 120<br />
TabIndex = 4<br />
Top = 720<br />
Width = 4215<br />
_ExtentX = 7435<br />
_ExtentY = 3201<br />
_Version = 393217<br />
ScrollBars = 3<br />
TextRTF = <br />
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}<br />
Name = "Times New Roman"<br />
Size = 12<br />
Charset = 238<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
End<br />
Begin VB.CommandButton Command2<br />
Cancel = -1 'True<br />
Caption = "&ok"<br />
Height = 375<br />
Left = 3840<br />
TabIndex = 3<br />
Top = 2640<br />
Width = 615<br />
End<br />
Begin VB.CommandButton Command1<br />
Caption = "&Correspondant(s) hébreu"<br />
Default = -1 'True<br />
Height = 495<br />
Left = 3000<br />
TabIndex = 2<br />
Top = 120<br />
Width = 1455<br />
End<br />
Begin VB.TextBox txtStrong
frmGrecHebreu - 2<br />
BeginProperty Font<br />
Name = "Times New Roman"<br />
Size = 12<br />
Charset = 238<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 495<br />
Left = 1200<br />
TabIndex = 0<br />
Top = 120<br />
Width = 1695<br />
End<br />
Begin VB.Label Label1<br />
BackStyle = 0 'Transparent<br />
Caption = "Mot ou n° Strong"<br />
BeginProperty Font<br />
Name = "Times New Roman"<br />
Size = 9<br />
Charset = 238<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 495<br />
Left = 120<br />
TabIndex = 1<br />
Top = 120<br />
Width = 975<br />
End<br />
End
Mot ou n°<br />
Strong
frmHebreuGrec - 1<br />
Option Explicit<br />
ublic numéro As Boolean<br />
rivate Sub Command1_Click()<br />
im ofile$, lfile, strong$, texte$, toto, i, texterev$<br />
im premiereespace, deuxiemeespace<br />
trong = ""<br />
xtResultat.Text = ""<br />
file = App.Path & "\modules\gh\hebreugrec.txt"<br />
file = FreeFile<br />
trong = LCase(txtStrong.Text)<br />
rmTSK.Text.Text = ""<br />
f numéro = False Then<br />
If Len(strong) = 1 Then<br />
strong = "OOOO" & strong<br />
End If<br />
If Len(strong) = 2 Then<br />
strong = "OOO" & strong<br />
End If<br />
If Len(strong) = 3 Then<br />
strong = "OO" & strong<br />
End If<br />
If Len(strong) = 4 Then<br />
strong = "O" & strong<br />
End If<br />
nd If<br />
f numéro = False Then<br />
lse<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, texte<br />
If texte = strong Then<br />
Do<br />
Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
Close<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, texte<br />
Input #lfile, texte<br />
If Left(texte, 1) = "O" Then Exit Do<br />
txtResultat.Text = txtResultat.Text & vbCrLf & texte<br />
If Left(texte, Len(strong)) = strong Then<br />
txtResultat.Text = txtResultat.Text & vbCrLf & texte<br />
If Left(texte, 1) = "O" Then Exit Do<br />
' Do<br />
' Input #lfile, texte<br />
' txtResultat.Text = txtResultat.Text & vbCrLf & texte<br />
'Loop<br />
End If<br />
Loop While Not EOF(lfile)
frmHebreuGrec - 2<br />
End If<br />
Close<br />
ofile = App.Path & "\tools\corrwh.txt"<br />
lfile = FreeFile + 1<br />
Open ofile For Output As #lfile<br />
rint #lfile, txtResultat.Text<br />
lose<br />
xtResultat.Text = ""<br />
Open ofile For Input As #lfile<br />
o<br />
Input #lfile, texte<br />
i = i + 1<br />
If texte "" Then<br />
premiereespace = InStr(1, texte, " ", vbTextCompare)<br />
texte = Trim(Mid(texte, premiereespace, Len(texte)))<br />
deuxiemeespace = InStr(1, texte, " ", vbTextCompare)<br />
'texte = Mid(texte, deuxiemeespace, Len(texte))<br />
End If<br />
If texte "" Then<br />
txtResultat.Text = txtResultat.Text & vbCrLf & i - 1 & ") " & texte<br />
'frmTSK.Text.Text = frmTSK.Text.Text & vbCrLf & i - 1 & "-" & StrReverse(texte)<br />
'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "a", "")<br />
'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "e", "")<br />
'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "i", "")<br />
'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "o", "")<br />
'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "u", "")<br />
'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "v", "b")<br />
End If<br />
oop While Not EOF(lfile)<br />
MsgBox strong<br />
MsgBox numéro<br />
nd Sub<br />
rivate Sub Command2_Click()<br />
nload Me<br />
nd Sub<br />
rivate Sub txtStrong_KeyPress(KeyAscii As Integer)<br />
f KeyAscii < 47 Or KeyAscii > 57 Then<br />
uméro = True<br />
nd If<br />
nd Sub
frmHebreuGrec - 1<br />
VERSION 5.00<br />
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"<br />
egin VB.Form frmHebreuGrec<br />
BackColor = &H00FFFFFF&<br />
BorderStyle = 1 'Fixed Single<br />
Caption = "Lexique hébreu/grec"<br />
ClientHeight = 3060<br />
ClientLeft = 6705<br />
ClientTop = 2220<br />
ClientWidth = 4530<br />
Icon = (Icon)<br />
LinkTopic = "Form1"<br />
MaxButton = 0 'False<br />
MinButton = 0 'False<br />
Picture = (Bitmap)<br />
ScaleHeight = 3060<br />
ScaleWidth = 4530<br />
StartUpPosition = 2 'CenterScreen<br />
Begin RichTextLib.RichTextBox txtResultat<br />
Height = 1695<br />
Left = 120<br />
TabIndex = 5<br />
Top = 840<br />
Width = 4215<br />
_ExtentX = 7435<br />
_ExtentY = 2990<br />
_Version = 393217<br />
Enabled = -1 'True<br />
ScrollBars = 3<br />
TextRTF = <br />
End<br />
Begin VB.TextBox Text1<br />
Height = 375<br />
Left = 120<br />
MultiLine = -1 'True<br />
TabIndex = 4<br />
Top = 2640<br />
Visible = 0 'False<br />
Width = 1695<br />
End<br />
Begin VB.CommandButton Command2<br />
Cancel = -1 'True<br />
Caption = "&ok"<br />
Height = 375<br />
Left = 3840<br />
TabIndex = 3<br />
Top = 2640<br />
Width = 615<br />
End<br />
Begin VB.CommandButton Command1<br />
Caption = "&Correspondant(s) grec"<br />
Default = -1 'True<br />
Height = 495<br />
Left = 3000<br />
TabIndex = 2<br />
Top = 120<br />
Width = 1455<br />
End<br />
Begin VB.TextBox txtStrong<br />
BeginProperty Font<br />
Name = "Times New Roman"<br />
Size = 12<br />
Charset = 238<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 495<br />
Left = 1200<br />
TabIndex = 0<br />
Top = 120<br />
Width = 1695<br />
End<br />
Begin VB.Label Label1<br />
BackStyle = 0 'Transparent
frmHebreuGrec - 2<br />
Caption = "Mot ou n° Strong"<br />
BeginProperty Font<br />
Name = "Times New Roman"<br />
Size = 9<br />
Charset = 238<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 495<br />
Left = 120<br />
TabIndex = 1<br />
Top = 120<br />
Width = 975<br />
End<br />
End
Mot ou n°<br />
Strong
frmLexiqueNT - 1<br />
Dim dico As Boolean<br />
Private Sub btnAjouter_Click()<br />
' au cas où<br />
Close<br />
Dim lexique$, lfile, Grec$, prononciation$, francais$, notes$<br />
lexique = App.Path & "\tools\lexiquegr.dic"<br />
lfile = FreeFile<br />
'définitions des variables<br />
Grec = txtHebreu.Text<br />
prononciation = txtPrononciation.Text<br />
francais = txtFrancais.Text<br />
notes = txtNotes.Text<br />
' attention VB ne gère pas les virgules & les guilleemnts<br />
francais = Replace(francais, ",", "~", 1, , vbTextCompare)<br />
notes = Replace(notes, ",", "~", 1, , vbTextCompare)<br />
notes = Replace(notes, Chr$(51), "'", 1)<br />
' ouverture du lexique pour écriture<br />
Open lexique For Append As #lfile<br />
rite #lfile, Grec & " " & francais & " 3/" & notes<br />
lose<br />
tnEffacer_Click<br />
nd Sub<br />
rivate Sub btnEffacer_Click()<br />
ico = True<br />
xtGrec.Text = ""<br />
xtFrancais.Text = ""<br />
xtNotes.Text = ""<br />
xtcode.Text = ""<br />
xtVientde.Text = ""<br />
xtAnalyse.Text = ""<br />
imer1.Enabled = False<br />
nd Sub<br />
rivate Sub btnFermer_Click()<br />
nload Me<br />
nd Sub<br />
rivate Sub btnGo_Click()<br />
im Grec$, prononciation$, francais$, notes$, recherche$, mot$, motdeflechi$<br />
rec = txtGrec.Text<br />
rancais = txtFrancais.Text<br />
otes = txtNotes.Text<br />
gestion erreurs<br />
f txtGrec.Text = "" And _<br />
txtFrancais.Text = "" Then<br />
lfile = MsgBox("Vous n'avez pas saisi votre recherche !", vbExclamation, "Rechercher un mot")<br />
Exit Sub<br />
nd If<br />
il faut DEFLECHIR le mot<br />
commençons par le NT<br />
If frmBible.cboVersion = "NA26+" Then<br />
mot = txtGrec.Text<br />
End If<br />
If Right(mot, 1) = "j" Then<br />
mot = Mid(mot, 1, Len(mot) - 1) & "s"<br />
mot = UCase(mot)<br />
Call LexiqueNT_Morph(mot)<br />
End If<br />
Par défaut la recherche est EXACTE<br />
détermination du mot-clé à chercher dans le lexique<br />
je cherche un mot GREC
frmLexiqueNT - 2<br />
If txtFrancais.Text = "" And txtVientde.Text = "" Then<br />
motr = txtGrec.Text<br />
Call DefinirGrec(motr, mott)<br />
txtFrancais.Text = mott<br />
Exit Sub<br />
' je cherche un mot FRANCAIS<br />
ElseIf txtGrec.Text = "" And txtVientde.Text = "" Then 'And _<br />
'txtPrononciation.Text = "" And _<br />
'txtNotes.Text = "" Then<br />
motr = txtFrancais.Text<br />
Call DefinirGrec(motr, mott)<br />
recherche = motr<br />
Call FrancaisGrec(recherche)<br />
txtGrec.Text = recherche<br />
Exit Sub<br />
' C'est du français que je cherche !<br />
'ElseIf txtVientde.Text "" Then<br />
' recherche = txtVientde.Text<br />
' Call GrecFrancais(recherche)<br />
' Exit Sub<br />
End If<br />
End Sub<br />
Private Sub btnRechercher_Click()<br />
btnGo_Click<br />
End Sub<br />
Private Sub Form_Load()<br />
btnAjouter.Visible = False<br />
mnuConsultation.Checked = True<br />
dico = False<br />
End Sub<br />
Private Sub mnuConsultation_Click()<br />
btnAjouter.Visible = False<br />
mnuEdition.Checked = False<br />
End Sub<br />
Private Sub mnuEdition_Click()<br />
btnAjouter.Visible = True<br />
mnuEdition.Checked = True<br />
End Sub<br />
Private Sub mnuQuit_Click()<br />
Unload Me<br />
End Sub<br />
Private Sub Timer1_Timer()<br />
If mnuEdition.Checked = True Then btnGo_Click<br />
End Sub<br />
Private Sub Timer2_Timer()<br />
If txtGrec.Text = "" Then<br />
Timer1.Enabled = False<br />
End If<br />
End Sub
frmLexiqueNT - 1<br />
VERSION 5.00<br />
Begin VB.Form frmLexiqueNT<br />
BorderStyle = 1 'Fixed Single<br />
Caption = "Lexique NT"<br />
ClientHeight = 3840<br />
ClientLeft = 8130<br />
ClientTop = 2610<br />
ClientWidth = 3720<br />
ForeColor = &H00FFFFFF&<br />
Icon = (Icon)<br />
LinkTopic = "Form1"<br />
MaxButton = 0 'False<br />
MinButton = 0 'False<br />
Picture = (Bitmap)<br />
ScaleHeight = 3840<br />
ScaleWidth = 3720<br />
Begin VB.CommandButton btnAjouter<br />
Caption = "+"<br />
Height = 375<br />
Left = 3120<br />
TabIndex = 17<br />
ToolTipText = "Ajouter"<br />
Top = 1800<br />
Width = 495<br />
End<br />
Begin VB.CommandButton btnEffacer<br />
Caption = "Effaçer"<br />
Height = 375<br />
Left = 480<br />
TabIndex = 16<br />
Top = 3360<br />
Visible = 0 'False<br />
Width = 975<br />
End<br />
Begin VB.CommandButton btnRechercher<br />
Caption = "&Rechercher"<br />
Default = -1 'True<br />
Height = 375<br />
Left = 1560<br />
TabIndex = 15<br />
Top = 3360<br />
Visible = 0 'False<br />
Width = 1095<br />
End<br />
Begin VB.CommandButton btnFermer<br />
BackColor = &H00FFFFFF&<br />
Cancel = -1 'True<br />
Caption = "X"<br />
Height = 375<br />
Left = 3120<br />
TabIndex = 14<br />
ToolTipText = "Fermer"<br />
Top = 3360<br />
Width = 495<br />
End<br />
Begin VB.TextBox txtVientde<br />
BeginProperty Font<br />
Name = "Grenet"<br />
Size = 14.25<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 495<br />
Left = 960<br />
TabIndex = 12<br />
Top = 1560<br />
Width = 2055<br />
End<br />
Begin VB.TextBox txtAnalyse<br />
Height = 975<br />
Left = 960<br />
MultiLine = -1 'True<br />
ScrollBars = 2 'Vertical
frmLexiqueNT - 2<br />
TabIndex = 11<br />
Top = 2280<br />
Width = 2655<br />
End<br />
Begin VB.TextBox txtCode<br />
Height = 375<br />
Left = 3240<br />
TabIndex = 9<br />
Top = 120<br />
Visible = 0 'False<br />
Width = 1455<br />
End<br />
Begin VB.TextBox txtNotes<br />
Height = 375<br />
Left = 120<br />
MultiLine = -1 'True<br />
ScrollBars = 2 'Vertical<br />
TabIndex = 4<br />
Top = 3000<br />
Visible = 0 'False<br />
Width = 615<br />
End<br />
Begin VB.TextBox txtGrec<br />
BeginProperty Font<br />
Name = "Grenet"<br />
Size = 14.25<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 495<br />
Left = 960<br />
TabIndex = 0<br />
Top = 240<br />
Width = 2055<br />
End<br />
Begin VB.TextBox txtFrancais<br />
Height = 495<br />
Left = 960<br />
MultiLine = -1 'True<br />
ScrollBars = 2 'Vertical<br />
TabIndex = 1<br />
ToolTipText = "Vous pouvez lancer une recherche à partir d'ici"<br />
Top = 840<br />
Width = 2055<br />
End<br />
Begin VB.CommandButton btnGo<br />
Caption = "btnGo"<br />
Height = 195<br />
Left = 120<br />
TabIndex = 2<br />
Top = 3480<br />
Visible = 0 'False<br />
Width = 615<br />
End<br />
Begin VB.Timer Timer1<br />
Interval = 250<br />
Left = 3120<br />
Top = 1200<br />
End<br />
Begin VB.CheckBox chkCase<br />
Height = 195<br />
Left = 1320<br />
TabIndex = 3<br />
Top = 3840<br />
Value = 1 'Checked<br />
Visible = 0 'False<br />
Width = 195<br />
End<br />
Begin VB.Timer Timer2<br />
Interval = 20<br />
Left = 3120<br />
Top = 720<br />
End
frmLexiqueNT - 3<br />
Begin VB.Label Label7<br />
Alignment = 2 'Center<br />
BackStyle = 0 'Transparent<br />
Caption = "Vient de"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 8.25<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
ForeColor = &H00000000&<br />
Height = 255<br />
Left = -240<br />
TabIndex = 13<br />
Top = 1560<br />
Width = 1455<br />
End<br />
Begin VB.Label Label5<br />
BackStyle = 0 'Transparent<br />
Caption = "Code"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 8.25<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
ForeColor = &H00000000&<br />
Height = 255<br />
Left = 120<br />
TabIndex = 10<br />
Top = 2760<br />
Visible = 0 'False<br />
Width = 615<br />
End<br />
Begin VB.Label Label2<br />
Alignment = 2 'Center<br />
BackStyle = 0 'Transparent<br />
Caption = "Analyse"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 8.25<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
ForeColor = &H00000000&<br />
Height = 375<br />
Left = -120<br />
TabIndex = 8<br />
Top = 2400<br />
Width = 1095<br />
End<br />
Begin VB.Label Label3<br />
Alignment = 2 'Center<br />
BackStyle = 0 'Transparent<br />
Caption = "Grec"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 8.25<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
ForeColor = &H00000000&<br />
Height = 255<br />
Left = -120
frmLexiqueNT - 4<br />
TabIndex = 7<br />
ToolTipText = "Cliquez ici pour écouter la prononciation de ce mot"<br />
Top = 360<br />
Width = 855<br />
End<br />
Begin VB.Label Label4<br />
BackStyle = 0 'Transparent<br />
Caption = "Français"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 8.25<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
ForeColor = &H00000000&<br />
Height = 255<br />
Left = 120<br />
TabIndex = 6<br />
Top = 960<br />
Width = 1095<br />
End<br />
Begin VB.Label Label6<br />
BackStyle = 0 'Transparent<br />
Caption = "Repecter la casse"<br />
BeginProperty Font<br />
Name = "Times New Roman"<br />
Size = 8.25<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = -1 'True<br />
Strikethrough = 0 'False<br />
EndProperty<br />
ForeColor = &H00000000&<br />
Height = 255<br />
Left = 1680<br />
TabIndex = 5<br />
Top = 3840<br />
Visible = 0 'False<br />
Width = 1215<br />
End<br />
Begin VB.Menu mnuFichier<br />
Caption = "&Fichier"<br />
Begin VB.Menu mnuQuit<br />
Caption = "&Quitter"<br />
Shortcut = ^Q<br />
End<br />
End<br />
Begin VB.Menu mnuMode<br />
Caption = "&Mode"<br />
Begin VB.Menu mnuConsultation<br />
Caption = "&Consultation"<br />
Checked = -1 'True<br />
Shortcut = ^C<br />
End<br />
Begin VB.Menu mnuB1<br />
Caption = "-"<br />
End<br />
Begin VB.Menu mnuEdition<br />
Caption = "&Edition"<br />
Shortcut = ^E<br />
End<br />
Begin VB.Menu mnuAppele<br />
Caption = "Appele"<br />
Visible = 0 'False<br />
End<br />
End<br />
End
Grec<br />
Français<br />
Vient de<br />
Analyse<br />
Code
frmNotes - 1<br />
Private Sub Picture1_Click()<br />
Unload Me<br />
End Sub
frmNotes - 1<br />
VERSION 5.00<br />
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"<br />
egin VB.Form frmNotes<br />
BackColor = &H00FFFFFF&<br />
BorderStyle = 4 'Fixed ToolWindow<br />
Caption = "Nouvelle Traduction Annotée"<br />
ClientHeight = 4710<br />
ClientLeft = 9105<br />
ClientTop = 1785<br />
ClientWidth = 3945<br />
LinkTopic = "Form1"<br />
MaxButton = 0 'False<br />
MinButton = 0 'False<br />
ScaleHeight = 4710<br />
ScaleWidth = 3945<br />
ShowInTaskbar = 0 'False<br />
Begin VB.PictureBox Picture1<br />
Appearance = 0 'Flat<br />
BackColor = &H80000005&<br />
BorderStyle = 0 'None<br />
ForeColor = &H80000008&<br />
Height = 495<br />
Left = 3120<br />
MousePointer = 2 'Cross<br />
Picture = (Icon)<br />
ScaleHeight = 495<br />
ScaleWidth = 615<br />
TabIndex = 1<br />
ToolTipText = "Fermer cette fenêtre"<br />
Top = 4200<br />
Width = 615<br />
End<br />
Begin RichTextLib.RichTextBox RTF<br />
Height = 3135<br />
Left = 120<br />
TabIndex = 0<br />
Top = 960<br />
Width = 3615<br />
_ExtentX = 6376<br />
_ExtentY = 5530<br />
_Version = 393217<br />
ScrollBars = 2<br />
TextRTF = <br />
End<br />
Begin VB.Label Label1<br />
Alignment = 2 'Center<br />
BackStyle = 0 'Transparent<br />
Caption = "NOTES"<br />
BeginProperty Font<br />
Name = "Times New Roman"<br />
Size = 8.25<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 255<br />
Left = 120<br />
TabIndex = 2<br />
Top = 360<br />
Width = 3735<br />
End<br />
nd
NOTES
frmParse - 1<br />
Private Sub Command1_Click()<br />
Unload Me<br />
End Sub<br />
Private Sub Command2_Click()<br />
Unload Me<br />
End Sub<br />
Private Sub Form_Load()<br />
'Unload frmParse2<br />
End Sub<br />
Private Sub txtanalyse_Click()<br />
Unload Me<br />
End Sub
frmParse - 1<br />
VERSION 5.00<br />
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"<br />
egin VB.Form frmParse<br />
BackColor = &H00FFFFFF&<br />
Caption = "Analyse morphologique (Packard)"<br />
ClientHeight = 2670<br />
ClientLeft = 60<br />
ClientTop = 450<br />
ClientWidth = 4680<br />
Icon = (Icon)<br />
LinkTopic = "Form1"<br />
ScaleHeight = 2670<br />
ScaleWidth = 4680<br />
StartUpPosition = 2 'CenterScreen<br />
Begin RichTextLib.RichTextBox txtBHS<br />
Height = 1695<br />
Left = 2760<br />
TabIndex = 7<br />
Top = 120<br />
Width = 1815<br />
_ExtentX = 3201<br />
_ExtentY = 2990<br />
_Version = 393217<br />
TextRTF = <br />
End<br />
Begin VB.Label lbldefinition<br />
BackStyle = 0 'Transparent<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 9.75<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 735<br />
Left = 2760<br />
TabIndex = 6<br />
Top = 240<br />
Visible = 0 'False<br />
Width = 1815<br />
End<br />
Begin VB.Line Line1<br />
X1 = 1560<br />
X2 = 2760<br />
Y1 = 960<br />
Y2 = 960<br />
End<br />
Begin VB.Label txtanalyse<br />
BackStyle = 0 'Transparent<br />
Height = 1575<br />
Left = 720<br />
TabIndex = 5<br />
ToolTipText = "Cliquez pour fermer cette fenêtre"<br />
Top = 960<br />
Width = 2655<br />
End<br />
Begin VB.Label lbltampon<br />
BackStyle = 0 'Transparent<br />
Height = 495<br />
Left = 120<br />
TabIndex = 4<br />
Top = 3120<br />
Width = 1575<br />
End<br />
Begin VB.Label Label1<br />
BackStyle = 0 'Transparent<br />
Caption = "vient de :"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 9.75<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False
frmParse - 2<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 255<br />
Left = 120<br />
TabIndex = 3<br />
Top = 480<br />
Width = 735<br />
End<br />
Begin VB.Label Label3<br />
BackStyle = 0 'Transparent<br />
Caption = "Résultat pour"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 9.75<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 255<br />
Left = 120<br />
TabIndex = 2<br />
Top = 120<br />
Width = 1455<br />
End<br />
Begin VB.Label lblorigine<br />
BackStyle = 0 'Transparent<br />
BeginProperty Font<br />
Name = "Grenet"<br />
Size = 9.75<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 375<br />
Left = 960<br />
TabIndex = 1<br />
Top = 480<br />
Width = 1335<br />
End<br />
Begin VB.Label lblmot<br />
BackStyle = 0 'Transparent<br />
BeginProperty Font<br />
Name = "Grenet"<br />
Size = 9.75<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 375<br />
Left = 1440<br />
TabIndex = 0<br />
Top = 120<br />
Width = 1695<br />
End<br />
End
Résultat pour<br />
vient de
frmParse2 - 1<br />
Private Sub Command1_Click()<br />
Unload Me<br />
End Sub
frmParse2 - 1<br />
VERSION 5.00<br />
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"<br />
egin VB.Form frmParse2<br />
BackColor = &H00FFFFFF&<br />
BorderStyle = 1 'Fixed Single<br />
Caption = "Analyser un terme"<br />
ClientHeight = 2955<br />
ClientLeft = 45<br />
ClientTop = 435<br />
ClientWidth = 4680<br />
Icon = (Icon)<br />
LinkTopic = "Form1"<br />
MaxButton = 0 'False<br />
MinButton = 0 'False<br />
ScaleHeight = 2955<br />
ScaleWidth = 4680<br />
StartUpPosition = 2 'CenterScreen<br />
Begin RichTextLib.RichTextBox Text1<br />
Height = 1935<br />
Left = 120<br />
TabIndex = 9<br />
Top = 840<br />
Width = 2895<br />
_ExtentX = 5106<br />
_ExtentY = 3413<br />
_Version = 393217<br />
Enabled = -1 'True<br />
ScrollBars = 2<br />
TextRTF = <br />
End<br />
Begin VB.TextBox Text<br />
Height = 285<br />
Left = 2760<br />
TabIndex = 8<br />
Top = 2400<br />
Width = 1095<br />
End<br />
Begin VB.CommandButton Command1<br />
Caption = "&OK"<br />
Height = 375<br />
Left = 3960<br />
TabIndex = 3<br />
Top = 2400<br />
Width = 615<br />
End<br />
Begin VB.Label lbldef<br />
BackStyle = 0 'Transparent<br />
Caption = "Définition"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 9.75<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 615<br />
Left = 1920<br />
TabIndex = 7<br />
Top = 1440<br />
Width = 2655<br />
End<br />
Begin VB.Label lblcode<br />
BackStyle = 0 'Transparent<br />
Height = 495<br />
Left = 120<br />
TabIndex = 6<br />
Top = 2280<br />
Width = 1575<br />
End<br />
Begin VB.Line Line1<br />
X1 = 1440<br />
X2 = 2880<br />
Y1 = 1200<br />
Y2 = 1200
frmParse2 - 2<br />
End<br />
Begin VB.Label Label2<br />
BackStyle = 0 'Transparent<br />
Caption = "Résultat pour"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 9.75<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 495<br />
Left = 120<br />
TabIndex = 5<br />
Top = 240<br />
Width = 1335<br />
End<br />
Begin VB.Label Label1<br />
BackStyle = 0 'Transparent<br />
Caption = "vient de :"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 9.75<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 255<br />
Left = 120<br />
TabIndex = 4<br />
Top = 720<br />
Width = 735<br />
End<br />
Begin VB.Label Label4<br />
BackStyle = 0 'Transparent<br />
Caption = "Pas d'analyse"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 9.75<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 495<br />
Left = 240<br />
TabIndex = 2<br />
Top = 1440<br />
Width = 1455<br />
End<br />
Begin VB.Label lblorigine<br />
BackStyle = 0 'Transparent<br />
BeginProperty Font<br />
Name = "Arial"<br />
Size = 9.75<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 375<br />
Left = 960<br />
TabIndex = 1<br />
Top = 720<br />
Width = 1695<br />
End<br />
Begin VB.Label lblmot<br />
BackStyle = 0 'Transparent<br />
BeginProperty Font<br />
Name = "Arial"
frmParse2 - 3<br />
Size = 9.75<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 495<br />
Left = 1560<br />
TabIndex = 0<br />
Top = 240<br />
Width = 1455<br />
End<br />
End
Résultat pour<br />
vient de<br />
Pas d'analyse<br />
Définition
frmPDF - 1<br />
Private Sub Form_Load()<br />
pdfmain.Width = ScaleWidth<br />
pdfmain.Height = ScaleHeight<br />
End Sub<br />
Private Sub Form_Resize()<br />
pdfmain.Width = ScaleWidth<br />
pdfmain.Height = ScaleHeight<br />
End Sub<br />
'Private Sub mnuopen_Click()<br />
'dlgopen.ShowOpen<br />
'pdfmain.LoadFile (dlgopen.FileName)<br />
'pdfmain.setCurrentPage 15<br />
'End Sub
frmPDF - 1<br />
VERSION 5.00<br />
Object = "{05BFD3F1-6319-4F30-B752-C7A22889BCC4}#1.0#0"; "AcroPDF.dll"<br />
egin VB.Form frmPDF<br />
BorderStyle = 4 'Fixed ToolWindow<br />
ClientHeight = 8850<br />
ClientLeft = 4995<br />
ClientTop = 570<br />
ClientWidth = 9900<br />
LinkTopic = "Form1"<br />
MaxButton = 0 'False<br />
MinButton = 0 'False<br />
ScaleHeight = 8850<br />
ScaleWidth = 9900<br />
ShowInTaskbar = 0 'False<br />
Begin AcroPDFLibCtl.AcroPDF pdfmain<br />
Height = 1095<br />
Left = 0<br />
TabIndex = 0<br />
Top = 0<br />
Width = 2175<br />
_cx = 5080<br />
_cy = 5080<br />
End<br />
nd
frmRechercheMorphologique - 1<br />
Dim nveaucodegenre$, nveaucodecas$, nveaucodenombre$, nveautemps$, nveaumode$, nveauvoix$, nveauper<br />
sonne$<br />
Private Sub cboGenre_LostFocus()<br />
Dim nveaucode$<br />
mot = txtcode.Text<br />
If Mid(mot, 1, 1) = "n" Or Mid(mot, 1, 1) = "a" Then<br />
If cboGenre.Text = "féminin" Then nveaucodegenre = "f"<br />
If cboGenre.Text = "masculin" Then nveaucodegenre = "m"<br />
If cboGenre.Text = "neutre" Then nveaucodegenre = "n"<br />
ElseIf Mid(mot, 1, 1) = "v" Then<br />
If cboGenre.Text = "présent" Then nveautemps = "p"<br />
If cboGenre.Text = "imparfait" Then nveautemps = "i"<br />
If cboGenre.Text = "futur" Then nveautemps = "f"<br />
If cboGenre.Text = "aoriste" Then nveautemps = "a"<br />
If cboGenre.Text = "parfait" Then nveautemps = "r"<br />
If cboGenre.Text = "pqp" Then nveautemps = "l"<br />
If cboGenre.Text = "-" Then nveautemps = "x"<br />
End If<br />
'txtNouveauCode.Text = nveaucode<br />
End Sub<br />
Private Sub cboNombre_LostFocus()<br />
Dim nveaucode$<br />
mot = txtcode.Text<br />
If Mid(mot, 1, 1) = "n" Or Mid(mot, 1, 1) = "a" Then<br />
If cboNombre.Text = "singulier" Then nveaucodenombre = "s"<br />
If cboNombre.Text = "pluriel" Then nveaucodenombre = "p"<br />
If cboNombre.Text = "duel" Then nveaucodenombre = "d"<br />
ElseIf Mid(mot, 1, 1) = "v" Then<br />
If cboNombre.Text = "actif" Then nveauvoix = "a"<br />
If cboNombre.Text = "moyen" Then nveauvoix = "m"<br />
If cboNombre.Text = "passif" Then nveauvoix = "p"<br />
If cboNombre.Text = "moyen ou passif" Then nveauvoix = "e"<br />
If cboNombre.Text = "déponent moyen" Then nveauvoix = "d"<br />
If cboNombre.Text = "déponent passif" Then nveauvoix = "o"<br />
If cboNombre.Text = "déponent moyen ou passif" Then nveauvoix = "n"<br />
If cboNombre.Text = "impersonnel actif" Then nveauvoix = "q"<br />
If cboNombre.Text = "-" Then nveaumode = "x"<br />
End If<br />
'txtNouveauCode.Text = nveaucode<br />
End Sub<br />
Private Sub cboPersonne_Change()<br />
'Dim nveaucode$<br />
'mot = txtcode.Text<br />
'If Mid(mot, 1, 1) = "a" Then<br />
'End If<br />
End Sub<br />
Private Sub cboTempsCas_LostFocus()<br />
Dim nveaucode$<br />
mot = txtcode.Text<br />
If Mid(mot, 1, 1) = "n" Or Mid(mot, 1, 1) = "a" Then<br />
If cboTempsCas.Text = "nominatif" Then nveaucodecas = "n"<br />
If cboTempsCas.Text = "génitif" Then nveaucodecas = "g"<br />
If cboTempsCas.Text = "accusatif" Then nveaucodecas = "a"<br />
If cboTempsCas.Text = "datif" Then nveaucodecas = "d"<br />
If cboTempsCas.Text = "vocatif" Then nveaucodecas = "v"<br />
ElseIf Mid(mot, 1, 1) = "v" Then<br />
If cboTempsCas.Text = "indicatif" Then nveaumode = "i"<br />
If cboTempsCas.Text = "subjonctif" Then nveaumode = "s"<br />
If cboTempsCas.Text = "optatif" Then nveaumode = "o"<br />
If cboTempsCas.Text = "impératif" Then nveaumode = "m"<br />
If cboTempsCas.Text = "infinitif" Then nveaumode = "n"<br />
If cboTempsCas.Text = "participe" Then nveaumode = "p"<br />
If cboTempsCas.Text = "participe (sens impératif)" Then nveaumode = "r"<br />
End If<br />
'txtNouveauCode.Text = nveaucode
frmRechercheMorphologique - 2<br />
End Sub<br />
Private Sub Command1_Click()<br />
Unload Me<br />
End Sub<br />
Public Sub Command2_Click()<br />
lstPassages.Clear<br />
mot = txtcode.Text<br />
If Mid(mot, 1, 1) = "n" Then<br />
If nveaucodecas = "" Then nveaucodecas = Mid(mot, 2, 1)<br />
If nveaucodegenre = "" Then nveaucodegenre = Mid(mot, 3, 1)<br />
If nveaucodenombre = "" Then nveaucodenombre = Mid(mot, 4, 1)<br />
ElseIf Mid(mot, 1, 1) = "v" Then<br />
If nveaumode = "" Then nveaumode = Mid(mot, 2, 1)<br />
If nveautemps = "" Then nveautemps = Mid(mot, 3, 1)<br />
If nveauvoix = "" Then nveauvoix = Mid(mot, 4, 1)<br />
If nveaupersonne = "" Then nveaupersonne = Mid(mot, 5, 2)<br />
ElseIf mot = "tp" Then<br />
nveaucode = "tp"<br />
GoTo apres:<br />
End If<br />
If Mid(mot, 1, 1) = "n" Then<br />
nveaucode = "n" & nveaucodecas & nveaucodegenre & nveaucodenombre<br />
ElseIf Mid(mot, 1, 1) = "v" Then<br />
nveaucode = "v" & nveaumode & nveautemps & nveauvoix & cboPersonne.Text<br />
End If<br />
apres:<br />
txtNouveauCode.Text = nveaucode<br />
vientde = frmAnalyseMorphologique.lblvientde.Caption<br />
recherche = vientde & " (" & nveaucode & ")"<br />
Call RechercheMorphologique(recherche, nveaucode)<br />
End Sub<br />
Private Sub Form_Load()<br />
mot = frmAnalyseMorphologique.lblanalyse2.Caption<br />
End Sub<br />
Private Sub lstPassages_Click()<br />
passage = Trim(lstPassages.Text)<br />
premierespace = InStr(1, passage, " ")<br />
deuxpoints = InStr(1, passage, ":")<br />
livre = Mid(passage, 1, premierespace - 1)<br />
chapitre = Mid(passage, premierespace + 1, deuxpoints - 1)<br />
chapitre = Mid(chapitre, 1, InStr(1, chapitre, ":") - 1)<br />
verset = Trim(Mid(passage, deuxpoints + 1, 2))<br />
'MsgBox livre & " " & chapitre & " " & verset<br />
If livre = "Mat" Then<br />
chercher = "Matthieu"<br />
ElseIf livre = "Mar" Then<br />
chercher = "Marc"<br />
ElseIf livre = "Luk" Then<br />
chercher = "Luc"<br />
ElseIf livre = "Joh" Then<br />
chercher = "Jean"<br />
ElseIf livre = "Act" Then<br />
chercher = "Actes"<br />
ElseIf livre = "Rom" Then<br />
chercher = "Romains"<br />
ElseIf livre = "1Co" Then
frmRechercheMorphologique - 3<br />
chercher = "1 Corinthiens"<br />
ElseIf livre = "2Co" Then<br />
chercher = "2 Corinthiens"<br />
ElseIf livre = "Gal" Then<br />
chercher = "Galates"<br />
ElseIf livre = "Eph" Then<br />
chercher = "Ephésiens"<br />
ElseIf livre = "Phi" Then<br />
chercher = "Philippiens"<br />
ElseIf livre = "Col" Then<br />
chercher = "Colossiens"<br />
ElseIf livre = "1Th" Then<br />
chercher = "1 Thessaloniciens"<br />
ElseIf livre = "2Th" Then<br />
chercher = "2 Thessaloniciens"<br />
ElseIf livre = "1Ti" Then<br />
chercher = "1 Timothée"<br />
ElseIf livre = "2Ti" Then<br />
chercher = "2 Timothée"<br />
ElseIf livre = "Tit" Then<br />
chercher = "Tite"<br />
ElseIf livre = "Phm" Then<br />
chercher = "Philémon"<br />
ElseIf livre = "Heb" Then<br />
chercher = "Hébreux"<br />
ElseIf livre = "Jam" Then<br />
chercher = "Jacques"<br />
ElseIf livre = "1Pe" Then<br />
chercher = "1 Pierre"<br />
ElseIf livre = "2Pe" Then<br />
chercher = "2 Pierre"<br />
ElseIf livre = "1Jo" Then<br />
chercher = "1 Jean"<br />
ElseIf livre = "2Jo" Then<br />
chercher = "2 Jean"<br />
ElseIf livre = "3Jo" Then<br />
chercher = "3 Jean"<br />
ElseIf livre = "Jud" Then<br />
chercher = "Jude"<br />
ElseIf livre = "Rev" Then<br />
chercher = "Révélation"<br />
End If<br />
frmBible.cboLivre.Text = chercher<br />
frmBible.txtChapitre.Text = chapitre<br />
frmBible.txtverset.Text = verset<br />
'frmBible.Timer2.Enabled = True<br />
'livre =<br />
'Line1.Visible = True<br />
'Line2.Visible = True<br />
'Line3.Visible = True<br />
End Sub
frmRechercheMorphologique - 1<br />
VERSION 5.00<br />
Begin VB.Form frmRechercheMorphologique<br />
BorderStyle = 4 'Fixed ToolWindow<br />
Caption = "Recherche morphologique ..."<br />
ClientHeight = 5055<br />
ClientLeft = 9420<br />
ClientTop = 4500<br />
ClientWidth = 3210<br />
LinkTopic = "Form1"<br />
MaxButton = 0 'False<br />
MinButton = 0 'False<br />
Picture = (Bitmap)<br />
ScaleHeight = 5055<br />
ScaleWidth = 3210<br />
ShowInTaskbar = 0 'False<br />
Begin VB.ComboBox cboPersonne<br />
Height = 315<br />
Left = 360<br />
TabIndex = 13<br />
Top = 2400<br />
Width = 1095<br />
End<br />
Begin VB.ComboBox cboPersonne2<br />
Height = 315<br />
Left = 1560<br />
TabIndex = 12<br />
Top = 1680<br />
Visible = 0 'False<br />
Width = 1095<br />
End<br />
Begin VB.ComboBox cboPersonne3<br />
Height = 315<br />
Left = 1560<br />
TabIndex = 11<br />
Top = 2040<br />
Visible = 0 'False<br />
Width = 1095<br />
End<br />
Begin VB.TextBox txtcode<br />
Height = 495<br />
Left = 2520<br />
TabIndex = 10<br />
Top = 600<br />
Visible = 0 'False<br />
Width = 1215<br />
End<br />
Begin VB.CommandButton Command2<br />
Caption = "Go"<br />
Default = -1 'True<br />
Height = 375<br />
Left = 1680<br />
TabIndex = 8<br />
Top = 2520<br />
Width = 495<br />
End<br />
Begin VB.TextBox txtNouveauCode<br />
Height = 495<br />
Left = 2520<br />
TabIndex = 7<br />
Text = "nveaucode"<br />
Top = 0<br />
Visible = 0 'False<br />
Width = 1095<br />
End<br />
Begin VB.ComboBox cboNombre<br />
Height = 315<br />
Left = 360<br />
TabIndex = 6<br />
Text = "Nombre"<br />
Top = 2040<br />
Width = 1095<br />
End<br />
Begin VB.ComboBox cboGenre<br />
Height = 315<br />
Left = 360<br />
TabIndex = 5
frmRechercheMorphologique - 2<br />
Text = "Genre"<br />
Top = 1680<br />
Width = 1095<br />
End<br />
Begin VB.ComboBox cboTempsCas<br />
Height = 315<br />
Left = 360<br />
TabIndex = 4<br />
Text = "Cas"<br />
Top = 1320<br />
Width = 1095<br />
End<br />
Begin VB.ComboBox cboType<br />
Height = 315<br />
Left = 120<br />
TabIndex = 3<br />
Text = "Type"<br />
Top = 840<br />
Width = 1335<br />
End<br />
Begin VB.ListBox lstPassages<br />
Height = 1815<br />
Left = 120<br />
TabIndex = 2<br />
Top = 3000<br />
Width = 1935<br />
End<br />
Begin VB.TextBox txtMot<br />
BeginProperty Font<br />
Name = "Bwgrkn"<br />
Size = 14.25<br />
Charset = 0<br />
Weight = 400<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 615<br />
Left = 120<br />
TabIndex = 1<br />
Top = 120<br />
Width = 2055<br />
End<br />
Begin VB.CommandButton Command1<br />
Cancel = -1 'True<br />
Caption = "X"<br />
Height = 375<br />
Left = 2280<br />
TabIndex = 0<br />
Top = 4560<br />
Width = 495<br />
End<br />
Begin VB.Label lblOcc<br />
BackColor = &H00C0E0FF&<br />
BackStyle = 0 'Transparent<br />
Height = 735<br />
Left = 2160<br />
TabIndex = 9<br />
Top = 3120<br />
Width = 1095<br />
End<br />
End
frmReferences - 1<br />
Private Sub btnPrecedent_Click()<br />
If Val(txtPage.Text) > 0 Then<br />
txtPage.Text = Val(txtPage.Text) - 1<br />
End If<br />
End Sub<br />
Private Sub btnSuivant_Click()<br />
If Val(txtPage.Text) < 581 Then<br />
txtPage.Text = Val(txtPage.Text) + 1<br />
End If<br />
End Sub<br />
Private Sub Command1_Click()<br />
Unload Me<br />
End Sub<br />
Private Sub txtPage_Change()<br />
'ges_014_0001.jpg<br />
Dim page$<br />
page = txtPage.Text<br />
On Error GoTo apres:<br />
f cboRef.Text = "Gesenius's Hebrew Grammar" Then<br />
If page
frmReferences - 1<br />
VERSION 5.00<br />
Begin VB.Form frmReferences<br />
BorderStyle = 4 'Fixed ToolWindow<br />
Caption = " Références"<br />
ClientHeight = 9210<br />
ClientLeft = 45<br />
ClientTop = 315<br />
ClientWidth = 8835<br />
LinkTopic = "Form1"<br />
MaxButton = 0 'False<br />
MinButton = 0 'False<br />
Picture = (Bitmap)<br />
ScaleHeight = 9210<br />
ScaleWidth = 8835<br />
ShowInTaskbar = 0 'False<br />
StartUpPosition = 2 'CenterScreen<br />
Begin VB.TextBox txtNombrePage<br />
Height = 375<br />
Left = 6240<br />
TabIndex = 7<br />
Top = 0<br />
Visible = 0 'False<br />
Width = 1095<br />
End<br />
Begin VB.TextBox txtRefPage<br />
Height = 375<br />
Left = 3480<br />
TabIndex = 6<br />
Top = 0<br />
Visible = 0 'False<br />
Width = 2535<br />
End<br />
Begin VB.CommandButton btnGo<br />
Caption = "Ok"<br />
Height = 375<br />
Left = 2520<br />
TabIndex = 5<br />
Top = 0<br />
Width = 495<br />
End<br />
Begin VB.ComboBox cboRef<br />
Height = 315<br />
Left = 0<br />
TabIndex = 4<br />
Text = "Références"<br />
Top = 0<br />
Width = 2535<br />
End<br />
Begin VB.TextBox txtPage<br />
Height = 405<br />
Left = 3480<br />
TabIndex = 3<br />
Top = 960<br />
Width = 1695<br />
End<br />
Begin VB.CommandButton btnSuivant<br />
Caption = ">"<br />
BeginProperty Font<br />
Name = "MS Sans Serif"<br />
Size = 13.5<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 375<br />
Left = 7560<br />
TabIndex = 2<br />
Top = 960<br />
Width = 495<br />
End<br />
Begin VB.CommandButton btnPrecedent<br />
Caption = "
frmReferences - 2<br />
Size = 13.5<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 375<br />
Left = 720<br />
TabIndex = 1<br />
Top = 960<br />
Width = 495<br />
End<br />
Begin VB.CommandButton Command1<br />
Cancel = -1 'True<br />
Caption = "X"<br />
Height = 375<br />
Left = 8160<br />
TabIndex = 0<br />
Top = 240<br />
Width = 495<br />
End<br />
Begin VB.Image Image1<br />
Height = 7815<br />
Left = 1320<br />
Stretch = -1 'True<br />
Top = 1320<br />
Width = 6255<br />
End<br />
End
frmResultatStrong - 1<br />
Private Sub Text1_Change()<br />
End Sub<br />
Private Sub Text1_Click()<br />
Unload Me<br />
End Sub<br />
Private Sub Command1_Click()<br />
Unload Me<br />
End Sub<br />
Private Sub lblNStrong_Click()<br />
strong = lblNStrong.Caption<br />
If Len(strong) < 20 Then Exit Sub<br />
strong = Mid(strong, 10, 5)<br />
If Left(strong, 4) = "0000" Then strong = Mid(strong, 5, Len(strong))<br />
If Left(strong, 3) = "000" Then strong = Mid(strong, 4, Len(strong))<br />
If Left(strong, 2) = "00" Then strong = Mid(strong, 3, Len(strong))<br />
If Left(strong, 1) = "0" Then strong = Mid(strong, 2, Len(strong))<br />
frmBrowser.cboAddress.Text = "http://levangile.com/Strong-Hebreu-" & strong & ".htm"<br />
'1.htm<br />
End Sub
frmResultatStrong - 1<br />
VERSION 5.00<br />
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"<br />
egin VB.Form frmResultatStrong<br />
BorderStyle = 4 'Fixed ToolWindow<br />
Caption = " Strong's Dictionary of Greek and Hebrew Words"<br />
ClientHeight = 3825<br />
ClientLeft = 45<br />
ClientTop = 315<br />
ClientWidth = 4695<br />
Icon = (Icon)<br />
LinkTopic = "Form1"<br />
MaxButton = 0 'False<br />
MinButton = 0 'False<br />
Picture = (Bitmap)<br />
ScaleHeight = 3825<br />
ScaleWidth = 4695<br />
ShowInTaskbar = 0 'False<br />
StartUpPosition = 2 'CenterScreen<br />
Begin VB.CommandButton Command1<br />
Cancel = -1 'True<br />
Caption = "X"<br />
Height = 375<br />
Left = 4080<br />
TabIndex = 0<br />
Top = 3360<br />
Width = 495<br />
End<br />
Begin RichTextLib.RichTextBox txtStrong<br />
Height = 2655<br />
Left = 0<br />
TabIndex = 1<br />
Top = 600<br />
Width = 4575<br />
_ExtentX = 8070<br />
_ExtentY = 4683<br />
_Version = 393217<br />
Enabled = -1 'True<br />
ScrollBars = 2<br />
TextRTF = <br />
End<br />
Begin VB.Label lblMotH<br />
BackStyle = 0 'Transparent<br />
BeginProperty Font<br />
Name = "Bwhebb"<br />
Size = 20.25<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 735<br />
Left = 120<br />
TabIndex = 4<br />
Top = 120<br />
Width = 2535<br />
End<br />
Begin VB.Label lblMot<br />
BackStyle = 0 'Transparent<br />
BeginProperty Font<br />
Name = "Bwgrkn"<br />
Size = 14.25<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 735<br />
Left = 120<br />
TabIndex = 3<br />
Top = 240<br />
Width = 2535<br />
End<br />
Begin VB.Label lblNStrong<br />
BackStyle = 0 'Transparent
frmResultatStrong - 2<br />
BeginProperty Font<br />
Name = "Times New Roman"<br />
Size = 9<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 495<br />
Left = 120<br />
TabIndex = 2<br />
Top = 3360<br />
Width = 3975<br />
End<br />
End
frmSysTray - 1<br />
Option Explicit<br />
03/03/2003<br />
* Added Unicode support<br />
* Added support for new tray version (ME,2000 or above required)<br />
* Added support for balloon tips (ME,2000 or above required)<br />
frmSysTray.<br />
Steve McMahon<br />
Original version based on code supplied from Ben Baird:<br />
Author:<br />
Ben Baird <br />
Copyright (c) 1997, Ben Baird<br />
Purpose:<br />
Demonstrates setting an icon in the taskbar's<br />
system tray without the overhead of subclassing<br />
to receive events.<br />
rivate Declare Function Shell_NotifyIconA Lib "shell32.dll" _<br />
(ByVal dwMessage As Long, lpData As NOTIFYICONDATAA) As Long<br />
rivate Declare Function Shell_NotifyIconW Lib "shell32.dll" _<br />
(ByVal dwMessage As Long, lpData As NOTIFYICONDATAW) As Long<br />
rivate Const NIF_ICON = &H2<br />
rivate Const NIF_MESSAGE = &H1<br />
rivate Const NIF_TIP = &H4<br />
rivate Const NIF_STATE = &H8<br />
rivate Const NIF_INFO = &H10<br />
rivate Const NIM_ADD = &H0<br />
rivate Const NIM_MODIFY = &H1<br />
rivate Const NIM_DELETE = &H2<br />
rivate Const NIM_SETFOCUS = &H3<br />
rivate Const NIM_SETVERSION = &H4<br />
rivate Const NOTIFYICON_VERSION = 3<br />
rivate Type NOTIFYICONDATAA<br />
cbSize As Long ' 4<br />
hwnd As Long ' 8<br />
uID As Long ' 12<br />
uFlags As Long ' 16<br />
uCallbackMessage As Long ' 20<br />
hIcon As Long ' 24<br />
szTip As String * 128 ' 152<br />
dwState As Long ' 156<br />
dwStateMask As Long ' 160<br />
szInfo As String * 256 ' 416<br />
uTimeOutOrVersion As Long ' 420<br />
szInfoTitle As String * 64 ' 484<br />
dwInfoFlags As Long ' 488<br />
guidItem As Long ' 492<br />
nd Type<br />
rivate Type NOTIFYICONDATAW<br />
cbSize As Long ' 4<br />
hwnd As Long ' 8<br />
uID As Long ' 12<br />
uFlags As Long ' 16<br />
uCallbackMessage As Long ' 20<br />
hIcon As Long ' 24<br />
szTip(0 To 255) As Byte ' 280<br />
dwState As Long ' 284<br />
dwStateMask As Long ' 288<br />
szInfo(0 To 511) As Byte ' 800<br />
uTimeOutOrVersion As Long ' 804<br />
szInfoTitle(0 To 127) As Byte ' 932<br />
dwInfoFlags As Long ' 936<br />
guidItem As Long ' 940<br />
nd Type<br />
rivate nfIconDataA As NOTIFYICONDATAA
frmSysTray - 2<br />
Private nfIconDataW As NOTIFYICONDATAW<br />
Private Const NOTIFYICONDATAA_V1_SIZE_A = 88<br />
Private Const NOTIFYICONDATAA_V1_SIZE_U = 152<br />
Private Const NOTIFYICONDATAA_V2_SIZE_A = 488<br />
Private Const NOTIFYICONDATAA_V2_SIZE_U = 936<br />
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long<br />
Private Const WM_MOUSEMOVE = &H200<br />
Private Const WM_LBUTTONDBLCLK = &H203<br />
Private Const WM_LBUTTONDOWN = &H201<br />
Private Const WM_LBUTTONUP = &H202<br />
Private Const WM_RBUTTONDBLCLK = &H206<br />
Private Const WM_RBUTTONDOWN = &H204<br />
Private Const WM_RBUTTONUP = &H205<br />
Private Const WM_USER = &H400<br />
Private Const NIN_SELECT = WM_USER<br />
Private Const NINF_KEY = &H1<br />
Private Const NIN_KEYSELECT = (NIN_SELECT Or NINF_KEY)<br />
Private Const NIN_BALLOONSHOW = (WM_USER + 2)<br />
Private Const NIN_BALLOONHIDE = (WM_USER + 3)<br />
Private Const NIN_BALLOONTIMEOUT = (WM_USER + 4)<br />
Private Const NIN_BALLOONUSERCLICK = (WM_USER + 5)<br />
' Version detection:<br />
Private Declare Function GetVersion Lib "kernel32" () As Long<br />
Public Event SysTrayMouseDown(ByVal eButton As MouseButtonConstants)<br />
Public Event SysTrayMouseUp(ByVal eButton As MouseButtonConstants)<br />
Public Event SysTrayMouseMove()<br />
Public Event SysTrayDoubleClick(ByVal eButton As MouseButtonConstants)<br />
Public Event MenuClick(ByVal lIndex As Long, ByVal sKey As String)<br />
Public Event BalloonShow()<br />
Public Event BalloonHide()<br />
Public Event BalloonTimeOut()<br />
Public Event BalloonClicked()<br />
Public Enum EBalloonIconTypes<br />
NIIF_NONE = 0<br />
NIIF_INFO = 1<br />
NIIF_WARNING = 2<br />
NIIF_ERROR = 3<br />
NIIF_NOSOUND = &H10<br />
End Enum<br />
Private m_bAddedMenuItem As Boolean<br />
Private m_iDefaultIndex As Long<br />
Private m_bUseUnicode As Boolean<br />
Private m_bSupportsNewVersion As Boolean<br />
Public Sub ShowBalloonTip( _<br />
ByVal sMessage As String, _<br />
Optional ByVal sTitle As String, _<br />
Optional ByVal eIcon As EBalloonIconTypes, _<br />
Optional ByVal lTimeOutMs = 30000 _<br />
)<br />
Dim lR As Long<br />
If (m_bSupportsNewVersion) Then<br />
If (m_bUseUnicode) Then<br />
stringToArray sMessage, nfIconDataW.szInfo, 512<br />
stringToArray sTitle, nfIconDataW.szInfoTitle, 128<br />
nfIconDataW.uTimeOutOrVersion = lTimeOutMs<br />
nfIconDataW.dwInfoFlags = eIcon<br />
nfIconDataW.uFlags = NIF_INFO<br />
lR = Shell_NotifyIconW(NIM_MODIFY, nfIconDataW)<br />
Else<br />
nfIconDataA.szInfo = sMessage<br />
nfIconDataA.szInfoTitle = sTitle<br />
nfIconDataA.uTimeOutOrVersion = lTimeOutMs<br />
nfIconDataA.dwInfoFlags = eIcon<br />
nfIconDataA.uFlags = NIF_INFO<br />
lR = Shell_NotifyIconA(NIM_MODIFY, nfIconDataA)
frmSysTray - 3<br />
End If<br />
Else<br />
' can't do it, fail silently.<br />
End If<br />
End Sub<br />
Public Property Get ToolTip() As String<br />
Dim sTip As String<br />
Dim iPos As Long<br />
sTip = nfIconDataA.szTip<br />
iPos = InStr(sTip, Chr$(0))<br />
If (iPos 0) Then<br />
sTip = Left$(sTip, iPos - 1)<br />
End If<br />
ToolTip = sTip<br />
End Property<br />
Public Property Let ToolTip(ByVal sTip As String)<br />
If (m_bUseUnicode) Then<br />
stringToArray sTip, nfIconDataW.szTip, unicodeSize(IIf(m_bSupportsNewVersion, 128, 64))<br />
nfIconDataW.uFlags = NIF_TIP<br />
Shell_NotifyIconW NIM_MODIFY, nfIconDataW<br />
Else<br />
If (sTip & Chr$(0) nfIconDataA.szTip) Then<br />
nfIconDataA.szTip = sTip & Chr$(0)<br />
nfIconDataA.uFlags = NIF_TIP<br />
Shell_NotifyIconA NIM_MODIFY, nfIconDataA<br />
End If<br />
End If<br />
End Property<br />
Public Property Get IconHandle() As Long<br />
IconHandle = nfIconDataA.hIcon<br />
End Property<br />
Public Property Let IconHandle(ByVal hIcon As Long)<br />
If (m_bUseUnicode) Then<br />
If (hIcon nfIconDataW.hIcon) Then<br />
nfIconDataW.hIcon = hIcon<br />
nfIconDataW.uFlags = NIF_ICON<br />
Shell_NotifyIconW NIM_MODIFY, nfIconDataW<br />
End If<br />
Else<br />
If (hIcon nfIconDataA.hIcon) Then<br />
nfIconDataA.hIcon = hIcon<br />
nfIconDataA.uFlags = NIF_ICON<br />
Shell_NotifyIconA NIM_MODIFY, nfIconDataA<br />
End If<br />
End If<br />
End Property<br />
Public Function AddMenuItem(ByVal sCaption As String, Optional ByVal sKey As String = "", Optional<br />
ByVal bDefault As Boolean = False) As Long<br />
Dim iIndex As Long<br />
If Not (m_bAddedMenuItem) Then<br />
iIndex = 0<br />
m_bAddedMenuItem = True<br />
Else<br />
iIndex = mnuSysTray.UBound + 1<br />
Load mnuSysTray(iIndex)<br />
End If<br />
mnuSysTray(iIndex).Visible = True<br />
mnuSysTray(iIndex).Tag = sKey<br />
mnuSysTray(iIndex).Caption = sCaption<br />
If (bDefault) Then<br />
m_iDefaultIndex = iIndex<br />
End If<br />
AddMenuItem = iIndex<br />
End Function<br />
Private Function ValidIndex(ByVal lIndex As Long) As Boolean<br />
ValidIndex = (lIndex >= mnuSysTray.LBound And lIndex
frmSysTray - 4<br />
End Sub<br />
Public Function RemoveMenuItem(ByVal iIndex As Long) As Long<br />
Dim i As Long<br />
If ValidIndex(iIndex) Then<br />
If (iIndex = 0) Then<br />
mnuSysTray(0).Caption = ""<br />
Else<br />
' remove the item:<br />
For i = iIndex + 1 To mnuSysTray.UBound<br />
mnuSysTray(iIndex - 1).Caption = mnuSysTray(iIndex).Caption<br />
mnuSysTray(iIndex - 1).Tag = mnuSysTray(iIndex).Tag<br />
Next i<br />
Unload mnuSysTray(mnuSysTray.UBound)<br />
End If<br />
End If<br />
End Function<br />
Public Property Get DefaultMenuIndex() As Long<br />
DefaultMenuIndex = m_iDefaultIndex<br />
End Property<br />
Public Property Let DefaultMenuIndex(ByVal lIndex As Long)<br />
If (ValidIndex(lIndex)) Then<br />
m_iDefaultIndex = lIndex<br />
Else<br />
m_iDefaultIndex = 0<br />
End If<br />
End Property<br />
Public Function ShowMenu()<br />
SetForegroundWindow Me.hwnd<br />
If (m_iDefaultIndex > -1) Then<br />
Me.PopupMenu mnuPopup, 0, , , mnuSysTray(m_iDefaultIndex)<br />
Else<br />
Me.PopupMenu mnuPopup, 0<br />
End If<br />
End Function<br />
Private Sub Form_Load()<br />
' Get version:<br />
Dim lMajor As Long<br />
Dim lMinor As Long<br />
Dim bIsNt As Long<br />
GetWindowsVersion lMajor, lMinor, , , bIsNt<br />
)<br />
If (bIsNt) Then<br />
m_bUseUnicode = True<br />
If (lMajor >= 5) Then<br />
' 2000 or XP<br />
m_bSupportsNewVersion = True<br />
End If<br />
ElseIf (lMajor = 4) And (lMinor = 90) Then<br />
' Windows ME<br />
m_bSupportsNewVersion = True<br />
End If<br />
'Add the icon to the system tray...<br />
Dim lR As Long<br />
If (m_bUseUnicode) Then<br />
With nfIconDataW<br />
.hwnd = Me.hwnd<br />
.uID = Me.Icon<br />
.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP<br />
.uCallbackMessage = WM_MOUSEMOVE<br />
.hIcon = Me.Icon.Handle<br />
stringToArray App.FileDescription, .szTip, unicodeSize(IIf(m_bSupportsNewVersion, 128, 64)<br />
If (m_bSupportsNewVersion) Then<br />
.uTimeOutOrVersion = NOTIFYICON_VERSION<br />
End If<br />
.cbSize = nfStructureSize<br />
End With<br />
lR = Shell_NotifyIconW(NIM_ADD, nfIconDataW)
frmSysTray - 5<br />
If (m_bSupportsNewVersion) Then<br />
Shell_NotifyIconW NIM_SETVERSION, nfIconDataW<br />
End If<br />
Else<br />
With nfIconDataA<br />
.hwnd = Me.hwnd<br />
.uID = Me.Icon<br />
.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP<br />
.uCallbackMessage = WM_MOUSEMOVE<br />
.hIcon = Me.Icon.Handle<br />
.szTip = App.FileDescription & Chr$(0)<br />
If (m_bSupportsNewVersion) Then<br />
.uTimeOutOrVersion = NOTIFYICON_VERSION<br />
End If<br />
.cbSize = nfStructureSize<br />
End With<br />
lR = Shell_NotifyIconA(NIM_ADD, nfIconDataA)<br />
If (m_bSupportsNewVersion) Then<br />
lR = Shell_NotifyIconA(NIM_SETVERSION, nfIconDataA)<br />
End If<br />
End If<br />
End Sub<br />
Private Sub stringToArray( _<br />
ByVal sString As String, _<br />
bArray() As Byte, _<br />
ByVal lMaxSize As Long _<br />
)<br />
Dim b() As Byte<br />
Dim i As Long<br />
Dim j As Long<br />
If Len(sString) > 0 Then<br />
b = sString<br />
For i = LBound(b) To UBound(b)<br />
bArray(i) = b(i)<br />
If (i = (lMaxSize - 2)) Then<br />
Exit For<br />
End If<br />
Next i<br />
For j = i To lMaxSize - 1<br />
bArray(j) = 0<br />
Next j<br />
End If<br />
End Sub<br />
Private Function unicodeSize(ByVal lSize As Long) As Long<br />
If (m_bUseUnicode) Then<br />
unicodeSize = lSize * 2<br />
Else<br />
unicodeSize = lSize<br />
End If<br />
End Function<br />
Private Property Get nfStructureSize() As Long<br />
If (m_bSupportsNewVersion) Then<br />
If (m_bUseUnicode) Then<br />
nfStructureSize = NOTIFYICONDATAA_V2_SIZE_U<br />
Else<br />
nfStructureSize = NOTIFYICONDATAA_V2_SIZE_A<br />
End If<br />
Else<br />
If (m_bUseUnicode) Then<br />
nfStructureSize = NOTIFYICONDATAA_V1_SIZE_U<br />
Else<br />
nfStructureSize = NOTIFYICONDATAA_V1_SIZE_A<br />
End If<br />
End If<br />
End Property<br />
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)<br />
Dim lX As Long<br />
' VB manipulates the x value according to scale mode:<br />
' we must remove this before we can interpret the<br />
' message windows was trying to send to us:<br />
lX = ScaleX(x, Me.ScaleMode, vbPixels)<br />
Select Case lX
frmSysTray - 6<br />
Case WM_MOUSEMOVE<br />
RaiseEvent SysTrayMouseMove<br />
Case WM_LBUTTONUP<br />
RaiseEvent SysTrayMouseDown(vbLeftButton)<br />
Case WM_LBUTTONUP<br />
RaiseEvent SysTrayMouseUp(vbLeftButton)<br />
Case WM_LBUTTONDBLCLK<br />
RaiseEvent SysTrayDoubleClick(vbLeftButton)<br />
Case WM_RBUTTONDOWN<br />
RaiseEvent SysTrayMouseDown(vbRightButton)<br />
Case WM_RBUTTONUP<br />
RaiseEvent SysTrayMouseUp(vbRightButton)<br />
Case WM_RBUTTONDBLCLK<br />
RaiseEvent SysTrayDoubleClick(vbRightButton)<br />
Case NIN_BALLOONSHOW<br />
RaiseEvent BalloonShow<br />
Case NIN_BALLOONHIDE<br />
RaiseEvent BalloonHide<br />
Case NIN_BALLOONTIMEOUT<br />
RaiseEvent BalloonTimeOut<br />
Case NIN_BALLOONUSERCLICK<br />
RaiseEvent BalloonClicked<br />
End Select<br />
End Sub<br />
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)<br />
If (m_bUseUnicode) Then<br />
Shell_NotifyIconW NIM_DELETE, nfIconDataW<br />
Else<br />
Shell_NotifyIconA NIM_DELETE, nfIconDataA<br />
End If<br />
End Sub<br />
Private Sub mnuSysTray_Click(Index As Integer)<br />
RaiseEvent MenuClick(Index, mnuSysTray(Index).Tag)<br />
End Sub<br />
Private Sub GetWindowsVersion( _<br />
Optional ByRef lMajor = 0, _<br />
Optional ByRef lMinor = 0, _<br />
Optional ByRef lRevision = 0, _<br />
Optional ByRef lBuildNumber = 0, _<br />
Optional ByRef bIsNt = False _<br />
)<br />
Dim lR As Long<br />
lR = GetVersion()<br />
lBuildNumber = (lR And &H7F000000) \ &H1000000<br />
If (lR And &H80000000) Then lBuildNumber = lBuildNumber Or &H80<br />
lRevision = (lR And &HFF0000) \ &H10000<br />
lMinor = (lR And &HFF00&) \ &H100<br />
lMajor = (lR And &HFF)<br />
bIsNt = ((lR And &H80000000) = 0)<br />
End Sub
frmSysTray - 1<br />
VERSION 5.00<br />
Begin VB.Form frmSysTray<br />
Caption = "Sys Tray Interface"<br />
ClientHeight = 1920<br />
ClientLeft = 5610<br />
ClientTop = 3360<br />
ClientWidth = 4680<br />
LinkTopic = "Form1"<br />
ScaleHeight = 1920<br />
ScaleWidth = 4680<br />
Begin VB.Menu mnuPopup<br />
Caption = "&Popup"<br />
Begin VB.Menu mnuSysTray<br />
Caption = ""<br />
Index = 0<br />
End<br />
End<br />
End
frmTSK - 1<br />
VERSION 5.00<br />
Begin VB.Form frmTSK<br />
Caption = "Form1"<br />
ClientHeight = 3090<br />
ClientLeft = 60<br />
ClientTop = 450<br />
ClientWidth = 4680<br />
LinkTopic = "Form1"<br />
ScaleHeight = 3090<br />
ScaleWidth = 4680<br />
StartUpPosition = 3 'Windows Default<br />
Begin VB.TextBox Text<br />
Height = 2055<br />
Left = 840<br />
TabIndex = 0<br />
Text = "Text1"<br />
Top = 600<br />
Width = 3015<br />
End<br />
End
frmWeb - 1<br />
Private Sub Command1_Click()<br />
Unload Me<br />
End Sub
frmWeb - 1<br />
VERSION 5.00<br />
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"<br />
egin VB.Form frmWeb<br />
BorderStyle = 4 'Fixed ToolWindow<br />
Caption = "Bible Parser : the Power of the Web..."<br />
ClientHeight = 4170<br />
ClientLeft = 45<br />
ClientTop = 315<br />
ClientWidth = 5580<br />
LinkTopic = "Form1"<br />
MaxButton = 0 'False<br />
MinButton = 0 'False<br />
ScaleHeight = 4170<br />
ScaleWidth = 5580<br />
ShowInTaskbar = 0 'False<br />
StartUpPosition = 3 'Windows Default<br />
Begin VB.OptionButton Option1<br />
Caption = "Option1"<br />
Height = 195<br />
Left = 720<br />
TabIndex = 3<br />
Top = 2400<br />
Width = 2175<br />
End<br />
Begin ComctlLib.TabStrip TabStrip1<br />
Height = 2415<br />
Left = 480<br />
TabIndex = 2<br />
Top = 1560<br />
Width = 3735<br />
_ExtentX = 6588<br />
_ExtentY = 4260<br />
_Version = 327682<br />
BeginProperty Tabs {0713E432-850A-101B-AFC0-4210102A8DA7}<br />
NumTabs = 3<br />
BeginProperty Tab1 {0713F341-850A-101B-AFC0-4210102A8DA7}<br />
Caption = "Définition"<br />
Key = ""<br />
Object.Tag = ""<br />
ImageVarType = 2<br />
EndProperty<br />
BeginProperty Tab2 {0713F341-850A-101B-AFC0-4210102A8DA7}<br />
Caption = "Analyse"<br />
Key = ""<br />
Object.Tag = ""<br />
ImageVarType = 2<br />
EndProperty<br />
BeginProperty Tab3 {0713F341-850A-101B-AFC0-4210102A8DA7}<br />
Caption = "Référence"<br />
Key = ""<br />
Object.Tag = ""<br />
ImageVarType = 2<br />
EndProperty<br />
EndProperty<br />
End<br />
Begin VB.CommandButton Command1<br />
Caption = "&OK"<br />
Height = 375<br />
Left = 5040<br />
TabIndex = 1<br />
Top = 3720<br />
Width = 495<br />
End<br />
Begin VB.TextBox Text1<br />
Height = 495<br />
Left = 1440<br />
TabIndex = 0<br />
Top = 360<br />
Width = 2055<br />
End<br />
nd
frmZetoGraphe - 1<br />
Private Sub btnFermer_Click()<br />
End<br />
End Sub<br />
Private Sub cboVersion_LostFocus()<br />
If cboVersion.Text = "NA27" Or cboVersion.Text = "WH+" Then<br />
txtRecherche.Text = ""<br />
txtRecherche.Font = "Bwgrkn"<br />
txtRecherche.FontSize = "14"<br />
ElseIf cboVersion.Text = "BHS" Then<br />
txtRecherche.Text = ""<br />
txtRecherche.Font = "Bwhebb"<br />
txtRecherche.FontSize = "16"<br />
Else<br />
txtRecherche.Text = ""<br />
txtRecherche.Font = "MS Sans Serif"<br />
txtRecherche.FontSize = "8"<br />
End If<br />
End Sub<br />
Private Sub Command1_Click()<br />
zetographediret = False<br />
Unload Me<br />
End Sub<br />
Public Sub btnRechercher_Click()<br />
Dim version As String<br />
Dim recherche As String<br />
Dim lfile As String<br />
Dim ofile As String<br />
Dim ligne As String<br />
Dim nombre As Integer<br />
Dim msg As String<br />
Dim fichier As String<br />
'affectation des variables<br />
lfile = FreeFile<br />
recherche = " " & txtRecherche.Text<br />
version = cboVersion.Text<br />
Text1.Text = ""<br />
'gestion des erreurs<br />
If txtRecherche = "" Then<br />
txtRecherche.Text = frmBible.txtPassage.SelText<br />
cboVersion.Text = frmBible.cboVersion.Text<br />
'Or txtRecherche = "mot ou expression" Then<br />
'msg = MsgBox("Vous n'avez pas saisi votre recherche !", vbInformation)<br />
btnRechercher_Click<br />
End If<br />
'définition du chemin du fichier texte<br />
'en fonction de la version choisie<br />
If version = "LSG" Then<br />
fichier = App.Path & "\modules\lsg1901\lsg.txt"<br />
ElseIf version = "Darby" Then<br />
fichier = App.Path & "\modules\Darby\darby.txt"<br />
ElseIf version = "JER" Then<br />
fichier = App.Path & "\modules\JER\jer.txt"<br />
ElseIf version = "TOB" Then<br />
fichier = App.Path & "\modules\TOB\tob.txt"<br />
ElseIf version = "BFC" Then<br />
fichier = App.Path & "\modules\BFC\bfc.txt"<br />
ElseIf version = "Vulgate" Then<br />
fichier = App.Path & "\modules\Vg\vulgate.txt"<br />
ElseIf version = "ASV" Then<br />
fichier = App.Path & "\modules\ASV\asv.txt"<br />
ElseIf version = "KJV" Then<br />
fichier = App.Path & "\modules\KJV\kjv.txt"<br />
ElseIf version = "Flavius Josèphe - En" Then<br />
fichier = App.Path & "\modules\JOS\joe.txt"<br />
ElseIf version = "DIAGLOTT" Then<br />
fichier = App.Path & "\modules\Diaglott\Diaglott.txt"
frmZetoGraphe - 2<br />
ElseIf version = "YLT" Then<br />
fichier = App.Path & "\modules\YLT\ylt.txt"<br />
ElseIf version = "WEB" Then<br />
fichier = App.Path & "\modules\WEB\web.txt"<br />
ElseIf version = "BBE" Then<br />
fichier = App.Path & "\modules\BBE\bbe.txt"<br />
ElseIf version = "DR" Then<br />
fichier = App.Path & "\modules\DR\dr.txt"<br />
ElseIf version = "WBST" Then<br />
fichier = App.Path & "\modules\Webster\webster.txt"<br />
ElseIf version = "NET" Then<br />
fichier = App.Path & "\modules\NET\net.txt"<br />
ElseIf version = "JPS" Then<br />
fichier = App.Path & "\modules\JPS\jps.txt"<br />
ElseIf version = "APF-G" Then<br />
fichier = App.Path & "\modules\APF\apfg.txt"<br />
ElseIf version = "APF-E" Then<br />
fichier = App.Path & "\modules\APF\ape.txt"<br />
ElseIf version = "Lightfoot" Then<br />
fichier = App.Path & "\modules\APF\Lightfoot.txt"<br />
ElseIf version = "BHS" Then<br />
Call ConcordanceBHS(recherche)<br />
Exit Sub<br />
ElseIf version = "Flavius Josèphe" Then<br />
Call ConcordanceFJ(recherche)<br />
Exit Sub<br />
ElseIf version = "ANF" Then<br />
Call ConcordanceANF(recherche)<br />
Exit Sub<br />
ElseIf version = "NA27" Then<br />
Call ConcordanceNA27(recherche)<br />
Exit Sub<br />
ElseIf version = "WH+" Then<br />
Call ConcordanceWH(recherche)<br />
Exit Sub<br />
ElseIf version = "Tischendorf+" Then<br />
Call ConcordanceTIS(recherche)<br />
Exit Sub<br />
ElseIf version = "LXX" Then<br />
Call ConcordanceLXX(recherche)<br />
Exit Sub<br />
ElseIf version = "APF-G" Then<br />
Call ConcordanceAPFG(recherche)<br />
Exit Sub<br />
ElseIf version = "Homère" Then<br />
Call ConcordanceHomere(recherche)<br />
Exit Sub<br />
End If<br />
'Select Case version<br />
'Case Is = "LSG"<br />
'OFile = App.Path & "\modules\lsg1901\lsg.txt"<br />
'Case Is = "Darby"<br />
'OFile = App.Path & "\modules\Darby\darby.txt"<br />
'Case Is = "JER"<br />
'OFile = App.Path & "\JER\jer.txt"<br />
'End Select<br />
'nombre = 0<br />
Open fichier For Input As #lfile<br />
On Error GoTo apres:<br />
Do<br />
Input #lfile, ligne
frmZetoGraphe - 3<br />
If InStr(1, ligne, recherche, vbTextCompare) 0 Then<br />
Text1.Text = Text1.Text & vbCrLf & Mid(ligne, 1, 45) & "..."<br />
'recherche = ligne<br />
'Call RemettrePassageLSG(recherche)<br />
'lsResultat.AddItem (Mid(recherche, 1, 45) & "...")<br />
nombre = nombre + 1<br />
End If<br />
Loop While Not EOF(lfile)<br />
apres:<br />
Close<br />
lblResultat.Caption = nombre & " passages trouvés"<br />
Text1.Text = Replace(Text1.Text, "~", ",")<br />
Text1.Text = Mid(Text1.Text, 3, Len(Text1.Text))<br />
recherche = Text1.Text<br />
Call RemettrePassageLSG(recherche)<br />
Text1.Text = recherche<br />
Show 0<br />
frmZetoGraphe.MousePointer = 0<br />
If lblResultat.Caption = " 1 passage trouvé" Then lblResultat.Caption = "Hapax legomenon !"<br />
If lblResultat.Caption = "0 passage trouvé" Then<br />
Unload frmResultat<br />
msg = MsgBox(frmZetoGraphe.txtRecherche.Text & " n'a pas été trouvé dans la version " & cboVers<br />
ion.Text, vbInformation, "Pas de résultat")<br />
End If<br />
End Sub<br />
Private Sub Form_GotFocus()<br />
On Error GoTo apres:<br />
nload frmResultat<br />
pres:<br />
nd Sub<br />
rivate Sub Form_Load()<br />
boVersion.Text = "LSG"<br />
boVersion.AddItem ("BHS")<br />
boVersion.AddItem ("--")<br />
boVersion.AddItem ("NA27")<br />
boVersion.AddItem ("WH+")<br />
boVersion.AddItem ("LXX")<br />
boVersion.AddItem ("--")<br />
boVersion.AddItem ("Vulgate")<br />
boVersion.AddItem ("--")<br />
boVersion.AddItem ("LSG")<br />
boVersion.AddItem ("Darby")<br />
boVersion.AddItem ("JER")<br />
boVersion.AddItem ("TOB")<br />
boVersion.AddItem ("BFC")<br />
boVersion.AddItem ("--")<br />
boVersion.AddItem ("ASV")<br />
boVersion.AddItem ("KJV")<br />
boVersion.AddItem ("NET")<br />
boVersion.AddItem ("DIAGLOTT")<br />
boVersion.AddItem ("YLT")<br />
boVersion.AddItem ("WEB")<br />
boVersion.AddItem ("BBE")<br />
boVersion.AddItem ("DR")<br />
boVersion.AddItem ("WBST")<br />
boVersion.AddItem ("--")<br />
boVersion.AddItem ("ANF")<br />
boVersion.AddItem ("APF-G")<br />
boVersion.AddItem ("APF-E")<br />
boVersion.AddItem ("Lightfoot")<br />
boVersion.AddItem ("--")<br />
boVersion.AddItem ("Flavius Josèphe")<br />
boVersion.AddItem ("Flavius Josèphe - En")<br />
cboVersion.AddItem ("Homère")<br />
nd Sub
frmZetoGraphe - 4<br />
Private Sub lstResultat_Click()<br />
Dim msg$<br />
If cboVersion.Text = "ANF" Then msg$ = MsgBox("Cette fonction n'est pas encore disponible !", vbInf<br />
ormation)<br />
If lstResultat.Text "" Then<br />
passage = Trim(lstResultat.Text)<br />
premierespace = InStr(1, passage, " ")<br />
deuxpoints = InStr(1, passage, ":")<br />
livre = Mid(passage, 1, premierespace - 1)<br />
chapitre = Mid(passage, premierespace + 1, deuxpoints - 1)<br />
chapitre = Mid(chapitre, 1, InStr(1, chapitre, ":") - 1)<br />
verset = Trim(Mid(passage, deuxpoints + 1, 2))<br />
'MsgBox livre & " " & chapitre & " " & verset<br />
Else<br />
Exit Sub<br />
End If<br />
If livre = "Gen" Then<br />
chercher = "Genèse"<br />
ElseIf livre = "Exo" Then<br />
chercher = "Exode"<br />
ElseIf livre = "Lev" Then<br />
chercher = "Lévitique"<br />
ElseIf livre = "Num" Then<br />
chercher = "Nombres"<br />
ElseIf livre = "Deu" Then<br />
chercher = "Deutéronome"<br />
ElseIf livre = "Jos" Then<br />
chercher = "Josué"<br />
ElseIf livre = "Jdg" Then<br />
chercher = "Juges"<br />
ElseIf livre = "Rut" Then<br />
chercher = "Ruth"<br />
ElseIf livre = "1Sa" Then<br />
chercher = "1 Samuel"<br />
ElseIf livre = "2Sa" Then<br />
chercher = "2 Samuel"<br />
ElseIf livre = "1Ki" Then<br />
chercher = "1 Rois"<br />
ElseIf livre = "2Ki" Then<br />
chercher = "2 Rois"<br />
ElseIf livre = "1Ch" Then<br />
chercher = "1 Chroniques"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "2Ch"<br />
ElseIf livre = "Ezr" Then<br />
chercher = "Esdras"<br />
ElseIf livre = "Neh" Then<br />
chercher = "Néhémie"<br />
ElseIf livre = "Est" Then<br />
chercher = "Esther"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psa" Then
frmZetoGraphe - 5<br />
chercher = "Psaumes"<br />
ElseIf livre = "Pro" Then<br />
chercher = "Proverbes"<br />
ElseIf livre = "Ecc" Then<br />
chercher = "Ecclésiaste"<br />
ElseIf livre = "Sol" Then<br />
chercher = "Cantique des cantiques"<br />
ElseIf livre = "Isa" Then<br />
chercher = "Esaïe"<br />
ElseIf livre = "Jer" Then<br />
chercher = "Jérémie"<br />
ElseIf livre = "Lam" Then<br />
chercher = "Lamentations"<br />
ElseIf livre = "Eze" Then<br />
chercher = "Ezéchiel"<br />
ElseIf livre = "Dan" Then<br />
chercher = "Daniel"<br />
ElseIf livre = "Hos" Then<br />
chercher = "Osée"<br />
ElseIf livre = "Joe" Then<br />
chercher = "Joël"<br />
ElseIf livre = "Amo" Then<br />
chercher = "Amos"<br />
ElseIf livre = "Oba" Then<br />
chercher = "Abdias"<br />
ElseIf livre = "Jon" Then<br />
chercher = "Jonas"<br />
ElseIf livre = "Mic" Then<br />
chercher = "Michée"<br />
ElseIf livre = "Hab" Then<br />
chercher = "Habaquq"<br />
ElseIf livre = "Zep" Then<br />
chercher = "Sophonie"<br />
ElseIf livre = "Hag" Then<br />
chercher = "Aggée"<br />
ElseIf livre = "Nah" Then<br />
chercher = "Nahoum"<br />
ElseIf livre = "Zec" Then<br />
chercher = "Zacharie"<br />
ElseIf livre = "Mal" Then<br />
chercher = "Malachie"<br />
'---------<br />
ElseIf livre = "Mat" Then<br />
chercher = "Matthieu"<br />
ElseIf livre = "Mar" Then<br />
chercher = "Marc"<br />
ElseIf livre = "Luk" Then<br />
chercher = "Luc"<br />
ElseIf livre = "Joh" Then<br />
chercher = "Jean"<br />
ElseIf livre = "Act" Then<br />
chercher = "Actes"
frmZetoGraphe - 6<br />
ElseIf livre = "Rom" Then<br />
chercher = "Romains"<br />
ElseIf livre = "1Co" Then<br />
chercher = "1 Corinthiens"<br />
ElseIf livre = "2Co" Then<br />
chercher = "2 Corinthiens"<br />
ElseIf livre = "Gal" Then<br />
chercher = "Galates"<br />
ElseIf livre = "Eph" Then<br />
chercher = "Ephésiens"<br />
ElseIf livre = "Phi" Then<br />
chercher = "Philippiens"<br />
ElseIf livre = "Col" Then<br />
chercher = "Colossiens"<br />
ElseIf livre = "1Th" Then<br />
chercher = "1 Thessaloniciens"<br />
ElseIf livre = "2Th" Then<br />
chercher = "2 Thessaloniciens"<br />
ElseIf livre = "1Ti" Then<br />
chercher = "1 Timothée"<br />
ElseIf livre = "2Ti" Then<br />
chercher = "2 Timothée"<br />
ElseIf livre = "Tit" Then<br />
chercher = "Tite"<br />
ElseIf livre = "Phm" Then<br />
chercher = "Philémon"<br />
ElseIf livre = "Heb" Then<br />
chercher = "Hébreux"<br />
ElseIf livre = "Jam" Then<br />
chercher = "Jacques"<br />
ElseIf livre = "1Pe" Then<br />
chercher = "1 Pierre"<br />
ElseIf livre = "2Pe" Then<br />
chercher = "2 Pierre"<br />
ElseIf livre = "1Jo" Then<br />
chercher = "1 Jean"<br />
ElseIf livre = "2Jo" Then<br />
chercher = "2 Jean"<br />
ElseIf livre = "3Jo" Then<br />
chercher = "3 Jean"<br />
ElseIf livre = "Jud" Then<br />
chercher = "Jude"<br />
ElseIf livre = "Rev" Then<br />
chercher = "Révélation"<br />
End If<br />
frmBible.cboLivre.Text = chercher<br />
frmBible.txtChapitre.Text = chapitre<br />
frmBible.txtverset.Text = verset<br />
End Sub<br />
Private Sub Timer1_Timer()<br />
If txtRecherche.Text "" And frmBible.mnuZetoG.Checked = False Then
frmZetoGraphe - 7<br />
btnRechercher_Click<br />
Timer1.Enabled = False<br />
End If<br />
End Sub<br />
Private Sub txtRecherche_Click()<br />
'txtRecherche.Text = ""<br />
'txtRecherche.ForeColor = vbBlack<br />
'On Error GoTo apres:<br />
' Unload frmResultat<br />
'apres:<br />
End Sub<br />
Private Sub txtRecherche_KeyPress(KeyAscii As Integer)<br />
If KeyAscii = 13 Then btnRechercher_Click<br />
If KeyAscii = 27 Then Unload Me<br />
End Sub
frmZetoGraphe - 1<br />
VERSION 5.00<br />
Begin VB.Form frmZetoGraphe<br />
BorderStyle = 4 'Fixed ToolWindow<br />
Caption = " Concordance ZêtoGraphê"<br />
ClientHeight = 4530<br />
ClientLeft = 7590<br />
ClientTop = 2730<br />
ClientWidth = 4365<br />
Icon = (Icon)<br />
LinkTopic = "Form1"<br />
MaxButton = 0 'False<br />
MinButton = 0 'False<br />
Moveable = 0 'False<br />
Picture = (Bitmap)<br />
ScaleHeight = 4530<br />
ScaleWidth = 4365<br />
ShowInTaskbar = 0 'False<br />
Begin VB.ListBox lstResultat<br />
Height = 1815<br />
Left = 360<br />
TabIndex = 10<br />
Top = 2280<br />
Visible = 0 'False<br />
Width = 2655<br />
End<br />
Begin VB.CommandButton Command1<br />
Caption = "X"<br />
Height = 255<br />
Left = 3960<br />
TabIndex = 9<br />
Top = 4200<br />
Width = 375<br />
End<br />
Begin VB.TextBox Text1<br />
Height = 1815<br />
Left = 120<br />
MultiLine = -1 'True<br />
ScrollBars = 3 'Both<br />
TabIndex = 7<br />
Top = 2280<br />
Width = 3735<br />
End<br />
Begin VB.Timer Timer1<br />
Interval = 10<br />
Left = 1560<br />
Top = 0<br />
End<br />
Begin VB.CommandButton btnRechercher<br />
Caption = "Rechercher"<br />
Default = -1 'True<br />
Height = 255<br />
Left = 2640<br />
TabIndex = 2<br />
Top = 840<br />
Visible = 0 'False<br />
Width = 1455<br />
End<br />
Begin VB.CommandButton btnFermer<br />
Cancel = -1 'True<br />
Height = 255<br />
Left = 3840<br />
TabIndex = 6<br />
Top = 1200<br />
Visible = 0 'False<br />
Width = 615<br />
End<br />
Begin VB.ComboBox cboVersion<br />
Height = 315<br />
Left = 2400<br />
TabIndex = 1<br />
Text = " version..."<br />
Top = 1680<br />
Width = 1455<br />
End<br />
Begin VB.PictureBox Picture1<br />
Height = 2175
frmZetoGraphe - 2<br />
Left = 0<br />
Picture = (Bitmap)<br />
ScaleHeight = 2115<br />
ScaleWidth = 1875<br />
TabIndex = 3<br />
Top = 0<br />
Width = 1935<br />
End<br />
Begin VB.TextBox txtRecherche<br />
ForeColor = &H00000000&<br />
Height = 405<br />
Left = 2040<br />
TabIndex = 0<br />
Top = 1200<br />
Width = 1815<br />
End<br />
Begin VB.Label lblResultat<br />
Alignment = 2 'Center<br />
BackStyle = 0 'Transparent<br />
Caption = "passages trouvés"<br />
BeginProperty Font<br />
Name = "Courier New"<br />
Size = 9<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 375<br />
Left = -600<br />
TabIndex = 8<br />
Top = 4200<br />
Width = 5775<br />
End<br />
Begin VB.Label Label2<br />
Alignment = 2 'Center<br />
BackStyle = 0 'Transparent<br />
Caption = "ZhtwGrafh"<br />
BeginProperty Font<br />
Name = "Symbol"<br />
Size = 18<br />
Charset = 2<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
ForeColor = &H80000010&<br />
Height = 495<br />
Left = 2040<br />
TabIndex = 5<br />
Top = 480<br />
Width = 2655<br />
End<br />
Begin VB.Label Label1<br />
Alignment = 2 'Center<br />
BackStyle = 0 'Transparent<br />
Caption = "ZêtôGraphê"<br />
BeginProperty Font<br />
Name = "Courier New"<br />
Size = 18<br />
Charset = 0<br />
Weight = 700<br />
Underline = 0 'False<br />
Italic = 0 'False<br />
Strikethrough = 0 'False<br />
EndProperty<br />
Height = 375<br />
Left = 1800<br />
TabIndex = 4<br />
Top = 120<br />
Width = 2655<br />
End<br />
End
ZêtôGraphê<br />
ΖητωΓραφη<br />
passages trouvés
fctAfficherAnalyseSeptante - 1<br />
Public Function AfficherAnalyseSeptante(mot, origine, codemot) As String<br />
Dim packard$<br />
Dim ouvrir<br />
Dim chercher$<br />
packard = App.Path & "\tools\packard.txt"<br />
ouvrir = FreeFile<br />
frmBible.lbltampon.Text = ""<br />
Load frmParse<br />
frmParse.Show<br />
frmParse.lblDefinition.Caption = mott<br />
frmParse.lblmot.Caption = mot<br />
motr = LCase(origine)<br />
If Right(motr, 1) = "s" Then<br />
motr = Mid(motr, 1, Len(motr) - 1) & "j"<br />
End If<br />
frmParse.lblorigine.Caption = LCase(motr)<br />
Call DefinirGrec(motr, mott)<br />
frmParse.lblDefinition.Caption = "Définition: " & mott<br />
frmParse.lblDefinition.Visible = True<br />
chercher = Replace(codemot, " ", " ", 1)<br />
Open packard For Input As #ouvrir<br />
Do<br />
pres:<br />
Input #ouvrir, ligne<br />
If ligne = chercher Then<br />
Do<br />
Input #ouvrir, ligne<br />
If ligne = "" Or ligne = vbCrLf Then<br />
GoTo apres:<br />
End If<br />
frmBible.lbltampon.Text = frmBible.lbltampon.Text & ligne & vbCrLf<br />
Loop<br />
End If<br />
Loop While Not EOF(ouvrir)<br />
MsgBox "Récapitulation : mot : " & mot & vbCrLf & "origine : " & LCase(origine) & vbCrLf & "défini<br />
ion : " & mott & vbCrLf & "code : " & chercher & vbCrLf & frmBible.lbltampon.Text<br />
rmParse.txtAnalyse.Caption = vbCrLf & frmBible.lbltampon.Text<br />
rmParse2.Text1.Text = vbCrLf & frmBible.lbltampon.Text<br />
nd Function
fctAnalyseMorphoLatin - 1<br />
Public Function AnalyseMorphoLatin(ligne)<br />
ligne = Replace(ligne, " NOM ", " nominatif ")<br />
ligne = Replace(ligne, " ACC ", " accusatif ")<br />
ligne = Replace(ligne, " GEN ", " génitif ")<br />
ligne = Replace(ligne, " DAT ", " datif ")<br />
ligne = Replace(ligne, " LOC ", " locatif ")<br />
ligne = Replace(ligne, " ABL ", " ablatif")<br />
ligne = Replace(ligne, " NOM", " nominatif ")<br />
ligne = Replace(ligne, " ACC", " accusatif ")<br />
ligne = Replace(ligne, " GEN", " génitif ")<br />
ligne = Replace(ligne, " DAT", " datif ")<br />
ligne = Replace(ligne, " LOC", " locatif ")<br />
ligne = Replace(ligne, " ABL", " ablatif")<br />
ligne = Replace(ligne, " V 0", " Verbe ")<br />
ligne = Replace(ligne, " V 1", " Verbe ")<br />
ligne = Replace(ligne, " V 2", " Verbe ")<br />
ligne = Replace(ligne, " V 3", " Verbe ")<br />
ligne = Replace(ligne, " V 4", " Verbe ")<br />
ligne = Replace(ligne, " V 5", " Verbe ")<br />
ligne = Replace(ligne, " V 6", " Verbe ")<br />
ligne = Replace(ligne, " V 7", " Verbe ")<br />
ligne = Replace(ligne, " V 8", " Verbe ")<br />
ligne = Replace(ligne, " V 9", " Verbe ")<br />
ligne = Replace(ligne, "V 0", " Verbe ")<br />
ligne = Replace(ligne, "V 1", " Verbe ")<br />
ligne = Replace(ligne, "V 2", " Verbe ")<br />
ligne = Replace(ligne, "V 3", " Verbe ")<br />
ligne = Replace(ligne, "V 4", " Verbe ")<br />
ligne = Replace(ligne, "V 5", " Verbe ")<br />
ligne = Replace(ligne, "V 6", " Verbe ")<br />
ligne = Replace(ligne, "V 7", " Verbe ")<br />
ligne = Replace(ligne, "V 8", " Verbe ")<br />
ligne = Replace(ligne, "V 9", " Verbe ")<br />
ligne = Replace(ligne, " N 0", " Nom ")<br />
ligne = Replace(ligne, " N 1", " Nom ")<br />
ligne = Replace(ligne, " N 2", " Nom ")<br />
ligne = Replace(ligne, " N 3", " Nom ")<br />
ligne = Replace(ligne, " N 4", " Nom ")<br />
ligne = Replace(ligne, " N 5", " Nom ")<br />
ligne = Replace(ligne, " N 6", " Nom ")<br />
ligne = Replace(ligne, " N 7", " Nom ")<br />
ligne = Replace(ligne, " N 8", " Nom ")<br />
ligne = Replace(ligne, " N 9", " Nom ")<br />
ligne = Replace(ligne, " N N", " Nom neutre")<br />
ligne = Replace(ligne, " N M", " Nom masculin")<br />
ligne = Replace(ligne, " N F", " Nom féminin")<br />
ligne = Replace(ligne, " N X", " Nom ")<br />
ligne = Replace(ligne, " N 0", " Nom ")<br />
'ligne = Replace(ligne, "N 1", " Nom ")<br />
'ligne = Replace(ligne, "N 2", " Nom ")<br />
'ligne = Replace(ligne, "N 3", " Nom ")<br />
'ligne = Replace(ligne, "N 4", " Nom ")<br />
'ligne = Replace(ligne, "N 5", " Nom ")<br />
'ligne = Replace(ligne, "N 6", " Nom ")<br />
'ligne = Replace(ligne, "N 7", " Nom ")<br />
'ligne = Replace(ligne, "N 8", " Nom ")<br />
'ligne = Replace(ligne, "N 9", " Nom ")<br />
'ligne = Replace(ligne, "N N", " Nom neutre")<br />
'ligne = Replace(ligne, "N M", " Nom masculin")<br />
'ligne = Replace(ligne, "N F", " Nom féminin")<br />
'ligne = Replace(ligne, "N X", " Nom ")<br />
ligne = Replace(ligne, " X ", " (?) ")<br />
ligne = Replace(ligne, " ADJ ", " Adjectif ")<br />
ligne = Replace(ligne, " PRON ", " Pronom ")<br />
ligne = Replace(ligne, " ADV ", " Adverbe ")<br />
ligne = Replace(ligne, " NUM ", " numéral ")<br />
ligne = Replace(ligne, " SUPINE ", " supin ")<br />
ligne = Replace(ligne, " CONJ ", " Conjonction ")<br />
ligne = Replace(ligne, " INTERJ ", " Interjection ")
fctAnalyseMorphoLatin - 2<br />
ligne = Replace(ligne, " TACKON ", " (?) ")<br />
ligne = Replace(ligne, " PREFIX ", " Préfixe ")<br />
ligne = Replace(ligne, " SUFFIX ", " Suffixe ")<br />
ligne = Replace(ligne, " PACK ", " (?)")<br />
ligne = Replace(ligne, " VPAR ", " Participe ")<br />
ligne = Replace(ligne, " PREP ", " Préposition ")<br />
ligne = Replace(ligne, " X ", " (?) ")<br />
ligne = Replace(ligne, " ADJ ", " Adjectif ")<br />
ligne = Replace(ligne, "PRON ", " Pronom ")<br />
ligne = Replace(ligne, "ADV ", " Adverbe ")<br />
ligne = Replace(ligne, "NUM ", " numéral ")<br />
ligne = Replace(ligne, "SUPINE ", " supin ")<br />
ligne = Replace(ligne, "CONJ ", " Conjonction ")<br />
ligne = Replace(ligne, "INTERJ ", " Interjection ")<br />
ligne = Replace(ligne, "TACKON ", " (?) ")<br />
ligne = Replace(ligne, "PREFIX ", " Préfixe ")<br />
ligne = Replace(ligne, "SUFFIX ", " Suffixe ")<br />
ligne = Replace(ligne, "PACK ", " (?)")<br />
ligne = Replace(ligne, "VPAR ", " Participe ")<br />
ligne = Replace(ligne, "PREP ", " Préposition ")<br />
ligne = Replace(ligne, " S M", " masculin singulier ")<br />
ligne = Replace(ligne, " P M", " masculin pluriel ")<br />
ligne = Replace(ligne, " N M", " masculin neutre ")<br />
ligne = Replace(ligne, " X M", " masculin ")<br />
ligne = Replace(ligne, "S M", " masculin singulier ")<br />
ligne = Replace(ligne, "P M", " masculin pluriel ")<br />
ligne = Replace(ligne, "N M", " masculin neutre ")<br />
ligne = Replace(ligne, "X M", " masculin ")<br />
ligne = Replace(ligne, " S F", " féminin singulier ")<br />
ligne = Replace(ligne, " P F", " féminin pluriel ")<br />
ligne = Replace(ligne, " N F", " féminin neutre ")<br />
ligne = Replace(ligne, " X F", " féminin ")<br />
ligne = Replace(ligne, "S F", " féminin singulier ")<br />
ligne = Replace(ligne, "P F", " féminin pluriel ")<br />
ligne = Replace(ligne, "N F", " féminin neutre ")<br />
ligne = Replace(ligne, "X F", " féminin ")<br />
ligne = Replace(ligne, " S N", " neutre singulier ")<br />
ligne = Replace(ligne, " P N", " neutre pluriel ")<br />
ligne = Replace(ligne, " X N", " neutre ")<br />
ligne = Replace(ligne, "S N ", " neutre singulier ")<br />
ligne = Replace(ligne, "P N ", " neutre pluriel ")<br />
ligne = Replace(ligne, "X N ", " neutre ")<br />
ligne = Replace(ligne, "S N", " neutre singulier ")<br />
ligne = Replace(ligne, "P N", " neutre pluriel ")<br />
ligne = Replace(ligne, " P C", " pluriel (commun) ")<br />
ligne = Replace(ligne, " S C", " singulier (commun) ")<br />
ligne = Replace(ligne, " S X", " singulier")<br />
ligne = Replace(ligne, " P X", " pluriel")<br />
ligne = Replace(ligne, " PRES ", " présent ")<br />
ligne = Replace(ligne, " IMPF ", " imparfait ")<br />
ligne = Replace(ligne, " FUT ", " futur ")<br />
ligne = Replace(ligne, " PERF ", " parfait ")<br />
ligne = Replace(ligne, " PLUP ", " plus-que-parfait ")<br />
ligne = Replace(ligne, " FUTP ", " futur du parfait ")<br />
ligne = Replace(ligne, " PRES", " présent ")<br />
ligne = Replace(ligne, " IMPF", " imparfait ")<br />
ligne = Replace(ligne, " FUT", " futur ")<br />
ligne = Replace(ligne, " PERF", " parfait ")<br />
ligne = Replace(ligne, " PLUP", " plus-que-parfait ")<br />
ligne = Replace(ligne, " FUTP", " futur du parfait ")<br />
ligne = Replace(ligne, " ACTIVE ", " actif ")<br />
ligne = Replace(ligne, " PASSIVE ", " passif ")<br />
ligne = Replace(ligne, " ACTIVE", " actif ")<br />
ligne = Replace(ligne, " PASSIVE", " passif ")
fctAnalyseMorphoLatin - 3<br />
ligne = Replace(ligne, " IND ", " indicatif ")<br />
ligne = Replace(ligne, " SUB ", " subjonctif ")<br />
ligne = Replace(ligne, " IMP ", " impératif ")<br />
ligne = Replace(ligne, " INF ", " infinitif ")<br />
ligne = Replace(ligne, " PPL ", " participe ")<br />
ligne = Replace(ligne, " DEP ", " déponent ")<br />
ligne = Replace(ligne, " SEMIDEP ", " semidéponent ")<br />
ligne = Replace(ligne, " PERFDEF ", " verbe défini parfait ")<br />
ligne = Replace(ligne, " PPL", " participe ")<br />
ligne = Replace(ligne, " IND", " indicatif ")<br />
ligne = Replace(ligne, " SUB", " subjonctif ")<br />
ligne = Replace(ligne, " IMP", " impératif ")<br />
ligne = Replace(ligne, " INF", " infinitif ")<br />
ligne = Replace(ligne, " PPL", " participe ")<br />
ligne = Replace(ligne, " DEP", " déponent ")<br />
ligne = Replace(ligne, " SEMIDEP", " semidéponent ")<br />
ligne = Replace(ligne, " PERFDEF", " verbe défini parfait ")<br />
ligne = Replace(ligne, " unkown ", " ? ")<br />
ligne = Replace(ligne, " PERS ", " personnel ")<br />
ligne = Replace(ligne, " REL ", " relatif ")<br />
ligne = Replace(ligne, " REFLEX ", " réflexif ")<br />
ligne = Replace(ligne, " DEMONS ", " démonstratif ")<br />
ligne = Replace(ligne, " INTERR ", " interrogatif ")<br />
ligne = Replace(ligne, " INDEF ", " indéfini ")<br />
ligne = Replace(ligne, " ADJECT ", " adjectival ")<br />
ligne = Replace(ligne, " TO_BE ", " verbe être ")<br />
ligne = Replace(ligne, " TO_BEING ", " (dérivé du verbe être) ")<br />
ligne = Replace(ligne, " PRES ", " présent ")<br />
ligne = Replace(ligne, " TRANS ", " transitif ")<br />
ligne = Replace(ligne, " INTRANS ", " présent ")<br />
ligne = Replace(ligne, " IMPERS ", " présent ")<br />
ligne = Replace(ligne, " 1 S", " 1ère pers. sing. ")<br />
ligne = Replace(ligne, " 2 S", " 2ème pers. sing. ")<br />
ligne = Replace(ligne, " 3 S", " 3ème pers. sing. ")<br />
ligne = Replace(ligne, " 1 P", " 1ère pers. plur. ")<br />
ligne = Replace(ligne, " 2 P", " 2ème pers. plur. ")<br />
ligne = Replace(ligne, " 3 P", " 3ème pers. plur. ")<br />
ligne = Replace(ligne, " NUM ", " numéral ")<br />
ligne = Replace(ligne, " ORD ", " ordinal ")<br />
ligne = Replace(ligne, " CARD ", " cardinal ")<br />
ligne = Replace(ligne, " COMP ", " comparatif ")<br />
ligne = Replace(ligne, " SUPER ", " superlatif ")<br />
ligne = Replace(ligne, " DIST ", " distributif ")<br />
ligne = Replace(ligne, "0 ", "")<br />
ligne = Replace(ligne, "1 ", "")<br />
ligne = Replace(ligne, "2 ", "")<br />
ligne = Replace(ligne, "3 ", "")<br />
ligne = Replace(ligne, "4 ", "")<br />
ligne = Replace(ligne, "5 ", "")<br />
ligne = Replace(ligne, "6 ", "")<br />
ligne = Replace(ligne, "7 ", "")<br />
ligne = Replace(ligne, "8 ", "")<br />
ligne = Replace(ligne, "9 ", "")<br />
ligne = Replace(ligne, " ", " ")<br />
ligne = Replace(ligne, " X", "")<br />
ligne = Replace(ligne, " POS", " positif ")<br />
ligne = Replace(ligne, " Late", " (tardif) ")<br />
'ligne = Replace(ligne, " (archaïqe)", " A")<br />
'ligne = Replace(ligne, " (préclassique)", " B")<br />
'ligne = Replace(ligne, " (moderne)", " H")<br />
ligne = Trim(ligne)<br />
End Function
fctAnalyserGrec - 1<br />
Option Explicit<br />
ublic Function AnalyserGrec(mot, Resultat, enlever, enleverg)<br />
On Error Resume Next<br />
ARTICLE DEFINI<br />
f mot = "o(" Or mot = "o" Then<br />
esultat = "Article défini, nominatif masculin singulier : le "<br />
lseIf mot = "to/n" Or mot = "ton" Or mot = "to\n" Then<br />
esultat = "Article défini, accusatif masculin singulier : le "<br />
lseIf mot = "tou=" Or mot = "tou" Then<br />
esultat = "Article défini, génitif masculin / neutre singulier : du "<br />
lseIf mot = "tw=|" Or mot = "tw|=" Or mot = "tw" Then<br />
esultat = "Article défini, datif masculin / neutre singulier : au "<br />
lseIf mot = "oi(" Or mot = "oi" Then<br />
esultat = "Article défini, nominatif masculin pluriel : les "<br />
lseIf mot = "tou/j" Or mot = "touj" Or mot = "tou\j" Then<br />
esultat = "Article défini, accusatif masculin pluriel : les "<br />
lseIf mot = "tw=n" Or mot = "twn" Then<br />
esultat = "Article défini, génitif masc / fem / neu pluriel : des "<br />
lseIf mot = "toi=j" Or mot = "toij" Then<br />
esultat = "Article défini, datif masculin / neutre pluriel : aux "<br />
lseIf mot = "h(" Or mot = "h" Then<br />
esultat = "Article défini, nominatif féminin singulier : la "<br />
lseIf mot = "th/n" Or mot = "thn" Or mot = "th\n" Then<br />
esultat = "Article défini, accusatif féminin singulier : la "<br />
lseIf mot = "th=j" Or mot = "thj" Then<br />
esultat = "Article défini, génitif féminin singulier : de la "<br />
lseIf mot = "th=|" Or mot = "th|=n" Or mot = "th" Then<br />
esultat = "Article défini, datif féminin singulier : à la "<br />
lseIf mot = "ai(" Or mot = "ai" Then<br />
esultat = "Article défini, nominatif féminin pluriel : les "<br />
lseIf mot = "ta/j" Or mot = "taj" Then<br />
esultat = "Article défini, accusatif féminin pluriel : les "<br />
lseIf mot = "tai=j" Or mot = "taij" Then<br />
esultat = "Article défini, nominatif féminin pluriel : les "<br />
lseIf mot = "to/" Or mot = "to" Or mot = "to\" Then<br />
esultat = "Article défini, nominatif / accusatif neutre pluriel : les "<br />
lseIf mot = "ta/" Or mot = "ta" Then<br />
esultat = "Article défini, nominatif / accusatif neutre pluriel : les "<br />
FIN ARTICLE DEFINI<br />
DEBUT VERBE ETRE<br />
présent actif<br />
lseIf mot = "ei/mi" Or mot = "eimi" Then<br />
esultat = "Verbe être indicatif présent actif, 1ère personne du singulier : je suis"<br />
lseIf mot = "ei)=" Or mot = "ei=)" Or mot = "ei" Then<br />
esultat = "Verbe être, indicatif présent actif, 2ème personne du singulier : tu es OU part. : si"<br />
lseIf mot = "e)sti/" Or mot = "e)sti/v" Or mot = "esti" Then<br />
esultat = "Verbe être, indicatif présent actif, 3ème personne du singulier : il est"<br />
lseIf mot = "e)smen" Or mot = "esmen" Then<br />
esultat = "Verbe être, indicatif présent actif, 1ère personne du pluriel : nous sommes"<br />
lseIf mot = "e)ste" Or mot = "este" Then<br />
esultat = "Verbe être, indicatif présent actif, 2ème personne du pluriel : vous êtes"<br />
lseIf mot = "ei)si/" Or mot = "ei)si/n" Or mot = "eisin" Then<br />
esultat = "Verbe être, indicatif présent actif, 3ème personne du singulier : ils sont"<br />
imparfait actif<br />
lseIf mot = "h)/mhn" Or mot = "hmen" Then<br />
esultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : j'étais"<br />
lseIf mot = "h)=j" Or mot = "hj" Then<br />
esultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : tu étais"<br />
lseIf mot = "h)=n" Or mot = "hn" Then<br />
esultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : il était"<br />
lseIf mot = "h)=men" Or mot = "hmen" Then<br />
esultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : nous étions"<br />
lseIf mot = "h)=te" Or mot = "hte" Then<br />
esultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : vous étiez"<br />
lseIf mot = "h)=san" Or mot = "hsan" Then<br />
esultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : ils étaient"<br />
futur actif<br />
lseIf mot = "e)/somai" Or mot = "esomai" Then<br />
esultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : je serai"<br />
lseIf mot = "e)/sh|" Or mot = "esh" Then<br />
esultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : tu seras"<br />
lseIf mot = "e)/stai" Or mot = "estai" Then<br />
esultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : il sera"<br />
lseIf mot = "e)so/meqa" Or mot = "esomeqa" Then
fctAnalyserGrec - 2<br />
Resultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : nous serons"<br />
ElseIf mot = "e)/sesqe" Or mot = "esesqe" Then<br />
Resultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : vous serez"<br />
ElseIf mot = "e)/sontai" Or mot = "esontai" Then<br />
Resultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : ils seront"<br />
' impératif présent actif<br />
ElseIf mot = "i)/sqi" Or mot = "isqi" Then<br />
Resultat = "Verbe être, impératif présent actif, 1ère personne du singulier : sois"<br />
ElseIf mot = "e)/stw" Or mot = "estw" Then<br />
Resultat = "Verbe être, impératif présent actif, 1ère personne du singulier : qu'il soit"<br />
ElseIf mot = "e)/ste" Or mot = "este" Then<br />
Resultat = "Verbe être, impératif présent actif, 1ère personne du singulier : que vous soyez"<br />
ElseIf mot = "e)/stwsan" Or mot = "estwsan" Then<br />
Resultat = "Verbe être, impératif présent actif, 1ère personne du singulier : qu'ils soient"<br />
ElseIf mot = "eij" Or mot = "ei)j" Then<br />
Resultat = " Adverbe de lieu : vers, en direction de"<br />
ElseIf Right(mot, 9) = "qh/someqa" Then ' ************************************************DEBUT DE<br />
L'INDICATIF****************************<br />
Resultat = " Indicatif futur passif, 1ère personne du singulier"<br />
enlever = 9<br />
ElseIf Right(mot, 9) = "qh/sontai" Then<br />
Resultat = " Indicatif futur passif, 3ème personne du pluriel"<br />
enlever = 9<br />
ElseIf Right(mot, 8) = "qh/somai" Then<br />
Resultat = " Indicatif futur passif, 1ère personne du singulier"<br />
enlever = 9<br />
ElseIf Right(mot, 8) = "qh/setai" Then<br />
Resultat = " Indicatif futur passif, 3ème personne du singulier"<br />
enlever = 8<br />
ElseIf Right(mot, 8) = "qh/sesqe" Then<br />
Resultat = " Indicatif futur passif, 2ème personne du pluriel"<br />
enlever = 8<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 7) = "sa/meqa" Then<br />
Resultat = " Indicatif aoriste moyen, 1ère personne du pluriel"<br />
enlever = 7<br />
enleverg = 2<br />
ElseIf Right(mot, 7) = "so/meqa" Then<br />
Resultat = " Indicatif futur moyen, 1ère personne du pluriel"<br />
enlever = 7<br />
ElseIf Right(mot, 7) = "e/twsan" Then<br />
Resultat = " Impératif présent actif, 3ème personne du pluriel"<br />
enlever = 7<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 6) = "sa/mhn" Then<br />
Resultat = " Indicatif aoriste moyen, 1ère personne du singulier"<br />
enlever = 6<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 6) = "o/meqa" Then<br />
Resultat = " Indicatif imparfait moyen-passif, 1ère personne du pluriel"<br />
enlever = 6<br />
enleverg = 2<br />
ElseIf Right(mot, 6) = "a)lla/" Or mot = "alla" Then<br />
Resultat = " Conjonction : mais ; eh bien ! ; cependant"<br />
ElseIf Right(mot, 6) = "sontai" Then<br />
Resultat = " Indicatif futur moyen, 3ème personne du pluriel"<br />
enlever = 6<br />
ElseIf Right(mot, 6) = "qh/sh|" Then<br />
Resultat = " Indicatif futur passif, 2ème personne du singulier"<br />
enlever = 6<br />
ElseIf Right(mot, 6) = "etwsan" Then<br />
Resultat = " Impératif présent actif, 3ème personne du pluriel"<br />
enlever = 6<br />
ElseIf Right(mot, 6) = "keimen" Then<br />
Resultat = " Indicatif plus-que-parfait actif, 1ère personne du pluriel"<br />
enlever = 6<br />
enleverg = 4<br />
ElseIf Right(mot, 6) = "keisan" Then<br />
Resultat = " Indicatif plus-que-parfait actif, 3ème personne du pluriel"<br />
enlever = 6<br />
enleverg = 4<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 5) = "samen" Then<br />
Resultat = " Indicatif aoriste actif, 1ère personne du pluriel"<br />
enlever = 5<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 5) = "sasqe" Then
fctAnalyserGrec - 3<br />
Resultat = " Indicatif aoriste moyen, 2ème personne du pluriel"<br />
enlever = 5<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 5) = "santo" Then<br />
Resultat = " Indicatif aoriste moyen, 3ème personne du pluriel"<br />
enlever = 5<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 5) = "qhmen" Then<br />
Resultat = " Indicatif aoriste passif, 1ère personne du singulier"<br />
enlever = 5<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 5) = "qhsan" Then<br />
Resultat = " Indicatif aoriste passif, 3ème personne du pluriel"<br />
enlever = 5<br />
enleverg = 2<br />
ElseIf Right(mot, 5) = "somen" Then<br />
Resultat = " Indicatif futur actif, 1ère personne du pluriel"<br />
enlever = 5<br />
ElseIf Right(mot, 5) = "sousi" Then<br />
Resultat = " Indicatif futur actif, 3ème personne du pluriel"<br />
enlever = 5<br />
ElseIf Right(mot, 5) = "kamen" Then<br />
Resultat = " Indicatif parfait actif, 1ère personne du pluriel"<br />
enlever = 5<br />
enleverg = 2<br />
ElseIf Right(mot, 5) = "omeqa" Then<br />
Resultat = " Indicatif présent moyen-passif, 1ère personne du pluriel"<br />
enlever = 5<br />
ElseIf Right(mot, 5) = "ontai" Then<br />
Resultat = " Indicatif présent moyen-passif, 3ème personne du pluriel"<br />
enlever = 5<br />
ElseIf Right(mot, 5) = "somai" Then<br />
Resultat = " Indicatif futur moyen, 1ère personne du singulier"<br />
enlever = 5<br />
ElseIf Right(mot, 5) = "setai" Then<br />
Resultat = " Indicatif futur moyen, 3ème personne du singulier"<br />
enlever = 5<br />
ElseIf Right(mot, 5) = "sesqe" Then<br />
Resultat = " Indicatif futur moyen, 2ème personne du pluriel"<br />
enlever = 5<br />
ElseIf Right(mot, 5) = "keite" Then<br />
Resultat = " Indicatif plus-que-parfait actif, 2ème personne du pluriel"<br />
enlever = 5<br />
enleverg = 5<br />
ElseIf Right(mot, 5) = "kesan" Then<br />
Resultat = " Indicatif plus-que-parfait actif, 3ème personne du pluriel"<br />
enlever = 5<br />
ElseIf Right(mot, 5) = "tatoj" Then<br />
Resultat = " Superlatif, nominatif masculin singulier"<br />
enlever = 5<br />
ElseIf Right(mot, 5) = "taton" Then<br />
Resultat = " Superlatif, accusatif masculin singulier"<br />
enlever = 5<br />
ElseIf Right(mot, 5) = "tatou" Then<br />
Resultat = " Superlatif, génitif masculin singulier"<br />
enlever = 5<br />
ElseIf Right(mot, 5) = "tatw|" Then<br />
Resultat = " Superlatif, datif masculin singulier"<br />
enlever = 5<br />
' Participe présent<br />
ElseIf Right(mot, 6) = "menw=|" Then<br />
Resultat = "Participe présent, datif masculin / neutre singulier"<br />
enlever = 6<br />
ElseIf Right(mot, 5) = "menoj" Then<br />
Resultat = "Participe présent, nominatif masculin singulier"<br />
enlever = 5<br />
ElseIf Right(mot, 5) = "menou" Or Right(mot, 6) = "menou=" Then<br />
Resultat = "Participe présent, génitif singulier"<br />
enlever = 5<br />
ElseIf Right(mot, 5) = "menon" Then<br />
Resultat = "Participe présent, accusatif masculin singulier"<br />
enlever = 5<br />
ElseIf Right(mot, 5) = "menoi" Then<br />
Resultat = "Participe présent, nominatif masculin pluriel"<br />
enlever = 5<br />
ElseIf Right(mot, 6) = "menouj" Or Right(mot, 7) = "menou\j" Then
fctAnalyserGrec - 4<br />
Resultat = "Participe présent, accusatif masculin singulier"<br />
ElseIf Right(mot, 6) = "menouj" Or Right(mot, 7) = "menou\j" Then<br />
Resultat = "Participe présent, accusatif masculin singulier"<br />
ElseIf Right(mot, 5) = "menh" Or Right(mot, 6) = "me/nh" Then<br />
Resultat = "Participe présent, nominatif féminin singulier"<br />
ElseIf Right(mot, 5) = "menhn" Or Right(mot, 6) = "me/nhn" Then<br />
Resultat = "Participe présent, accusatif féminin singulier"<br />
ElseIf Right(mot, 6) = "menaij" Or Right(mot, 7) = "menai=j" Then<br />
Resultat = "Participe présent, datif féminin singulier"<br />
' fin du participe présent<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "omen" Then<br />
Resultat = " Indicatif imparfait actif, 1ère personne du pluriel"<br />
enlever = 4<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "ousi" Then<br />
Resultat = " Indicatif imparfait actif, 3ème personne du pluriel"<br />
enlever = 4<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "sate" Then<br />
Resultat = " Indicatif aoriste actif, 2ème personne du pluriel"<br />
enlever = 4<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "kein" Then<br />
Resultat = " Indicatif plus-que-parfait actif, 1ère personne du singulier"<br />
enlever = 4<br />
enleverg = 4<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "keij" Then<br />
Resultat = " Indicatif plus-que-parfait actif, 2ème personne du singulier"<br />
enlever = 4<br />
enleverg = 4<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "sato" Then<br />
Resultat = " Indicatif aoriste moyen, 3ème personne du singulier"<br />
enlever = 4<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "qhte" Then<br />
Resultat = " Indicatif aoriste passif, 2ème personne du pluriel"<br />
enlever = 4<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "meqa" Then<br />
Resultat = " Indicatif plus-que-parfait moyen-passif, 1ère personne du pluriel"<br />
enlever = 4<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "omhn" Then<br />
Resultat = " Indicatif imparfait moyen-passif, 1ère personne du singulier"<br />
enlever = 4<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "esqe" Then<br />
Resultat = " Indicatif imparfait moyen-passif, 2ème personne du pluriel"<br />
enlever = 4<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "onto" Then<br />
Resultat = " Indicatif imparfait moyen-passif, 3ème personne du pluriel" ' fin du 4 avec augment<br />
enlever = 4<br />
enleverg = 2<br />
ElseIf Right(mot, 4) = "omen" Then ' début du 4 sans augment<br />
Resultat = " Indicatif présent actif, 1ère personne du pluriel"<br />
enlever = 4<br />
ElseIf Right(mot, 4) = "ousi" Then<br />
Resultat = " Indicatif présent actif, 3ème personne du pluriel"<br />
enlever = 4<br />
ElseIf Right(mot, 4) = "e/tw" Then<br />
Resultat = " Impératif présent actif, 3ème personne du singulier"<br />
enlever = 4<br />
ElseIf Right(mot, 4) = "seij" Then<br />
Resultat = " Indicatif futur actif, 2ème personne du singulier"<br />
enlever = 4<br />
ElseIf Right(mot, 4) = "sete" Then<br />
Resultat = " Indicatif futur actif, 2ème personne du pluriel"<br />
enlever = 4<br />
ElseIf Right(mot, 4) = "kate" Then<br />
Resultat = " Indicatif parfait actif, 2ème personne du pluriel"<br />
enlever = 4<br />
enleverg = 2
fctAnalyserGrec - 5<br />
ElseIf Right(mot, 4) = "kasi" Then<br />
Resultat = " Indicatif parfait actif, 3ème personne du pluriel"<br />
enlever = 4<br />
enleverg = 2<br />
ElseIf Right(mot, 4) = "omai" Then<br />
Resultat = " Indicatif moyen-passif, 1ère personne du singulier"<br />
enlever = 4<br />
ElseIf Right(mot, 4) = "etai" Then<br />
Resultat = " Indicatif présent moyen-passif, 3ème personne du singulier"<br />
enlever = 4<br />
ElseIf Right(mot, 4) = "esqe" Then<br />
Resultat = " Indicatif présent moyen-passif, 2ème personne du pluriel"<br />
enlever = 4<br />
ElseIf Right(mot, 4) = "meqa" Then<br />
Resultat = " Indicatif parfait moyen-passif, 1ère personne du pluriel"<br />
enlever = 4<br />
ElseIf Right(mot, 4) = "eroj" Then<br />
Resultat = "Comparatif de supériorité, nominatif masculin singulier"<br />
enlever = 4<br />
ElseIf Right(mot, 4) = "ntai" Then<br />
Resultat = " Indicatif parfait moyen-passif, 3ème personne du pluriel" ' fin du 4 sans augment<br />
enlever = 4<br />
ElseIf Right(mot, 4) = "ai=j" Then<br />
Resultat = " Datif féminin pluriel, 1ère déclinaison" ' début et fin de 1ère decl ê/ês, 4<br />
enlever = 4<br />
ElseIf mot = "ga/r" Then<br />
Resultat = " Conjonction : car, en effet"<br />
enlever = 4<br />
ElseIf mot = "kai/" Or mot = "kai\" Or mot = "kai" Then<br />
Resultat = " Conjonction ou adverbe. Conj : et, et en outre / Adv. : aussi, même"<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 3) = "ete" Then ' début du 3 avec augment<br />
Resultat = " Indicatif imparfait actif, 2ème personne du pluriel"<br />
enlever = 3<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 3) = "saj" Then<br />
Resultat = " Indicatif aoriste actif, 2ème personne du singulier"<br />
enlever = 3<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 3) = "san" Then<br />
Resultat = " Indicatif imparfait actif, 3ème personne du pluriel"<br />
enlever = 3<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 3) = "kei" Then<br />
Resultat = " Indicatif plus-que-parfait actif, 3ème personne du singulier"<br />
enlever = 3<br />
enleverg = 3<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 3) = "eto" Then<br />
Resultat = " Indicatif imparfait moyen-passif, 3ème personne du singulier"<br />
enlever = 3<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 3) = "qhn" Then<br />
Resultat = " Indicatif aoriste passif, 1ère personne du singulier"<br />
enlever = 3<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 3) = "qhj" Then<br />
Resultat = " Indicatif aoriste passif, 2ème personne du singulier"<br />
enlever = 3<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 3) = "mhn" Then<br />
Resultat = " Indicatif plus-que-parfait moyen-passif, 1ère personne du singulier" 'fin du 3 avec au<br />
gment<br />
enlever = 3<br />
enleverg = 2<br />
ElseIf Right(mot, 3) = "eij" Then ' début du 3 sans augment<br />
Resultat = " Indicatif présent actif, 2ème personne du singulier"<br />
enlever = 3<br />
ElseIf Right(mot, 3) = "ete" Then<br />
Resultat = " Indicatif présent actif, 2ème personne du pluriel"<br />
enlever = 3<br />
ElseIf Right(mot, 3) = "sei" Then<br />
Resultat = " Indicatif présent actif, 3ème personne du singulier"<br />
enlever = 3<br />
ElseIf Right(mot, 3) = "kaj" Then<br />
Resultat = " Indicatif parfait actif, 2ème personne du singulier"<br />
enlever = 3<br />
enleverg = 2
fctAnalyserGrec - 6<br />
ElseIf Right(mot, 3) = "sh|" Then<br />
Resultat = " Indicatif futur moyen, 2ème personne du singulier"<br />
enlever = 3<br />
ElseIf Right(mot, 3) = "mai" Then<br />
Resultat = " Indicatif parfait moyen-passif, 1ère personne du singulier"<br />
enlever = 3<br />
ElseIf Right(mot, 3) = "sai" Then<br />
Resultat = " Indicatif parfait moyen-passif, 2ème personne du singulier"<br />
enlever = 3<br />
ElseIf Right(mot, 3) = "tai" Then<br />
Resultat = " Indicatif parfait moyen-passif, 3ème personne du singulier"<br />
enlever = 3<br />
ElseIf Right(mot, 3) = "sqe" Then<br />
Resultat = " Indicatif parfait moyen-passif, 2ème personne du pluriel" ' fin du 3 sans augment<br />
enlever = 3<br />
ElseIf Right(mot, 3) = "ouj" Then ' 2ème decl logos, 3<br />
Resultat = " Accusatif masculin pluriel, 2ème déclinaison"<br />
enlever = 3<br />
ElseIf Right(mot, 3) = "oij" Then<br />
Resultat = " Datif masculin / neutre pluriel, 2ème déclinaison" ' fin 2eme decl logos, 3<br />
enlever = 3<br />
ElseIf Right(mot, 3) = "h/n" Then ' début 1ère decl fem, ê/ês, 3<br />
Resultat = " Accusatif féminin singulier, 1ère déclinaison"<br />
enlever = 3<br />
ElseIf Right(mot, 3) = "h=j" Then<br />
Resultat = " Génitif féminin singulier, 1ère déclinaison"<br />
enlever = 3<br />
ElseIf Right(mot, 3) = "h=|" Or Right(mot, 3) = "h|=" Then<br />
Resultat = " Datif féminin singulier, 1ère déclinaison"<br />
enlever = 3<br />
ElseIf Right(mot, 3) = "ai/" Then<br />
Resultat = " Nominatif/Vocatif féminin pluriel, 1ère déclinaison"<br />
enlever = 3<br />
ElseIf Right(mot, 3) = "a/j" Then<br />
Resultat = " Accusatif féminin pluriel, 1ère déclinaison"<br />
enlever = 3<br />
ElseIf Right(mot, 3) = "aij" Then<br />
Resultat = " Datif féminin pluriel, 1ère déclinaisaon"<br />
enlever = 3<br />
ElseIf mot = "gar" Then<br />
Resultat = " Conjonction : car, en effet"<br />
ElseIf Right(mot, 3) = "w=n" Then<br />
Resultat = " Génitif masculin/féminin/neutre pluriel" ' fin 1ère decl fem, ê, ês, 3<br />
enlever = 3<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "on" Then ' début du 2 avec augment<br />
Resultat = " Indicatif imparfait actif, 1ère personne du singulier"<br />
enlever = 2<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "ej" Then<br />
Resultat = " Indicatif imparfait actif, 2ème personne du singulier"<br />
enlever = 2<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "sa" Then<br />
Resultat = " Indicatif aoriste actif, 1ère personne du singulier"<br />
enlever = 2<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "se" Then<br />
Resultat = " Indicatif aoriste actif, 3ème personne du singulier"<br />
enlever = 2<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "ou" Then<br />
Resultat = " Indicatif imparfait moyen-passif, 2ème personne du singulier"<br />
enlever = 2<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "sw" Then<br />
Resultat = " Indicatif aoriste moyen, 2ème personne du singulier"<br />
enlever = 2<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "qh" Then<br />
Resultat = " Indicatif aoriste passif, 3ème personne du singulier"<br />
enlever = 2<br />
enleverg = 2<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "so" Then<br />
Resultat = " Indicatif plus-que-parfait moyen-passif, 2ème personne du singulier"<br />
enlever = 2<br />
enleverg = 2
fctAnalyserGrec - 7<br />
ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "to" Then<br />
Resultat = " Indicatif plus-que-parfait moyen-passif, 3ème personne du singulier" ' fin du 2 avec a<br />
ugment<br />
enlever = 2<br />
enleverg = 2<br />
ElseIf Right(mot, 2) = "ei" Then ' début du 2 sans augment<br />
Resultat = " Indicatif présent actif, 3ème personne du singulier"<br />
enlever = 2<br />
ElseIf Right(mot, 2) = "sw" Then<br />
Resultat = " Indicatif futur actif, 1ère personne du singulier"<br />
enlever = 2<br />
ElseIf Right(mot, 6) = "sontai" Then<br />
Resultat = " Indicatif futur moyen, 3ème personne du pluriel"<br />
enlever = 6<br />
ElseIf mot = "te" Then<br />
Resultat = " Particule enclitique : et / précisément / alors"<br />
ElseIf mot = "ge" Then<br />
Resultat = " Particule enclitique : du moins, certes / précisément "<br />
ElseIf Right(mot, 2) = "ka" Then<br />
Resultat = " Indicatif parfait actif, 1ère personne du singulier"<br />
enlever = 2<br />
enleverg = 2<br />
ElseIf Right(mot, 2) = "=e" Then<br />
Resultat = " Impératif présent actif, 1ère personne du singulier"<br />
enlever = 2<br />
ElseIf Right(mot, 2) = "ke" Then<br />
Resultat = " Indicatif parfait actif, 3ème personne du singulier"<br />
enlever = 2<br />
enleverg = 2<br />
ElseIf Right(mot, 2) = "h|" Then<br />
Resultat = " Indicatif présent moyen-passif, 2ème personne du singulier, OU Datif masculin / fémini<br />
n singulier, 1ère déclinaison"<br />
enlever = 2<br />
ElseIf Right(mot, 2) = "oj" Then<br />
Resultat = " Nominatif masculin singulier, 2ème déclinaison" '----------|<br />
enlever = 2<br />
ElseIf Right(mot, 2) = "on" Then<br />
Resultat = " Accusatif masculin singulier, 2ème déclinaison OU Nominatif / Vocatif / Accusatif neut<br />
re singulier, 2ème déclinaison"<br />
enlever = 2<br />
ElseIf Right(mot, 2) = "ou" Or Right(mot, 3) = "ou=" Then<br />
Resultat = " Génitif masculin / neutre singulier, 1ère ou 2ème déclinaison" ' 2eme decl logos, 2<br />
enlever = 2<br />
ElseIf Right(mot, 2) = "w|" Then<br />
Resultat = " Datif masculin singulier, 2ème déclinaison"<br />
enlever = 2<br />
ElseIf Right(mot, 2) = "oi" Then<br />
Resultat = " Nominatif/Vocatif masculin pluriel, 2ème déclinaison"<br />
enlever = 2<br />
ElseIf Right(mot, 2) = "wn" Then<br />
Resultat = " Génitif masculin / neutre pluriel, 2ème déclinaison" '--------------| FIN DU 2 SANS AU<br />
GMENT POUR LES VB<br />
enlever = 2<br />
ElseIf Right(mot, 2) = "an" Then<br />
Resultat = " Accusatif féminin singulier, 1ère déclinaison" ' début 1ère decl fem a/âs, 2<br />
enlever = 2<br />
ElseIf Right(mot, 2) = "aj" Then<br />
Resultat = " Génitif féminin singulier, 1ère déclinaison OU Accusatif féminin pluriel, 1ère déclina<br />
ison, OU Nominatif masculin singulier, 1ère déclinaison"<br />
enlever = 2<br />
ElseIf Right(mot, 2) = "a|" Then<br />
Resultat = " Datif féminin singulier, 1ère déclinaison"<br />
enlever = 2<br />
ElseIf Right(mot, 2) = "ai" Then<br />
Resultat = " Nominatif / Vocatif féminin (ou masc.) pluriel, 1ère déclinaison" ' fin 1ère decl fem<br />
a/âs, 2<br />
enlever = 2<br />
ElseIf Right(mot, 2) = "hj" Then<br />
Resultat = " Génitif féminin singulier, 1ère déclinaison ou Nominatif masculin singulier, 1ère décl<br />
inaison" ' début et fin 1ère decl, a/ês, 2<br />
enlever = 2<br />
ElseIf Right(mot, 2) = "yw" Then<br />
Resultat = " Indicatif futur actif, 1ère personne du singulier "<br />
enlever = 2<br />
ElseIf Right(mot, 2) = "cw" Then<br />
Resultat = " Indicatif futur actif, 1ère personne du singulier "
fctAnalyserGrec - 8<br />
enlever = 2<br />
ElseIf mot = "ou" Or mot = "ou)" Or mot = "ouk" Or mot = "ou)k" Then<br />
Resultat = "Particule négative : ne...pas"<br />
enlever = 2<br />
ElseIf Right(mot, 2) = "hn" Then<br />
Resultat = " Accusatif masculin singulier, 1ère déclinaison"<br />
enlever = 2<br />
ElseIf Right(mot, 2) = "e)" And Right(mot, 1) = "e" Then ' début et fin<br />
Resultat = " Indicatif imparfait actuf, 3ème personne du singulier" ' du 1 avec augment<br />
enlever = 2<br />
ElseIf Right(mot, 2) = "h/" Then<br />
Resultat = "Nominatif/Vocatif féminin singulier, 1ère déclinaison" ' 1ère decl type ê/ês, 2<br />
enlever = 2<br />
ElseIf Mid(mot, Len(mot), 1) = "w" Then<br />
Resultat = " Indicatif présent actif, 1ère personne du singulier" ' ***************************FIN<br />
DE L'INDICATIF*********************<br />
enlever = 1<br />
ElseIf Right(mot, 1) = "e" Then<br />
Resultat = " Vocatif masculin singulier, 2ème déclinaison" ' 2ème décl logos, 1<br />
enlever = 1<br />
ElseIf Right(mot, 1) = "a" Then ' début 1ère decl fem, a/âs, 1<br />
Resultat = " Nominatif / Vocatif féminin singulier, 1ère déclinaison OU Nominatif / Vocatif / Accus<br />
atif neutre pluriel, 2ème déclinaison OU Vocatif masculin singulier, 1ère déclinaison" ' fin 1ère d<br />
ecl fem, a/âs, 1<br />
enlever = 1<br />
Else<br />
Resultat = " Pas d'analyse"<br />
End If<br />
End Function
fctAnalyserLatin - 1<br />
Option Explicit<br />
ublic Function AnalyserLatin(mot, Resultat) As String<br />
NE PAS OUBLIER DE TRIER<br />
METTRE LES ELEMENTS LES + LONGS AU DÉPART<br />
right(mot) 8...<br />
right(mot) 7...<br />
right(mot) 6...<br />
bien sûr, tout est dans le désordre, mais je n'ai pas le choix<br />
ot = Trim(mot)<br />
f Right(mot, 1) = "." Then<br />
ot = Mid(mot, 1, Len(mot) - 1)<br />
nd If<br />
(Manque IPSE)<br />
penser à alléger le code en remplaçant pronom adjectif interrogatif par une variable<br />
f Right(mot, 9) = "ti erimus" Then<br />
esultat = "Indicatif futur antérieur passif, première personne du pluriel"<br />
lseIf Right(mot, 9) = "ti eritis" Then<br />
esultat = "Indicatif futur antérieur passif, deuxième personne du pluriel"<br />
lseIf Right(mot, 8) = "tus eris" Then<br />
esultat = "Indicatif futur antérieur passif, deuxième personne du singulier"<br />
lseIf Right(mot, 8) = "tus erit" Then<br />
esultat = "Indicatif futur antérieur passif, troisième personne du singulier"<br />
lseIf Right(mot, 8) = "ti erunt" Then<br />
esultat = "Indicatif futur antérieur passif, troisième personne du pluriel"<br />
lseIf Right(mot, 8) = "ti sumus" Then<br />
esultat = "Indicatif plus-que-parfait passif, première personne du pluriel"<br />
lseIf Right(mot, 8) = "ti estis" Then<br />
esultat = "Indicatif plus-que-parfait passif, deuxième personne du pluriel"<br />
lseIf Right(mot, 7) = "tus ero" Then<br />
esultat = "Indicatif futur antérieur passif, première personne du singulier"<br />
lseIf Right(mot, 7) = "tus est" Then<br />
esultat = "Indicatif plus-que-parfait passif, troisième personne du singulier"<br />
lseIf Right(mot, 7) = "ti sunt" Then<br />
esultat = "Indicatif plus-que-parfait passif, troisième personne du pluriel"<br />
lseIf Right(mot, 7) = "tus sum" Then<br />
esultat = "Indicatif plus-que-parfait passif, première personne du singulier"<br />
lseIf Right(mot, 7) = "verimus" Then<br />
esultat = "Indicatif futur antérieur actif, première personne du pluriel"<br />
lseIf Right(mot, 7) = "veritis" Then<br />
esultat = "Indicatif futur antérieur actif, deuxième personne du pluriel"<br />
lseIf Right(mot, 7) = "veramus" Then<br />
esultat = "Indicatif plus-que-parfait actif, première personne du pluriel"<br />
lseIf Right(mot, 7) = "veratis" Then<br />
esultat = "Indicatif plus-que-parfait actif, deuxième personne du pluriel"<br />
lseIf mot = "illius" Then<br />
esultat = " Pronom adjectif démonstratif, génitif masculin / féminin / neutre singulier : de celui<br />
là"<br />
lseIf mot = "quorum" Then<br />
esultat = " Pronom adjectif interrogatif, génitif masculin / neutre pluriel : desquels ?"<br />
lseIf mot = "quibus" Then<br />
esultat = " Pronom adjectif interrogatif ou relatif, datif ou ablatif m-f-n OU neutre pluriel : au<br />
quels, par lesquels ?"<br />
lseIf mot = "quarum" Then<br />
esultat = " Pronom adjectif interrogatif, génitif féminin pluriel : desquelles ?"<br />
lseIf Right(mot, 6) = "buntur" Then<br />
esultat = "Indicatif futur passif, troisième personne du pluriel"<br />
lseIf Right(mot, 6) = "verunt" Then<br />
esultat = "Indicatif futur passif, troisième personne du pluriel"<br />
lseIf Right(mot, 6) = "tus es" Then<br />
esultat = "Indicatif plus-que-parfait passif, deuxième personne du singulier"<br />
lseIf Right(mot, 6) = "bamini" Then<br />
esultat = "Indicatif imparfait actif, deuxième personne du pluriel"<br />
lseIf Right(mot, 6) = "bantur" Then<br />
esultat = "Indicatif imparfait actif, troisième personne du pluriel"<br />
lseIf Right(mot, 6) = "verant" Then<br />
esultat = "Indicatif futur actif, troisième personne du pluriel"<br />
lseIf Right(mot, 6) = "verunt" Then<br />
esultat = "Indicatif futur actif, troisième personne du pluriel"<br />
lseIf Right(mot, 6) = "verint" Then<br />
esultat = "Indicatif futur antérieur actif, troisième personne du pluriel"<br />
lseIf Right(mot, 5) = "vimus" Then<br />
esultat = "Indicatif parfait passif, première personne du pluriel"<br />
lseIf Right(mot, 5) = "vitis" Then<br />
esultat = "Indicatif parfait passif, deuxième personne du pluriel"
fctAnalyserLatin - 2<br />
ElseIf Right(mot, 5) = "bamus" Then<br />
Resultat = "Indicatif imparfait actif, première personne du pluriel"<br />
ElseIf Right(mot, 5) = "batis" Then<br />
Resultat = "Indicatif imparfait actif, deuxième personne du pluriel"<br />
ElseIf Right(mot, 5) = "bimus" Then<br />
Resultat = "Indicatif futur actif, première personne du pluriel"<br />
ElseIf mot = "sumus" Then<br />
Resultat = "Verbe être, indicatif présent actif, première personne du pluriel"<br />
ElseIf mot = "estis" Then<br />
Resultat = "Verbe être, indicatif présent actif, deuxième personne du pluriel"<br />
ElseIf Right(mot, 5) = "bitis" Then<br />
Resultat = "Indicatif futur actif, deuxième personne du pluriel"<br />
ElseIf Right(mot, 5) = "visti" Then<br />
Resultat = "Indicatif parfait actif, deuxième personne du singulier"<br />
ElseIf Right(mot, 5) = "vimus" Then<br />
Resultat = "Indicatif parfait actif, première personne du pluriel"<br />
ElseIf Right(mot, 5) = "vitis" Then<br />
Resultat = "Indicatif parfait actif, deuxième personne du pluriel"<br />
ElseIf Right(mot, 5) = "veram" Then ' attention , cet enregistrement doitpasser en priorité<br />
Resultat = "Indicatif plus-que-parfait actif, première personne du singulier "<br />
ElseIf Right(mot, 5) = "veras" Then<br />
Resultat = "Indicatif plus-que-parfait actif, deuxième personne du singulier "<br />
ElseIf Right(mot, 5) = "verat" Then<br />
Resultat = "Indicatif plus-que-parfait actif, troisième personne du singulier "<br />
ElseIf Right(mot, 5) = "baris" Then<br />
Resultat = "Indicatif imparfait actif, deuxième personne du singulier"<br />
ElseIf Right(mot, 5) = "barit" Then<br />
Resultat = "Indicatif imparfait actif, troisième personne du singulier"<br />
ElseIf Right(mot, 5) = "bamur" Then<br />
Resultat = "Indicatif imparfait actif, première personne du pluriel"<br />
ElseIf Right(mot, 5) = "veris" Then<br />
Resultat = "Indicatif futur antérieur actif, deuxième personne du singulier"<br />
ElseIf Right(mot, 5) = "verit" Then<br />
Resultat = "Indicatif futur antérieur actif, troisième personne du singulier "<br />
ElseIf Right(mot, 5) = "visti" Then<br />
Resultat = "Indicatif parfait passif, deuxième personne du singulier"<br />
ElseIf Right(mot, 5) = "bimur" Then<br />
Resultat = "Indicatif futur passif, première personne du pluriel"<br />
ElseIf mot = "hujus" Then<br />
Resultat = " Pronom adjectif démonstratif, génitif masculin / féminin / neutre singulier : de celui<br />
-ci"<br />
ElseIf mot = "horum" Then<br />
Resultat = " Pronom adjectif démonstratif, génitif masculin / féminin / neutre singulier : de ceuxci"<br />
ElseIf mot = "harum" Then<br />
Resultat = " Pronom adjectif démonstratif, génitif féminin pluriel : de celles-ci"<br />
ElseIf mot = "illum" Then<br />
Resultat = " Pronom adjectif démonstratif, accusatif masculin singulier : celui-là"<br />
ElseIf mot = "illud" Then<br />
Resultat = " Pronom adjectif démonstratif, nominatif / accusatif neutre singulier"<br />
ElseIf mot = "eorum" Then<br />
Resultat = " Pronom adjectif démonstratif, génitif masculin pluriel : d'eux, à eux, le leur "<br />
ElseIf mot = "earum" Then<br />
Resultat = " Pronom adjectif démonstratif, génitif féminin pluriel : d'elles, à elles, le leur "<br />
ElseIf mot = "cujus" Then<br />
Resultat = " Pronom adjectif interrogatif, génitif M/F/N singulier : de qui, duquel ?"<br />
ElseIf Right(mot, 5) = "bimini" Then<br />
Resultat = "Indicatif futur passif, deuxième personne du pluriel"<br />
ElseIf Right(mot, 4) = "bant" Then<br />
Resultat = "Indicatif imparfait actif, troisième personne du pluriel"<br />
ElseIf mot = "quem" Then<br />
Resultat = " Pronom adjectif interrogatif ou relatif, accusatif masculin singulier : qui, lequel ?"<br />
ElseIf mot = "mihi" Then<br />
Resultat = " Pronom personnel, datif singulier : à moi (marque souvent l'appartenance)"<br />
ElseIf mot = "tibi" Then<br />
Resultat = " Pronom personnel, datif singulier : à toi"<br />
ElseIf mot = "sibi" Then<br />
Resultat = " Pronom personnel réfléchi, datif singulier : pour lui-même"<br />
ElseIf mot = "sese" Then<br />
Resultat = " Pronom personnel réfléchi, ablatif singulier : à lui-même"<br />
ElseIf mot = "hunc" Then<br />
Resultat = " Pronom adjectif démonstratif, accusatif masculin singulier : celui-ci"<br />
ElseIf mot = "huic" Then<br />
Resultat = " Pronom adjectif démonstratif, datif masculin / féminin / neutre singulier : celui-ci"<br />
ElseIf mot = "haec" Then<br />
Resultat = " Pronom adjectif démonstratif, nominatif-accusatif neutre pluriel"
fctAnalyserLatin - 3<br />
ElseIf mot = "ille" Then<br />
Resultat = " Pronom adjectif démonstratif, nominatif masculin singulier : celui-là"<br />
ElseIf mot = "illi" Then<br />
Resultat = " Pronom adjectif démonstratif, datif masculin / féminin / neutre singulier : à celui-là<br />
, celle-là"<br />
ElseIf mot = "illo" Then<br />
Resultat = " Pronom adjectif démonstratif, ablatif masculin singulier : à, pour celui-là"<br />
ElseIf mot = "illa" Then<br />
Resultat = " Pronom adjectif démonstratif, nominatif féminin singulier : celle-là"<br />
ElseIf mot = "illa" Then<br />
Resultat = " Pronom adjectif démonstratif, accusatif féminin singulier : celle-là"<br />
ElseIf mot = "ejus" Then<br />
Resultat = " Pronom adjectif démonstratif, génitif masculin / féminin / neutre singulier : de lui (<br />
le sien)"<br />
ElseIf mot = "quis" Then<br />
Resultat = " Pronom adjectif interrogatif, nominatif masculin singulier : qui, lequel ?"<br />
ElseIf mot = "quae" Then<br />
Resultat = " Pronom adjectif interrogatif ou relatif, nominatif féminin singulier : quelle, laquell<br />
e ? OU Nominatif féminin pluriel ou Nominatif - accusatif neutre pluriel"<br />
ElseIf mot = "quam" Then<br />
Resultat = " Pronom adjectif interrogatif ou relatif, accusatif féminin singulier : quelle, laquell<br />
e ?"<br />
ElseIf mot = "quid" Then<br />
Resultat = " Pronom adjectif interrogatif, nominatif / accusatif neutre singulier : qui, lequel ?"<br />
ElseIf mot = "quos" Then<br />
Resultat = " Pronom adjectif interrogatif, accusatif masculin pluriel : quels, lesquels ?"<br />
ElseIf mot = "quas" Then<br />
Resultat = " Pronom adjectif interrogatif, accusatif féminin singulier : lesquelles ?"<br />
ElseIf mot = "quod" Then<br />
Resultat = " Pronom relatif, nominatif ou accusatif neutre singulier : desquelles ?"<br />
ElseIf Right(mot, 4) = "bunt" Then<br />
Resultat = "Indicatif futur actif, troisième personne du pluriel"<br />
ElseIf Right(mot, 4) = "vero" Then ' attention , cet enregistrement doit passer en priorité<br />
Resultat = "Indicatif futur antérieur actif, première personne du singulier"<br />
ElseIf Right(mot, 4) = "mini" Then<br />
Resultat = "Indicatif présent passif, deuxième personne du pluriel"<br />
ElseIf Right(mot, 4) = "ibus" Then<br />
Resultat = "Datif, ablatif (masculin ou neutre) pluriel, 3ème déclinaison"<br />
ElseIf mot = "sunt" Then<br />
Resultat = "Verbe être, indicatif présent actif, troisième personne du pluriel"<br />
ElseIf Right(mot, 4) = "ntur" Then<br />
Resultat = "Indicatif présent passif, troisième personne du pluriel"<br />
ElseIf Right(mot, 4) = "arum" Then<br />
Resultat = "Génitif féminin pluriel, 1ère déclinaison"<br />
ElseIf Right(mot, 4) = "orum" Then<br />
Resultat = "Génitif (masculin ou neutre) pluriel, 2ème déclinaison"<br />
ElseIf Right(mot, 3) = "tur" Then<br />
Resultat = "Indicatif présent passif, troisième personne du singulier"<br />
ElseIf Right(mot, 3) = "bis" Then<br />
Resultat = "Indicatif futur actif, deuxième personne du singulier"<br />
ElseIf Right(mot, 3) = "bit" Then<br />
Resultat = "Indicatif futur actif, troisième personne du singulier"<br />
ElseIf Right(mot, 3) = "mus" Then<br />
Resultat = "Indicatif présent actif, première personne du pluriel"<br />
ElseIf Right(mot, 3) = "tis" Then<br />
Resultat = "Indicatif présent actif, deuxième personne du pluriel"<br />
ElseIf Right(mot, 3) = "are" Then<br />
Resultat = "Infinitif de la 1ère conjugaison"<br />
ElseIf Right(mot, 3) = "ere" Then<br />
Resultat = "Infinitif de la 2ème ou 3ème conjugaison"<br />
ElseIf Right(mot, 3) = "ire" Then<br />
Resultat = "Infinitif de la 4ème conjugaison"<br />
ElseIf Right(mot, 3) = "ant" Then<br />
Resultat = "Indicatif présent actif, troisième personne du pluriel"<br />
ElseIf Right(mot, 3) = "bam" Then<br />
Resultat = "Indicatif imparfait actif, première personne du singulier"<br />
ElseIf Right(mot, 3) = "bas" Then<br />
Resultat = "Indicatif imparfait actif, deuxième personne du singulier"<br />
ElseIf Right(mot, 3) = "unt" Then<br />
Resultat = "Indicatif présent actif, troisième personne du pluriel"<br />
ElseIf Right(mot, 3) = "bat" Then<br />
Resultat = "Indicatif imparfait actif, troisième personne du singulier"<br />
ElseIf mot = "hic" Then<br />
Resultat = " Pronom adjectif démonstratif, nominatif masculin singulier : celui-ci"<br />
ElseIf mot = "hoc" Then
fctAnalyserLatin - 4<br />
Resultat = " Pronom adjectif démonstratif, accusatif masculin / féminin / neutre singulier : celuici"<br />
ElseIf mot = "hoc" Then<br />
Resultat = " Pronom adjectif démonstratif, accusatif masculin / féminin / neutre singulier : celuici"<br />
ElseIf mot = "hoc" Then<br />
Resultat = " Pronom adjectif démonstratif, accusatif masculin / féminin / neutre singulier : celuici"<br />
ElseIf mot = "hoc" Then<br />
Resultat = " Pronom adjectif démonstratif, accusatif masculin / féminin / neutre singulier : celuici"<br />
ElseIf mot = "hoc" Then<br />
Resultat = " Pronom adjectif démonstratif, accusatif masculin / féminin / neutre singulier : celuici"<br />
ElseIf mot = "eum" Then<br />
Resultat = " Pronom adjectif démonstratif, accusatif masculin singulier : lui"<br />
ElseIf mot = "eam" Then<br />
Resultat = " Pronom adjectif démonstratif, accusatif féminin singulier : elle"<br />
ElseIf mot = "eos" Then<br />
Resultat = " Pronom adjectif démonstratif, accusatif masculin pluriel : eux "<br />
ElseIf mot = "eae" Then<br />
Resultat = " Pronom adjectif démonstratif, nominatif féminin pluriel : elles "<br />
ElseIf mot = "eas" Then<br />
Resultat = " Pronom adjectif démonstratif, accusatif masculin pluriel : elles "<br />
ElseIf mot = "ego" Then<br />
Resultat = " Pronom personnel, nominatif singulier : moi"<br />
ElseIf mot = "eii" Or mot = "iis" Then<br />
Resultat = " Pronom adjectif démonstratif, datif, ablatif, masculin / féminin / neutre pluriel : eu<br />
x "<br />
ElseIf mot = "mei" Then<br />
Resultat = " Pronom personnel, génitif singulier : de moi, à moi"<br />
ElseIf mot = "tui" Then<br />
Resultat = " Pronom personnel, génitif singulier : de toi, à toi"<br />
ElseIf mot = "sui" Then<br />
Resultat = " Pronom personnel réfléchi, génitif singulier : à lui-même"<br />
ElseIf mot = "cui" Then<br />
Resultat = " Pronom adjectif interrogatif ou relatif, datif masculin / neutre singulier : à qui, au<br />
lequel ?"<br />
ElseIf mot = "quo" Then<br />
Resultat = " Pronom adjectif interrogatif ou relatif, ablatif masculin singulier : par qui, par leq<br />
uel ?"<br />
ElseIf mot = "qui" Then<br />
Resultat = " Pronom relatif, nominatif masculin singulier: qui"<br />
ElseIf mot = "qui" Then<br />
Resultat = " Pronom adjectif interrogatif, nominatif masculin pluriel : quels, lesquels ?"<br />
ElseIf mot = "qua" Then<br />
Resultat = " Pronom adjectif interrogatif ou relatif, ablatif féminin singulier : par quelle, par l<br />
aquelle ?"<br />
ElseIf Right(mot, 3) = "ris" Then<br />
Resultat = "Indicatif présent passif, deuxième personne du singulier"<br />
ElseIf Right(mot, 3) = "rit" Then<br />
Resultat = "Indicatif présent passif, trosième personne du singulier"<br />
ElseIf Right(mot, 3) = "mur" Then<br />
Resultat = "Indicatif présent passif, première personne du pluriel"<br />
ElseIf Right(mot, 3) = "vit" Then<br />
Resultat = "Indicatif parfait actif, troisième personne du singulier"<br />
ElseIf Right(mot, 3) = "beris" Then<br />
Resultat = "Indicatif futur passif, deuxième personne du singulier"<br />
ElseIf Right(mot, 3) = "bitur" Then<br />
Resultat = "Indicatif futur passif, troisième personne du singulier"<br />
ElseIf mot = "est" Then<br />
Resultat = "Verbe être, indicatif présent actif, troisième personne du singulier"<br />
ElseIf mot = "sum" Then<br />
Resultat = "Verbe être, indicatif présent actif, premier personne du singulier"<br />
ElseIf Right(mot, 3) = "bor" Then<br />
Resultat = "Indicatif imparfait actif, première personne du singulier"<br />
ElseIf Right(mot, 3) = "vit" Then<br />
Resultat = "Indicatif parfait passif, troisième personne du singulier"<br />
ElseIf Right(mot, 2) = "bo" Then<br />
Resultat = "Indicatif futur actif, première personne du singulier"<br />
ElseIf Right(mot, 2) = "vi" Then<br />
Resultat = "Indicatif parfait actif, première personne du singulier"<br />
ElseIf Right(mot, 2) = "or" Then<br />
Resultat = "Indicatif présent passif, première personne du singulier."<br />
ElseIf mot = "me" Then<br />
Resultat = " Pronom personnel, accusatif ou ablatif singulier : à moi, pour moi"
fctAnalyserLatin - 5<br />
ElseIf mot = "hi" Then<br />
Resultat = " Pronom adjectif démonstratif, nominatif masculin pluriel : ceux-ci"<br />
ElseIf mot = "is" Then<br />
Resultat = " Pronom adjectif démonstratif, nominatif masculin singulier : lui"<br />
ElseIf mot = "tu" Then<br />
Resultat = " Pronom personnel, nominatif ou ablatif singulier : toi"<br />
ElseIf mot = "te" Then<br />
Resultat = " Pronom personnel, accusatif singulier : toi, te"<br />
ElseIf mot = "se" Then<br />
Resultat = " Pronom personnel réfléchi, nominatif ou accusatif (ou ablatif) singulier : lui-même"<br />
ElseIf mot = "ei" Then<br />
Resultat = " Pronom adjectif démonstratif, datif masculin / féminin / neutre singulier : lui OU nom<br />
inatif masculin pluriel"<br />
ElseIf mot = "eo" Then<br />
Resultat = " Pronom adjectif démonstratif, ablatif masculin / neutre singulier : lui"<br />
ElseIf mot = "ea" Then<br />
Resultat = " Pronom adjectif démonstratif, nominatif ou ablatif féminin singulier : elle OU Nominat<br />
if - accusatif neutre pluriel"<br />
ElseIf mot = "id" Then<br />
Resultat = " Pronom adjectif démonstratif, nominatif / accusatif neutre singulier : ce, cet"<br />
ElseIf mot = "ii" Then<br />
Resultat = " Pronom adjectif démonstratif, nominatif masculin pluriel : eux "<br />
ElseIf Right(mot, 2) = "bor" Then<br />
Resultat = "Indicatif futur passif, première personne du singulier"<br />
ElseIf Right(mot, 2) = "vi" Then<br />
Resultat = "Indicatif parfait passif, première personne du singulier"<br />
ElseIf Right(mot, 2) = "nt" Then<br />
Resultat = "Indicatif présent actif, troisième personne du pluriel"<br />
ElseIf Right(mot, 2) = "am" Then<br />
Resultat = "Acusatif féminin singulier, 1ère déclinaison"<br />
ElseIf Right(mot, 2) = "ae" Then<br />
Resultat = "Génitif, datif féminin singulier, 1ère déclinaison / Nominatif, vocatif féminin pluriel<br />
"<br />
ElseIf Right(mot, 2) = "as" Then<br />
Resultat = "Acusatif féminin pluriel, 1ère déclinaison (ou Indicatif présent actif, deuxième person<br />
ne du singulier, 1ère conjugaison)"<br />
ElseIf Right(mot, 2) = "is" Then<br />
Resultat = "Datif, ablatif féminin pluriel, 1ère ou 2ème déclinaison OU Génitif neutre singulier, 3<br />
ème déclinaison"<br />
ElseIf Right(mot, 2) = "us" Then<br />
Resultat = "Nominatif masculin singulier, 2ème déclinaison"<br />
ElseIf Right(mot, 2) = "um" Then<br />
Resultat = "Accusatif masculin singulier, 2ème déclinaison OU Nom, Voc, Acc neutre singulier, 2ème<br />
déclinaison OU Génitif masculin singulier, 3ème déclinaison"<br />
ElseIf Right(mot, 2) = "os" Then<br />
Resultat = "Accusatif masculin pluriel, 2ème déclinaison"<br />
ElseIf mot = "es" Then<br />
Resultat = "Verbe être, indicatif présent actif, deuxième personne du singulier"<br />
ElseIf Right(mot, 2) = "em" Then<br />
Resultat = "Accusatif masculin singulier, 3ème déclinaison"<br />
ElseIf Right(mot, 2) = "es" Then<br />
Resultat = "Nominatif, Vocatif, Accusatif masculin pluriel, 3ème déclinaison"<br />
ElseIf Right(mot, 1) = "a" Then<br />
Resultat = "Nominatif, vocatif, ablatif féminin singulier, 1ère déclinaison OU Nom, Voc, Acc neutre<br />
pluriel, 2ème déclinaison"<br />
ElseIf Right(mot, 1) = "i" Then<br />
Resultat = "Génitif (masculin ou neutre) singulier, OU nominatif, vocatif masculin pluriel - 2ème d<br />
éclinaison OU Datif neutre singulier, 3ème déclinaison"<br />
ElseIf Right(mot, 1) = "e" Then<br />
Resultat = "Vocatif masculin singulier, 2ème déclinaison OU Ablatif neutre singulier, 3ème déclinai<br />
son"<br />
ElseIf Right(mot, 1) = "o" Then<br />
Resultat = "Datif, ablatif (masculin ou neutre) singulier, 2ème déclinaison OU Indicatif présent ac<br />
tif, première personne du singulier."<br />
ElseIf Right(mot, 1) = "s" Then<br />
Resultat = "Indicatif présent actif, deuxième personne du singulier"<br />
ElseIf Right(mot, 1) = "t" Then<br />
Resultat = "Indicatif présent actif, trosième personne du singulier"<br />
Else<br />
Resultat = "Pas d'analyse"<br />
End If<br />
End Function
fctAnalyseSeptante - 1<br />
Public Function AnalyseSeptante(mot) As String<br />
Dim septante$<br />
Dim analyse$<br />
Dim codemot$<br />
Dim pourcodemot$<br />
Dim origine$<br />
Dim file$, ligne$, motr$, mott$<br />
chercher = mot<br />
file = FreeFile<br />
septante = App.Path & "\tools\septante.txt"<br />
frmParse2.Text1.Text = ""<br />
Open septante For Input As #file<br />
Do<br />
Input #file, ligne<br />
If InStr(1, ligne, chercher, vbTextCompare) 0 Then<br />
' MsgBox ligne<br />
analyse = Trim(Mid(ligne, Len(mot) + 1, Len(ligne)))<br />
' MsgBox analyse, vbInformation, "Analyse complète"<br />
pourcodemot = InStrRev(analyse, " ", , vbTextCompare)<br />
pourcodemot = Val(pourcodemot)<br />
codemot = Mid(analyse, 1, pourcodemot)<br />
codemot = Trim(codemot)<br />
'MsgBox "Analyse morpho : " & codemot<br />
origine = Mid(analyse, Len(codemot) + 1, Len(analyse))<br />
origine = Trim(origine)<br />
End If<br />
Loop While Not EOF(file)<br />
lose #file<br />
all AfficherAnalyseSeptante(mot, origine, codemot)<br />
nd Function
fctAnalyseVulgate - 1<br />
Public Function AnalyseVulgate(mot)<br />
Dim motr$, mott$<br />
'interrogation internet Words<br />
'If frmBible.cboVersion.Text = "Vulgate" And frmBible.optunbound.Value = True Then<br />
'frmBrowser.cboAddress.Text = "http://lysy2.archives.nd.edu/cgi-bin/words.exe?" & mot<br />
'Exit Function<br />
'interrogation Jeanneau / Collatinus<br />
If frmBible.cboVersion.Text = "Vulgate" Then<br />
frmBrowser.cboAddress.Text = "http://collatinus.fltr.ucl.ac.be/jcoll.php?forme=m:" & mot<br />
frmBrowser.Caption = "Analyse Collatinus - Jeanneau"<br />
End If<br />
' *** autres possibilités<br />
' dictionnaire latinogallicum : http://colet.uchicago.edu/cgi-bin/search2e?headword=" & Mot & "&wor<br />
d=" & Mot & "&CONJUNCT=PHRASE&DISTANCE=3&PROXY=or+fewer&OUTPUT=conc&SYSTEM_DIR=%2Fprojects%2Fartflb<br />
%2Fdatabases%2Fartfl%2Fdicos%2Festienne%2Ffulltext%2FIMAGE%2F<br />
' recherche ancienne latin français : "http://dictionaries.travlang.com/LatinFrench/dict.cgi?query=<br />
" & mot & "& Max = 50"<br />
'If frmBible. Then<br />
' je tente de trouver une définition au mot<br />
' motr = Trim(frmBible.txtPassage.SelText)<br />
' motr = LCase(motr)<br />
' motr = Replace(motr, ".", "")<br />
' motr = Replace(motr, ":", "")<br />
' motr = Replace(motr, ";", "")<br />
' motr = Replace(motr, ",", "")<br />
' motr = Replace(motr, "!", "")<br />
' motr = Replace(motr, "?", "")<br />
' Call LatinFrancais(motr, mott)<br />
' je tente de l'analyser<br />
'Call AnalyserLatin(mot, Resultat)<br />
'mot = MsgBox(Resultat & vbCrLf & "Définition : " & mott)<br />
'End If<br />
' interrogation Unbound<br />
'If frmBible.optWeb.Value = True Then<br />
'mot = Replace(mot, "\", "")<br />
'mot = Replace(mot, "j", "s")<br />
'mot = Replace(mot, ")", "")<br />
'mot = Replace(mot, "(", "")<br />
'mot = Replace(mot, "|", "")<br />
'mot = Replace(mot, "=", "")<br />
'mot = Replace(mot, ".", "")<br />
'mot = Replace(mot, ";", "")<br />
'mot = Replace(mot, "$", "")<br />
'mot = Replace(mot, ":", "")<br />
'frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/cgi-bin/morphindex?lang=latin&lookup="<br />
& mot<br />
'End If<br />
End Function
fctAnalyseWHStrong - 1<br />
Public Function AnalyseWHStrong(mot)<br />
e<br />
' le texte WH n'est pas adapté à Grenet, alors je mets dans le txtPassage du Grenet<br />
' mais je suis obligé, pour la recherche Strong ou Thayer, de revenir à l'écriture original<br />
' Déclarations<br />
Dim verif1$, verif2$, verif3$<br />
' si l'option Strong est cochée...<br />
If frmBible.chkstrong = True Then<br />
verif1 = Replace(mot, "j", "v")<br />
mot = verif1<br />
verif2 = Replace(mot, "x", "c")<br />
mot = verif2<br />
verif3 = Replace(mot, "q", "y")<br />
mot = verif3<br />
Call AvantLireStrong(mot)<br />
Call LireStrongFrN(mot)<br />
Else<br />
verif1 = Replace(mot, "j", "v")<br />
mot = verif1<br />
verif2 = Replace(mot, "x", "c")<br />
mot = verif2<br />
verif3 = Replace(mot, "q", "y")<br />
mot = verif3<br />
Call AvantLireStrong(mot)<br />
Call LireThayer(mot, reference)<br />
Load frmResultatStrong<br />
frmResultatStrong.Show<br />
frmResultatStrong.txtStrong.Text = Mid(frmParse2.Text1.Text, Len(reference) + 1<br />
, Len(frmParse2.Text1.Text))<br />
frmResultatStrong.Caption = "Thayer's Dictionnary of Greek Words"<br />
End If<br />
End Function
fctAutomatosBHS - 1<br />
Public Function AutomatosBHS(mot)<br />
If mot = "" Then Exit Function<br />
Dim ofile$<br />
Dim lfile%<br />
Dim ligne$<br />
nveaumot = mot<br />
ofile = App.Path & "\tools\temp2.txt"<br />
lfile = FreeFile<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, "")<br />
strong = Mid(ligne, 2, repere1 - 2)<br />
Exit Do<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
A partir du mot initial, j'ai trouvé le numéro strong<br />
je cherche donc ce qu'il signifie<br />
et je le mets toute la définition dans temp2<br />
f strong "" Then<br />
mot = strong<br />
Call LireStrongATFrN(mot)<br />
nd If<br />
--------------------------------------------<br />
maintenant je lis temp2, et je regarde comment le mot a été traduit par Louis Segond<br />
file = App.Path & "\tools\temp2.txt"<br />
file = FreeFile<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, "LSG -") 0 Then<br />
Resultat = ligne<br />
Exit Do<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
MsgBox (resultat)<br />
On Error Resume Next<br />
rmAutomatos.lblStrong.Caption = strong<br />
epere = InStr(1, Resultat, "LSG -")<br />
esultat = Mid(Resultat, repere + 6, Len(Resultat))<br />
epere2 = InStr(1, Resultat, ";")<br />
esultat = Mid(Resultat, 1, repere2 - 1)<br />
esultat = Replace(Resultat, ";", "")<br />
esultat = Replace(Resultat, "0", "")<br />
esultat = Replace(Resultat, "1", "")<br />
esultat = Replace(Resultat, "2", "")<br />
esultat = Replace(Resultat, "3", "")<br />
esultat = Replace(Resultat, "4", "")<br />
esultat = Replace(Resultat, "5", "")
fctAutomatosBHS - 2<br />
Resultat = Replace(Resultat, "6", "")<br />
Resultat = Replace(Resultat, "7", "")<br />
Resultat = Replace(Resultat, "8", "")<br />
Resultat = Replace(Resultat, "9", "")<br />
frmAutomatos.lblResultat.Caption = Resultat<br />
frmAutomatos.RichTextBox1.ToolTipText = Mid(Resultat, 1, 20) & "..."<br />
frmAutomatos.lblanalyse.Visible = False<br />
frmAutomatos.Line5.Visible = False<br />
frmAutomatos.Label3.Visible = False<br />
frmAutomatos.lblMorpho.Visible = False<br />
End Function
fctAutomatosWH - 1<br />
Public Function AutomatosWH(mot)<br />
If mot = "" Then Exit Function<br />
Dim ofile$<br />
Dim lfile%<br />
Dim ligne$<br />
nveaumot = mot<br />
'If Right(mot, 1) = "j" Then mot = Mid(mot, 1, Len(mot) - 1) + "v"<br />
'mot = Replace(mot, "x", "c")<br />
'mot = Replace(mot, "q", "y")<br />
ofile = App.Path & "\tools\corrwh.txt"<br />
lfile = FreeFile<br />
mot = Replace(mot, "V ", "n ")<br />
mot2 = Replace(mot, "y", "§")<br />
mot3 = Replace(mot, "q", "y")<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
ligne = Trim(ligne)<br />
If InStr(1, ligne, LCase(mot)) 0 Or _<br />
InStr(1, ligne, LCase(mot2)) 0 Or _<br />
InStr(1, ligne, LCase(mot3)) 0 Then<br />
repere1 = InStr(1, ligne, "{")<br />
strong = Mid(ligne, Len(mot) + 1, repere1)<br />
repere3 = InStr(1, strong, "{")<br />
strong = Mid(strong, 1, repere3 - 1)<br />
strong = Trim(strong)<br />
If Len(strong) = 9 Then<br />
strong = Mid(strong, 1, 4)<br />
ElseIf InStr(1, strong, " ") 0 Then<br />
strong = Mid(strong, 1, InStr(1, strong, " ") - 1)<br />
End If<br />
complement = Trim(Mid(ligne, Len(mot) + Len(strong) + 2, Len(ligne)))<br />
If InStr(1, complement, " ") 0 Then<br />
tempstrong = Mid(complement, 1, InStr(1, complement, " ") - 1)<br />
complement = Mid(complement, InStr(1, complement, " ") + 1, Len(complement))<br />
Exit Do<br />
End If<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
strong = strong<br />
complement = complement<br />
A partir du mot initial, j'ai trouvé le numéro strong<br />
je cherche donc ce qu'il signifie<br />
et je le mets toute la définition dans temp2<br />
f strong "" Then<br />
mot = strong<br />
Call LireStrongFrN(strong)<br />
nd If<br />
--------------------------------------------<br />
maintenant je lis temp2, et je regarde comment le mot a été traduit par Louis Segond<br />
file = App.Path & "\tools\temp2.txt"<br />
file = FreeFile<br />
Open ofile For Input As #lfile<br />
Do
fctAutomatosWH - 2<br />
Close<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, "LSG -") 0 Then<br />
Resultat = ligne<br />
Exit Do<br />
End If<br />
Loop While Not EOF(lfile)<br />
On Error Resume Next<br />
mot = Replace(mot, "1)", "")<br />
f tempstrong "" Then<br />
frmAutomatos.lblStrong.Caption = strong & ", temps : " & tempstrong<br />
Else<br />
frmAutomatos.lblStrong.Caption = strong<br />
nd If<br />
epere = InStr(1, Resultat, "LSG -")<br />
esultat = Mid(Resultat, repere + 6, Len(Resultat))<br />
epere2 = InStr(1, Resultat, ";")<br />
esultat = Mid(Resultat, 1, repere2 - 1)<br />
esultat = Replace(Resultat, ";", "")<br />
esultat = Replace(Resultat, "0", "")<br />
esultat = Replace(Resultat, "1", "")<br />
esultat = Replace(Resultat, "2", "")<br />
esultat = Replace(Resultat, "3", "")<br />
esultat = Replace(Resultat, "4", "")<br />
esultat = Replace(Resultat, "5", "")<br />
esultat = Replace(Resultat, "6", "")<br />
esultat = Replace(Resultat, "7", "")<br />
esultat = Replace(Resultat, "8", "")<br />
esultat = Replace(Resultat, "9", "")<br />
rmAutomatos.lblResultat.Caption = Mid(Resultat, 1, 20) & "..."<br />
If Len(Resultat) > 30 Then<br />
Resultat = Mid(frmAutomatos.lblResultat.Caption, 1, 30) & "..."<br />
frmAutomatos.RichTextBox1.ToolTipText = Resultat<br />
End If<br />
rmAutomatos.lblanalyse.Visible = False<br />
omplement = Replace(complement, "0", "")<br />
omplement = Replace(complement, "1", "")<br />
omplement = Replace(complement, "2", "")<br />
omplement = Replace(complement, "3", "")<br />
omplement = Replace(complement, "4", "")<br />
omplement = Replace(complement, "5", "")<br />
omplement = Replace(complement, "6", "")<br />
omplement = Replace(complement, "7", "")<br />
omplement = Replace(complement, "8", "")<br />
omplement = Replace(complement, "9", "")<br />
veaucomplement = complement<br />
all LireComplement(complement)<br />
f complement = "" Then complement = nveaucomplement & "- ??"<br />
rmAutomatos.Line5.Visible = True<br />
rmAutomatos.Label3.Visible = True<br />
rmAutomatos.lblMorpho.Visible = True<br />
rmAutomatos.lblMorpho.Caption = complement<br />
f InStr(1, complement, "- ??") = 0 Then<br />
rmAutomatos.RichTextBox1.ToolTipText = Mid(Resultat, 1, 20) & "..." & "-" & complement<br />
nd If<br />
nd Function
fctAvantLireStrong - 1<br />
Option Explicit<br />
ublic Function AvantLireStrong(mot)<br />
im corrwh$, phrase$, lfile, premierespace, deuxiemeespace, numéro, nstrong$<br />
orrwh = App.Path & "\tools\corrwh.txt"<br />
file = FreeFile<br />
Open corrwh For Input As #lfile<br />
o<br />
nput #lfile, phrase<br />
If Left(phrase, Len(mot)) = mot Then Exit Do<br />
oop While Not EOF(lfile)<br />
On Error Resume Next<br />
remierespace = InStr(1, phrase, " ", vbTextCompare)<br />
uméro = Trim(Mid(phrase, premierespace, (Len(phrase) + premierespace + deuxiemeespace) - 2))<br />
euxiemeespace = InStr(1, numéro, " ", vbTextCompare)<br />
strong = Left(numéro, Val(deuxiemeespace))<br />
ot = Trim(nstrong)<br />
nd Function
fctBhsLxxDefFichier - 1<br />
Public Function BhsLxxDefFichier(livre, chapitre, verset, passage, fichier, finverset)<br />
finverset = ""<br />
If livre = "Genèse" Then<br />
fichier = App.Path & "\modules\parallel\01.Genesis.par"<br />
passage = "Gen " & chapitre & ":" & verset<br />
End If<br />
End Function
fctConcordanceANF - 1<br />
Public Sub ConcordanceANF(recherche)<br />
ofile = App.Path & "\modules\ANF\ANF.txt"<br />
frmZetoGraphe.lstResultat.Visible = True<br />
frmZetoGraphe.lstResultat.Clear<br />
lfile = FreeFile<br />
Open ofile For Input As #lfile<br />
On Error GoTo err:<br />
= 0<br />
Do<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, recherche) 0 Then<br />
premierespace = InStr(1, ligne, ":")<br />
espaceapres = InStr(premierespace, ligne, " ")<br />
passage = Left(ligne, espaceapres)<br />
frmZetoGraphe.lstResultat.AddItem (passage)<br />
'frmZetoGraphe.Text1.Text = frmZetoGraphe.Text1.Text & passage & vbCrLf<br />
'frmZetoGraphe.lsResultat.AddItem (passage)<br />
i = i + 1<br />
End If<br />
Loop While Not EOF(lfile)<br />
rr:<br />
lose<br />
frmZetoGraphe.lstResultat.List (0)<br />
rmZetoGraphe.Text1.Visible = False<br />
rmZetoGraphe.cboVersion.Clear<br />
rmZetoGraphe.cboVersion.Text = "ANF"<br />
rmZetoGraphe.lblResultat.Caption = i & " passages trouvés."<br />
rmZetoGraphe.txtRecherche.Font = "Times"<br />
rmZetoGraphe.txtRecherche.FontSize = "12"<br />
rmZetoGraphe.Show<br />
nd Sub
fctConcordanceAPFG - 1<br />
Public Function ConcordanceAPFG(recherche)<br />
Dim ofile$, lfile%<br />
Dim ligne$, passage$<br />
Dim i%<br />
lfile = FreeFile<br />
ofile = App.Path & "\modules\APF\apfg.txt"<br />
Open ofile For Input As #lfile<br />
On Error GoTo err:<br />
= 0<br />
Do<br />
rr:<br />
lose<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, recherche) 0 Then<br />
premierespace = InStr(1, ligne, ":")<br />
espaceapres = InStr(premierespace, ligne, " ")<br />
passage = Left(ligne, espaceapres)<br />
frmZetoGraphe.Text1.Text = frmZetoGraphe.Text1.Text & passage & vbCrLf<br />
'frmZetoGraphe.lsResultat.AddItem (passage)<br />
i = i + 1<br />
End If<br />
Loop While Not EOF(lfile)<br />
rmZetoGraphe.lblResultat.Caption = i & " passages trouvés."<br />
rmZetoGraphe.txtRecherche.Font = "Bwgrkn"<br />
rmZetoGraphe.txtRecherche.FontSize = "14"<br />
frmZetoGraphe.Show<br />
nd Function
fctConcordanceBHS - 1<br />
Public Function ConcordanceBHS(recherche)<br />
Dim ofile$, lfile%<br />
Dim ligne$, passage$<br />
Dim i%<br />
lfile = FreeFile<br />
ofile = App.Path & "\modules\BHSv\wtt.txt"<br />
Open ofile For Input As #lfile<br />
On Error GoTo err:<br />
= 0<br />
Do<br />
rr:<br />
lose<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, recherche) 0 Then<br />
premierespace = InStr(1, ligne, ":")<br />
espaceapres = InStr(premierespace, ligne, " ")<br />
passage = Left(ligne, espaceapres)<br />
frmZetoGraphe.Text1.Text = frmZetoGraphe.Text1.Text & passage & vbCrLf<br />
'frmZetoGraphe.lsResultat.AddItem (passage)<br />
i = i + 1<br />
End If<br />
Loop While Not EOF(lfile)<br />
rmZetoGraphe.lblResultat.Caption = i & " passages trouvés."<br />
rmZetoGraphe.txtRecherche.Font = "Bwhebb"<br />
rmZetoGraphe.txtRecherche.FontSize = "16"<br />
frmZetoGraphe.Show<br />
nd Function
fctConcordanceHomere - 1<br />
Public Function ConcordanceHomere(recherche)<br />
Dim ofile$, lfile%<br />
Dim ligne$, passage$<br />
Dim i%<br />
lfile = FreeFile<br />
ofile = App.Path & "\modules\HHG\hhg.txt"<br />
Open ofile For Input As #lfile<br />
On Error GoTo err:<br />
= 0<br />
Do<br />
rr:<br />
lose<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, recherche) 0 Then<br />
premierespace = InStr(1, ligne, ":")<br />
espaceapres = InStr(premierespace, ligne, " ")<br />
passage = Left(ligne, espaceapres)<br />
frmZetoGraphe.Text1.Text = frmZetoGraphe.Text1.Text & passage & vbCrLf<br />
'frmZetoGraphe.lsResultat.AddItem (passage)<br />
i = i + 1<br />
End If<br />
Loop While Not EOF(lfile)<br />
rmZetoGraphe.lblResultat.Caption = i & " passages trouvés."<br />
rmZetoGraphe.txtRecherche.Font = "Grenet"<br />
rmZetoGraphe.txtRecherche.FontSize = "12"<br />
rmZetoGraphe.Show<br />
nd Function
fctConcordanceJF - 1<br />
Public Function ConcordanceFJ(recherche)<br />
Dim ofile$, lfile%<br />
Dim ligne$, passage$<br />
Dim i%<br />
lfile = FreeFile<br />
ofile = App.Path & "\modules\JOS\jos.txt"<br />
Open ofile For Input As #lfile<br />
On Error GoTo err:<br />
= 0<br />
Do<br />
rr:<br />
lose<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, recherche) 0 Then<br />
premierespace = InStr(1, ligne, ":")<br />
espaceapres = InStr(premierespace, ligne, " ")<br />
passage = Left(ligne, espaceapres)<br />
frmZetoGraphe.Text1.Text = frmZetoGraphe.Text1.Text & passage & vbCrLf<br />
'frmZetoGraphe.lsResultat.AddItem (passage)<br />
i = i + 1<br />
End If<br />
Loop While Not EOF(lfile)<br />
rmZetoGraphe.lblResultat.Caption = i & " passages trouvés."<br />
rmZetoGraphe.txtRecherche.Font = "Bwgrkn"<br />
rmZetoGraphe.txtRecherche.FontSize = "14"<br />
rmZetoGraphe.Show<br />
nd Function
fctConcordanceLXX - 1<br />
Public Function ConcordanceLXX(recherche)<br />
Dim ofile$, lfile%<br />
Dim ligne$, passage$<br />
frmZetoGraphe.lstResultat.Visible = True<br />
frmZetoGraphe.lstResultat.Clear<br />
Dim i%<br />
lfile = FreeFile<br />
ofile = App.Path & "\modules\LXX\lxx.txt"<br />
recherche = Trim(recherche)<br />
Open ofile For Input As #lfile<br />
On Error GoTo err:<br />
= 0<br />
Do<br />
rr:<br />
lose<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, recherche) 0 Then<br />
premierespace = InStr(1, ligne, ":")<br />
espaceapres = InStr(premierespace, ligne, " ")<br />
passage = Left(ligne, espaceapres)<br />
'frmZetoGraphe.Text1.Text = frmZetoGraphe.Text1.Text & passage & vbCrLf<br />
frmZetoGraphe.lstResultat.AddItem (passage)<br />
i = i + 1<br />
End If<br />
Loop While Not EOF(lfile)<br />
rmZetoGraphe.lblResultat.Caption = i & " passages trouvés."<br />
rmZetoGraphe.Text1.Visible = False<br />
rmZetoGraphe.cboVersion.Clear<br />
rmZetoGraphe.cboVersion.Text = "LXX"<br />
rmZetoGraphe.txtRecherche.Font = "Bwgrkn"<br />
rmZetoGraphe.txtRecherche.FontSize = "14"<br />
rmZetoGraphe.Show<br />
nd Function
fctConcordanceTIS - 1<br />
Public Function ConcordanceTIS(recherche)<br />
Dim ofile$, lfile%<br />
Dim ligne$, passage$<br />
Dim i%<br />
lfile = FreeFile<br />
ofile = App.Path & "\modules\TIS\tis.txt"<br />
Open ofile For Input As #lfile<br />
On Error GoTo err:<br />
= 0<br />
Do<br />
rr:<br />
lose<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, recherche) 0 Then<br />
premierespace = InStr(1, ligne, ":")<br />
espaceapres = InStr(premierespace, ligne, " ")<br />
passage = Left(ligne, espaceapres)<br />
frmZetoGraphe.Text1.Text = frmZetoGraphe.Text1.Text & passage & vbCrLf<br />
'frmZetoGraphe.lsResultat.AddItem (passage)<br />
i = i + 1<br />
End If<br />
Loop While Not EOF(lfile)<br />
rmZetoGraphe.lblResultat.Caption = i & " passages trouvés."<br />
rmZetoGraphe.txtRecherche.Font = "Bwgrkn"<br />
rmZetoGraphe.txtRecherche.FontSize = "14"<br />
rmZetoGraphe.Show<br />
nd Function
fctConcordanceWH - 1<br />
Public Function ConcordanceWH(recherche)<br />
Dim ofile$, lfile%<br />
Dim ligne$, passage$<br />
Dim i%<br />
frmZetoGraphe.lstResultat.Visible = True<br />
frmZetoGraphe.lstResultat.Clear<br />
lfile = FreeFile<br />
ofile = App.Path & "\modules\WHpars\wh.txt"<br />
Open ofile For Input As #lfile<br />
On Error GoTo err:<br />
= 0<br />
Do<br />
rr:<br />
lose<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, recherche) 0 Then<br />
premierespace = InStr(1, ligne, ":")<br />
espaceapres = InStr(premierespace, ligne, " ")<br />
passage = Left(ligne, espaceapres)<br />
'frmZetoGraphe.Text1.Text = frmZetoGraphe.Text1.Text & passage & vbCrLf<br />
frmZetoGraphe.lstResultat.AddItem (passage)<br />
i = i + 1<br />
End If<br />
Loop While Not EOF(lfile)<br />
rmZetoGraphe.lblResultat.Caption = i & " passages trouvés."<br />
rmZetoGraphe.Text1.Visible = False<br />
rmZetoGraphe.cboVersion.Clear<br />
rmZetoGraphe.cboVersion.Text = "WH+"<br />
rmZetoGraphe.txtRecherche.Font = "Bwgrkn"<br />
rmZetoGraphe.txtRecherche.FontSize = "14"<br />
rmZetoGraphe.Show<br />
nd Function
fctCorrigerLectureSeptante - 1<br />
Public Sub CorrigerLectureSeptante(chercher)<br />
Dim ofil, lfil<br />
frmBible.txtPassage.Text = ""<br />
ofil = App.Path & "\tools\septante.txt"<br />
lfil = FreeFile + 3<br />
Open ofil For Input As #lfil<br />
Do<br />
Input #lfil, ligne<br />
If ligne = "" Then<br />
If ligne = chercher Then Exit Sub<br />
GoTo apres:<br />
Else<br />
'MsgBox (ligne)<br />
Dim endroit<br />
endroit = InStr(1, ligne, " ", vbTextCompare)<br />
ligne = Trim(LCase(Mid(ligne, 1, endroit)))<br />
frmBible.txtPassage.Font = "Grenet"<br />
If Right(ligne, 1) = "s" Then<br />
ligne = Mid(ligne, 1, Len(ligne) - 1) & "j"<br />
End If<br />
frmBible.txtPassage.Text = frmBible.txtPassage.Text & ligne & " "<br />
apres:<br />
Exit Sub<br />
End Sub<br />
End If<br />
Loop While Not EOF(lfil)<br />
Close #lfil
fctCorrigerWH - 1<br />
'Option Explicit<br />
Public Function CorrigerWH(texte) As String<br />
ref = frmBible.txtChapitre.Text & ":" & frmBible.txtverset.Text<br />
'texte = Trim(Mid(frmBible.txtPassage.Text, 1, Len(frmBible.txtPassage.Text)))<br />
texte = Mid(texte, Len(ref) + 1, Len(texte))<br />
texte = Trim(texte)<br />
texte = Replace(texte, "}", "}" & vbCrLf, 1)<br />
'If frmBible.cboLivre.Text = "Jean" Then<br />
'remplacement = Mid(remplacement, 1, Len(remplacement))<br />
'End If<br />
corrwh = App.Path & "\tools\corrwh.txt"<br />
lfile = FreeFile<br />
Open corrwh For Output As #lfile<br />
rint #lfile, texte<br />
lose #lfile<br />
rmBible.txtPassage.Text = ""<br />
Open corrwh For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If ligne "" Then<br />
ligne = Trim(ligne)<br />
reduction = InStr(1, ligne, " ", vbTextCompare)<br />
passage = Left(ligne, reduction)<br />
frmBible.txtPassage.Text = frmBible.txtPassage.Text & passage<br />
If passage = "* " Then<br />
reduction = InStr(1, ligne, "]")<br />
If reduction = 0 Then<br />
reduction = InStr(3, ligne, " ")<br />
End If<br />
passage = Mid(ligne, 1, reduction)<br />
frmBible.txtPassage.Text = frmBible.txtPassage.Text & passage<br />
End If<br />
Else: GoTo suite:<br />
End If<br />
rmBible.txtPassage.Font = "Symbol"<br />
frmBible.txtPassage = frmBible.txtPassage & passage<br />
uite:<br />
oop While Not EOF(lfile)<br />
lose<br />
exte = frmBible.txtPassage.Text<br />
exte = Replace(texte, "0", "")<br />
exte = Replace(texte, "1", "")<br />
exte = Replace(texte, "2", "")<br />
exte = Replace(texte, "3", "")<br />
exte = Replace(texte, "4", "")<br />
exte = Replace(texte, "5", "")<br />
exte = Replace(texte, "6", "")<br />
exte = Replace(texte, "7", "")<br />
exte = Replace(texte, "8", "")<br />
exte = Replace(texte, "9", "")<br />
nd Function<br />
ublic Sub EnlevNombre()<br />
nd Sub
fctCreerPassage - 1<br />
Public Function CreerPassage(version, livre, chapitre, verset, chercher) As String<br />
If Val(chapitre) < 10 Then<br />
chapitre = "0" & chapitre<br />
End If<br />
If Val(verset) < 10 Then<br />
verset = "0" & verset<br />
End If<br />
'Gv. 01-01<br />
If version = "NT grec ancien" And _<br />
livre = "Matthieu" Then<br />
chercher = "Mt. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "Marc" Then<br />
chercher = "Mc. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "Luc" Then<br />
chercher = "Lc. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "Jean" Then<br />
chercher = "Gv. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "Actes" Then<br />
chercher = "At. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "Romains" Then<br />
chercher = "Rm. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "1 Corinthiens" Then<br />
chercher = "XCor. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "2 Corinthiens" Then<br />
chercher = "X2Cor. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "Galates" Then<br />
chercher = "Gal. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "Ephésiens" Then<br />
chercher = "Ef. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "Philippiens" Then<br />
chercher = "Fil. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "Colossiens" Then<br />
chercher = "Col. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "1 Thessaloniciens" Then<br />
chercher = "XTs. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "2 Thessaloniciens" Then<br />
chercher = "X2Ts. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "1 Timothée" Then<br />
chercher = "XTm. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "2 Timothée" Then<br />
chercher = "X2Tm. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "Tite" Then<br />
chercher = "Tito " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "Philémon" Then<br />
chercher = "Filem. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "Hébreux" Then<br />
chercher = "Ebr. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "Jacques" Then<br />
chercher = "Giac. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "1 Pierre" Then<br />
chercher = "X1Pt. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "2 Pierre" Then<br />
chercher = "X2Pt. " & chapitre & "-" & verset & " "
fctCreerPassage - 2<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "1 Jean" Then<br />
chercher = "X1Gv. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "2 Jean" Then<br />
chercher = "X2Gv. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "3 Jean" Then<br />
chercher = "X3Gv. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "Jude" Then<br />
chercher = "Gd. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT grec ancien" And _<br />
livre = "Révélation" Then<br />
chercher = "Ap. " & chapitre & "-" & verset & " "<br />
End If<br />
End Function
fctCreerPassageAutres - 1<br />
Public Function CreerPassageAutres(version, livre, chapitre, verset, chercher) As String<br />
If version = "Louis Segond" And _<br />
livre = "Genèse" Then<br />
chercher = "Gen" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Exode" Then<br />
chercher = "Exo" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Lévitique" Then<br />
chercher = "Lev" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Nombres" Then<br />
chercher = "Nom" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Deutéronome" Then<br />
chercher = "Deu" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Josué" Then<br />
chercher = "Jos" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Juges" Then<br />
chercher = "Jug" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Ruth" Then<br />
chercher = "Rut" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "1 Samuel" Then<br />
chercher = "Unsam" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "2 Samuel" Then<br />
chercher = "Deusam" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "1 Rois" Then<br />
chercher = "Unroi" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "2 Rois" Then<br />
chercher = "Deuroi" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "1 Chroniques" Then<br />
chercher = "Unchr" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "2 Chroniques" Then<br />
chercher = "Deuchr" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Esdras" Then<br />
chercher = "Esd" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Néhémie" Then<br />
chercher = "Neh" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Esther" Then<br />
chercher = "Est" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Job" Then<br />
chercher = "Job" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _
fctCreerPassageAutres - 2<br />
livre = "Psaumes" Then<br />
chercher = "Psa" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Proverbes" Then<br />
chercher = "Pro" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Ecclésiaste" Then<br />
chercher = "Ecc" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Cantique des cantiques" Then<br />
chercher = "Can" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Esaïe" Then<br />
chercher = "Esa" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Jérémie" Then<br />
chercher = "Jer" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Lamentations" Then<br />
chercher = "Lam" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Ezéchiel" Then<br />
chercher = "Eze" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Daniel" Then<br />
chercher = "Dan" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Osée" Then<br />
chercher = "Ose" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Joël" Then<br />
chercher = "Joe" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Amos" Then<br />
chercher = "Amo" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Abdias" Then<br />
chercher = "Abd" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Jonas" Then<br />
chercher = "Jon" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Michée" Then<br />
chercher = "Mic" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Habaquq" Then<br />
chercher = "Hab" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Sophonie" Then<br />
chercher = "Sop" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Aggée" Then<br />
chercher = "Agg" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Nahoum" Then<br />
chercher = "Nah" & "-" & chapitre & "-" & verset & "-"
fctCreerPassageAutres - 3<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Zacharie" Then<br />
chercher = "Zac" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Malachie" Then<br />
chercher = "Mal" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Jonas" Then<br />
chercher = "Jon" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Matthieu" Then<br />
chercher = "Mt" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Marc" Then<br />
chercher = "Mc" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Luc" Then<br />
chercher = "Lc" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Jean" Then<br />
chercher = "Jn" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Actes" Then<br />
chercher = "Ac" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Romains" Then<br />
chercher = "Rm" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "1 Corinthiens" Then<br />
chercher = "UnCo" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "2 Corinthiens" Then<br />
chercher = "DeuxCo" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Galates" Then<br />
chercher = "Gal" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Ephésiens" Then<br />
chercher = "Ep" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Philippiens" Then<br />
chercher = "Ph" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Colossiens" Then<br />
chercher = "Co" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "1 Thessaloniciens" Then<br />
chercher = "Unthes" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "2 Thessaloniciens" Then<br />
chercher = "Deuxthes" & chapitre & verset
fctCreerPassageAutres - 4<br />
ElseIf version = "Louis Segond" And _<br />
livre = "1 Timothée" Then<br />
chercher = "Unth" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "2 Timothée" Then<br />
chercher = "Deuxth" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Tite" Then<br />
chercher = "Tite" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Philémon" Then<br />
chercher = "Fil" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Hébreux" Then<br />
chercher = "Heb" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Jacques" Then<br />
chercher = "Jac" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "1 Pierre" Then<br />
chercher = "Unpi" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "2 Pierre" Then<br />
chercher = "Deuxpi" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "1 Jean" Then<br />
chercher = "Unjn" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "2 Jean" Then<br />
chercher = "Deuxjn" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "3 Jean" Then<br />
chercher = "Troisjn" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Jude" Then<br />
chercher = "Jude" & chapitre & verset<br />
ElseIf version = "Louis Segond" And _<br />
livre = "Révélation" Then<br />
chercher = "Ap" & chapitre & verset<br />
End If<br />
End Function
fctCreerPassagesgreek - 1<br />
Public Function CreerPassagesgreek(version, livre, chapitre, verset, chercher)<br />
If Val(chapitre) < 10 Then<br />
chapitre = "0" & chapitre<br />
End If<br />
If Val(verset) < 10 Then<br />
verset = "0" & verset<br />
End If<br />
'Gv. 01-01<br />
If version = "NT UBS" And _<br />
livre = "Matthieu" Then<br />
chercher = "Mt. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "Marc" Then<br />
chercher = "Mc. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "Luc" Then<br />
chercher = "Lc. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "Jean" Then<br />
chercher = "Jean " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "Actes" Then<br />
chercher = "At. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "Romains" Then<br />
chercher = "Rm. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "1 Corinthiens" Then<br />
chercher = "Unco " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "2 Corinthiens" Then<br />
chercher = "Deuxco " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "Galates" Then<br />
chercher = "Gal. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "Ephésiens" Then<br />
chercher = "Ef. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "Philippiens" Then<br />
chercher = "Fil. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "Colossiens" Then<br />
chercher = "Col. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "1 Thessaloniciens" Then<br />
chercher = "Unthes " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "2 Thessaloniciens" Then<br />
chercher = "Deuxthes " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "1 Timothée" Then<br />
chercher = "Unth " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "2 Timothée" Then<br />
chercher = "Deuxth " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "Tite" Then<br />
chercher = "Tito " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "Philémon" Then<br />
chercher = "XFil " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "Hébreux" Then<br />
chercher = "Ebr. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "Jacques" Then<br />
chercher = "Giac. " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "1 Pierre" Then<br />
chercher = "Unpi" & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "2 Pierre" Then<br />
chercher = "Deuxpi" & chapitre & "-" & verset & " "
fctCreerPassagesgreek - 2<br />
'[1Jean 01-01 ]<br />
ElseIf version = "NT UBS" And _<br />
livre = "1 Jean" Then<br />
chercher = "Unjean " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "2 Jean" Then<br />
chercher = "Deuxjean " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "3 Jean" Then<br />
chercher = "Troisjean " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "Jude" Then<br />
chercher = "Jude " & chapitre & "-" & verset & " "<br />
ElseIf version = "NT UBS" And _<br />
livre = "Révélation" Then<br />
chercher = "Ap. " & chapitre & "-" & verset & " "<br />
End If<br />
End Function
fctCreerPassageVulgate - 1<br />
Public Function CreerPassageVulgate(version, livre, chapitre, verset, chercher) As String<br />
If version = "Vulgate" And _<br />
livre = "Matthieu" Then<br />
chercher = "Mt" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "Marc" Then<br />
chercher = "Mc" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "Luc" Then<br />
chercher = "Lc" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "Jean" Then<br />
chercher = "Jn" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "Actes" Then<br />
chercher = "Ac" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "Romains" Then<br />
chercher = "Rm" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "1 Corinthiens" Then<br />
chercher = "UnCo" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "2 Corinthiens" Then<br />
chercher = "DeuxCo" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "Galates" Then<br />
chercher = "Gal" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "Ephésiens" Then<br />
chercher = "Ep" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "Philippiens" Then<br />
chercher = "Ph" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "Colossiens" Then<br />
chercher = "Col" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "1 Thessaloniciens" Then<br />
chercher = "Unthes" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "2 Thessaloniciens" Then<br />
chercher = "Deuxthes" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "1 Timothée" Then<br />
chercher = "Unti" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "2 Timothée" Then<br />
chercher = "Deuxti" & chapitre & verset
fctCreerPassageVulgate - 2<br />
ElseIf version = "Vulgate" And _<br />
livre = "Tite" Then<br />
chercher = "Tite" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "Philémon" Then<br />
chercher = "Fil" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "Hébreux" Then<br />
chercher = "Heb" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "Jacques" Then<br />
chercher = "Jac" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "1 Pierre" Then<br />
chercher = "Unpi" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "2 Pierre" Then<br />
chercher = "Deuxpi" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "1 Jean" Then<br />
chercher = "Unjn" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "2 Jean" Then<br />
chercher = "Deuxjn" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "3 Jean" Then<br />
chercher = "Troisjn" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "Jude" Then<br />
chercher = "Jude" & chapitre & verset<br />
ElseIf version = "Vulgate" And _<br />
livre = "Révélation" Then<br />
chercher = "Ap" & chapitre & verset<br />
End If<br />
End Function
fctCreerPassageWHpars - 1<br />
Public Function CreerPassageWHpars(version, livre, chapitre, verset, chercher, fichier, chap)<br />
Dim passage$, ligne$, ligne2$, ligne3$<br />
If version = "W/H & Strong" And _<br />
livre = "Matthieu" Then<br />
'[1:1]<br />
chercher = "mat" & chapitre & "-" & verset<br />
fichier = fichier & "mt.txt"<br />
chap = "mat"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "Marc" Then<br />
chercher = "marc" & chapitre & "-" & verset<br />
fichier = fichier & "mr.txt"<br />
chap = "mar"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "Luc" Then<br />
chercher = "luc" & chapitre & "-" & verset<br />
fichier = fichier & "lu.txt"<br />
chap = "luc"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "Jean" Then<br />
chercher = "jean" & chapitre & "-" & verset<br />
fichier = fichier & "joh.txt"<br />
chap = "jea"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "Actes" Then<br />
chercher = "actes" & chapitre & "-" & verset<br />
fichier = fichier & "ac.txt"<br />
chap = "act"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "Romains" Then<br />
chercher = "romains" & chapitre & "-" & verset<br />
fichier = fichier & "ro.txt"<br />
chap = "rom"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "1 Corinthiens" Then<br />
chercher = "1corinthiens" & chapitre & "-" & verset<br />
fichier = fichier & "1co.txt"<br />
chap = "1co"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "2 Corinthiens" Then<br />
chercher = "2corinthiens" & chapitre & "-" & verset<br />
fichier = fichier & "2co.txt"<br />
chap = "2co"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "Galates" Then<br />
chercher = "galates" & chapitre & "-" & verset<br />
fichier = fichier & "ga.txt"<br />
chap = "gal"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "Ephésiens" Then<br />
chercher = "ephesiens" & chapitre & "-" & verset<br />
fichier = fichier & "eph.txt"<br />
chap = "eph"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "Philippiens" Then<br />
chercher = "philippiens" & chapitre & "-" & verset<br />
fichier = fichier & "php.txt"<br />
chap = "phi"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "Colossiens" Then<br />
chercher = "colossiens" & chapitre & "-" & verset<br />
fichier = fichier & "col.txt"
fctCreerPassageWHpars - 2<br />
chap = "col"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "1 Thessaloniciens" Then<br />
chercher = "1thessaloniciens" & chapitre & "-" & verset<br />
fichier = fichier & "1th.txt"<br />
chap = "1th"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "2 Thessaloniciens" Then<br />
chercher = "2thessaloniciens" & chapitre & "-" & verset<br />
fichier = fichier & "2th.txt"<br />
chap = "2th"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "1 Timothée" Then<br />
chercher = "1timothée" & chapitre & "-" & verset<br />
fichier = fichier & "1ti.txt"<br />
chap = "1ti"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "2 Timothée" Then<br />
chercher = "2timothée" & chapitre & "-" & verset<br />
fichier = fichier & "2ti.txt"<br />
chap = "2ti"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "Tite" Then<br />
chercher = "tite" & chapitre & "-" & verset<br />
fichier = fichier & "tit.txt"<br />
chap = "tit"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "Philémon" Then<br />
chercher = "philemon" & chapitre & "-" & verset<br />
fichier = fichier & "phm.txt"<br />
chap = "phi"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "Hébreux" Then<br />
chercher = "hebreux" & chapitre & "-" & verset<br />
fichier = fichier & "heb.txt"<br />
chap = "heb"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "Jacques" Then<br />
chercher = "jacques" & chapitre & "-" & verset<br />
fichier = fichier & "jas.txt"<br />
chap = "jac"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "1 Pierre" Then<br />
chercher = "1pierre" & chapitre & "-" & verset<br />
fichier = fichier & "1pe.txt"<br />
chap = "1pi"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "2 Pierre" Then<br />
chercher = "2pierre" & chapitre & "-" & verset<br />
fichier = fichier & "2pe.txt"<br />
chap = "2pi"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "1 Jean" Then<br />
chercher = "1jean" & chapitre & "-" & verset<br />
fichier = fichier & "1jo.txt"<br />
chap = "1je"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "2 Jean" Then<br />
chercher = "2jean" & chapitre & "-" & verset<br />
fichier = fichier & "2jo.txt"<br />
chap = "2je"
fctCreerPassageWHpars - 3<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "3 Jean" Then<br />
chercher = "3jean" & chapitre & "-" & verset<br />
fichier = fichier & "3jo.txt"<br />
chap = "3je"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "Jude" Then<br />
chercher = "jude" & chapitre & "-" & verset<br />
fichier = fichier & "jude.txt"<br />
chap = "jud"<br />
ElseIf version = "W/H & Strong" And _<br />
livre = "Révélation" Then<br />
chercher = "revelation" & chapitre & "-" & verset<br />
fichier = fichier & "re.txt"<br />
chap = "rev"<br />
End If<br />
Dim lfile As Long 'Lecture<br />
Dim ofile As String 'Fichier à ouvrir<br />
ofile = App.Path & fichier<br />
lfile = FreeFile + 10<br />
frmBible.lbltampon.Text = ""<br />
On Error GoTo erreur:<br />
Open ofile For Input As #lfile<br />
o<br />
lecture<br />
Line Input #lfile, ligne<br />
f Mid(ligne, 1, Len(chercher)) = chercher Then ' pour que le verset recherché soit exact<br />
'affectation du verset du fichier à la variable<br />
frmBible.lbltampon.Text = frmBible.lbltampon.Text & Mid(ligne, Len(chercher) + 1, Len(ligne))<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, 3) = chap Then 'Left(ligne, 3 + Len(chapitre) + 1 + Len(verset)) = chap & ch<br />
pitre & "-" & Val(verset) + 1 Then<br />
GoTo apres:<br />
Else<br />
frmBible.lbltampon.Text = frmBible.lbltampon.Text & " " & ligne<br />
' MsgBox frmBible.lbltampon.Text, , "lbltampon"<br />
End If<br />
Loop 'While Left(ligne, Len(chercher)) "mat" & chapitre & "-" & Val(verset) + 1<br />
nd If<br />
oop While Not EOF(lfile) 'While Left(ligne, Len(chercher)) "mat" & chapitre & "-" & Val(verset)<br />
+ 1<br />
pres:<br />
MsgBox frmBible.lbltampon.Text<br />
rmBible.txtPassage.Text = Trim(frmBible.lbltampon.Text)<br />
lose #lfile<br />
rmBible.lblchapitre.Caption = frmBible.cboLivre.Text & " " & frmBible.txtChapitre & " : " & frmBib<br />
e.txtverset.Text<br />
rmBible.lblprecedent.Visible = True<br />
rmBible.lblsuivant.Visible = True<br />
rreur:<br />
im msg$<br />
f err.Number = 76 Then<br />
rmBible.cboLivre = "Matthieu"<br />
rmBible.txtChapitre = "1"<br />
rmBible.txtverset = "1"<br />
msg = MsgBox("Le texte de Wescott & Hort contient le Nouveau Testament. Cette opération n'est pas<br />
ossible", vbInformation, "Erreur")<br />
xit Function<br />
nd If<br />
nd Function
fctDefFichierSeptante - 1<br />
Public Function DefFichierSeptante(livre, fichierseptante)<br />
If livre = "Genèse" Then<br />
fichierseptante = "01_Gen.mlxx"<br />
ElseIf livre = "Exode" Then<br />
fichierseptante = "03_Exod.mlxx"<br />
ElseIf livre = "Lévitique" Then<br />
fichierseptante = "04_Lev.mlxx"<br />
ElseIf livre = "Nombres" Then<br />
fichierseptante = "05_Num.mlxx"<br />
ElseIf livre = "Deutéronome" Then<br />
fichierseptante = "06_Deut.mlxx"<br />
ElseIf livre = "Josué" Then<br />
fichierseptante = "07_Josh.mlxx"<br />
ElseIf livre = "Juges" Then<br />
fichierseptante = "09_Judges.mlxx"<br />
ElseIf livre = "Ruth" Then<br />
fichierseptante = "11_Ruth.mlxx"<br />
ElseIf livre = "1 Samuel" Then<br />
fichierseptante = "12_1Sam.mlxx"<br />
ElseIf livre = "2 Samuel" Then<br />
fichierseptante = "13_2Sam.mlxx"<br />
ElseIf livre = "1 Rois" Then<br />
fichierseptante = "14_1Kings.mlxx"<br />
ElseIf livre = "2 Rois" Then<br />
fichierseptante = "15_2Kings.mlxx"<br />
ElseIf livre = "1 Chroniques" Then<br />
fichierseptante = "16_1Chron.mlxx"<br />
ElseIf livre = "2 Chroniques" Then<br />
fichierseptante = "17_2Chron.mlxx"<br />
ElseIf livre = "Esdras" Then<br />
fichierseptante = "Esdras.mlxx"<br />
ElseIf livre = "Néhémie" Then<br />
fichierseptante = "Nehemie.mlxx"<br />
ElseIf livre = "Esther" Then<br />
fichierseptante = "20_Esther.mlxx"<br />
ElseIf livre = "Judith" Then<br />
fichierseptante = "21_Judith.mlxx"<br />
ElseIf livre = "Tobie" Then<br />
fichierseptante = "22_TobitBA.mlxx"<br />
ElseIf livre = "1 Maccabées" Then<br />
fichierseptante = "24_1Macc.mlxx"<br />
ElseIf livre = "2 Maccabées" Then<br />
fichierseptante = "25_2Macc.mlxx"<br />
ElseIf livre = "3 Maccabées" Then<br />
fichierseptante = "26_3Macc.mlxx"<br />
ElseIf livre = "4 Maccabées" Then<br />
fichierseptante = "27_4Macc.mlxx"<br />
ElseIf livre = "Psaumes" Then<br />
fichierseptante = "Psaumes.mlxx"<br />
ElseIf livre = "Odes" Then<br />
fichierseptante = "30_Odes.mlxx"<br />
ElseIf livre = "Proverbes" Then<br />
fichierseptante = "31_Proverbs.mlxx"<br />
ElseIf livre = "Ecclésiaste" Then<br />
fichierseptante = "32_Qoheleth.mlxx"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
fichierseptante = "33_Canticles.mlxx"<br />
ElseIf livre = "Job" Then<br />
fichierseptante = "34_Job.mlxx"<br />
ElseIf livre = "Sagesse" Then<br />
fichierseptante = "35_Wisdom.mlxx"<br />
ElseIf livre = "Siracides" Then<br />
fichierseptante = "36_Sirach.mlxx"<br />
ElseIf livre = "Psaumes de Salomon" Then<br />
fichierseptante = "37_PsSol.mlxx"<br />
ElseIf livre = "Osée" Then<br />
fichierseptante = "38_Hosea.mlxx"<br />
ElseIf livre = "Amos" Then<br />
fichierseptante = "40_Amos.mlxx"<br />
ElseIf livre = "Micah" Then<br />
fichierseptante = "39_Micah.mlxx"<br />
ElseIf livre = "Joël" Then<br />
fichierseptante = "41Joel.mlxx"<br />
ElseIf livre = "Jonas" Then<br />
fichierseptante = "42_Jonah.mlxx"
fctDefFichierSeptante - 2<br />
ElseIf livre = "Nahum" Then<br />
fichierseptante = "44_Nahum.mlxx"<br />
ElseIf livre = "Habbacuc" Then<br />
fichierseptante = "45_Habakkuk.mlxx"<br />
ElseIf livre = "Sophonie" Then<br />
fichierseptante = "46_Zeph.mlxx"<br />
ElseIf livre = "Aggée" Then<br />
fichierseptante = "47_Haggai.mlxx"<br />
ElseIf livre = "Zacharie" Then<br />
fichierseptante = "48_Zech.mlxx"<br />
ElseIf livre = "Malachie" Then<br />
fichierseptante = "49_Malachi.mlxx"<br />
ElseIf livre = "Isaïe" Then<br />
fichierseptante = "50_Isaiah.mlxx"<br />
ElseIf livre = "Jérémie" Then<br />
fichierseptante = "52_Jer.mlxx"<br />
ElseIf livre = "Baruch" Then<br />
fichierseptante = "54_Baruch.mlxx"<br />
ElseIf livre = "Lamentations" Then<br />
fichierseptante = "56_Lam.mlxx"<br />
ElseIf livre = "Epître de Jérémie" Then<br />
fichierseptante = "55_EpJer.mlxx"<br />
ElseIf livre = "Ezékiel" Then<br />
fichierseptante = "57_Ezek.mlxx"<br />
ElseIf livre = "Susanna" Then<br />
fichierseptante = "64_SusTh.mlxx"<br />
ElseIf livre = "Daniel" Then<br />
fichierseptante = "61_Daniel.mlxx"<br />
ElseIf livre = "Bel et Draco" Then<br />
fichierseptante = "59_BelOG.mlxx"<br />
'<br />
End If<br />
End Function
fctDefinirFrancais - 1<br />
Option Explicit<br />
ublic Function DefinirFrancais(motr, mott) As String<br />
im lfile As Long 'Lecture<br />
im ofile As String 'Fichier à ouvrir<br />
im Grec As String '1ère ligne<br />
im francais As String ' 2ème ligne<br />
im valeur ' valeur de renvoi de la fonction StrComp<br />
file = App.Path & "\tools\lexiquegr.txt"<br />
file = FreeFile<br />
Open ofile For Input As #lfile<br />
o 'début de boucle<br />
nput #lfile, Grec, francais<br />
aleur = StrComp(motr, francais, vbTextCompare)<br />
If valeur = 0 Then<br />
mott = Grec<br />
End If<br />
oop Until EOF(lfile)<br />
lose #lfile<br />
f mott = "" Then<br />
ott = "Pas de définition disponible"<br />
nd If<br />
nd Function
fctDefinirGrec - 1<br />
Option Explicit<br />
ublic Function DefinirGrec(motr, mott) As String<br />
im lfile As Long 'Lecture<br />
im ofile As String 'Fichier à ouvrir<br />
im Grec As String '1ère ligne<br />
im francais As String ' 2ème ligne<br />
im valeur ' valeur de renvoi de la fonction StrComp<br />
im ligne<br />
file = App.Path & "\tools\lexiquegr.txt"<br />
file = FreeFile<br />
otr = Replace(motr, "c", "x")<br />
Open ofile For Input As #lfile<br />
ott = ""<br />
o 'début de boucle<br />
ine Input #lfile, ligne<br />
igne = LCase(ligne)<br />
If Mid(ligne, 1, Len(motr)) = motr Then<br />
mott = Trim(Mid(ligne, Len(motr) + 1, Len(ligne)))<br />
Exit Do<br />
End If<br />
If LCase(motr) = LCase(Grec) Then _<br />
mott = francais<br />
valeur = StrComp(motr, Grec, vbTextCompare)<br />
' If valeur = 0 And valeur = -1 Then _<br />
'mott = francais<br />
oop Until EOF(lfile)<br />
lose #lfile<br />
ott = Trim(mott)<br />
ott = Replace(mott, Chr$(34), "")<br />
ott = Replace(mott, " ", "")<br />
ott = Mid(mott, 2, Len(mott))<br />
f mott = "" Then<br />
ott = "Pas de définition disponible"<br />
nd If<br />
ott = Replace(mott, "*", ";")<br />
ott = Replace(mott, "~", ",")<br />
nd Function
fctDeflechirHebreu - 1<br />
Public Function DeflechirHebreu(recherche)<br />
If Right(recherche, 1) = "w" Then<br />
recherche = Mid(recherche, 1, Len(recherche) - 1)<br />
End If<br />
End Function
fctDeflechirMot - 1<br />
Option Explicit<br />
ublic Function DeflechirMot(motadeflechir, motdeflechi, Resultat, enlever, enleverg) As String<br />
im motr$, mott$, verbeenmi As Boolean, msg$<br />
f motadeflechir = "" Then<br />
xit Function<br />
nd If<br />
f Len(motadeflechir) < 4 Then<br />
otdeflechi = motadeflechir<br />
nd If<br />
f motadeflechir = "eimi" Or _<br />
otadeflechir = "ei" Or _<br />
otadeflechir = "esti" Or _<br />
otadeflechir = "esmen" Or _<br />
otadeflechir = "este" Or _<br />
otadeflechir = "hn" Or _<br />
otadeflechir = "eisi" Then<br />
otdeflechi = motadeflechir<br />
nd If<br />
f motadeflechir = "h" Or _<br />
otadeflechir = "thn" Or _<br />
otadeflechir = "thj" Or _<br />
otadeflechir = "th" Or _<br />
otadeflechir = "ai" Or _<br />
otadeflechir = "tai" Or _<br />
otadeflechir = "twn" Or _<br />
otadeflechir = "taij" Or _<br />
otadeflechir = "o" Or _<br />
otadeflechir = "ton" Or _<br />
otadeflechir = "tou" Or _<br />
otadeflechir = "tw" Or _<br />
otadeflechir = "oi" Or _<br />
otadeflechir = "touj" Or _<br />
otadeflechir = "toij" Or _<br />
otadeflechir = "ta" Then<br />
otdeflechi = motadeflechir<br />
nd If<br />
pour le PQP<br />
f InStr(1, Resultat, "plus-que-parfait", vbTextCompare) 0 And _<br />
eft(motadeflechir, 2) = "e)" Then<br />
otdeflechi = Mid(motadeflechir, enleverg + 1, Len(motadeflechir) - (enlever + 4)) + "w"<br />
pour le parfait<br />
lseIf InStr(1, Resultat, "Indicatif parfait", vbTextCompare) 0 Then<br />
otdeflechi = Mid(motadeflechir, enleverg + 1, Len(motadeflechir) - (enlever + 2)) + "w"<br />
pour l'aoriste<br />
lseIf Right(motadeflechir, 2) = "sa" Or _<br />
ight(motadeflechir, 3) = "saj" Or _<br />
ight(motadeflechir, 2) = "se" Or _<br />
ight(motadeflechir, 5) = "samen" Or _<br />
ight(motadeflechir, 4) = "sete" Or _<br />
ight(motadeflechir, 3) = "san" Then<br />
otdeflechi = Mid(motadeflechir, enleverg + 1, Len(motadeflechir))<br />
motdeflechi = Mid(motdeflechi, 1, Len(motdeflechi) - (enlever)) + "w"<br />
pour l'imparfait<br />
lseIf InStr(1, Resultat, "Indicatif imparfait", vbTextCompare) 0 And Len(motadeflechir) > 2 The<br />
otdeflechi = Mid(motadeflechir, enleverg + 1, Len(motadeflechir) - (enlever + 2)) + "w"<br />
noms 2eme déclinaison<br />
lseIf InStr(1, Resultat, "2ème déclinaison", vbTextCompare) 0 Then<br />
otdeflechi = (Mid(motadeflechir, 1, Len(motadeflechir) - Val(enlever)) + "oj")<br />
verbes en -w réguliers : VOIE MOYENNE<br />
lseIf Right(motadeflechir, 3) = "mai" Or _<br />
ight(motadeflechir, 3) = "sai" Or _<br />
ight(motadeflechir, 3) = "tai" Or _<br />
ight(motadeflechir, 3) = "sai" Then<br />
otdeflechi = (Mid(motadeflechir, 1, Len(motadeflechir) - Val(enlever)) + "w")
fctDeflechirMot - 2<br />
' nom 1ère déclinaison a/as<br />
ElseIf InStr(1, Resultat, "1ère déclinaison", vbTextCompare) 0 And _<br />
Right(motadeflechir, 1) = "a" Or _<br />
Right(motadeflechir, 2) = "aj" Or _<br />
Right(motadeflechir, 2) = "a|" Or _<br />
Right(motadeflechir, 2) = "ai" And motadeflechir "kai" Or _<br />
Right(motadeflechir, 3) = "w=n" Or _<br />
Right(motadeflechir, 2) = "wn" Or _<br />
Right(motadeflechir, 3) = "aij" Then<br />
motdeflechi = (Mid(motadeflechir, 1, Len(motadeflechir) - Val(enlever)) + "a")<br />
' nom 1ère déclinaison h/hj<br />
ElseIf InStr(1, Resultat, "1ère déclinaison", vbTextCompare) 0 And _<br />
Right(motadeflechir, 1) = "h" Or _<br />
Right(motadeflechir, 2) = "hn" And motadeflechir "hn" Or _<br />
Right(motadeflechir, 2) = "hj" Or _<br />
Right(motadeflechir, 2) = "h|" Or _<br />
Right(motadeflechir, 3) = "h=|" Or _<br />
Right(motadeflechir, 2) = "h/" Or _<br />
Right(motadeflechir, 3) = "h/n" Or _<br />
Right(motadeflechir, 3) = "h=j" Or _<br />
Right(motadeflechir, 3) = "ai/" Or _<br />
Right(motadeflechir, 3) = "a/j" Or _<br />
Right(motadeflechir, 4) = "ai=j" Then<br />
motdeflechi = (Mid(motadeflechir, 1, Len(motadeflechir) - Val(enlever)) + "h")<br />
' pour le présent des verbes réguliers en -w<br />
ElseIf InStr(1, Resultat, "Indicatif présent", vbTextCompare) 0 And verbeenmi = False And InStr(<br />
1, Resultat, "être", vbTextCompare) 7 Then<br />
motdeflechi = Mid(motadeflechir, 1, (Len(motadeflechir) - Val(enlever))) + "w"<br />
Else<br />
motdeflechi = motadeflechir<br />
End If<br />
End Function
fctDiaglott - 1<br />
Public Function Diaglott(livre, chapitre, verset)<br />
Dim aouvrir$, lfile, ligne$, livret$<br />
Dim ligne2$, nlivre$<br />
If livre = "Matthieu" Then<br />
nlivre = "Matthew"<br />
ElseIf livre = "Marc" Then<br />
nlivre = "Mark"<br />
ElseIf livre = "Luc" Then<br />
nlivre = "Luke"<br />
ElseIf livre = "Jean" Then<br />
nlivre = "John"<br />
ElseIf livre = "Actes" Then<br />
nlivre = "Acts"<br />
ElseIf livre = "Romains" Then<br />
nlivre = "Romans"<br />
ElseIf livre = "1 Corinthiens" Then<br />
nlivre = "1 Corinthians"<br />
ElseIf livre = "2 Corinthiens" Then<br />
nlivre = "2 Corinthians"<br />
ElseIf livre = "Galates" Then<br />
nlivre = "Galatians"<br />
ElseIf livre = "Ephésiens" Then<br />
nlivre = "Ephesians"<br />
ElseIf livre = "Philippiens" Then<br />
nlivre = "Phillippians"<br />
ElseIf livre = "Colossiens" Then<br />
nlivre = "Colossians"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
nlivre = "1 Thessalonians"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
nlivre = "2 Thessalonians"<br />
ElseIf livre = "1 Timothée" Then<br />
nlivre = "1 Timothy"<br />
ElseIf livre = "2 Timothée" Then<br />
nlivre = "2 Timothy"<br />
ElseIf livre = "Tite" Then<br />
nlivre = "Titus"<br />
ElseIf livre = "Philémon" Then<br />
nlivre = "Philemon"<br />
ElseIf livre = "Hébreux" Then<br />
nlivre = "Hebrews"<br />
ElseIf livre = "Jacques" Then<br />
nlivre = "James"<br />
ElseIf livre = "1 Pierre" Then<br />
nlivre = "1 Peter"<br />
ElseIf livre = "2 Pierre" Then<br />
nlivre = "2 Peter"<br />
ElseIf livre = "1 Jean" Then<br />
nlivre = "1 John"<br />
ElseIf livre = "2 Jean" Then<br />
nlivre = "2 John"
fctDiaglott - 2<br />
ElseIf livre = "3 Jean" Then<br />
nlivre = "3 John"<br />
ElseIf livre = "Jude" Then<br />
nlivre = "Jude"<br />
ElseIf livre = "Révélation" Then<br />
nlivre = "Revelation"<br />
End If<br />
If nlivre "Jude" Then<br />
recherche = nlivre & " " & chapitre & ":" & verset & " "<br />
ElseIf nlivre = "Jude" Then<br />
recherche = nlivre & " " & verset & " "<br />
End If<br />
aouvrir = App.Path & "\modules\Diaglott\Diaglott.txt"<br />
lfile = FreeFile<br />
frmBible.txtPassage.Text = ""<br />
Do<br />
Open aouvrir For Input As #lfile<br />
On Error GoTo erreur:<br />
Line Input #lfile, ligne<br />
If Mid(ligne, 1, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
Do<br />
Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
erreur:<br />
Close<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, "1:") 0 Or _<br />
InStr(1, ligne, "2:") 0 Or _<br />
InStr(1, ligne, "3:") 0 Or _<br />
InStr(1, ligne, "4:") 0 Or _<br />
InStr(1, ligne, "5:") 0 Or _<br />
InStr(1, ligne, "6:") 0 Or _<br />
InStr(1, ligne, "7:") 0 Or _<br />
InStr(1, ligne, "8:") 0 Or _<br />
InStr(1, ligne, "9:") 0 Or _<br />
InStr(1, ligne, "Jude") 0 Then<br />
Exit Do<br />
Else<br />
frmBible.txtPassage.Text = frmBible.txtPassage.Text & " " & ligne<br />
End If<br />
frmBible.txtPassage.FontSize = 12<br />
frmBible.txtPassage.Font = "Times"<br />
frmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
frmBible.Caption = "The Emphatic Diaglott, Benjamin Wilson [1942]"<br />
End Function
fctDicoNomsCommunsetPropres - 1<br />
Public Function DicoNomsCommunsetPropres(mot) As String<br />
Dim diconc$, diconp$<br />
Dim ofile<br />
Dim texte$<br />
Dim result$, recherche$<br />
diconc = App.Path & "modules\dictionnaires\dicosfr\diconc.txt"<br />
diconp = App.Path & "modules\dictionnaires\dicosfr\diconp.txt"<br />
lfile = FreeFile<br />
result = ""<br />
recherche = mot & " /"<br />
Open diconc For Input As #lfile<br />
o<br />
Input #lfile, texte<br />
If Mid(texte, 1, Len(recherche)) = recherche Then<br />
End If<br />
result = texte<br />
oop While Not EOF(lfile)<br />
sgBox result<br />
nd Function
fctDoubleCliqueMP - 1<br />
Public Function DoubleCliqueMP(mot, livre)<br />
Dim Resultat As Variant, motadeflechir$, msg, motdeflechi$, enlever, enleverg, mott$, motr$, i As I<br />
nteger, ligne2$, code$, origine$, ssdebut$, msg2%, chercher$, nouveau$, un%, deux%, trois%<br />
Dim action, textes$, nombre%, thayer$, motorginal$<br />
motoriginal = mot<br />
' NEG+<br />
If frmBible.cboVersion.Text = "NEG+" Or frmBible.cboVersion.Text = "LSG+" Then<br />
Call LireStrongNEG(mot)<br />
Exit Function<br />
End If<br />
' Texte Massorétique<br />
If frmBible.cboVersion.Text = "TM" Then<br />
Load frmDicoHebreu<br />
valinstr = InStr(1, mot, "-", vbTextCompare)<br />
If valinstr 0 Then mot = Mid(mot, 1, valinstr - 1)<br />
If Right(mot, 1) = "w" Then mot = Mid(mot, 1, Len(mot) - 1) ' très très peu de mots hébreux com<br />
mençent par vav, voir DHAB, p.106<br />
frmDicoHebreu.Show<br />
frmDicoHebreu.txtHebreu.Text = mot<br />
Exit Function<br />
End If<br />
'--------------------------------------------------------------------------------------<br />
'NA-26<br />
If frmBible.cboVersion.Text = "NA26+" Then<br />
Load frmLexiqueNT<br />
frmLexiqueNT.txtGrec.Text = mot<br />
frmLexiqueNT.Show<br />
frmLexiqueNT.MousePointer = 11 ' ici commence la recherche<br />
If Right(mot, 1) = "j" Then<br />
mot = Mid(mot, 1, Len(mot) - 1) & "s"<br />
End If<br />
mot = UCase(mot)<br />
Call LexiqueNT_Morph(mot)<br />
frmLexiqueNT.MousePointer = 0 ' là se termine la recherche<br />
motr = frmLexiqueNT.txtVientde.Text<br />
If motr "" Then<br />
Call DefinirGrec(motr, mott)<br />
Else<br />
mott = "Pas de définition"<br />
End If<br />
frmLexiqueNT.txtFrancais.Text = mott<br />
Exit Function<br />
End If<br />
'--------------------------------------------------------------------------------------<br />
'Versions anglaises<br />
If frmBible.cboVersion.Text = "ASV" Or _<br />
frmBible.cboVersion.Text = "KJV" Or _<br />
frmBible.cboVersion.Text = "YLT" Or _<br />
frmBible.cboVersion.Text = "WEB" Or _<br />
frmBible.cboVersion.Text = "BBE" Or _<br />
frmBible.cboVersion.Text = "JPS" Or _<br />
frmBible.cboVersion.Text = "DR" Or _<br />
frmBible.cboVersion.Text = "NET" Or _<br />
frmBible.cboVersion.Text = "NET" Or _<br />
frmBible.cboVersion.Text = "DIAGLOTT" Or _<br />
frmBible.cboVersion.Text = "APF-E" Or _<br />
frmBible.cboVersion.Text = "Lightfoot" Or _<br />
frmBible.cboVersion.Text = "ANF" Or _<br />
frmBible.cboVersion.Text = "WBST" Then<br />
Load frmDictionnaires<br />
frmDictionnaires.txtRecherche = mot<br />
frmDictionnaires.optEaston.Value = True<br />
frmDictionnaires.btnRechercher_Click<br />
frmDictionnaires.Show<br />
Exit Function<br />
End If
fctDoubleCliqueMP - 2<br />
' SEPTANTE<br />
'If frmBible.cboVersion.Text = "Septante" Then<br />
'Call AnalyseSeptante(mot)<br />
'Exit Function<br />
'End If<br />
'WH & STRONG<br />
If frmBible.cboVersion.Text = "W/H & Strong" Then<br />
Call AnalyseWHStrong(mot)<br />
Exit Function<br />
End If<br />
' SEPTANTE<br />
'optspecialise = True<br />
'If optspecialise = True Then<br />
'Call DoubleCliqueSeptante<br />
'Exit Function<br />
'End If<br />
' OPTIONS INTERNET<br />
If frmBible.cboVersion.Text "Vulgate" Then<br />
mot = Replace(mot, "\", "")<br />
mot = Replace(mot, "c", "x")<br />
mot = Replace(mot, "j", "s")<br />
mot = Replace(mot, "/", "")<br />
mot = Replace(mot, ")", "")<br />
mot = Replace(mot, "(", "")<br />
mot = Replace(mot, "|", "")<br />
mot = Replace(mot, "=", "")<br />
mot = Replace(mot, ".", "")<br />
mot = Replace(mot, ";", "")<br />
mot = Replace(mot, "$", "")<br />
mot = Replace(mot, ":", "")<br />
langue = "latin"<br />
'frmBrowser.cboAddress.Text = "http://www.unboundbible.org/greek_search/index.cfm?RequestTimeout=50<br />
0&fuseaction=list&lang=French&word=" & mot<br />
End If<br />
erreur:<br />
Exit Function<br />
End Function
fctDoubleCliqueSeptante - 1<br />
Public Function DoubleCliqueSeptante()<br />
Dim lfile As Long 'Lecture<br />
Dim ofile As String 'Fichier à ouvrir<br />
Dim ofile2 As String, LFile2 As Long<br />
Dim OFile3 As String, LFile3 As Long<br />
ofile = App.Path & "\tools\greeknt.txt"<br />
ofile2 = App.Path & "\tools\analysemorpho.txt"<br />
OFile3 = App.Path & "\tools\packard.txt"<br />
lfile = FreeFile<br />
LFile2 = FreeFile + 1<br />
LFile3 = FreeFile + 2<br />
Dim erreur<br />
mot = UCase(mot) ' mise en majuscules, selon le format adéquat<br />
'MsgBox mot<br />
If Right(mot, 1) = "J" Then ' pb du s final<br />
mot = Mid(mot, 1, Len(mot) - 1) + "S"<br />
End If<br />
'MsgBox mot, , "mot à chercher dans greeknt"<br />
' trouvons le mot double-cliqué dans le fichier greeknt<br />
' ouverture du fichier greeknt, où se trouve le mot, son code et son origine<br />
Open ofile For Input As #lfile<br />
Do 'début de boucle<br />
Input #lfile, ligne<br />
If Mid(ligne, 1, Len(mot)) = mot Then<br />
Open ofile2 For Output As #LFile2<br />
Write #LFile2, ligne<br />
Close #LFile2<br />
'frmParse.txtanalyse.Caption = frmParse.txtanalyse.Caption & vbCrLf & ligne<br />
End If<br />
Loop Until EOF(lfile)<br />
Close #lfile<br />
Open ofile2 For Input As #LFile2<br />
nput #LFile2, ligne<br />
lose #LFile2<br />
MsgBox ligne, , "ligne"<br />
>> j'ai ma ligne qui a en elle l'analyse précise du mot<br />
je dois décortiquer cette ligne<br />
à tout hasard, je la mets dans un tampon<br />
rmBible.lbltampon.Text = ligne<br />
la ligne est composée comme suit:<br />
MOTFLECHIMOTORIGINE<br />
j'appelle ma fonction pour me donner le CODE et le MOTORIGINE<br />
all ExtraireCode(mot, ligne, code, origine, chercher)<br />
MsgBox mot, , "mot"<br />
MsgBox ligne, , "ligne"<br />
MsgBox code, , "code"<br />
MsgBox origine, , "origine"<br />
MsgBox chercher, , "chercher"<br />
maintenant que je l'ai, je consulte le fichier packard pour décrypter mon code<br />
Open OFile3 For Input As #LFile3<br />
o<br />
nput #LFile3, nouveau<br />
If nouveau = chercher Then<br />
Do<br />
Input #LFile3, nouveau<br />
Open ofile2 For Append As #LFile2<br />
Write #LFile2, nouveau<br />
Close #LFile2<br />
Loop Until nouveau = "" Or nouveau = vbCrLf<br />
'Else<br />
' Open OFile2 For Output As #LFile2<br />
' Write #LFile2, mot & vbCrLf & origine & "Pas d'analyse"<br />
' Close #LFile2<br />
End If<br />
sg2 = InStr(1, nouveau, chercher, vbTextCompare)<br />
oop Until EOF(LFile3)
fctDoubleCliqueSeptante - 2<br />
Close #LFile3<br />
msg = ""<br />
'On Error GoTo erreur:<br />
Open ofile2 For Input As #LFile2<br />
Do<br />
Input #LFile2, ligne<br />
'frmParse.txtanalyse.Caption = frmParse.txtanalyse.Caption & ligne & vbCrLf<br />
msg = msg & ligne & vbCrLf<br />
Loop While Not ligne = ""<br />
Close #LFile2<br />
mot = Trim(frmBible.txtPassage.SelText)<br />
If Right(mot, 1) = "." Then<br />
mot = Mid(mot, 1, Len(mot) - 1)<br />
End If<br />
If Right(mot, 1) = "s" Then<br />
mot = Mid(mot, 1, Len(mot) - 1) + "j"<br />
frmParse.lblmot.Caption = mot<br />
End If<br />
Load frmParse<br />
frmParse.Show<br />
frmParse.lblmot = LCase(mot)<br />
If Right(origine, 1) = "S" Then<br />
origine = Mid(origine, 1, Len(origine) - 1) + "J"<br />
End If<br />
frmParse.lblorigine = LCase(origine)<br />
frmParse.txtAnalyse.Caption = msg<br />
'
fcteCatena - 1<br />
Public Function eCatena(livre, chapitre)<br />
'http://www.earlychristianwritings.com/e-catena/<br />
If livre = "Matthieu" Then<br />
nlivre = "Matthew"<br />
ElseIf livre = "Marc" Then<br />
nlivre = "Mark"<br />
ElseIf livre = "Luc" Then<br />
nlivre = "Luke"<br />
ElseIf livre = "Jean" Then<br />
nlivre = "John"<br />
ElseIf livre = "Actes" Then<br />
nlivre = "Acts"<br />
ElseIf livre = "Romains" Then<br />
nlivre = "Romans"<br />
ElseIf livre = "1 Corinthiens" Then<br />
nlivre = "1Corinthians"<br />
ElseIf livre = "2 Corinthiens" Then<br />
nlivre = "2Corinthians"<br />
ElseIf livre = "Galates" Then<br />
nlivre = "Galatians"<br />
ElseIf livre = "Ephésiens" Then<br />
nlivre = "Ephesians"<br />
ElseIf livre = "Philippiens" Then<br />
nlivre = "Phillippians"<br />
ElseIf livre = "Colossiens" Then<br />
nlivre = "Colossians"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
nlivre = "1Thessalonians"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
nlivre = "2Thessalonians"<br />
ElseIf livre = "1 Timothée" Then<br />
nlivre = "1Timothy"<br />
ElseIf livre = "2 Timothée" Then<br />
nlivre = "2Timothy"<br />
ElseIf livre = "Tite" Then<br />
nlivre = "Titus"<br />
ElseIf livre = "Philémon" Then<br />
nlivre = "Philemon"<br />
ElseIf livre = "Hébreux" Then<br />
nlivre = "Hebrews"<br />
ElseIf livre = "Jacques" Then<br />
nlivre = "James"<br />
ElseIf livre = "1 Pierre" Then<br />
nlivre = "1Peter"<br />
ElseIf livre = "2 Pierre" Then<br />
nlivre = "2Peter"<br />
ElseIf livre = "1 Jean" Then<br />
nlivre = "1John"<br />
ElseIf livre = "2 Jean" Then<br />
nlivre = "2John"<br />
ElseIf livre = "3 Jean" Then<br />
nlivre = "3john"<br />
ElseIf livre = "Jude" Then<br />
nlivre = "Jude"<br />
ElseIf livre = "Révélation" Then<br />
nlivre = "Revelation"<br />
End If<br />
nlivre = LCase(nlivre)<br />
frmBrowser.cboAddress.Text = "http://www.earlychristianwritings.com/e-catena/" & nlivre & chapitre<br />
& ".html"<br />
End Function
fctEpurerLSG - 1<br />
Public Function EpurerLSG(recherche)<br />
Dim lfile As String<br />
Dim texte As String<br />
Dim ligne As String<br />
Dim ofile, finligne<br />
' affectation variables<br />
lfile = App.Path & "\tools\corrigerneg.txt"<br />
texte = frmBible.txtPassage<br />
' on enlève la ponctuation dans le verset pour ne pas s'emmêler les pinceaux<br />
'texte = Replace(texte, ",", "")<br />
'texte = Replace(texte, ".", "")<br />
'texte = Replace(texte, ";", "")<br />
'texte = Replace(texte, "!", "")<br />
'texte = Replace(texte, "'", "")<br />
'on commence par la chaîne la plus longue<br />
'* ceci enlève le code de l'analyse du TEMPS du verbe et le met sur une ligne, tout seul<br />
' on remplace " (" par des retours charriot<br />
' on remplace ") " par des retours charriot<br />
' on remplace "> " par des retours charriot<br />
texte = Replace(texte, "(", " " & vbCrLf)<br />
texte = Replace(texte, ")", " " & vbCrLf)<br />
texte = Replace(texte, "> ", ">" & vbCrLf)<br />
texte = Replace(texte, ", ", "," & vbCrLf)<br />
ofile = FreeFile<br />
Open lfile For Output As #ofile<br />
rint #ofile, texte<br />
lose<br />
rmBible.txtPassage.Text = ""<br />
le texte corrigeneg est maintenant prêt à être relu en tenant<br />
compte des < qui détermine le début du chiffre<br />
le but du jeu est de lire ce qu'il y avant<br />
file = FreeFile<br />
Open lfile For Input As #ofile<br />
o<br />
Line Input #ofile, ligne<br />
If InStr(1, ligne, "
fctEpurerNEG - 1<br />
Public Sub EpurerNEG(recherche)<br />
Dim lfile As String<br />
Dim texte As String<br />
Dim ligne As String<br />
Dim ofile, finligne<br />
' affectation variables<br />
lfile = App.Path & "\tools\corrigerneg.txt"<br />
texte = frmBible.txtPassage<br />
' on enlève la ponctuation dans le verset pour ne pas s'emmêler les pinceaux<br />
'texte = Replace(texte, ",", "")<br />
'texte = Replace(texte, ".", "")<br />
'texte = Replace(texte, ";", "")<br />
'texte = Replace(texte, "!", "")<br />
'texte = Replace(texte, "'", "")<br />
'on commence par la chaîne la plus longue<br />
'* ceci enlève le code de l'analyse du TEMPS du verbe et le met sur une ligne, tout seul<br />
' on remplace " (" par des retours charriot<br />
' on remplace ") " par des retours charriot<br />
' on remplace "> " par des retours charriot<br />
texte = Replace(texte, "(", " " & vbCrLf)<br />
texte = Replace(texte, ")", " " & vbCrLf)<br />
texte = Replace(texte, "> ", ">" & vbCrLf)<br />
texte = Replace(texte, ", ", "," & vbCrLf)<br />
ofile = FreeFile<br />
Open lfile For Output As #ofile<br />
rint #ofile, texte<br />
lose<br />
rmBible.txtPassage.Text = ""<br />
le texte corrigeneg est maintenant prêt à être relu en tenant<br />
compte des < qui détermine le début du chiffre<br />
le but du jeu est de lire ce qu'il y avant<br />
file = FreeFile<br />
Open lfile For Input As #ofile<br />
o<br />
Line Input #ofile, ligne<br />
If InStr(1, ligne, "
fctExtraireCode - 1<br />
Public Function ExtraireCode(mot, ligne, code, origine, chercher) As String<br />
Dim i%, avantcode$, ssdebut$<br />
'j'enlève le début<br />
ssdebut = Mid(ligne, Len(mot) + 2, Len(ligne))<br />
'
fctExtraireNumeroNote - 1<br />
Public Function ExtraireNumeroNote(mot, livre)<br />
Dim debut%, chiffre%, fichiernote$, texte$, recherche$<br />
Dim premierenote$, fin$, notesuite, longueur, finnote<br />
Dim lfile<br />
lfile = FreeFile<br />
fichiernote = App.Path & "\modules\DF\notes" + livre + ".rtf"<br />
debut = InStr(1, mot, "
fctFrancaisGrec - 1<br />
Public Function FrancaisGrec(recherche)<br />
End Function
fctFrancaisHebreu - 1<br />
Public Function FrancaisHebreu(recherche)<br />
' Déclarations<br />
Dim lexique$, lfile%<br />
Dim rech1%, rech2%, rech3%, motdeflechi$, analyse$<br />
Dim partiehebreu$, partieprononciation$, partiefrancais$, partienote$<br />
Dim trouve<br />
' Affactations<br />
lexique = App.Path & "\tools\lexiqueheb.dic"<br />
lfile = FreeFile<br />
' Consultation du lexique<br />
Open lexique For Input As #lfile<br />
Do<br />
On Error GoTo err:<br />
Input #lfile, ligne<br />
eue<br />
' cela sert à la fois à la recherche sans la casse,<br />
' et à la répartition du résultat dans les différents<br />
' champs de la feuille DicoHebreu à partir du txtNotes<br />
' sachant que l'hébreu début la ligne et se termine à 1/<br />
' où commence la prononciation<br />
rech1 = InStr(1, ligne, "1/", vbTextCompare)<br />
partiehebreu = Mid(ligne, 1, rech1 - 1)<br />
'analyse = MsgBox(partiehebreu, , "Mot hébreu")<br />
' notes<br />
rech3 = InStr(1, ligne, "3/", vbTextCompare)<br />
' français<br />
rech2 = InStr(1, ligne, "2/", vbTextCompare)<br />
partiefrancais = Mid(ligne, rech2 + 2, rech3 - (rech2 + 2))<br />
'analyse = MsgBox(partiefrancais, , "Mot français")<br />
If frmDicoHebreu.chkCase.Value = 0 Then ' "Respecter la casse" n'est pas cochée<br />
' je me lance à la recherche d'une partie de la chaîne<br />
Do<br />
' cela concerne la première ligne !<br />
'If InStr(1, partiehebreu, recherche, vbTextCompare) 0 Then<br />
'fmDicoHebreu.txtNotes.Text = ligne<br />
'Exit Do<br />
'End If<br />
' pour le reste...<br />
Input #lfile, ligne<br />
partiefrancais = Mid(ligne, rech2 + 2, rech3 - (rech2 + 2))<br />
' ********<br />
If InStr(1, partiefrancais, recherche, vbTextCompare) 0 Then<br />
' j'ai trouvé une partie de la recherche dans la partie héb<br />
frmDicoHebreu.txtNotes.Text = ligne<br />
GoTo trouve<br />
Exit Do<br />
Else<br />
' je n'ai pas trouvé, même une partie<br />
frmDicoHebreu.txtNotes.Text = "Pas de résultat !"<br />
End If<br />
Loop Until EOF(lfile)<br />
ElseIf frmDicoHebreu.chkCase.Value = 1 Then ' il faut chercher le mot EXACT<br />
If Mid(ligne, rech2 + 2, Len(recherche) + 1) = recherche & "3" Then<br />
frmDicoHebreu.txtNotes.Text = ligne<br />
Exit Do<br />
Else<br />
frmDicoHebreu.txtNotes.Text = "Pas de résultat !"<br />
End If
fctFrancaisHebreu - 2<br />
End If<br />
Loop While Not EOF(lfile)<br />
err:<br />
Close<br />
' Le résultat de la recherche est stocké dans txtNotes.text<br />
' pour commodité, on le restocke dans la variable ligne<br />
ligne = frmDicoHebreu.txtNotes.Text<br />
' J'ai trouvé mon mot hébreu, j'affecte les résultats dans les champs<br />
If ligne "Pas de résultat !" Then<br />
frmDicoHebreu.txtPrononciation.Text = Mid(ligne, rech1 + 2, rech2 - (rech1 + 2))<br />
frmDicoHebreu.txtFrancais.Text = Mid(ligne, rech2 + 2, rech3 - (rech2 + 2))<br />
frmDicoHebreu.txtFrancais.Text = Replace(frmDicoHebreu.txtFrancais.Text, "~", ",", 1)<br />
frmDicoHebreu.txtNotes.Text = Mid(ligne, rech3 + 2, Len(ligne))<br />
frmDicoHebreu.txtNotes.Text = Replace(frmDicoHebreu.txtNotes.Text, "~", ",", 1)<br />
frmDicoHebreu.txtHebreu.Text = Mid(ligne, 1, rech1 - 1)<br />
Else<br />
analyse = MsgBox("Pas de résultat pour ce terme !" & vbCrLf & "Souhaitez-vous lancer une recher<br />
che étendue ? (Ne pas respecter la casse)", vbInformation + vbYesNo, "Aucune entrée dans le lexique<br />
")<br />
If analyse = vbYes Then<br />
frmDicoHebreu.chkCase.Value = 0<br />
frmDicoHebreu.txtFrancais.Text = recherche<br />
'frmDicoHebreu.Timer1.Enabled = True<br />
'frmDicoHebreu.mnuConsultation.Checked = True<br />
'Exit Function<br />
Call FrancaisHebreu(recherche)<br />
Else<br />
frmDicoHebreu.Timer1.Enabled = False<br />
frmDicoHebreu.txtNotes.Text = ""<br />
frmDicoHebreu.txtFrancais.Text = recherche<br />
frmDicoHebreu.Timer1.Enabled = False<br />
Exit Function<br />
End If<br />
End If<br />
Exit Function<br />
trouve:<br />
ligne = frmDicoHebreu.txtNotes.Text<br />
'partiehebreu = Mid(ligne, 1, rech1 - 1)<br />
' je dois redéfinir mes rech1/2/3 car ils ont été corrompus par la recherche sans la casse<br />
rech1 = InStr(1, ligne, "1/", vbTextCompare)<br />
rech3 = InStr(1, ligne, "3/", vbTextCompare)<br />
rech2 = InStr(1, ligne, "2/", vbTextCompare)<br />
frmDicoHebreu.txtPrononciation.Text = Mid(ligne, rech1 + 2, rech2 - (rech1 + 2))<br />
frmDicoHebreu.txtFrancais.Text = Mid(ligne, rech2 + 2, rech3 - (rech2 + 2))<br />
frmDicoHebreu.txtFrancais.Text = Replace(frmDicoHebreu.txtFrancais.Text, "~", ",", 1)<br />
frmDicoHebreu.txtNotes.Text = Mid(ligne, rech3 + 2, Len(ligne))<br />
frmDicoHebreu.txtNotes.Text = Replace(frmDicoHebreu.txtNotes.Text, "~", ",", 1)<br />
frmDicoHebreu.txtHebreu.Text = Mid(ligne, 1, rech1 - 1)<br />
End Function
fctFrancaisLatin - 1<br />
Public Function FrancaisLatin(mot)<br />
Dim ofile, lfile, ligne<br />
ofile = App.Path & "\lex\fralat.raw"<br />
lfile = FreeFile<br />
recherche = ": " & mot & ","<br />
': tour,<br />
recherche2 = ", " & mot & ","<br />
frmDicoLatFr.Text2.Text = ""<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
repere = InStr(1, ligne, ":")<br />
'le mot s'y trouve exactement<br />
If InStr(1, ligne, recherche) 0 Then<br />
frmDicoLatFr.Text2.Text = Mid(ligne, 1, repere - 1)<br />
Exit Function<br />
End If<br />
'le mot peut être le deuxième sens du terme latin<br />
If InStr(1, ligne, recherche2) 0 Then<br />
frmDicoLatFr.Text2.Text = frmDicoLatFr.Text2.Text & ligne & vbCrLf<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
nd Function
fctGrammaireAbel - 1<br />
Public Sub GrammaireAbel(recherche)<br />
If recherche = "nominatif" Then<br />
recherche = "98"<br />
ElseIf recherche = "vocatif" Then<br />
recherche = "98"<br />
ElseIf recherche = "accusatif" Then<br />
recherche = "100"<br />
ElseIf recherche = "datif" Then<br />
recherche = "132"<br />
ElseIf recherche = "génitif" Then<br />
recherche = "103"<br />
ElseIf recherche = "première déclinaison" Then<br />
recherche = "32"<br />
ElseIf recherche = "deuxième déclinaison" Then<br />
recherche = "33"<br />
ElseIf recherche = "troisième déclinaison" Then<br />
recherche = "35"<br />
ElseIf recherche = "nom propre" Then<br />
recherche = "38"<br />
ElseIf recherche = "adjectif" Then<br />
recherche = "40"<br />
ElseIf recherche = "adverbe" Then<br />
recherche = "40"<br />
ElseIf InStr(1, recherche, "comparaison") 0 Then<br />
recherche = "41"<br />
ElseIf InStr(1, recherche, "nombre") 0 Then<br />
recherche = "42"<br />
ElseIf InStr(1, recherche, "pronom") 0 Then<br />
recherche = "43"<br />
ElseIf InStr(1, recherche, "verbe") 0 Then<br />
recherche = "45"<br />
ElseIf InStr(1, recherche, "augment") 0 Then<br />
recherche = "45"<br />
ElseIf InStr(1, recherche, "redoublement") 0 Then<br />
recherche = "45"<br />
ElseIf recherche = "aoriste second" Then<br />
recherche = "59"<br />
ElseIf recherche = "aoriste premier" Then<br />
recherche = "61"<br />
ElseIf recherche = "futur" Then<br />
recherche = "145"<br />
ElseIf recherche = "parfait" Then<br />
recherche = "144"<br />
ElseIf recherche = "présent" Then<br />
recherche = "141"<br />
ElseIf recherche = "imparfait" Then<br />
recherche = "142"<br />
ElseIf recherche = "aoriste" Then<br />
recherche = "143"<br />
ElseIf InStr(1, recherche, "plus") 0 And InStr(1, recherche, "parfait") 0 Then<br />
recherche = "145"<br />
ElseIf InStr(1, recherche, "conjugaison") 0 And InStr(1, recherche, "périphrastique") 0 Then<br />
recherche = "149"<br />
ElseIf InStr(1, recherche, "proposition") 0 And InStr(1, recherche, "complétive") 0 Then<br />
recherche = "154"<br />
ElseIf InStr(1, recherche, "proposition") 0 And InStr(1, recherche, "subordonnée") 0 Then<br />
recherche = "154"<br />
ElseIf InStr(1, recherche, "proposition") 0 And InStr(1, recherche, "interrogative") 0 Then<br />
recherche = "156"<br />
ElseIf InStr(1, recherche, "proposition") 0 And InStr(1, recherche, "finale") 0 Then<br />
recherche = "159"<br />
ElseIf InStr(1, recherche, "proposition") 0 And InStr(1, conditionnelle, "interrogative") 0 T<br />
hen<br />
recherche = "159"<br />
ElseIf InStr(1, recherche, "proposition") 0 And InStr(1, recherche, "relative") 0 Then<br />
recherche = "161"<br />
ElseIf InStr(1, recherche, "proposition") 0 And InStr(1, recherche, "adverbiale") 0 Or InStr(<br />
1, recherche, "circonstancielle") 0 Then<br />
recherche = "163"
fctGrammaireAbel - 2<br />
ElseIf InStr(1, recherche, "irrégulier") 0 Then<br />
recherche = "65"<br />
ElseIf recherche = "article" Then<br />
recherche = "75"<br />
ElseIf InStr(1, recherche, "article") 0 And InStr(1, recherche, "omission") 0 Then<br />
recherche = "78"<br />
ElseIf recherche = "pronom" Then<br />
recherche = "81"<br />
ElseIf recherche = "pronom personnel" Then<br />
recherche = "81"<br />
ElseIf recherche = "pronom réfléchi" Then<br />
recherche = "81"<br />
ElseIf recherche = "pronom démonstratif" Then<br />
recherche = "85"<br />
ElseIf recherche = "pronom relatif" Then<br />
recherche = "86"<br />
ElseIf recherche = "pronom interrogatif" Then<br />
recherche = "86"<br />
ElseIf recherche = "pronom indéfini" Then<br />
recherche = "88"<br />
ElseIf InStr(1, recherche, "degré") 0 Or InStr(1, recherche, "comparaison") 0 Then<br />
recherche = "90"<br />
ElseIf recherche = "préposition" Then<br />
recherche = "98"<br />
ElseIf recherche = "actif" Then<br />
recherche = "137"<br />
ElseIf recherche = "moyen" Then<br />
recherche = "138"<br />
ElseIf recherche = "passif" Then<br />
recherche = "139"<br />
ElseIf recherche = "indicatif" Then<br />
recherche = "150"<br />
ElseIf recherche = "subjonctif" Then<br />
recherche = "151"<br />
ElseIf recherche = "impératif" Then<br />
recherche = "152"<br />
ElseIf recherche = "optatif" Then<br />
recherche = "153"<br />
ElseIf recherche = "infinitif" Then<br />
recherche = "166"<br />
ElseIf recherche = "participe" Then<br />
recherche = "176"<br />
ElseIf recherche = "particule" Then<br />
recherche = "181"<br />
ElseIf InStr(1, recherche, "négation") 0 Then<br />
recherche = "137"<br />
ElseIf recherche = "adverbe" Then<br />
recherche = "184"<br />
ElseIf recherche = "conjonction" Then<br />
recherche = "185"<br />
ElseIf InStr(1, recherche, "coordination") 0 Then<br />
recherche = "186"<br />
ElseIf InStr(1, recherche, "subordination") 0 Then<br />
recherche = "190"<br />
ElseIf InStr(1, recherche, "style") 0 Then<br />
recherche = "194"<br />
ElseIf InStr(1, recherche, "ordre") 0 And InStr(1, recherche, "mot") 0 Then<br />
recherche = "196"<br />
ElseIf recherche = "rhétorique" Then<br />
recherche = "199"<br />
ElseIf recherche = "koinê" Then<br />
recherche = "9"<br />
ElseIf recherche = "esprit rude" Then<br />
recherche = "29"<br />
ElseIf recherche = "sémitique" Then<br />
recherche = "30"<br />
Else<br />
recherche = ""<br />
End If<br />
End Sub
fctGrammaireBoxus - 1<br />
Public Sub GrammaireBoxus(recherche)<br />
If recherche = "nominatif" Then<br />
recherche = "435"<br />
ElseIf recherche = "vocatif" Then<br />
recherche = "436"<br />
ElseIf recherche = "accusatif" Then<br />
recherche = "226"<br />
ElseIf recherche = "datif" Then<br />
recherche = "449"<br />
ElseIf recherche = "génitif" Then<br />
recherche = "437"<br />
ElseIf recherche = "indicatif" Then<br />
recherche = "140"<br />
ElseIf recherche = "subjonctif" Then<br />
recherche = "180"<br />
ElseIf recherche = "impératif" Then<br />
recherche = "190"<br />
ElseIf recherche = "optatif" Then<br />
recherche = "185"<br />
ElseIf recherche = "infinitif" Then<br />
recherche = "195"<br />
ElseIf recherche = "participe" Then<br />
recherche = "201"<br />
ElseIf recherche = "adjectif verbal" Then<br />
recherche = "494"<br />
ElseIf recherche = "présent" Then<br />
recherche = "142"<br />
ElseIf recherche = "imparfait" Then<br />
recherche = "146"<br />
ElseIf recherche = "futur" Then<br />
recherche = "149"<br />
ElseIf recherche = "aoriste" Then<br />
recherche = "153"<br />
ElseIf recherche = "parfait" Then<br />
recherche = "162"<br />
ElseIf recherche = "plus que parfait" Then<br />
recherche = "167"<br />
ElseIf recherche = "futur du parfait" Then<br />
recherche = "173"<br />
ElseIf InStr(1, recherche, "futur") 0 And InStr(1, recherche, "parfait") 0 Then<br />
recherche = "173"<br />
Else<br />
recherche = ""<br />
End If<br />
End Sub
fctGrammaireBurnouf - 1<br />
Public Sub GrammaireBurnouf(recherche)<br />
If recherche = "nominatif" Then<br />
recherche = "243"<br />
ElseIf recherche = "vocatif" Then<br />
recherche = "248"<br />
ElseIf recherche = "accusatif" Then<br />
recherche = "247"<br />
ElseIf recherche = "datif" Then<br />
recherche = "246"<br />
ElseIf recherche = "génitif" Then<br />
recherche = "246"<br />
ElseIf recherche = "indicatif" Then<br />
recherche = ""<br />
ElseIf recherche = "subjonctif" Then<br />
recherche = "90"<br />
ElseIf recherche = "impératif" Then<br />
recherche = ""<br />
ElseIf recherche = "optatif" Then<br />
recherche = "90"<br />
ElseIf recherche = "infinitif" Then<br />
recherche = "90"<br />
ElseIf recherche = "participe" Then<br />
recherche = "77"<br />
ElseIf recherche = "préposition" Then<br />
recherche = ""<br />
ElseIf recherche = "singulier" Then<br />
recherche = "74"<br />
ElseIf recherche = "pluriel" Then<br />
recherche = "74"<br />
ElseIf recherche = "pronom" Then<br />
recherche = "69"<br />
ElseIf recherche = "article" Then<br />
recherche = "34"<br />
ElseIf recherche = "adjectif" Then<br />
recherche = "54"<br />
ElseIf recherche = "adjectif numéral" Then<br />
recherche = "63"<br />
ElseIf recherche = "adjectif démonstratif" Then<br />
recherche = "65"<br />
ElseIf recherche = "actif" Then<br />
recherche = "76"<br />
ElseIf recherche = "moyen" Then<br />
recherche = "101"<br />
ElseIf recherche = "passif" Then<br />
recherche = "76"<br />
ElseIf recherche = "présent" Then<br />
recherche = ""<br />
ElseIf recherche = "aoriste" Then<br />
recherche = ""<br />
ElseIf recherche = "futur" Then<br />
recherche = ""<br />
ElseIf recherche = "plus que parfait" Then<br />
recherche = ""<br />
ElseIf recherche = "imparfait" Then<br />
recherche = ""<br />
ElseIf recherche = "parfait" Then<br />
recherche = ""<br />
ElseIf recherche = "verbe" Then<br />
recherche = "73"<br />
ElseIf recherche = "nom" Then<br />
recherche = "35"<br />
ElseIf recherche = "verbe" Then<br />
recherche = "73"<br />
ElseIf recherche = "verbe" Then<br />
recherche = "73"<br />
ElseIf recherche = "verbe" Then<br />
recherche = "73"<br />
ElseIf recherche = "verbe" Then
fctGrammaireBurnouf - 2<br />
recherche = "73"<br />
Else<br />
recherche = ""<br />
End If<br />
End Sub
fctGrammaireBurton - 1<br />
Public Function GrammaireBurton(recherche)<br />
If InStr(1, recherche, "indicatif") 0 And InStr(1, recherche, "présent") 0 Then<br />
recherche = "20"<br />
ElseIf InStr(1, recherche, "participe") 0 And InStr(1, recherche, "présent") 0 Then<br />
recherche = "73"<br />
ElseIf InStr(1, recherche, "participe") 0 And InStr(1, recherche, "aoriste") 0 Then<br />
recherche = "80"<br />
ElseIf InStr(1, recherche, "participe") 0 And InStr(1, recherche, "futur") 0 Then<br />
recherche = "93"<br />
ElseIf InStr(1, recherche, "participe") 0 And InStr(1, recherche, "parfait") 0 Then<br />
recherche = "95"<br />
ElseIf InStr(1, recherche, "négation") 0 And InStr(1, recherche, "verbe") 0 Then<br />
recherche = "165"<br />
ElseIf recherche = "indicatif" Then<br />
recherche = "98"<br />
ElseIf recherche = "subjonctif" Then<br />
recherche = "101"<br />
ElseIf recherche = "impératif" Then<br />
recherche = "110"<br />
ElseIf recherche = "optatif" Then<br />
recherche = "107"<br />
ElseIf recherche = "infinitif" Then<br />
recherche = "208"<br />
ElseIf recherche = "participe" Then<br />
recherche = "185"<br />
ElseIf recherche = "actif" Then<br />
recherche = "76"<br />
ElseIf recherche = "moyen" Then<br />
recherche = "101"<br />
ElseIf recherche = "passif" Then<br />
recherche = "76"<br />
ElseIf recherche = "présent" Then<br />
recherche = "20"<br />
ElseIf recherche = "aoriste" Then<br />
recherche = "29"<br />
ElseIf recherche = "futur" Then<br />
recherche = "45"<br />
ElseIf recherche = "plus que parfait" Then<br />
recherche = "60"<br />
ElseIf recherche = "imparfait" Then<br />
recherche = "23"<br />
ElseIf recherche = "parfait" Then<br />
recherche = "52"<br />
Else<br />
recherche = ""<br />
End If<br />
End Function
fctGrammaireConybeare - 1<br />
Public Function GrammaireConybeare(recherche)<br />
If InStr(1, recherche, "nominatif") 0 And InStr(1, recherche, "vocatif") 0 Then<br />
recherche = "48"<br />
ElseIf recherche = "nominatif" Then<br />
recherche = "49"<br />
ElseIf recherche = "vocatif" Then<br />
recherche = "49"<br />
ElseIf recherche = "accusatif" Then<br />
recherche = "16"<br />
ElseIf recherche = "datif" Then<br />
recherche = "52"<br />
ElseIf recherche = "génitif" Then<br />
recherche = "51"<br />
ElseIf recherche = "optatif" Then<br />
recherche = "63"<br />
ElseIf recherche = "participe" Then<br />
recherche = "57"<br />
ElseIf recherche = "moyen" Then<br />
recherche = "65"<br />
ElseIf recherche = "passif" Then<br />
recherche = "65"<br />
'TYPES DE MOTS<br />
ElseIf recherche = "nom" Then<br />
recherche = "25"<br />
ElseIf recherche = "adjectif" Then<br />
recherche = "54"<br />
ElseIf recherche = "nom" Then<br />
recherche = "56"<br />
ElseIf recherche = "préposition" Then<br />
recherche = "59"<br />
ElseIf recherche = "verbe" Then<br />
recherche = "59"<br />
ElseIf recherche = "article" Then<br />
recherche = "46"<br />
ElseIf recherche = "masculin" Or recherche = "féminin" Then<br />
recherche = "47"<br />
ElseIf recherche = "singulier" Or recherche = "pluriel" Then<br />
recherche = "48"<br />
ElseIf recherche = "conjonction" Then<br />
recherche = "76"<br />
ElseIf recherche = "présent" Then<br />
recherche = "59"<br />
ElseIf recherche = "aoriste" Then<br />
recherche = "50"<br />
ElseIf recherche = "futur" Then<br />
recherche = "59"<br />
ElseIf recherche = "plus que parfait" Then<br />
recherche = "60"<br />
ElseIf recherche = "imparfait" Then<br />
recherche = "60"<br />
ElseIf recherche = "parfait" Then<br />
recherche = "59"<br />
ElseIf InStr(1, recherche, "futur") 0 And InStr(1, recherche, "parfait") 0 Then<br />
recherche = "60"<br />
Else<br />
recherche = ""<br />
End If<br />
End Function
fctGrammaireCox - 1<br />
Public Sub GrammaireCox(recherche)<br />
If recherche = "nominatif" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=1:f<br />
orm=nom"<br />
ElseIf recherche = "vocatif" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=1:f<br />
orm=voc"<br />
ElseIf recherche = "accusatif" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=1:f<br />
orm=acc"<br />
ElseIf recherche = "datif" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=1:f<br />
orm=dat"<br />
ElseIf recherche = "génitif" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=1:f<br />
orm=gen"<br />
ElseIf recherche = "indicatif" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=4:f<br />
orm=ind"<br />
ElseIf recherche = "subjonctif" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=4:f<br />
orm=subj"<br />
ElseIf recherche = "impératif" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=4:f<br />
orm=imperat"<br />
ElseIf recherche = "optatif" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=4:f<br />
orm=opt"<br />
ElseIf recherche = "infinitif" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=4:f<br />
orm=infin"<br />
ElseIf recherche = "participe" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=4:f<br />
orm=part"<br />
ElseIf recherche = "présent" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=2:f<br />
orm=pres"<br />
ElseIf recherche = "imparfait" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=2:f<br />
orm=imperf"<br />
ElseIf recherche = "futur" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=2:f<br />
orm=fut"<br />
ElseIf recherche = "aoriste" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=2:f<br />
orm=aor"<br />
ElseIf recherche = "parfait" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=2:f<br />
orm=perf"<br />
ElseIf recherche = "plus que parfait" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=2:f<br />
orm=plup"<br />
ElseIf recherche = "futur du parfait" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=2:f<br />
orm=futperf"<br />
ElseIf InStr(1, recherche, "futur") 0 And InStr(1, recherche, "parfait") 0 Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=2:f<br />
orm=futperf"<br />
ElseIf recherche = "actif" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=3:f<br />
orm=act"<br />
ElseIf recherche = "moyen" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=3:f<br />
orm=mid"<br />
ElseIf recherche = "passif" Then<br />
recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=3:f<br />
orm=pass"
fctGrammaireCox - 2<br />
Else<br />
recherche = ""<br />
End If<br />
End Sub
fctGrammaireGildersleeve - 1<br />
Public Sub GrammaireGildersleeve(recherche)<br />
If recherche = "participe présent" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23276"<br />
ElseIf recherche = "participe aoriste" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23286"<br />
ElseIf recherche = "participe parfait" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23295"<br />
ElseIf InStr(1, recherche, "accord") 0 And InStr(1, recherche, "adjectif") 0 Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23427"<br />
ElseIf InStr(1, recherche, "position") 0 And InStr(1, recherche, "adjectif") 0 Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23441"<br />
ElseIf InStr(1, recherche, "article") 0 And InStr(1, recherche, "omission") 0 Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23529"<br />
ElseIf InStr(1, recherche, "position") 0 And InStr(1, recherche, "article") 0 Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23524"<br />
'<br />
ElseIf recherche = "article" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23448"<br />
ElseIf recherche = "nominatif pour vocatif" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%2312"<br />
ElseIf InStr(1, recherche, "nominatif") 0 And InStr(1, recherche, "vocatif") 0 Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%2312"<br />
ElseIf recherche = "nominatif" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%233"<br />
ElseIf recherche = "vocatif" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%2314"<br />
ElseIf recherche = "accusatif" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%2395"<br />
ElseIf recherche = "datif" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23424"<br />
ElseIf recherche = "génitif" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23423"<br />
ElseIf recherche = "indicatif" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23306"<br />
ElseIf recherche = "subjonctif" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23314"<br />
ElseIf recherche = "impératif" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23347"<br />
ElseIf recherche = "optatif" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23333"<br />
ElseIf recherche = "infinitif" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23267"<br />
ElseIf recherche = "participe" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23274"<br />
ElseIf recherche = "adjectif" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%2327"<br />
ElseIf recherche = "adverbe" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea
fctGrammaireGildersleeve - 2<br />
d%3D%23426"<br />
ElseIf recherche = "nom" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%2336"<br />
ElseIf recherche = "pluriel" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%2340"<br />
ElseIf InStr(1, recherche, "copule") 0 Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%2340"<br />
ElseIf recherche = "duel" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23103"<br />
'<br />
'http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=head%3D%2355<br />
'<br />
ElseIf recherche = "présent" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23163"<br />
ElseIf recherche = "imparfait" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23179"<br />
ElseIf recherche = "futur" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23225"<br />
ElseIf recherche = "aoriste" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23207"<br />
ElseIf recherche = "parfait" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23196"<br />
ElseIf recherche = "plus que parfait" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23204"<br />
ElseIf recherche = "futur du parfait" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23238"<br />
ElseIf InStr(1, recherche, "futur") 0 And InStr(1, recherche, "parfait") 0 Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23238"<br />
ElseIf recherche = "actif" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23124"<br />
ElseIf recherche = "moyen" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23130"<br />
ElseIf recherche = "passif" Then<br />
recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea<br />
d%3D%23141"<br />
'<br />
Else<br />
recherche = ""<br />
End If<br />
End Sub
fctGrammaireSmyth - 1<br />
Public Sub GrammaireSmyth(recherche)<br />
If recherche = "nominatif" Then<br />
recherche = "276"<br />
ElseIf recherche = "vocatif" Then<br />
recherche = "327"<br />
ElseIf recherche = "accusatif" Then<br />
recherche = "368"<br />
ElseIf recherche = "datif" Then<br />
recherche = "352"<br />
ElseIf recherche = "génitif" Then<br />
recherche = "328"<br />
ElseIf recherche = "indicatif" Then<br />
recherche = "415"<br />
ElseIf recherche = "subjonctif" Then<br />
recherche = "418"<br />
ElseIf recherche = "impératif" Then<br />
recherche = "424"<br />
ElseIf recherche = "optatif" Then<br />
recherche = "421"<br />
ElseIf recherche = "infinitif" Then<br />
recherche = "426"<br />
ElseIf recherche = "participe" Then<br />
recherche = ""<br />
ElseIf recherche = "préposition" Then<br />
recherche = "436"<br />
ElseIf recherche = "pronom" Then<br />
recherche = ""<br />
ElseIf recherche = "article" Then<br />
recherche = ""<br />
ElseIf recherche = "adjectif" Then<br />
recherche = ""<br />
ElseIf recherche = "actif" Then<br />
recherche = "404"<br />
ElseIf recherche = "moyen" Then<br />
recherche = "405"<br />
ElseIf recherche = "passif" Then<br />
recherche = "409"<br />
ElseIf recherche = "présent" Then<br />
recherche = "436"<br />
ElseIf recherche = "aoriste" Then<br />
recherche = "444"<br />
ElseIf recherche = "futur" Then<br />
recherche = "442"<br />
ElseIf recherche = "plus que parfait" Then<br />
recherche = "450"<br />
ElseIf recherche = "imparfait" Then<br />
recherche = "438"<br />
ElseIf recherche = "parfait" Then<br />
recherche = "449"<br />
ElseIf recherche = "verbe" Then<br />
recherche = "404"<br />
Else<br />
recherche = ""<br />
End If<br />
End Sub
fctGrammaireWallace - 1<br />
Public Sub GrammaireWallace(recherche)<br />
If recherche = "nominatif" Then<br />
recherche = "2"<br />
ElseIf recherche = "vocatif" Then<br />
recherche = "4"<br />
ElseIf recherche = "accusatif" Then<br />
recherche = "16"<br />
ElseIf recherche = "datif" Then<br />
recherche = "12"<br />
ElseIf recherche = "génitif" Then<br />
recherche = "5"<br />
ElseIf recherche = "indicatif" Then<br />
recherche = "37"<br />
ElseIf recherche = "subjonctif" Then<br />
recherche = "38"<br />
ElseIf recherche = "impératif" Then<br />
recherche = "5"<br />
ElseIf recherche = "optatif" Then<br />
recherche = "41"<br />
ElseIf recherche = "infinitif" Then<br />
recherche = "54"<br />
ElseIf recherche = "participe" Then<br />
recherche = "57"<br />
ElseIf recherche = "préposition" Then<br />
recherche = "63"<br />
ElseIf recherche = "pronom" Then<br />
recherche = "29"<br />
ElseIf recherche = "article" Then<br />
recherche = "20"<br />
ElseIf recherche = "adjectif" Then<br />
recherche = "27"<br />
ElseIf recherche = "actif" Then<br />
recherche = "32"<br />
ElseIf recherche = "moyen" Then<br />
recherche = "33"<br />
ElseIf recherche = "passif" Then<br />
recherche = "35"<br />
ElseIf recherche = "présent" Then<br />
recherche = "44"<br />
ElseIf recherche = "aoriste" Then<br />
recherche = "50"<br />
ElseIf recherche = "futur" Then<br />
recherche = "49"<br />
ElseIf recherche = "plus que parfait" Then<br />
recherche = "52"<br />
ElseIf recherche = "imparfait" Then<br />
recherche = "47"<br />
ElseIf recherche = "parfait" Then<br />
recherche = "51"<br />
Else<br />
recherche = ""<br />
End If<br />
End Sub
fctGrecFrancais - 1<br />
Public Function GrecFrancais(recherche)<br />
Dim lexique$, lfile%<br />
Dim rech1%, rech2%, analyse$<br />
Dim partiegrec$, partiefrancais$, partienote$<br />
Dim trouve<br />
' Affactations<br />
lexique = App.Path & "\tools\lexiquegr.dic"<br />
lfile = FreeFile<br />
' Consultation du lexique<br />
Open lexique For Input As #lfile<br />
Do<br />
eue<br />
Input #lfile, ligne<br />
' cela sert à la fois à la recherche sans la casse,<br />
' et à la répartition du résultat dans les différents<br />
' champs de la feuille DicoHebreu à partir du txtNotes<br />
' sachant que l'hébreu début la ligne et se termine à 1/<br />
' où commence la prononciation<br />
rech1 = InStr(1, ligne, "3/ ", vbTextCompare)<br />
'partiehebreu = Mid(ligne, 1, rech1 - 1)<br />
'analyse = MsgBox(partiehebreu, , "Mot hébreu")<br />
' notes<br />
'rech3 = InStr(1, ligne, "3/", vbTextCompare)<br />
' français<br />
'rech2 = InStr(1, ligne, "2/", vbTextCompare)<br />
'partiefrancais = Mid(ligne, rech2 + 2, rech3 - (rech2 + 2))<br />
'analyse = MsgBox(partiefrancais, , "Mot français")<br />
If frmLexiqueNT.chkCase.Value = 0 Then ' "Respecter la casse" n'est pas cochée<br />
' je me lance à la recherche d'une partie de la chaîne<br />
Do<br />
' pour le reste...<br />
Input #lfile, ligne<br />
rech1 = InStr(1, ligne, "", vbTextCompare)<br />
partiegrec = Mid(ligne, 1, rech1 - 1)<br />
If InStr(1, partiegrec, recherche, vbTextCompare) 0 Then<br />
' j'ai trouvé une partie de la recherche dans la partie héb<br />
frmLexiqueNT.txtNotes.Text = ligne<br />
GoTo trouve<br />
Exit Do<br />
Else<br />
' je n'ai pas trouvé, même une partie<br />
frmLexiqueNT.txtNotes.Text = "Pas de résultat !"<br />
End If<br />
Loop Until EOF(lfile)<br />
ElseIf frmLexiqueNT.chkCase.Value = 1 Then ' il faut chercher le mot EXACT<br />
End If<br />
oop While Not EOF(lfile)<br />
lose<br />
If Left(ligne, Len(recherche) + 2) = recherche & "" Then<br />
frmLexiqueNT.txtNotes.Text = ligne<br />
Exit Do<br />
Else<br />
frmLexiqueNT.txtNotes.Text = "Pas de résultat !"<br />
End If<br />
Le résultat de la recherche est stocké dans txtNotes.text<br />
pour commodité, on le restocke dans la variable ligne<br />
igne = frmLexiqueNT.txtNotes.Text
fctGrecFrancais - 2<br />
' J'ai trouvé mon mot grec, j'affecte les résultats dans les champs<br />
If ligne "Pas de résultat !" Then<br />
frmLexiqueNT.txtFrancais = Mid(ligne, Len(recherche) + 3, Len(ligne))<br />
rech1 = InStr(1, ligne, "", vbTextCompare)<br />
frmLexiqueNT.txtGrec.Text = Mid(ligne, 1, rech1 - 1)<br />
frmLexiqueNT.txtFrancais.Text = Replace(frmLexiqueNT.txtFrancais.Text, "~", ",", 1)<br />
frmLexiqueNT.txtNotes.Text = ""<br />
End If<br />
frmLexiqueNT.Timer1.Enabled = False<br />
Exit Function<br />
trouve:<br />
ligne = LexiqueNT.txtNotes.Text<br />
rech1 = InStr(1, ligne, " ", vbTextCompare)<br />
frmLexiqueNT.txtGrec.Text = Mid(ligne, 1, rech1 - 1)<br />
frmLexiqueNT.txtFrancais.Text = Mid(ligne, rech + 1, Len(ligne))<br />
frmLexiqueNT.txtFrancais.Text = Replace(frmLexiqueNT.txtFrancais.Text, "~", ",", 1)<br />
frmLexiqueNT.txtNotes.Text = ""<br />
End Function
fctGrenetTOBw - 1<br />
Public Function GrenetTOBw(mot)<br />
mot = Replace(mot, "/", "=")<br />
mot = Replace(mot, "Å", "")<br />
mot = Replace(mot, "v", ")")<br />
mot = Replace(mot, "V", ")")<br />
mot = Replace(mot, ",", "/")<br />
mot = Replace(mot, "~", "(")<br />
mot = Replace(mot, "_", "")<br />
mot = Replace(mot, "+", "")<br />
mot = Replace(mot, "v", "")<br />
mot = Replace(mot, "[", "(")<br />
'mot = Replace(mot, "y", "ps")<br />
mot = Replace(mot, ".", "/")<br />
mot = Replace(mot, "\", "")<br />
mot = Replace(mot, "j", "s")<br />
'mot = Replace(mot, "|", "")<br />
mot = Replace(mot, "c", "x")<br />
mot = Replace(mot, "C", "x")<br />
mot = Replace(mot, "`", "(")<br />
End Function
fctHebreuFrancais - 1<br />
Public Function HebreuFrancais(recherche)<br />
' Déclarations<br />
Dim lexique$, lfile%<br />
Dim rech1%, rech2%, rech3%, motdeflechi$, analyse$<br />
Dim partiehebreu$, partieprononciation$, partiefrancais$, partienote$<br />
Dim trouve<br />
' Affactations<br />
lexique = App.Path & "\tools\lexiqueheb.dic"<br />
lfile = FreeFile<br />
' Consultation du lexique<br />
Open lexique For Input As #lfile<br />
Do<br />
eue<br />
Input #lfile, ligne<br />
On Error GoTo erreur:<br />
' cela sert à la fois à la recherche sans la casse,<br />
' et à la répartition du résultat dans les différents<br />
' champs de la feuille DicoHebreu à partir du txtNotes<br />
' sachant que l'hébreu début la ligne et se termine à 1/<br />
' où commence la prononciation<br />
rech1 = InStr(1, ligne, "1/", vbTextCompare)<br />
partiehebreu = Mid(ligne, 1, rech1 - 1)<br />
'analyse = MsgBox(partiehebreu, , "Mot hébreu")<br />
' notes<br />
rech3 = InStr(1, ligne, "3/", vbTextCompare)<br />
' français<br />
rech2 = InStr(1, ligne, "2/", vbTextCompare)<br />
partiefrancais = Mid(ligne, rech2 + 2, rech3 - (rech2 + 2))<br />
'analyse = MsgBox(partiefrancais, , "Mot français")<br />
If frmDicoHebreu.chkCase.Value = 0 Then ' "Respecter la casse" n'est pas cochée<br />
' je me lance à la recherche d'une partie de la chaîne<br />
Do<br />
' cela concerne la première ligne !<br />
'If InStr(1, partiehebreu, recherche, vbTextCompare) 0 Then<br />
'fmDicoHebreu.txtNotes.Text = ligne<br />
'Exit Do<br />
'End If<br />
' pour le reste...<br />
Input #lfile, ligne<br />
partiehebreu = Mid(ligne, 1, rech1 + 1)<br />
If InStr(1, partiehebreu, recherche, vbTextCompare) 0 Then<br />
' j'ai trouvé une partie de la recherche dans la partie héb<br />
frmDicoHebreu.txtNotes.Text = ligne<br />
GoTo trouve<br />
Exit Do<br />
Else<br />
' je n'ai pas trouvé, même une partie<br />
frmDicoHebreu.txtNotes.Text = "Pas de résultat !"<br />
End If<br />
Loop Until EOF(lfile)<br />
ElseIf frmDicoHebreu.chkCase.Value = 1 Then ' il faut chercher le mot EXACT<br />
End If<br />
If Left(ligne, Len(recherche) + 1) = recherche & "1" Then<br />
frmDicoHebreu.txtNotes.Text = ligne<br />
Exit Do<br />
Else<br />
frmDicoHebreu.txtNotes.Text = "Pas de résultat !"<br />
End If
fctHebreuFrancais - 2<br />
Loop While Not EOF(lfile)<br />
erreur:<br />
Close<br />
' Le résultat de la recherche est stocké dans txtNotes.text<br />
' pour commodité, on le restocke dans la variable ligne<br />
ligne = frmDicoHebreu.txtNotes.Text<br />
' J'ai trouvé mon mot hébreu, j'affecte les résultats dans les champs<br />
If ligne "Pas de résultat !" Then<br />
frmDicoHebreu.txtPrononciation.Text = Mid(ligne, rech1 + 2, rech2 - (rech1 + 2))<br />
frmDicoHebreu.txtFrancais.Text = Mid(ligne, rech2 + 2, rech3 - (rech2 + 2))<br />
frmDicoHebreu.txtFrancais.Text = Replace(frmDicoHebreu.txtFrancais.Text, "~", ",", 1)<br />
frmDicoHebreu.txtNotes.Text = Mid(ligne, rech3 + 2, Len(ligne))<br />
frmDicoHebreu.txtNotes.Text = Replace(frmDicoHebreu.txtNotes.Text, "~", ",", 1)<br />
' à voir ; je pourrai aussi mettre, au lieu du mid, la recherche elle-même ?<br />
'frmDicoHebreu.txtHebreu.Text = Mid(ligne, 1, rech1 - 1)<br />
'Else<br />
'analyse = MsgBox("Pas de résultat pour ce terme !" & vbCrLf & "Souhaitez-vous lancer une reche<br />
rche étendue ? (Ne pas respecter la casse)", vbInformation + vbYesNo, "Aucune entrée dans le lexiqu<br />
e")<br />
'If analyse = vbYes Then<br />
'frmDicoHebreu.chkCase.Value = 0<br />
'frmDicoHebreu.txtHebreu.Text = recherche<br />
'frmDicoHebreu.Timer1.Enabled = True<br />
'frmDicoHebreu.mnuConsultation.Checked = True<br />
'Exit Function<br />
'Call HebreuFrancais(recherche)<br />
'Else<br />
'frmDicoHebreu.Timer1.Enabled = False<br />
'frmDicoHebreu.txtNotes.Text = ""<br />
'frmDicoHebreu.txtHebreu.Text = recherche<br />
'frmDicoHebreu.Timer1.Enabled = False<br />
'Exit Function<br />
'End If<br />
End If<br />
Exit Function<br />
trouve:<br />
ligne = frmDicoHebreu.txtNotes.Text<br />
'partiehebreu = Mid(ligne, 1, rech1 - 1)<br />
' je dois redéfinir mes rech1/2/3 car ils ont été corrompus par la recherche sans la casse<br />
rech1 = InStr(1, ligne, "1/", vbTextCompare)<br />
rech3 = InStr(1, ligne, "3/", vbTextCompare)<br />
rech2 = InStr(1, ligne, "2/", vbTextCompare)<br />
frmDicoHebreu.txtPrononciation.Text = Mid(ligne, rech1 + 2, rech2 - (rech1 + 2))<br />
frmDicoHebreu.txtFrancais.Text = Mid(ligne, rech2 + 2, rech3 - (rech2 + 2))<br />
frmDicoHebreu.txtFrancais.Text = Replace(frmDicoHebreu.txtFrancais.Text, "~", ",", 1)<br />
frmDicoHebreu.txtNotes.Text = Mid(ligne, rech3 + 2, Len(ligne))<br />
frmDicoHebreu.txtNotes.Text = Replace(frmDicoHebreu.txtNotes.Text, "~", ",", 1)<br />
frmDicoHebreu.txtHebreu.Text = Mid(ligne, 1, rech1 - 1)<br />
End Function
fctLatinFrancais - 1<br />
Public Function LatinFrancais(mot)<br />
Dim ofile, ofile2, lfile, ligne<br />
Dim repere%<br />
mot = LCase(mot)<br />
ofile = App.Path & "\lex\fralat.raw"<br />
ofile2 = App.Path & "\lex\LVD.raw"<br />
lfile = FreeFile<br />
'<br />
recherche = mot & ","<br />
recherche2 = mot & ":"<br />
recherche3 = mot & " :"<br />
recherche4 = mot & " ("<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If Mid(ligne, 1, Len(recherche)) = recherche Or _<br />
Mid(ligne, 1, Len(recherche2)) = recherche2 Or _<br />
Mid(ligne, 1, Len(recherche3)) = recherche3 Or _<br />
Mid(ligne, 1, Len(recherche4)) = recherche4 Then<br />
frmDicoLatFr.Text2.Text = ligne<br />
Exit Do<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
file = FreeFile<br />
Open ofile2 For Input As #lfile<br />
ot = "*" & mot<br />
rmDicoLatFr.txtWords.Text = ""<br />
Do<br />
Line Input #lfile, ligne<br />
If ligne = mot Then<br />
frmDicoLatFr.txtWords.Text = frmDicoLatFr.txtWords.Text & ligne<br />
Do<br />
Line Input #lfile, ligne<br />
If Mid(ligne, 1, 1) = "*" Then GoTo fini:<br />
frmDicoLatFr.txtWords.Text = frmDicoLatFr.txtWords.Text & vbCrLf & ligne<br />
Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
ini:<br />
lose<br />
maintenant, j'essaie de renseigner le français, si bien sûr il n'est pas renseigné<br />
If frmDicoLatFr.Text2.Text "" Then Exit Function<br />
repere2 = Mid(mot, 2, 1)<br />
exte = frmDicoLatFr.txtWords.Text<br />
file = FreeFile<br />
ichier = App.Path & "\tools\temp.txt"<br />
Open fichier For Output As #lfile<br />
rint #lfile, texte<br />
lose<br />
file = FreeFile<br />
Open fichier For Input As #lfile<br />
o<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, ",") 0 And InStr(1, ligne, "(") = 0 Then<br />
motlatin = Mid(ligne, 1, InStr(1, ligne, ",") - 1)<br />
GoTo unpeuplusloin:<br />
End If<br />
oop While Not EOF(lfile)<br />
npeuplusloin:<br />
lose<br />
file = FreeFile<br />
echerche = motlatin & ","<br />
echerche2 = motlatin & ":"
fctLatinFrancais - 2<br />
recherche3 = motlatin & " :"<br />
recherche4 = motlatin & " ("<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If Mid(ligne, 1, Len(recherche)) = recherche Or _<br />
Mid(ligne, 1, Len(recherche2)) = recherche2 Or _<br />
Mid(ligne, 1, Len(recherche3)) = recherche3 Or _<br />
Mid(ligne, 1, Len(recherche4)) = recherche4 Then<br />
frmDicoLatFr.Text2.Text = ligne<br />
Exit Do<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
f motlatin "" And frmDicoLatFr.Text2.Text = "" Then<br />
frmDicoLatFr.Text2.Text = motlatin & ": mot inconnu."<br />
nd If<br />
ANALYSE MORPHOLOGIQUE<br />
file = FreeFile<br />
Open fichier For Input As #lfile<br />
o<br />
Line Input #lfile, ligne<br />
on récupère la morphologie<br />
' les codes sont renseignés à cette adresse: http://users.erols.com/whitaker/wordsdoc.h<br />
m<br />
'tous les types de mots possibles<br />
If Left(ligne, 1) "*" And _<br />
InStr(1, ligne, "-") 0 And _<br />
InStr(1, ligne, ",") = 0 And _<br />
InStr(1, ligne, ";") = 0 Then<br />
uite:<br />
If Mid(ligne, 1, 1) = "*" Or ligne = "" Then GoTo suite:<br />
Call AnalyseMorphoLatin(ligne)<br />
frmDicoLatFr.List1.AddItem (ligne)<br />
Do While Not EOF(lfile)<br />
Line Input #lfile, ligne<br />
If Left(ligne, 1) "*" And _<br />
InStr(1, ligne, "-") 0 And _<br />
InStr(1, ligne, ",") = 0 And _<br />
InStr(1, ligne, ";") = 0 Then<br />
Call AnalyseMorphoLatin(ligne)<br />
frmDicoLatFr.List1.AddItem (ligne)<br />
Loop<br />
End If<br />
oop While Not EOF(lfile)<br />
pres:<br />
lose<br />
nd Function<br />
Else<br />
GoTo suite:<br />
End If
fctLectureBhsLxx - 1<br />
Public Function LectureBhsLxx(fichier, passage, finverset)<br />
Dim lfile, ligne$, fichiertemp, LFile2, textefinal$, msg$, remplace$<br />
frmBHSLXX.txtGauche.Text = ""<br />
frmBHSLXX.txtDroite.Text = ""<br />
fichiertemp = App.Path & "\modules\parallel\temp.txt"<br />
lfile = FreeFile<br />
LFile2 = FreeFile + 1<br />
Open fichier For Input As #lfile<br />
Open fichiertemp For Output As #LFile2<br />
Do<br />
tabulation)<br />
Input #lfile, ligne<br />
If Left(ligne, Len(passage)) = passage Then<br />
Do<br />
bulation, Len(ligne))<br />
Input #lfile, ligne<br />
tabulation = InStr(1, ligne, " ")<br />
frmBHSLXX.txtGauche.Text = frmBHSLXX.txtGauche.Text & vbCrLf & Mid(ligne, 1<br />
frmBHSLXX.txtDroite.Text = frmBHSLXX.txtGauche.Text & vbCrLf & Mid(ligne, t<br />
Loop While Not ligne = finverset<br />
Print #LFile2, frmBHSLXX.txtGauche.Text<br />
'MsgBox (frmBHSLXX.txtGauche.Text)<br />
'MsgBox fichiertemp, , "fichiertemp"<br />
Exit Do<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
emplace = Replace(frmBHSLXX.txtGauche.Text, " ", vbCrLf, 1)<br />
Open fichiertemp For Input As #LFile2<br />
lose<br />
Do<br />
Input #LFile2, ligne<br />
'msg = MsgBox(ligne)<br />
Loop While Not EOF(LFile2)<br />
nd Function
fctLexiqueNTMorph - 1<br />
Public Function LexiqueNT_Morph(mot)<br />
Dim ofile$, lfile%, ligne$, rech1%, rech2%, rech3%, code$, msg$, vientde$, packard$, LFile2%<br />
ofile = App.Path & "\tools\greeknt.txt" 'pour la recherche de l'analyse du mot<br />
packard = App.Path & "\tools\packard.txt" 'pour le déchiffrement du code de l'analyse précitée<br />
lfile = FreeFile<br />
LFile2 = FreeFile + 1<br />
'j'efface tout ce qui se trouve actuellement sur la feuille du Lexique<br />
frmLexiqueNT.txtGrec.Text = ""<br />
frmLexiqueNT.txtVientde.Text = ""<br />
frmLexiqueNT.txtFrancais.Text = ""<br />
frmLexiqueNT.txtAnalyse.Text = ""<br />
frmLexiqueNT.txtcode.Text = ""<br />
frmLexiqueNT.txtNotes.Text = ""<br />
' recherche du code<br />
Open ofile For Input As #lfile<br />
lose<br />
Do<br />
Input #lfile, ligne<br />
' les noms propres sont précédés d'un astérix<br />
ligne = Replace(ligne, "*", "", 1)<br />
If Left(ligne, Len(mot) + 1) = mot & "", vbTextCompare)<br />
If code "" Then<br />
code = Left(code, rech2 - 1)<br />
frmLexiqueNT.txtcode.Text = code ' affectation code<br />
code = Replace(code, " ", " ", 1)<br />
code = Replace(code, " ", " ", 1)<br />
code = Replace(code, " ", " ", 1)<br />
' recherche signification code packard<br />
Else<br />
Exit Function<br />
End If<br />
packard me dit ce que mon code signifie<br />
Open packard For Input As #LFile2<br />
Do<br />
Input #LFile2, ligne<br />
If ligne = code Then<br />
Do<br />
If code = "X" Then<br />
frmLexiqueNT.txtAnalyse.Text = ligne
fctLexiqueNTMorph - 2<br />
f & ligne<br />
Close<br />
Exit Do<br />
End If<br />
Input #LFile2, ligne<br />
If frmLexiqueNT.txtAnalyse.Text = "" Then<br />
frmLexiqueNT.txtAnalyse.Text = ligne<br />
Else<br />
frmLexiqueNT.txtAnalyse.Text = frmLexiqueNT.txtAnalyse.Text & vbCrL<br />
End If<br />
Loop While Not ligne = "" Or ligne = vbCrLf<br />
Exit Do<br />
End If<br />
Loop While Not EOF(LFile2)<br />
End Function
fctLireANF - 1<br />
Public Function LireANF(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\ANF\anf.txt"<br />
lfile = FreeFile<br />
If livre = "Justin - Apologie" Then<br />
chercher = "JAP"<br />
ElseIf livre = "Justin - Dialogue avec Tryphon" Then<br />
chercher = "DJT"<br />
ElseIf livre = "Justin - Discours avec les Grecs" Then<br />
chercher = "JDi"<br />
ElseIf livre = "Justin - Adresse aux Grecs" Then<br />
chercher = "JHG"<br />
ElseIf livre = "Justin - Sur le gouvernement de Dieu" Then<br />
chercher = "JSG"<br />
ElseIf livre = "Justin - Fragments sur la Résurrection" Then<br />
chercher = "FJR"<br />
ElseIf livre = "Irénée - Contre les Hérésies Livre 1" Then<br />
chercher = "IH1"<br />
ElseIf livre = "Irénée - Contre les Hérésies Livre 2" Then<br />
chercher = "IH2"<br />
'IH2 27:3<br />
ElseIf livre = "Irénée - Contre les Hérésies Livre 3" Then<br />
chercher = "IH3"<br />
ElseIf livre = "Irénée - Contre les Hérésies Livre 4" Then<br />
chercher = "IH4"<br />
ElseIf livre = "Irénée - Contre les Hérésies Livre 5" Then<br />
chercher = "IH5"<br />
ElseIf livre = "Tatien - Adresse aux Grecs" Then<br />
chercher = "TAG"<br />
ElseIf livre = "Théophile d'Antioche à Autolycus" Then<br />
chercher = "TAA"<br />
ElseIf livre = "Athénagore - Défense des Chrétiens" Then<br />
chercher = "PCA"<br />
ElseIf livre = "Athénagore - Sur la Résurrections des morts" Then<br />
chercher = "ARD"<br />
ElseIf livre = "Clément d'Alexandrie - Exhoration aux cieux" Then<br />
chercher = "CEH"<br />
ElseIf livre = "Clément d'Alexandrie - Pédagogue Livre 1" Then<br />
chercher = "CI1"<br />
ElseIf livre = "Clément d'Alexandrie - Pédagogue Livre 2" Then<br />
chercher = "CI2"<br />
ElseIf livre = "Clément d'Alexandrie - Pédagogue Livre 3" Then<br />
chercher = "CI3"<br />
ElseIf livre = "Clément d'Alexandrie - Pédagogue Livre 4" Then<br />
chercher = "CI4"<br />
ElseIf livre = "Clément d'Alexandrie - Pédagogue Livre 5" Then<br />
chercher = "CI5"<br />
ElseIf livre = "Clément d'Alexandrie - Pédagogue Livre 6" Then<br />
chercher = "CI6"<br />
ElseIf livre = "Clément d'Alexandrie - Pédagogue Livre 7" Then<br />
chercher = "CI7"<br />
ElseIf livre = "Clément d'Alexandrie - Pédagogue Livre 8" Then
fctLireANF - 2<br />
chercher = "CI8"<br />
ElseIf livre = "Clément d'Alexandrie - Stromates Livre 1" Then<br />
chercher = "CS1"<br />
ElseIf livre = "Clément d'Alexandrie - Stromates Livre 2" Then<br />
chercher = "CS2"<br />
ElseIf livre = "Clément d'Alexandrie - Stromates Livre 3" Then<br />
chercher = "CS3"<br />
ElseIf livre = "Clément d'Alexandrie - Stromates Livre 4" Then<br />
chercher = "CS4"<br />
ElseIf livre = "Clément d'Alexandrie - Stromates Livre 5" Then<br />
chercher = "CS5"<br />
ElseIf livre = "Clément d'Alexandrie - Stromates Livre 6" Then<br />
chercher = "CS6"<br />
ElseIf livre = "Clément d'Alexandrie - Stromates Livre 8" Then<br />
chercher = "CS7"<br />
ElseIf livre = "Clément d'Alexandrie - Stromates Livre 8" Then<br />
chercher = "CS8"<br />
ElseIf livre = "Tertullien - Apologie" Then<br />
chercher = "TAP"<br />
ElseIf livre = "Tertullien - Sur l'idolâtrie" Then<br />
chercher = "TID"<br />
ElseIf livre = "Tertullien - Sur les spectacles" Then<br />
chercher = "TSH"<br />
ElseIf livre = "Tertullien - Sur le chapelet" Then<br />
chercher = "TCH"<br />
ElseIf livre = "Tertullien - A Scapula" Then<br />
chercher = "TTS"<br />
ElseIf livre = "Tertullien - Ad Nationes" Then<br />
chercher = "TAD"<br />
ElseIf livre = "Tertullien - Réponse aux Juifs" Then<br />
chercher = "TAJ"<br />
ElseIf livre = "Tertullien - Le témoignage de l'âme" Then<br />
chercher = "TST"<br />
ElseIf livre = "Tertullien - Prescription contre les hérétiques" Then<br />
chercher = "TPH"<br />
ElseIf livre = "Tertullien - Contre Marcion Livre 1" Then<br />
chercher = "TM1"<br />
ElseIf livre = "Tertullien - Contre Marcion Livre 2" Then<br />
chercher = "TM3"<br />
ElseIf livre = "Tertullien - Contre Marcion Livre 3" Then<br />
chercher = "TM3"<br />
ElseIf livre = "Tertullien - Contre Marcion Livre 4" Then<br />
chercher = "TM4"<br />
ElseIf livre = "Tertullien - Contre Marcion Livre 5" Then<br />
chercher = "TM5"<br />
ElseIf livre = "Tertullien - Contre Hermogène" Then<br />
chercher = "TAH"<br />
ElseIf livre = "Tertullien - Contre les Valentiniens" Then<br />
chercher = "TAV"<br />
ElseIf livre = "Tertullien - Sur la chair du Christ" Then<br />
chercher = "TFC"<br />
ElseIf livre = "Tertullien - Sur la résurrection de la chair" Then<br />
chercher = "TRF"<br />
ElseIf livre = "Tertullien - Contre Praxeas" Then<br />
chercher = "TPR"<br />
ElseIf livre = "Tertullien - Scorpiace" Then<br />
chercher = "TSC"<br />
ElseIf livre = "Tertullien - Contre toutes les hérésies" Then<br />
chercher = "AAH"<br />
ElseIf livre = "Tertullien - Sur la repentance" Then<br />
chercher = "TOR"<br />
ElseIf livre = "Tertullien - Sur le baptême" Then<br />
chercher = "TBa"<br />
ElseIf livre = "Tertullien - Sur la prière" Then<br />
chercher = "TOP"<br />
ElseIf livre = "Tertullien - Ad martyras" Then<br />
chercher = "TAM"<br />
ElseIf livre = "Tertullien - Martyr de Perpétue et Félécie" Then<br />
chercher = "TPF"<br />
ElseIf livre = "Tertullien - Sur la patience" Then<br />
chercher = "TPA"<br />
ElseIf livre = "Tertullien - Sur le Pallium" Then<br />
chercher = "TPl"<br />
ElseIf livre = "Tertullien - Sur les ornements des femmes" Then
fctLireANF - 3<br />
chercher = "TAW"<br />
ElseIf livre = "Tertullien - Sur le voile des vierges" Then<br />
chercher = "TVV"<br />
ElseIf livre = "Tertullien - A sa femme" Then<br />
chercher = "THW"<br />
ElseIf livre = "Tertullien - Exhortation à la chasteté" Then<br />
chercher = "TEC"<br />
ElseIf livre = "Tertullien - Sur la monogamie" Then<br />
chercher = "TOM"<br />
ElseIf livre = "Tertullien - Sur la modestie" Then<br />
chercher = "TMD"<br />
ElseIf livre = "Tertullien - Sur les fêtes" Then<br />
chercher = "TOF"<br />
ElseIf livre = "Tertullien - De fuga in persecutione" Then<br />
chercher = "TFP"<br />
ElseIf livre = "Munucius Felix - L'Octavius" Then<br />
chercher = "MFO"<br />
ElseIf livre = "Munucius Felix - Instructions de Commodianus" Then<br />
chercher = "MFC"<br />
ElseIf livre = "Origène - Prologue" Then<br />
chercher = "OPP"<br />
ElseIf livre = "Origène - De Principiis Livre 1" Then<br />
chercher = "OP1"<br />
ElseIf livre = "Origène - De Principiis Livre 2" Then<br />
chercher = "OP2"<br />
ElseIf livre = "Origène - De Principiis Livre 3" Then<br />
chercher = "OP3"<br />
ElseIf livre = "Origène - De Principiis Livre 4" Then<br />
chercher = "OP4"<br />
ElseIf livre = "Origène - Lettres" Then<br />
chercher = "OLt"<br />
ElseIf livre = "Origène - Contre Celse" Then<br />
chercher = "OAC"<br />
ElseIf livre = "Origène - Réfutation de toutes les hérésies" Then<br />
chercher = "HRH"<br />
ElseIf livre = "Anonyme - Canon de Muratori" Then<br />
chercher = "TMC"<br />
ElseIf livre = "Hippolyte - Réfutation de toutes les hérésies" Then<br />
chercher = "HRH"<br />
End If<br />
recherche = chercher & " " & chapitre & ":" & verset & " "<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
frmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireASV - 1<br />
Public Sub LireASV(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\ASV\asv.txt"<br />
lfile = FreeFile<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Nom"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jug"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "Samun"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "Samde"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "UnRo"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "DeRo"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "UnCr"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "DeCr"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Esd"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Can"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Esa"<br />
ElseIf livre = "Jérémie" Then
fctLireASV - 2<br />
chercher = "Jer"<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Ose"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Sop"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Agg"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zac"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
ElseIf livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luc"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Jea"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "UnCo"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "DeCo"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"
fctLireASV - 3<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Php"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "UnTh"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "DeTh"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "UnTi"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "DeTi"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jac"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "UnPi"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "DePi"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "UnJn"<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "DeJn"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "TrJn"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jude"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
End If<br />
recherche = chercher & "-" & chapitre & "-" & verset & "-"<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Sub
fctLireATFrN - 1<br />
Public Function LireStrongATFrN(mot)<br />
If mot = "" Then Exit Function<br />
Dim cherche$, ofile, lfile, ligne$<br />
ofile = App.Path & "\modules\Strong\shf.dat"<br />
lfile = FreeFile<br />
If Left(mot, 1) = "0" And Len(mot) = 4 Then<br />
mot = "0" & mot<br />
GoTo bonmot:<br />
'0776 > 00776<br />
ElseIf Left(mot, 2) = "00" And Len(mot) = 4 Then<br />
mot = "00" & mot<br />
GoTo bonmot:<br />
'0076 > 00076<br />
ElseIf Left(mot, 3) = "000" And Len(mot) = 4 Then<br />
mot = "000" & mot<br />
GoTo bonmot:<br />
'0006 > 00006<br />
End If<br />
bonmot:<br />
frmParse2.Text1.Text = ""<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(mot)) = mot Then<br />
Line Input #lfile, ligne<br />
'ligne = Mid(ligne, Len(mot), Len(ligne))<br />
repere = InStr(1, ligne, " \")<br />
repere2 = InStr(repere + 1, ligne, "\n")<br />
ligne = Mid(ligne, repere, Len(ligne))<br />
repere2 = InStr(2, ligne, "\n")<br />
mothebreu = Mid(ligne, 1, repere2)<br />
mothebreu = Replace(mothebreu, "\", "")<br />
mothebreu = Trim(mothebreu)<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, 1) = "0" And Len(ligne) < 7 Then GoTo plusloin:<br />
frmParse2.Text1.Text = frmParse2.Text1.Text & ligne<br />
Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
lusloin:<br />
lose<br />
01079<br />
' 1079 \Ggenethv\n genete {ghen-et-ay}<br />
vient d 'un dérivé présumé de \\1074\\; n f<br />
'LSG - naissance 1; 1<br />
1) naissance, depuis la naissance<br />
oad frmResultatStrong<br />
exte = frmParse2.Text1.Text<br />
trong = mot<br />
exte = Trim(texte)<br />
exte = Replace(texte, "\\", "")<br />
exte = Replace(texte, "#", "")<br />
exte = Replace(texte, "1a)", vbCrLf & "1a) ")<br />
exte = Replace(texte, "1b)", vbCrLf & "1b) ")<br />
exte = Replace(texte, "1c)", vbCrLf & "1c) ")<br />
exte = Replace(texte, "1d)", vbCrLf & "1d) ")<br />
exte = Replace(texte, "1e)", vbCrLf & "1e) ")<br />
exte = Replace(texte, "1f)", vbCrLf & "1f) ")<br />
exte = Replace(texte, "2a)", vbCrLf & "2a) ")
fctLireATFrN - 2<br />
texte = Replace(texte, "2b)", vbCrLf & "2b) ")<br />
texte = Replace(texte, "2c)", vbCrLf & "2c) ")<br />
texte = Replace(texte, "2d)", vbCrLf & "2d) ")<br />
texte = Replace(texte, "2e)", vbCrLf & "2e) ")<br />
texte = Replace(texte, "2f)", vbCrLf & "2f) ")<br />
texte = Replace(texte, "3a)", vbCrLf & "3a) ")<br />
texte = Replace(texte, "3b)", vbCrLf & "3b) ")<br />
texte = Replace(texte, "3c)", vbCrLf & "3c) ")<br />
texte = Replace(texte, "3d)", vbCrLf & "3d) ")<br />
texte = Replace(texte, "3e)", vbCrLf & "3e) ")<br />
texte = Replace(texte, "3f)", vbCrLf & "3f) ")<br />
texte = Replace(texte, "1)", vbCrLf & "1) ")<br />
texte = Replace(texte, "2)", vbCrLf & "2) ")<br />
texte = Replace(texte, "3)", vbCrLf & "3) ")<br />
texte = Replace(texte, "4)", vbCrLf & "4) ")<br />
texte = Replace(texte, "5)", vbCrLf & "5) ")<br />
texte = Replace(texte, "6)", vbCrLf & "6) ")<br />
texte = Replace(texte, " ", " ")<br />
If Left(strong, 3) = "000" Then strong = Mid(strong, 4, Len(strong))<br />
If Left(strong, 2) = "00" Then strong = Mid(strong, 3, Len(strong))<br />
If Left(strong, 1) = "0" Then strong = Mid(strong, 2, Len(strong))<br />
mothebreu = Replace(mothebreu, "f", "j")<br />
mothebreu = Replace(mothebreu, "c", "f")<br />
mothebreu = Replace(mothebreu, ":", "'")<br />
mothebreu = Replace(mothebreu, ";", "'")<br />
mothebreu = Replace(mothebreu, "Ò", ".")<br />
mothebreu = Replace(mothebreu, "]", ".")<br />
mothebreu = Replace(mothebreu, "x", "c")<br />
mothebreu = Replace(mothebreu, "!", "~")<br />
mothebreu = Replace(mothebreu, "@", "!")<br />
mothebreu = Replace(mothebreu, "$", "#")<br />
mothebreu = Replace(mothebreu, "/", "o")<br />
mothebreu = Replace(mothebreu, ">", "/")<br />
mothebreu = Replace(mothebreu, "¿", "")<br />
'¿<br />
frmResultatStrong.lblNStrong.Caption = "Strong : " & strong<br />
frmResultatStrong.Font = "Bwhebb"<br />
frmResultatStrong.FontSize = 16<br />
frmResultatStrong.lblMotH.Caption = Mid(mothebreu, 2, Len(mothebreu))<br />
texte = Replace(texte, " ", "")<br />
frmResultatStrong.txtStrong.Text = texte<br />
If frmAutomatos.Visible = False Then<br />
frmResultatStrong.Show<br />
End If<br />
ofile = App.Path & "\tools\temp2.txt"<br />
lfile = FreeFile<br />
Open ofile For Output As #lfile<br />
Print #lfile, texte<br />
Close<br />
End Function
fctLireBBE - 1<br />
Public Function LireBBE(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\BBE\bbe.txt"<br />
lfile = FreeFile<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Nom"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jug"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "Samun"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "Samde"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "UnRo"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "DeRo"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "UnCr"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "DeCr"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Esd"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Can"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Esa"
fctLireBBE - 2<br />
ElseIf livre = "Jérémie" Then<br />
chercher = "Jer"<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Ose"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Sop"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Agg"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zac"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
ElseIf livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luc"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Jea"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "UnCo"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "DeCo"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then
fctLireBBE - 3<br />
chercher = "Eph"<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Php"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "UnTh"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "DeTh"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "UnTi"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "DeTi"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jac"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "UnPi"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "DePi"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "UnJn"<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "DeJn"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "TrJn"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jude"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
End If<br />
recherche = chercher & "-" & chapitre & "-" & verset & "-"<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireBBE - 4
fctLireBFC - 1<br />
Public Function LireBFC(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\BFC\bfc.txt"<br />
lfile = FreeFile<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Num"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jdg"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "1Sa"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "2Sa"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "1Ki"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "2Ki"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "1Ch"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "2Ch"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Ezr"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Sol"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Isa"<br />
ElseIf livre = "Jérémie" Then
fctLireBFC - 2<br />
chercher = "Jer"<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Hos"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Zep"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Hag"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zec"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
ElseIf livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luk"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Joh"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "1Co"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "2Co"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"
fctLireBFC - 3<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "1Th"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "2Th"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "1Ti"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "2Ti"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jam"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "1Pe"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "2Pe"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "1Jo"<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "2Jo"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "3Jo"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jud"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
End If<br />
recherche = chercher & " " & chapitre & "-" & verset & " "<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireBHS - 1<br />
Public Function LireBHS(livre, chapitre, verset)<br />
Dim fichier$, lfile%, passage$, ligne$, inverse$, texte$<br />
lfile = FreeFile<br />
fichier = App.Path & "\modules\bhs\bhs.txt"<br />
frmBible.txtPassage.Font = "OLBHEB"<br />
frmBible.txtPassage.FontSize = "14"<br />
' détermination du passage<br />
If livre = "Genèse" Then<br />
passage = "Gen" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Exode" Then<br />
passage = "Exo" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Lévitique" Then<br />
passage = "Lev" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Nombres" Then<br />
passage = "Nom" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Deutéronome" Then<br />
passage = "Deu" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Josué" Then<br />
passage = "Jos" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Josué" Then<br />
passage = "Jos" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Juges" Then<br />
passage = "Jug" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Ruth" Then<br />
passage = "Rut" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "1 Samuel" Then<br />
passage = "Samun" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "2 Samuel" Then<br />
passage = "Samede" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "1 Rois" Then<br />
passage = "UnRo" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "2 Rois" Then<br />
passage = "DeRo" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "1 Chroniques" Then<br />
passage = "UnCh" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "2 Chroniques" Then<br />
passage = "DeCh" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Esdras" Then<br />
passage = "Esd" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Néhémie" Then<br />
passage = "Neh" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Esther" Then<br />
passage = "Est" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Job" Then<br />
passage = "Job" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Psaumes" Then<br />
passage = "Psa" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Proverbes" Then<br />
passage = "Pro" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Ecclésiaste" Then<br />
passage = "Ecc" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
passage = "Can" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Esaïe" Then<br />
passage = "Esa" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Jérémie" Then<br />
passage = "Jer" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Lamentations" Then<br />
passage = "Lam" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Ezéchiel" Then<br />
passage = "Eze" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Daniel" Then<br />
passage = "Dan" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Osée" Then<br />
passage = "Ose" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Joël" Then<br />
passage = "Joe" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Amos" Then<br />
passage = "Amo" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Abdias" Then<br />
passage = "Oba" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Jonas" Then<br />
passage = "Jon" & "-" & chapitre & "-" & verset & "-"
fctLireBHS - 2<br />
ElseIf livre = "Michée" Then<br />
passage = "Mic" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Nahoum" Then<br />
passage = "Nah" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Habaquq" Then<br />
passage = "Hab" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Sophonie" Then<br />
passage = "Sop" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Aggée" Then<br />
passage = "Agg" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Zacharie" Then<br />
passage = "Zac" & "-" & chapitre & "-" & verset & "-"<br />
ElseIf livre = "Malachie" Then<br />
passage = "Mal" & "-" & chapitre & "-" & verset & "-"<br />
Else<br />
passage = MsgBox("Vous n'avez pas sélectionné de livre !", vbExclamation, "Quel verset désirez-vous<br />
?")<br />
Exit Function<br />
End If<br />
' fin de la détermination du passage<br />
' recherche du verset (le passage)<br />
Open fichier For Input As #lfile<br />
lose<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(passage)) = passage Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(passage) + 1, Len(ligne))<br />
Exit Do<br />
End If<br />
Loop While Not EOF(lfile)<br />
lecture droite à gauche<br />
nverse = StrReverse(frmBible.txtPassage.Text)<br />
rmBible.txtPassage.Text = inverse<br />
translitération fichier d'origine > format police OLBHEB<br />
assage = frmBible.txtPassage.Text<br />
assage = Replace(passage, ".", " ", 1, , vbTextCompare)<br />
bien entendu, je commence par la chaîne de caractère la plus longue<br />
pour le remplacement, puis la plus petite<br />
Attention : le remplacement d'une lettre finale oblige à l'insertion<br />
d'un espace supplémentaire, pour faire coupure avec le mot suivant<br />
vav avec espace<br />
assage = Replace(passage, "v ", "w ", , , vbTextCompare)<br />
aleph avec espace<br />
assage = Replace(passage, "` ", "a ", , , vbTextCompare)<br />
assage = Replace(passage, " `", " a", , , vbTextCompare)<br />
tsadé final<br />
tsadé<br />
assage = Replace(passage, " &", " U", , , vbTextCompare)<br />
tsadé<br />
assage = Replace(passage, "&", "u", , , vbTextCompare)<br />
mem final<br />
assage = Replace(passage, " m", " M", , , vbTextCompare)<br />
kaf final<br />
assage = Replace(passage, " k", " K", , , vbTextCompare)<br />
pé final<br />
assage = Replace(passage, " p", " P", , , vbTextCompare)<br />
noun final<br />
assage = Replace(passage, " n", " N", , , vbTextCompare)<br />
ayin<br />
assage = Replace(passage, "j", "e", , , vbTextCompare)<br />
samekh<br />
assage = Replace(passage, "$", "o", , , vbTextCompare)
fctLireBHS - 3<br />
' tet<br />
passage = Replace(passage, "+", "j", , , vbTextCompare)<br />
' sof passouk (fin du verset...)<br />
passage = Replace(passage, ".", " :", , , vbTextCompare)<br />
' vav<br />
passage = Replace(passage, "v", "w", , , vbTextCompare)<br />
' aleph<br />
passage = Replace(passage, "`", "a", , , vbTextCompare)<br />
' tsadé non final<br />
passage = Replace(passage, "&", "u", , , vbTextCompare)<br />
frmBible.txtPassage.Text = ":" & passage<br />
frmBible.txtPassage.ToolTipText = "Attention, lecture de droite à gauche, et de bas en haut !"<br />
'frmBible.txtPassage.RightToLeft = True<br />
frmBible.txtPassage.Alignment = 1<br />
End Function
fctLireBHSStrongs - 1<br />
Public Function LireBHSStrong(livre, chapitre, verset)<br />
Dim fichier$, lfile%, passage$, ligne$, inverse$, texte$<br />
lfile = FreeFile<br />
fichier = App.Path & "\modules\bhs\olb.txt"<br />
frmBible.txtPassage.Font = "OLBHEB"<br />
frmBible.txtPassage.FontSize = "14"<br />
' détermination du passage<br />
If livre = "Genèse" Then<br />
passage = "Genesis"<br />
ElseIf livre = "Exode" Then<br />
passage = "Exodus"<br />
ElseIf livre = "Lévitique" Then<br />
passage = "Leviticus"<br />
ElseIf livre = "Nombres" Then<br />
passage = "Numbers"<br />
ElseIf livre = "Deutéronome" Then<br />
passage = "Deuteronomus"<br />
ElseIf livre = "Josué" Then<br />
passage = "Joshua"<br />
ElseIf livre = "Juges" Then<br />
passage = "Judges"<br />
ElseIf livre = "Ruth" Then<br />
passage = "Ruth"<br />
ElseIf livre = "1 Samuel" Then<br />
passage = "1 Samuel"<br />
ElseIf livre = "2 Samuel" Then<br />
passage = "1 Samuel"<br />
ElseIf livre = "1 Rois" Then<br />
passage = "1 Kings"<br />
ElseIf livre = "2 Rois" Then<br />
passage = "1 Kings"<br />
ElseIf livre = "1 Chroniques" Then<br />
passage = "1 Chronicles"<br />
ElseIf livre = "2 Chroniques" Then<br />
passage = "2 Chronicles"<br />
ElseIf livre = "Esdras" Then<br />
passage = "Ezra"<br />
ElseIf livre = "Néhémie" Then<br />
passage = "Nehemia"<br />
ElseIf livre = "Esther" Then<br />
passage = "Esther"<br />
ElseIf livre = "Job" Then<br />
passage = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
passage = "Psalms"<br />
ElseIf livre = "Proverbes" Then<br />
passage = "Proverbs"<br />
ElseIf livre = "Ecclésiaste" Then<br />
passage = "Ecclesiastes"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
passage = "Song of Salomon"<br />
ElseIf livre = "Esaïe" Then<br />
passage = "Isaiah "<br />
ElseIf livre = "Jérémie" Then<br />
passage = "Jeremia"<br />
ElseIf livre = "Lamentations" Then<br />
passage = "Lamentations"<br />
ElseIf livre = "Ezéchiel" Then<br />
passage = "Ezekiel"<br />
ElseIf livre = "Daniel" Then<br />
passage = "Daniel"<br />
ElseIf livre = "Osée" Then<br />
passage = "Hosea"<br />
ElseIf livre = "Joël" Then<br />
passage = "Joel"<br />
ElseIf livre = "Amos" Then<br />
passage = "Amos"<br />
ElseIf livre = "Abdias" Then<br />
passage = "Obadiah"<br />
ElseIf livre = "Jonas" Then<br />
passage = "Jonah"<br />
ElseIf livre = "Michée" Then<br />
passage = "Micah "
fctLireBHSStrongs - 2<br />
ElseIf livre = "Nahoum" Then<br />
passage = "Nahum"<br />
ElseIf livre = "Habaquq" Then<br />
passage = "Habakkuk"<br />
ElseIf livre = "Sophonie" Then<br />
passage = "Zephaniah"<br />
ElseIf livre = "Aggée" Then<br />
passage = "Haggai"<br />
ElseIf livre = "Zacharie" Then<br />
passage = "Zechariah"<br />
ElseIf livre = "Malachie" Then<br />
passage = "Malachi"<br />
Else<br />
passage = MsgBox("Vous n'avez pas sélectionné de livre !", vbExclamation, "Quel verset désirez-vous<br />
?")<br />
Exit Function<br />
End If<br />
' fin de la détermination du passage<br />
'passage : Genesis 1<br />
'verset : instr : "(" & chapitre & ":" & verset & ")"<br />
passage = passage & " " & chapitre<br />
verset = "(" & chapitre & ":" & verset & ")"<br />
' recherche du verset (le passage)<br />
Open fichier For Input As #lfile<br />
On Error GoTo apres:<br />
Do<br />
Line Input #lfile, ligne<br />
If ligne = passage Then<br />
If InStr(1, ligne, verset) 0 Then<br />
frmParse2.Text1.Text = ligne<br />
Exit Do<br />
Else<br />
Do<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, verset) 0 Then<br />
frmParse2.Text1.Text = ligne<br />
Exit Do<br />
End If<br />
Loop<br />
End If<br />
End If<br />
Loop While Not EOF(lfile)<br />
pres:<br />
lose<br />
exte = frmParse2.Text1.Text<br />
exte = Replace(texte, "
fctLireBHSStrongs - 3<br />
frmBible.txtPassage.Alignment = 1<br />
verset = frmBible.txtverset.Text<br />
frmBible.lblchapitre.Caption = livre & " " & chapitre & ":" & verset<br />
'frmBible.txtPassage.MultiLine = False<br />
'frmBible.txtPassage.ScrollBars = 2<br />
End Function
fctLireBHSUnicode - 1<br />
Public Function LireBHSUnicode(livre, chapitre, verset)<br />
Dim ofile, lfile, ligne, recherche, textefinal, ofile2, LFile2<br />
ofile = App.Path & "\modules\BHS\text.rtf"<br />
ofile2 = App.Path & "\modules\BHS\WLC.rtf"<br />
lfile = FreeFile<br />
recherche = livre & "--" & chapitre & "-" & verset<br />
Open ofile2 For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
frmParse.txtBHS.Text = ligne<br />
If Mid(frmParse.txtBHS.Text, 1, Len(recherche)) = recherche Then<br />
frmParse2.Text1.TextRTF = ligne<br />
Exit Do<br />
'LFile2 = FreeFile + 1<br />
'Open ofile For Output As #LFile2<br />
'Write #LFile2, ligne<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
oad frmParse2<br />
rmParse2.Show<br />
lfile = FreeFile<br />
Open ofile For Input As #lfile<br />
Line Input #lfile, ligne<br />
textefinal = ligne<br />
Close<br />
frmBible.txtPassage.Text = StrConv(textefinal, vbFromUnicode)<br />
Load frmParse<br />
frmParse2.Text1.Text = frmParse2.Text1.Text<br />
frmParse2.Show<br />
frmParse2.Show<br />
nd Function
fctLireBHSV - 1<br />
Public Function LireBHSV(livre, chapitre, verset)<br />
Dim cherche$, ofile$, ofile2$, lfile, LFile2, ligne$, recherhche$, textetrouve$<br />
ofile = App.Path & "\modules\BHSv\wtt.txt"<br />
lfile = FreeFile<br />
LFile2 = FreeFile + 1<br />
frmBible.txtPassage.RightToLeft = True<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Num"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jdg"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "1Sa"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "2Sa"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "1Ki"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "2Ki"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "1Ch"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "2Ch"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Ezr"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Sol"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Isa"
fctLireBHSV - 2<br />
ElseIf livre = "Jérémie" Then<br />
chercher = "Jer"<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Hos"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Zep"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Hag"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zec"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
End If<br />
recherche2 = chercher & " " & chapitre & ":" & verset<br />
' format de la recherche 'Gen 1:1 '<br />
recherche = chercher & " " & chapitre & ":" & verset & " "<br />
'frmBible.txtPassage.MultiLine = False<br />
'frmBible.txtPassage.ScrollBars = vbHorizontal<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
toto = Replace(frmBible.txtPassage.Text, " ", vbCrLf)<br />
ofile2 = App.Path & "\tools\temp.txt"<br />
LFile2 = FreeFile + 1<br />
Open ofile2 For Output As #LFile2<br />
Print #LFile2, toto<br />
End If
fctLireBHSV - 3<br />
Close<br />
Loop While Not EOF(lfile)<br />
' je configure l'affichage de la feuille principale<br />
frmBible.txtPassage.FontSize = 18<br />
frmBible.txtPassage.Font = "Bwhebb"<br />
frmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
End Function
fctlireCBC - 1<br />
Public Function LireCBC(mot)<br />
Dim fichier$, def$, lfile%<br />
lfile = FreeFile<br />
fichier = App.Path & "\modules\CBC\cbc.txt"<br />
def = App.Path & "\modules\KJV\def.htm"<br />
frmParse2.Text1.Text = ""<br />
mot = UCase(mot)<br />
Open fichier For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If ligne = mot Then<br />
End If<br />
Loop While Not EOF(lfile)<br />
uite:<br />
lose<br />
frmParse2.Text1.Text = ligne<br />
Do<br />
On err GoTo suite:<br />
Input #lfile, ligne<br />
frmParse2.Text1.Text = frmParse2.Text1.Text & vbCrLf & ligne<br />
Loop While Not ligne = "" Or ligne = vbCrLf<br />
file = FreeFile + 1<br />
rmParse2.Text1.Text = Replace(frmParse2.Text1.Text, "~", ",")<br />
f frmParse2.Text1.Text = "" Then<br />
rmParse2.Text1.Text = "" & UCase(mot) & "" & "" & "" & "Pas de définition pour ce mo<br />
." & ""<br />
nd If<br />
Open def For Output As #lfile<br />
rint #lfile, frmParse2.Text1.Text<br />
lose<br />
oad frmBrowser<br />
rmBrowser.WindowState = 0<br />
rmBrowser.cboAddress.Text = def<br />
rmBrowser.Show<br />
nd Function
fctLireCodeMorph - 1<br />
Public Function LireCodeMorph(code)<br />
If Mid(code, 1, 1) = "n" Then<br />
Call LireCodeMorphNom(code)<br />
Exit Function<br />
ElseIf Mid(code, 1, 1) = "v" Then<br />
Call LireCodeMorphVerbe(code)<br />
Exit Function<br />
ElseIf Mid(code, 1, 1) = "a" Then<br />
Call LireCodeMorphAdjectif(code)<br />
Exit Function<br />
ElseIf Mid(code, 1, 1) = "r" Then<br />
Call LireCodeMorphPronom(code)<br />
Exit Function<br />
ElseIf Mid(code, 1, 1) = "c" Then<br />
Call LireCodeMorphConjonction(code)<br />
Exit Function<br />
ElseIf Mid(code, 1, 1) = "t" Then<br />
Call LireCodeMorphIndeclinable(code)<br />
Exit Function<br />
ElseIf Mid(code, 1, 1) = "x" Then<br />
Call LireCodeMorphParticule(code)<br />
Exit Function<br />
ElseIf Mid(code, 1, 1) = "i" Then<br />
Call LireCodeMorphInterjection(code)<br />
Exit Function<br />
ElseIf Mid(code, 1, 1) = "p" Then<br />
Call LireCodeMorphPreposition(code)<br />
Exit Function<br />
ElseIf Mid(code, 1, 1) = "b" Then<br />
Call LireCodeMorphAdverbe(code)<br />
Exit Function<br />
ElseIf Mid(code, 1, 1) = "d" Then<br />
Call LireCodeMorphArticle(code)<br />
Exit Function<br />
End If<br />
End Function
fctLireCodeMorphAdjectif - 1<br />
Public Function LireCodeMorphAdjectif(code)<br />
ttype = "adjectif (a)"<br />
'les codes morpho de WH présentent une absence de ttype2<br />
'contrairement, apparemment, à ceux de NA27<br />
If Len(code) > 5 Then<br />
ttype2 = Mid(code, 2, 1)<br />
cas = Mid(code, 3, 1)<br />
genre = Mid(code, 4, 1)<br />
nombre = Mid(code, 5, 1)<br />
degre = Mid(code, 6, 1)<br />
ElseIf Len(code) = 5 Then<br />
cas = Mid(code, 2, 1)<br />
genre = Mid(code, 3, 1)<br />
nombre = Mid(code, 4, 1)<br />
degre = Mid(code, 5, 1)<br />
'il y a peut être d'autres cas...<br />
End If<br />
' TTYPE2 = TYPE D'ADJECTIF<br />
If ttype2 = "n" Then ttype2 = "normal (n)"<br />
If ttype2 = "s" Then ttype2 = "possessif (s)"<br />
If ttype2 = "d" Then ttype2 = "démonstratif (d)"<br />
If ttype2 = "q" Then ttype2 = "interrogatif (q)"<br />
If ttype2 = "i" Then ttype2 = "indéfini (i)"<br />
If ttype2 = "t" Then ttype2 = "intensif (t)"<br />
If ttype2 = "c" Then ttype2 = "cardinal (c)"<br />
If ttype2 = "o" Then ttype2 = "ordinal (o)"<br />
If ttype2 = "m" Then ttype2 = "nombre (m)"<br />
' CAS<br />
If cas = "n" Then cas = "nominatif (n)"<br />
If cas = "g" Then cas = "génitif (g)"<br />
If cas = "a" Then cas = "accusatif (a)"<br />
If cas = "d" Then cas = "datif (d)"<br />
If cas = "v" Then cas = "vocatif (v)"<br />
' GENRE<br />
If genre = "f" Then genre = "féminin (f)"<br />
If genre = "m" Then genre = "masculin (m)"<br />
If genre = "n" Then genre = "neutre (n)"<br />
'NOMBRE<br />
If nombre = "s" Then nombre = "singulier (s)"<br />
If nombre = "p" Then nombre = "pluriel (p)"<br />
'DEGRE<br />
If degre = "n" Then degre = "aucun (n)"<br />
If degre = "c" Then degre = "comparatif (c)"<br />
If degre = "s" Then degre = "superlatif (s)"<br />
' AFFECTATIONS<br />
'1) je renseigne la petite fenêtre Analyse Morphologique<br />
If ttype2 = "" Then ttype2 = " "<br />
frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3) & Mid(ttype2, 1, Len(tty<br />
pe2) - 3) & Mid(cas, 1, Len(cas) - 3) & Mid(genre, 1, Len(genre) - 3) & Mid(nombre, 1, Len(nombre)<br />
- 3) & Mid(degre, 1, Len(degre) - 3)<br />
'2) je renseigne les ComboBox de l'Assistant de recherche morphologique<br />
Load frmAssistant<br />
frmAssistant.cbo1.Text = ttype<br />
frmAssistant.cbo2.Text = ttype2<br />
frmAssistant.cbo3.Text = cas<br />
frmAssistant.cbo4.Text = genre<br />
frmAssistant.cbo5.Text = nombre<br />
If degre = "aucun (n)" Then degre = ""<br />
frmAssistant.cbo6.Text = degre<br />
End Function
fctLireCodeMorphAdverbe - 1<br />
Public Sub LireCodeMorphAdverbe(code)<br />
ttype = "adverbe (b)"<br />
'CAS<br />
If cas = "g" Then cas = "génitif (g)"<br />
If cas = "a" Then cas = "accusatif (a)"<br />
If cas = "d" Then cas = "datif (d)"<br />
If cas = "p" Then cas = "indéterminé (p)"<br />
' AFFECTATIONS<br />
'1) je renseigne la petite fenêtre Analyse Morphologique<br />
frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3)<br />
'2) je renseigne les ComboBox de l'Assistant de recherche morphologique<br />
Load frmAssistant<br />
frmAssistant.cbo1.Text = ttype<br />
frmAssistant.cbo2.Text = ""<br />
frmAssistant.cbo3.Text = ""<br />
frmAssistant.cbo4.Text = ""<br />
frmAssistant.cbo5.Text = ""<br />
frmAssistant.cbo6.Text = ""<br />
End Sub
fctLireCodeMorphArticle - 1<br />
Public Sub LireCodeMorphArticle(code)<br />
ttype = "article défini (d)"<br />
cas = Mid(code, 2, 1)<br />
genre = Mid(code, 3, 1)<br />
nombre = Mid(code, 4, 1)<br />
' CAS<br />
If cas = "n" Then cas = "nominatif (n)"<br />
If cas = "g" Then cas = "génitif (g)"<br />
If cas = "a" Then cas = "accusatif (a)"<br />
If cas = "d" Then cas = "datif (d)"<br />
If cas = "v" Then cas = "vocatif (v)"<br />
' GENRE<br />
If genre = "f" Then genre = "féminin (f)"<br />
If genre = "m" Then genre = "masculin (m)"<br />
If genre = "n" Then genre = "neutre (n)"<br />
'NOMBRE<br />
If nombre = "s" Then nombre = "singulier (s)"<br />
If nombre = "p" Then nombre = "pluriel (p)"<br />
' AFFECTATIONS<br />
'1) je renseigne la petite fenêtre Analyse Morphologique<br />
frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3) & Mid(cas, 1, Len(cas) -<br />
3) & Mid(genre, 1, Len(genre) - 3) & Mid(nombre, 1, Len(nombre) - 3)<br />
'2) je renseigne les ComboBox de l'Assistant de recherche morphologique<br />
Load frmAssistant<br />
frmAssistant.cbo1.Text = ttype<br />
frmAssistant.cbo2.Text = cas<br />
frmAssistant.cbo3.Text = genre<br />
frmAssistant.cbo4.Text = nombre<br />
frmAssistant.cbo5.Text = ""<br />
frmAssistant.cbo6.Text = ""<br />
End Sub
fctLireCodeMorphConjonction - 1<br />
Public Function LireCodeMorphConjonction(code)<br />
ttype = "conjonction (c)"<br />
cas = Mid(code, 2, 1)<br />
' CAS<br />
If cas = "c" Then cas = "coordination (c)"<br />
If cas = "s" Then cas = "subordination (s)"<br />
' AFFECTATIONS<br />
'1) je renseigne la petite fenêtre Analyse Morphologique<br />
frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3) & "de " & Mid(cas, 1, Le<br />
n(cas) - 3)<br />
'2) je renseigne les ComboBox de l'Assistant de recherche morphologique<br />
Load frmAssistant<br />
frmAssistant.cbo1.Text = ttype<br />
frmAssistant.cbo2.Text = cas<br />
frmAssistant.cbo3.Text = ""<br />
frmAssistant.cbo4.Text = ""<br />
frmAssistant.cbo5.Text = ""<br />
frmAssistant.cbo6.Text = ""<br />
End Function
fctLireCodeMorphIndeclinable - 1<br />
Public Function LireCodeMorphIndeclinable(code)<br />
ttype = "indéclinable (t)"<br />
' AFFECTATIONS<br />
'1) je renseigne la petite fenêtre Analyse Morphologique<br />
frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3)<br />
'2) je renseigne les ComboBox de l'Assistant de recherche morphologique<br />
Load frmAssistant<br />
frmAssistant.cbo1.Text = ttype<br />
frmAssistant.cbo2.Text = ""<br />
frmAssistant.cbo3.Text = ""<br />
frmAssistant.cbo4.Text = ""<br />
frmAssistant.cbo5.Text = ""<br />
frmAssistant.cbo6.Text = ""<br />
End Function
fctLireCodeMorphInterjection - 1<br />
Public Sub LireCodeMorphInterjection(code)<br />
ttype = "interjection (i)"<br />
' AFFECTATIONS<br />
'1) je renseigne la petite fenêtre Analyse Morphologique<br />
frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3)<br />
'2) je renseigne les ComboBox de l'Assistant de recherche morphologique<br />
Load frmAssistant<br />
frmAssistant.cbo1.Text = ttype<br />
frmAssistant.cbo2.Text = ""<br />
frmAssistant.cbo3.Text = ""<br />
frmAssistant.cbo4.Text = ""<br />
frmAssistant.cbo5.Text = ""<br />
frmAssistant.cbo6.Text = ""<br />
End Sub
fctLireCodeMorphNom - 1<br />
Public Function LireCodeMorphNom(code)<br />
ttype = "nom (n)"<br />
cas = Mid(code, 2, 1)<br />
genre = Mid(code, 3, 1)<br />
nombre = Mid(code, 4, 1)<br />
ttype2 = Mid(code, 5, 1)<br />
' CAS<br />
If cas = "n" Then cas = "nominatif (n)"<br />
If cas = "g" Then cas = "génitif (g)"<br />
If cas = "a" Then cas = "accusatif (a)"<br />
If cas = "d" Then cas = "datif (d)"<br />
If cas = "v" Then cas = "vocatif (v)"<br />
' GENRE<br />
If genre = "f" Then genre = "féminin (f)"<br />
If genre = "m" Then genre = "masculin (m)"<br />
If genre = "n" Then genre = "neutre (n)"<br />
'NOMBRE<br />
If nombre = "s" Then nombre = "singulier (s)"<br />
If nombre = "p" Then nombre = "pluriel (p)"<br />
' TYPE<br />
If ttype2 = "c" Then ttype2 = "(nom commun) (c)"<br />
If ttype2 = "p" Then ttype2 = "(nom propre) (p)"<br />
' AFFECTATIONS<br />
'1) je renseigne la petite fenêtre Analyse Morphologique<br />
frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3) & Mid(cas, 1, Len(cas) -<br />
3) & Mid(genre, 1, Len(genre) - 3) & Mid(nombre, 1, Len(nombre) - 3) & Mid(ttype2, 1, Len(ttype2)<br />
- 3)<br />
'2) je renseigne les ComboBox de l'Assistant de recherche morphologique<br />
Load frmAssistant<br />
frmAssistant.cbo1.Text = ttype<br />
frmAssistant.cbo2.Text = cas<br />
frmAssistant.cbo3.Text = genre<br />
frmAssistant.cbo4.Text = nombre<br />
frmAssistant.cbo5.Text = ttype2<br />
frmAssistant.cbo6.Text = ""<br />
End Function
fctLireCodeMorphParticule - 1<br />
Public Function LireCodeMorphParticule(code)<br />
ttype = "particule (x)"<br />
' AFFECTATIONS<br />
'1) je renseigne la petite fenêtre Analyse Morphologique<br />
frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3)<br />
'2) je renseigne les ComboBox de l'Assistant de recherche morphologique<br />
Load frmAssistant<br />
frmAssistant.cbo1.Text = ttype<br />
frmAssistant.cbo2.Text = ""<br />
frmAssistant.cbo3.Text = ""<br />
frmAssistant.cbo4.Text = ""<br />
frmAssistant.cbo5.Text = ""<br />
frmAssistant.cbo6.Text = ""<br />
End Function
fctLireCodeMorphPreposition - 1<br />
Public Sub LireCodeMorphPreposition(code)<br />
ttype = "préposition (p)"<br />
cas = Mid(code, 2, 1)<br />
'CAS<br />
If cas = "g" Then cas = "génitif (g)"<br />
If cas = "a" Then cas = "accusatif (a)"<br />
If cas = "d" Then cas = "datif (d)"<br />
If cas = "p" Then cas = "indéterminé (p)"<br />
' AFFECTATIONS<br />
'1) je renseigne la petite fenêtre Analyse Morphologique<br />
frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3) & Mid(cas, 1, Len(cas) -<br />
3)<br />
'2) je renseigne les ComboBox de l'Assistant de recherche morphologique<br />
Load frmAssistant<br />
frmAssistant.cbo1.Text = ttype<br />
frmAssistant.cbo2.Text = cas<br />
frmAssistant.cbo3.Text = ""<br />
frmAssistant.cbo4.Text = ""<br />
frmAssistant.cbo5.Text = ""<br />
frmAssistant.cbo6.Text = ""<br />
End Sub
fctLireCodeMorphPronom - 1<br />
Public Function LireCodeMorphPronom(code)<br />
ttype = "pronom (r)"<br />
ttype2 = Mid(code, 2, 1)<br />
cas = Mid(code, 3, 1)<br />
genre = Mid(code, 4, 1)<br />
nombre = Mid(code, 5, 1)<br />
'TYPE<br />
If ttype2 = "p" Then ttype2 = "personnel (p)"<br />
If ttype2 = "r" Then ttype2 = "relatif (r)"<br />
If ttype2 = "d" Then ttype2 = "démonstratif (d)"<br />
If ttype2 = "q" Then ttype2 = "interrogatif (q)"<br />
If ttype2 = "i" Then ttype2 = "indéfini (i)"<br />
If ttype2 = "t" Then ttype2 = "intensif (t)"<br />
If ttype2 = "x" Then ttype2 = "réfléchi (x)"<br />
If ttype2 = "e" Then ttype2 = "réciproque (e)"<br />
' CAS<br />
If cas = "n" Then cas = "nominatif (n)"<br />
If cas = "g" Then cas = "génitif (g)"<br />
If cas = "a" Then cas = "accusatif (a)"<br />
If cas = "d" Then cas = "datif (d)"<br />
If cas = "v" Then cas = "vocatif (v)"<br />
' GENRE<br />
If genre = "f" Then genre = "féminin (f)"<br />
If genre = "m" Then genre = "masculin (m)"<br />
If genre = "n" Then genre = "neutre (n)"<br />
If genre = "-" Then genre = "commun (-)"<br />
'NOMBRE<br />
If nombre = "s" Then nombre = "singulier (s)"<br />
If nombre = "p" Then nombre = "pluriel (p)"<br />
' AFFECTATIONS<br />
'1) je renseigne la petite fenêtre Analyse Morphologique<br />
frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3) & Mid(ttype2, 1, Len(tty<br />
pe2) - 3) & Mid(cas, 1, Len(cas) - 3) & Mid(genre, 1, Len(genre) - 3) & Mid(nombre, 1, Len(nombre)<br />
- 3)<br />
'2) je renseigne les ComboBox de l'Assistant de recherche morphologique<br />
Load frmAssistant<br />
frmAssistant.cbo1.Text = ttype<br />
frmAssistant.cbo2.Text = ttype2<br />
frmAssistant.cbo3.Text = cas<br />
frmAssistant.cbo4.Text = genre<br />
frmAssistant.cbo5.Text = nombre<br />
frmAssistant.cbo6.Text = ""<br />
End Function
fctLireCodeMorphVerbe - 1<br />
Public Function LireCodeMorphVerbe(code)<br />
On Error GoTo apres:<br />
type = "verbe (v)"<br />
soit le verbe est NORMAL<br />
f Len(code) = 6 Then<br />
Mode = Mid(code, 2, 1)<br />
temps = Mid(code, 3, 1)<br />
voix = Mid(code, 4, 1)<br />
personne = Mid(code, 5, 1)<br />
nombre = Mid(code, 6, 1)<br />
lse ' soit le verbe est PARTICIPE, dans ce cas il est plus long d'un caractère (le CAS)<br />
Mode = Mid(code, 2, 1)<br />
temps = Mid(code, 3, 1)<br />
voix = Mid(code, 4, 1)<br />
cas = Mid(code, 5, 1)<br />
genre = Mid(code, 6, 1)<br />
nombre = Mid(code, 7, 1)<br />
nd If<br />
MODE<br />
If Mode = "i" Then Mode = "indicatif (i)"<br />
If Mode = "s" Then Mode = "subjonctif (s)"<br />
If Mode = "o" Then Mode = "optatif (o)"<br />
If Mode = "m" Then Mode = "impératif (m)"<br />
If Mode = "n" Then Mode = "infinitif (n)"<br />
If Mode = "p" Then Mode = "participe (p)"<br />
If Mode = "r" Then Mode = "impératif (r)"<br />
TEMPS<br />
'If temps = "2f" Then temps = "futur second"<br />
'If temps = "2a" Then temps = "aoriste second"<br />
'If temps = "2l" Then temps = "pqp second"<br />
'If temps = "2r" Then temps = "parfait second"<br />
If temps = "p" Then temps = "présent (p)"<br />
If temps = "i" Then temps = "imparfait (i)"<br />
If temps = "f" Then temps = "futur (f)"<br />
If temps = "a" Then temps = "aoriste (a)"<br />
If temps = "x" Then temps = "parfait (x)"<br />
If temps = "y" Then temps = "plusqueparfait (y)"<br />
If temps = "z" Then temps = "futur du parfait (z)"<br />
VOIX<br />
If voix = "a" Then voix = "actif (a)"<br />
If voix = "m" Then voix = "moyen (m)"<br />
If voix = "p" Then voix = "passif (p)"<br />
If voix = "e" Then voix = "moyen ou passif (e)"<br />
CAS (pour les participes)<br />
If cas = "n" Then cas = "nominatif (n)"<br />
If cas = "g" Then cas = "génitif (g)"<br />
If cas = "a" Then cas = "accusatif (a)"<br />
If cas = "d" Then cas = "datif (d)"<br />
If cas = "v" Then cas = "vocatif (v)"<br />
GENRE (pour les participe)<br />
If genre = "m" Then genre = "masculin (m)"<br />
If genre = "f" Then genre = "féminin (f)"<br />
If genre = "n" Then genre = "neutre (n)"<br />
PERSONNE<br />
If personne = "1" Then personne = "1ère personne (1)"<br />
If personne = "2" Then personne = "2ème personne (2)"<br />
If personne = "3" Then personne = "3ème personne (3)"<br />
NOMBRE<br />
If nombre = "s" Then nombre = "singulier (s)"<br />
If nombre = "p" Then nombre = "pluriel (p)"<br />
AFFECTATIONS<br />
1) je renseigne la petite fenêtre Analyse Morphologique<br />
VERBES
fctLireCodeMorphVerbe - 2<br />
If Len(code) = 6 Then<br />
frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3) & Mid(Mode, 1, Len(Mode)<br />
- 3) & Mid(temps, 1, Len(temps) - 3) & Mid(voix, 1, Len(voix) - 3) & Mid(personne, 1, Len(personne<br />
) - 3) & Mid(nombre, 1, Len(nombre) - 3)<br />
frmAnalyseMorphologique.Show<br />
frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
", " ")<br />
ElseIf Len(code) = 7 Then<br />
'PARTICIPES<br />
frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3) & Mid(Mode, 1, Len(Mode)<br />
- 3) & Mid(temps, 1, Len(temps) - 3) & Mid(voix, 1, Len(voix) - 3) & Mid(cas, 1, Len(cas) - 3) & M<br />
id(genre, 1, Len(genre) - 3) & Mid(nombre, 1, Len(nombre) - 3)<br />
frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
", " ")<br />
'INFINITIFS qui n'ont que quatre caractères : ex. Verbe Infinitif Aaoriste Actif (vnaa)<br />
ElseIf Len(code) = 4 Then<br />
frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3) & Mid(Mode, 1, Len(Mode)<br />
- 3) & Mid(temps, 1, Len(temps) - 3) & Mid(voix, 1, Len(voix) - 3)<br />
frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
", " ")<br />
End If<br />
'2) je renseigne les ComboBox de l'Assistant de recherche morphologique<br />
Load frmAssistant<br />
If Len(code) = 6 Then<br />
frmAssistant.cbo1.Text = ttype<br />
frmAssistant.cbo2.Text = Mode<br />
frmAssistant.cbo3.Text = temps<br />
frmAssistant.cbo4.Text = voix<br />
frmAssistant.cbo5.Text = personne<br />
frmAssistant.cbo6.Text = nombre<br />
Else<br />
frmAssistant.cbo1.Text = ttype<br />
frmAssistant.cbo2.Text = Mode<br />
frmAssistant.cbo3.Text = temps<br />
frmAssistant.cbo4.Text = voix<br />
frmAssistant.cbo5.Text = cas<br />
frmAssistant.cbo6.Text = genre<br />
frmAssistant.cbo7.Text = nombre<br />
frmAssistant.cbo7.Visible = True<br />
End If<br />
Exit Function<br />
apres:<br />
'msg = MsgBox("Une erreur s'est produite : " & err.Number, vbExclamation, "Erreur")<br />
End Function
fctLireComplement - 1<br />
Public Function LireComplement(complement)<br />
Dim ofile$<br />
Dim lfile%<br />
Dim ligne$<br />
Dim Resultat$<br />
complement = Replace(complement, "{", "")<br />
complement = Replace(complement, "}", "")<br />
ofile = App.Path & "\lex\Robinson.dat"<br />
lfile = FreeFile<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If ligne = complement Then<br />
Line Input #lfile, ligne<br />
Resultat = LCase(ligne)<br />
Exit Do<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
PLUSIEURS MOTS<br />
esultat = Replace(Resultat, "conjunctive particle", "particule conjonctive")<br />
esultat = Replace(Resultat, "proper noun", "nom propre")<br />
esultat = Replace(Resultat, "personal pronoun", "pronom personnel")<br />
esultat = Replace(Resultat, "relative pronoun", "pronom relatif")<br />
esultat = Replace(Resultat, "demonstrative pronoun", "pronom démonstratif")<br />
esultat = Replace(Resultat, "reflexive pronoun", "pronom réfléchi")<br />
esultat = Replace(Resultat, "personal adjective", "adjectif personnel")<br />
esultat = Replace(Resultat, "relative adjective", "adjectif relatif")<br />
esultat = Replace(Resultat, "demonstrative adjective", "adjectif démonstratif")<br />
esultat = Replace(Resultat, "reflexive adjective", "adjectif réfléchi")<br />
esultat = Replace(Resultat, "definite article", "article défini")<br />
esultat = Replace(Resultat, "indefinite article", "article indéfini")<br />
TYPE DE MOTS<br />
esultat = Replace(Resultat, "adjective", "adjectif")<br />
esultat = Replace(Resultat, "noun", "nom")<br />
esultat = Replace(Resultat, "verb", "verbe")<br />
esultat = Replace(Resultat, "pronoun", "pronom")<br />
esultat = Replace(Resultat, "adverb", "adverbe")<br />
esultat = Replace(Resultat, "preposition", "préposition")<br />
esultat = Replace(Resultat, "participle", "participe")<br />
DECLINAISONS DES NOMS<br />
esultat = Replace(Resultat, "nominative", "nominatif")<br />
esultat = Replace(Resultat, "accusative", "accusatif")<br />
esultat = Replace(Resultat, "dative", "datif")<br />
esultat = Replace(Resultat, "genitive", "genitif")<br />
esultat = Replace(Resultat, "vocative", "vocatif")<br />
GENRES<br />
esultat = Replace(Resultat, "masculine", "masculin")<br />
esultat = Replace(Resultat, "feminine", "feminin")<br />
esultat = Replace(Resultat, "neuter", "neutre")<br />
NOMBRE<br />
esultat = Replace(Resultat, "singular", "singulier")<br />
esultat = Replace(Resultat, "plural", "pluriel")<br />
VOIX<br />
esultat = Replace(Resultat, "middle or passive", "moyen ou passif")<br />
esultat = Replace(Resultat, "active", "actif")<br />
esultat = Replace(Resultat, "passive", "passif")<br />
esultat = Replace(Resultat, "middle", "moyen")<br />
esultat = Replace(Resultat, "deponent", "déponent")<br />
TYPES DE PRONOM<br />
esultat = Replace(Resultat, "relative", "relatif")<br />
esultat = Replace(Resultat, "demonstrative", "demonstratif")<br />
esultat = Replace(Resultat, "reflexive", "réfléchi")
fctLireComplement - 2<br />
Resultat = Replace(Resultat, "personal", "personnel")<br />
Resultat = Replace(Resultat, "interrogative", "interrogatif")<br />
' NOMBRE DES CONJUGAISONS<br />
Resultat = Replace(Resultat, "first person", "1ère pers.")<br />
Resultat = Replace(Resultat, "second person", "2ème pers.")<br />
Resultat = Replace(Resultat, "third person", "3ème pers.")<br />
' TEMPS DES VERBES<br />
Resultat = Replace(Resultat, "present", "présent")<br />
Resultat = Replace(Resultat, "aorist", "aoriste")<br />
Resultat = Replace(Resultat, "future", "futur")<br />
Resultat = Replace(Resultat, "perfect", "parfait")<br />
Resultat = Replace(Resultat, "pluperfect", "p-q-p")<br />
' MODES DES VERBES<br />
Resultat = Replace(Resultat, "indicative", "indicatif")<br />
Resultat = Replace(Resultat, "imperative", "imperatif")<br />
Resultat = Replace(Resultat, "subjonctive", "subjonctif")<br />
Resultat = Replace(Resultat, "infinitive", "infinitif")<br />
'DEGRE<br />
Resultat = Replace(Resultat, "comparative", "comparatif")<br />
Resultat = Replace(Resultat, "superlative", "superlatif")<br />
'Autre<br />
Resultat = Replace(Resultat, "particle", "particule")<br />
Resultat = Replace(Resultat, "conjunction", "conjonction ")<br />
Resultat = Replace(Resultat, "indefinite", "indéfini")<br />
Resultat = Replace(Resultat, "attic form", "(forme attique)")<br />
Resultat = Replace(Resultat, "contracted", "contracte")<br />
Resultat = Replace(Resultat, "inpure", "impropre")<br />
Resultat = Replace(Resultat, "irregular", "irrégulière")<br />
Resultat = Replace(Resultat, " or ", " ou ")<br />
Resultat = Replace(Resultat, "form", "forme")<br />
Resultat = Replace(Resultat, "negative", "négatif")<br />
Resultat = Replace(Resultat, "indeclinable", "indéclinable")<br />
Resultat = Replace(Resultat, "definite", "défini")<br />
Resultat = Replace(Resultat, "indefinite", "indéfini")<br />
Resultat = Replace(Resultat, "article", "article")<br />
complement = Resultat<br />
End Function
fctLireCRP - 1<br />
Public Function LireCRP(livre, chapitre, verset)<br />
Dim ofile$, lfile%, ligne$<br />
'verset = "1"<br />
ofile = App.Path & "\modules\CRP\Crp.txt"<br />
lfile = FreeFile<br />
Open ofile For Input As #lfile<br />
On Error GoTo err:<br />
Do<br />
Line Input #lfile, ligne<br />
set) + 2, Len(ligne))<br />
If ligne = livre Then<br />
'j'ai trouvé mon livre; je cherche maintenant mon chapitre<br />
Do<br />
Line Input #lfile, ligne<br />
If ligne = "Chapitre " & chapitre Then<br />
'j'ai trouvé mon chapitre, je cherche mon verset<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(verset)) = verset Then<br />
frmBible.txtPassage.Text = frmBible.txtPassage.Text & Mid(ligne, Len(ve<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, 1) = "1" Or Left(ligne, 1) = "2" Or Left(ligne,<br />
) = "3" _<br />
Or Left(ligne, 1) = "4" Or Left(ligne, 1) = "5" Or Left(lig<br />
e, 1) = "6" _<br />
Or Left(ligne, 1) = "7" Or Left(ligne, 1) = "8" Or Left(lig<br />
e, 1) = "9" Then<br />
GoTo apres:<br />
Else<br />
frmBible.txtPassage.Text = frmBible.txtPassage.Text & ligne<br />
End If<br />
Loop<br />
End If<br />
Loop<br />
End If<br />
Loop<br />
pres:<br />
End If<br />
Loop While Not EOF(lfile)<br />
rr:<br />
lose<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireDarby - 1<br />
Public Function LireDarby(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\Darby\darby.txt"<br />
lfile = FreeFile<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Nom"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jug"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "Samun"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "Samde"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "UnRo"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "DeRo"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "UnCr"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "DeCr"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Esd"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Can"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Esa"<br />
ElseIf livre = "Jérémie" Then
fctLireDarby - 2<br />
chercher = "Jer"<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Ose"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Sop"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Agg"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zac"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
ElseIf livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luc"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Jea"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "UnCo"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "DeCo"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"
fctLireDarby - 3<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Php"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "UnTh"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "DeTh"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "UnTi"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "DeTi"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jac"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "UnPi"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "DePi"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "UnJn"<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "DeJn"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "TrJn"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jude"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
End If<br />
recherche = chercher & "-" & chapitre & "-" & verset & "-"<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireDR - 1<br />
Public Function LireDR(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\DR\dr.txt"<br />
lfile = FreeFile<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Nom"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jug"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "Samun"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "Samde"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "UnRo"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "DeRo"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "UnCr"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "DeCr"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Esd"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Can"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Esa"<br />
ElseIf livre = "Jérémie" Then<br />
chercher = "Jer"
fctLireDR - 2<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Ose"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Sop"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Agg"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zac"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
ElseIf livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luc"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Jea"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "UnCo"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "DeCo"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"
fctLireDR - 3<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Php"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "UnTh"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "DeTh"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "UnTi"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "DeTi"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jac"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "UnPi"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "DePi"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "UnJn"<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "DeJn"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "TrJn"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jude"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
End If<br />
recherche = chercher & "-" & chapitre & "-" & verset & "-"<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireDR - 4
fctLireFillion - 1<br />
Public Function LireFillion(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\Fillion\Fillion.txt"<br />
lfile = FreeFile<br />
If livre = "Genèse" Then<br />
chercher = "Gn"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Ex"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lv"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Nb"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Dt"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jg"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rt"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "I S"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "II S"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "I R"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "II R"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "I Ch"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "II Ch"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Esd"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Ne"<br />
ElseIf livre = "Tobie" Then<br />
chercher = "Tb"<br />
ElseIf livre = "Judith" Then<br />
chercher = "Jdt"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "1 Maccabées" Then<br />
chercher = "I M"<br />
ElseIf livre = "2 Maccabées" Then<br />
chercher = "II M"<br />
ElseIf livre = "Job" Then<br />
chercher = "Jb"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Ps"<br />
ElseIf livre = "Proverbes" Then
fctLireFillion - 2<br />
chercher = "Pr"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Qo"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Ct"<br />
ElseIf livre = "Sagesse" Then<br />
chercher = "Sg"<br />
ElseIf livre = "Ecclésiastique" Then<br />
chercher = "Si"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Is"<br />
ElseIf livre = "Jérémie" Then<br />
chercher = "Jr"<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lm"<br />
ElseIf livre = "Baruch" Then<br />
chercher = "Ba"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Ez"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dn"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Os"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Jl"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Am"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Ab"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mi"<br />
ElseIf livre = "Nahum" Then<br />
chercher = "Na"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Ha"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "So"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Ag"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Za"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Ml"<br />
ElseIf livre = "Matthieu" Then<br />
chercher = "Mt"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mc"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Lc"
fctLireFillion - 3<br />
ElseIf livre = "Jean" Then<br />
chercher = "Jn"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "I Co"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "II Co"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Php"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "I Th"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "II Th"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "I Ti"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "II Ti"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tite"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Philem"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Hébr"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jac"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "I Pet"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "II Pet"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "I Jn"<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "II Jn"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "III Jn"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jud"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Apoc"<br />
End If<br />
'Hébr 4,1.<br />
recherche = chercher & " " & chapitre & "," & verset & ". "
fctLireFillion - 4<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If Mid(ligne, 1, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Trim(Mid(ligne, Len(recherche), Len(ligne)))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireFlaviusJosephe - 1<br />
Public Function LireFJ(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
frmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
If frmBible.cboVersion.Text = "Flavius Josèphe" Then<br />
frmBible.txtPassage.FontSize = 14<br />
frmBible.txtPassage.Font = "Bwgrkn"<br />
Else<br />
frmBible.txtPassage.FontSize = 12<br />
frmBible.txtPassage.Font = "Times"<br />
End If<br />
If frmBible.cboVersion.Text = "Flavius Josèphe" Then<br />
ofile = App.Path & "\modules\JOS\jos.txt"<br />
Else<br />
ofile = App.Path & "\modules\JOS\joe.txt"<br />
End If<br />
lfile = FreeFile<br />
If livre = "Antiquités judaïques" Then<br />
chercher = "Ant"<br />
ElseIf livre = "Guerre des Juifs" Then<br />
chercher = "Jwr"<br />
ElseIf livre = "Vie de FJ" Then<br />
chercher = "Lif"<br />
ElseIf livre = "Contre Apion" Then<br />
chercher = "Apn"<br />
End If<br />
recherche = Trim(chercher & " " & chapitre & ":" & verset & " ")<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
Do<br />
Line Input #lfile, ligne<br />
If Mid(ligne, 1, Len(chercher)) = chercher Then Exit Function<br />
frmBible.txtPassage.Text = frmBible.txtPassage.Text & ligne<br />
Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
nd Function
fctLireHomere - 1<br />
Public Function LireHomere(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\HHG\hhg.txt"<br />
lfile = FreeFile<br />
If livre = "Iliade" Then<br />
chercher = "ILI"<br />
ElseIf livre = "Odyssée" Then<br />
chercher = "ODY"<br />
End If<br />
recherche = chercher & " " & chapitre & ":" & verset & " "<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
frmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "SPIonic"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireJerusalem - 1<br />
Public Function LireJerusalem(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\JER\jer.txt"<br />
lfile = FreeFile<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Num"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jdg"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "1Sa"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "2Sa"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "1Ki"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "2Ki"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "1Ch"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "2Ch"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Ezr"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Sol"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Isa"<br />
ElseIf livre = "Jérémie" Then
fctLireJerusalem - 2<br />
chercher = "Jer"<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Hos"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Zep"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Hag"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zec"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
ElseIf livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luk"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Joh"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "1Co"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "2Co"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"
fctLireJerusalem - 3<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "1Th"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "2Th"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "1Ti"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "2Ti"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jam"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "1Pe"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "2Pe"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "1Jo"<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "2Jo"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "3Jo"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jud"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
End If<br />
recherche = chercher & " " & chapitre & "-" & verset & " "<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireKJV - 1<br />
Public Function LireKJV(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\KJV\kjv.txt"<br />
lfile = FreeFile<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Nom"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jug"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "Samun"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "Samde"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "UnRo"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "DeRo"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "UnCr"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "DeCr"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Esd"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Can"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Esa"<br />
ElseIf livre = "Jérémie" Then<br />
chercher = "Jer"
fctLireKJV - 2<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Ose"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Sop"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Agg"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zac"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
ElseIf livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luc"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Jea"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "UnCo"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "DeCo"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"
fctLireKJV - 3<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Php"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "UnTh"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "DeTh"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "UnTi"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "DeTi"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jac"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "UnPi"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "DePi"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "UnJn"<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "DeJn"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "TrJn"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jude"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
End If<br />
recherche = chercher & "-" & chapitre & "-" & verset & "-"<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireKJVD - 1<br />
Public Function LireKJVD(mot)<br />
Dim fichier$, def$, lfile%<br />
lfile = FreeFile<br />
fichier = App.Path & "\modules\KJV\kjvd.dat"<br />
def = App.Path & "\modules\KJV\def.htm"<br />
frmParse2.Text1.Text = ""<br />
mot = UCase(mot)<br />
Open fichier For Input As #lfile<br />
lose<br />
Do<br />
Input #lfile, ligne<br />
If ligne = mot Then<br />
End If<br />
frmParse2.Text1.Text = ligne<br />
Loop<br />
Do<br />
Loop While Not EOF(lfile)<br />
Input #lfile, ligne<br />
frmParse2.Text1.Text = frmParse2.Text1.Text & vbCrLf & ligne<br />
Exit Do<br />
file = FreeFile + 1<br />
rmParse2.Text1.Text = Replace(frmParse2.Text1.Text, "~", ",")<br />
f frmParse2.Text1.Text = "" Then<br />
rmParse2.Text1.Text = "" & UCase(mot) & "" & "" & "" & "Pas de définition pour ce mo<br />
." & ""<br />
nd If<br />
Open def For Output As #lfile<br />
rite #lfile, frmParse2.Text1.Text<br />
lose<br />
oad frmBrowser<br />
rmBrowser.WindowState = 0<br />
rmBrowser.cboAddress.Text = def<br />
rmBrowser.Show<br />
nd Function
fctLireLSG - 1<br />
Public Function LireLSG(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\lsg1901\lsg.txt"<br />
lfile = FreeFile<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Nom"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jug"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "Samun"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "Samde"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "UnRo"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "DeRo"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "UnCr"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "DeCr"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Esd"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Can"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Esa"<br />
ElseIf livre = "Jérémie" Then
fctLireLSG - 2<br />
chercher = "Jer"<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Ose"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Sop"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Agg"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zac"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
ElseIf livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luc"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Jea"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "UnCo"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "DeCo"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"
fctLireLSG - 3<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Php"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "UnTh"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "DeTh"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "UnTi"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "DeTi"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jac"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "UnPi"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "DePi"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "UnJn"<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "DeJn"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "TrJn"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jude"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
End If<br />
recherche = chercher & "-" & chapitre & "-" & verset & "-"<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireLSGStrong - 1<br />
Public Function LireLSGStrong(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\LSG\lsg.txt"<br />
lfile = FreeFile<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Num"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jdg"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "1Sa"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "2Sa"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "1Ki"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "2Ki"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "1Ch"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "2Ch"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Ezr"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Sol"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Isa"
fctLireLSGStrong - 2<br />
ElseIf livre = "Jérémie" Then<br />
chercher = "Jer"<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Hos"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Zep"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Hag"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zec"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
ElseIf livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luk"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Joh"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "1Co"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "2Co"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then
fctLireLSGStrong - 3<br />
chercher = "Eph"<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "1Th"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "2Th"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "1Ti"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "2Ti"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jam"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "1Pe"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "2Pe"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "1Jo"<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "2Jo"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "3Jo"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jud"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
End If<br />
recherche = chercher & " " & chapitre & "-" & verset & " "<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
purerLSG (recherche)<br />
nd Function
fctLireLSGStrong - 4
fctLireLSGStrong2 - 1<br />
Public Function LireLSGStrong2(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
fichier = App.Path & "\modules\LSG\lsgstrongs.txt"<br />
lfile = FreeFile<br />
If livre = "Révélation" Then livre = "Apocalypse"<br />
passage = livre & " " & chapitre<br />
verset = verset & " "<br />
'Genèse 1<br />
'1 Au commencement , Dieu créa (8804) les cieux et la<br />
terre .<br />
' recherche du verset (le passage)<br />
Open fichier For Input As #lfile<br />
On Error GoTo apres:<br />
Do<br />
Line Input #lfile, ligne<br />
If ligne = passage Then<br />
If InStr(1, ligne, verset) 0 Then<br />
frmParse2.Text1.Text = ligne<br />
Exit Do<br />
Else<br />
Do<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, verset) 0 Then<br />
frmParse2.Text1.Text = Trim(ligne)<br />
frmParse2.Text1.Text = Mid(ligne, Len(verset) + 1, Len(ligne))<br />
Exit Do<br />
End If<br />
Loop<br />
End If<br />
End If<br />
Loop While Not EOF(lfile)<br />
pres:<br />
lose<br />
exte = frmParse2.Text1.Text<br />
exte = Replace(texte, ")", ")" & vbCrLf)<br />
exte = Replace(texte, ">", ">" & vbCrLf)<br />
ichier = App.Path & "\tools\temp2.txt"<br />
file = FreeFile<br />
Open fichier For Output As #lfile<br />
rint #lfile, texte<br />
lose<br />
file = FreeFile<br />
exte = ""<br />
Open fichier For Input As #lfile<br />
o<br />
Line Input #lfile, ligne<br />
ligne = Trim(ligne)<br />
If Left(ligne, 1) = "(" Or Left(ligne, 1) = "
fctLireLSGStrong2 - 2<br />
texte = Replace(texte, "~", ",")<br />
texte = Replace(texte, "=", ":")<br />
texte = Replace(texte, "@", "!")<br />
texte = Replace(texte, " ", " ")<br />
texte = Replace(texte, " ,", ",")<br />
'texte = Replace(texte, " -", "-")<br />
'frmBible.lblchapitre.Caption = chapitre<br />
frmBible.txtPassage.Text = texte<br />
frmBible.txtPassage.Font = "Times"<br />
frmBible.txtPassage.FontSize = 12<br />
frmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
End Function
fctLireLXX - 1<br />
Public Function LireLXX(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$, espace%, texte$<br />
ofile = App.Path & "\modules\LXX\lxx.txt"<br />
lfile = FreeFile<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Num"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jdg"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "1Sa"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "2Sa"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "1Ki"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "2Ki"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "1Ch"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "2Ch"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Ezr"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Sol"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Isa"<br />
ElseIf livre = "Jérémie" Then
fctLireLXX - 2<br />
chercher = "Jer"<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Hos"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Zep"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Hag"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zec"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
End If<br />
recherche = chercher & " " & chapitre & ":" & verset & " "<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
texte = texte & Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
file = App.Path & "\modules\WHpars\morphwh.txt"<br />
Open ofile For Output As #lfile<br />
exte = Trim(texte)<br />
exte = Replace(texte, ") ", ")" & vbCrLf)<br />
rint #lfile, texte<br />
lose<br />
Open ofile For Input As #lfile<br />
Do
fctLireLXX - 3<br />
Line Input #lfile, ligne<br />
espace = InStr(1, ligne, " ")<br />
If ligne "" Then frmBible.txtPassage.Text = frmBible.txtPassage.Text & Mid(ligne, 1, esp<br />
ace - 1) & " "<br />
Loop While Not EOF(lfile)<br />
Close<br />
'frmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
'frmBible.txtPassage.FontSize = 14<br />
'frmBible.txtPassage.Font = "Times"<br />
frmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
End Function
fctLireMRT - 1<br />
Public Function LireMRT(livre, chapitre, verset)<br />
Dim ofile$, lfile%, ligne$<br />
'verset = "1"<br />
ofile = App.Path & "\modules\MRT\mrt.txt"<br />
lfile = FreeFile<br />
Open ofile For Input As #lfile<br />
On Error GoTo err:<br />
Do<br />
Line Input #lfile, ligne<br />
set) + 2, Len(ligne))<br />
If ligne = livre Then<br />
'j'ai trouvé mon livre; je cherche maintenant mon chapitre<br />
Do<br />
Line Input #lfile, ligne<br />
If ligne = "Chapitre " & chapitre Then<br />
'j'ai trouvé mon chapitre, je cherche mon verset<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(verset)) = verset Then<br />
frmBible.txtPassage.Text = frmBible.txtPassage.Text & Mid(ligne, Len(ve<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, 1) = "1" Or Left(ligne, 1) = "2" Or Left(ligne,<br />
) = "3" _<br />
Or Left(ligne, 1) = "4" Or Left(ligne, 1) = "5" Or Left(lig<br />
e, 1) = "6" _<br />
Or Left(ligne, 1) = "7" Or Left(ligne, 1) = "8" Or Left(lig<br />
e, 1) = "9" Then<br />
GoTo apres:<br />
Else<br />
frmBible.txtPassage.Text = frmBible.txtPassage.Text & ligne<br />
End If<br />
Loop<br />
End If<br />
Loop<br />
End If<br />
Loop<br />
pres:<br />
End If<br />
Loop While Not EOF(lfile)<br />
rr:<br />
lose<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireNA26 - 1<br />
Public Function LireNA26(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\NA26\na26.txt"<br />
lfile = FreeFile<br />
If livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luc"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Jea"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "UnCo"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "DeCo"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Php"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "UnTh"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "DeTh"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "UnTi"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "DeTi"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jac"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "UnPi"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "DePi"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "UnJn"<br />
ElseIf livre = "2 Jean" Then
fctLireNA26 - 2<br />
chercher = "DeJn"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "TrJn"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jude"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
End If<br />
chapitre = Val(chapitre)<br />
verset = Val(verset)<br />
If chapitre < 10 Then<br />
chapitre = "0" & chapitre<br />
End If<br />
If verset < 10 Then<br />
verset = "0" & verset<br />
End If<br />
recherche = chercher & "-" & chapitre & "-" & verset & " "<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
Exit Do<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
rmBible.txtPassage.Text = LCase(frmBible.txtPassage.Text)<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",", 1)<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "s ", "j ", 1)<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "s,", "j,", 1)<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "s.", "j.", 1)<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "s:", "j:", 1)<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Grenet"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireNA27 - 1<br />
Public Function LireNA27(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$, espace%, texte$<br />
ofile = App.Path & "\modules\NA27\na27p.txt"<br />
lfile = FreeFile<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Num"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jdg"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "1Sa"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "2Sa"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "1Ki"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "2Ki"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "1Ch"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "2Ch"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Ezr"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Sol"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Isa"<br />
ElseIf livre = "Jérémie" Then
fctLireNA27 - 2<br />
chercher = "Jer"<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Hos"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Zep"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Hag"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zec"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
ElseIf livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luk"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Joh"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "1Co"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "2Co"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"
fctLireNA27 - 3<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "1Th"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "2Th"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "1Ti"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "2Ti"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jam"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "1Pe"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "2Pe"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "1Jo"<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "2Jo"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "3Jo"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jud"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
End If<br />
recherche = chercher & " " & chapitre & ":" & verset & " "<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
texte = texte & Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
file = App.Path & "\modules\WHpars\morphwh.txt"<br />
Open ofile For Output As #lfile<br />
exte = Trim(texte)<br />
exte = Replace(texte, ") ", ")" & vbCrLf)<br />
rint #lfile, texte<br />
lose<br />
Open ofile For Input As #lfile
fctLireNA27 - 4<br />
Do<br />
Line Input #lfile, ligne<br />
espace = InStr(1, ligne, " ")<br />
If ligne "" Then frmBible.txtPassage.Text = frmBible.txtPassage.Text & Mid(ligne, 1, esp<br />
ace - 1) & " "<br />
Loop While Not EOF(lfile)<br />
Close<br />
'frmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
'frmBible.txtPassage.FontSize = 14<br />
'frmBible.txtPassage.Font = "Times"<br />
frmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
'EpurerWH (recherche)<br />
frmParse2.Text1.Text = recherche<br />
End Function
fctLireNEG - 1<br />
Public Function LireNEG(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\NEG\neg.txt"<br />
lfile = FreeFile<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Num"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jdg"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "1Sa"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "2Sa"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "1Ki"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "2Ki"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "1Ch"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "2Ch"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Ezr"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Sol"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Isa"<br />
ElseIf livre = "Jérémie" Then
fctLireNEG - 2<br />
chercher = "Jer"<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Hos"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Zep"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Hag"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zec"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
ElseIf livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luk"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Joh"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "1Co"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "2Co"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"
fctLireNEG - 3<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "1Th"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "2Th"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "1Ti"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "2Ti"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jam"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "1Pe"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "2Pe"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "1Jo"<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "2Jo"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "3Jo"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jud"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
End If<br />
recherche = chercher & " " & chapitre & "-" & verset & " "<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
purerNEG (recherche)<br />
nd Function
fctLireNET - 1<br />
Public Function LireNET(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
If frmBible.cboVersion.Text = "NET" Then<br />
ofile = App.Path & "\modules\NET\net.txt"<br />
ElseIf frmBible.cboVersion.Text = "JPS" Then<br />
ofile = App.Path & "\modules\JPS\jps.txt"<br />
End If<br />
'ofile = App.Path & "\modules\NET\net.txt"<br />
lfile = FreeFile<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Num"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jdg"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "1Sa"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "2Sa"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "1Ki"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "2Ki"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "1Ch"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "2Ch"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Ezr"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"
fctLireNET - 2<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Sol"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Isa"<br />
ElseIf livre = "Jérémie" Then<br />
chercher = "Jer"<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Hos"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Zep"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Hag"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zec"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
ElseIf livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luk"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Joh"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "1Co"<br />
ElseIf livre = "2 Corinthiens" Then
fctLireNET - 3<br />
chercher = "2Co"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "1Th"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "2Th"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "1Ti"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "2Ti"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jam"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "1Pe"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "2Pe"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "1Jo"<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "2Jo"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "3Jo"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jud"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
End If<br />
recherche = chercher & " " & chapitre & ":" & verset & " "<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"
fctLireNET - 4<br />
frmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
'EpurerNEG (recherche)<br />
End Function
fctLireNTDF - 1<br />
Public Function LireNTDF(livre, chapitre, verset)<br />
Dim aouvrir$, recherche$, ligne$<br />
Dim lfile<br />
If livre = "Révélation" Then<br />
livre = "Apocalypse"<br />
ElseIf livre = "Lamentations" Then<br />
livre = "Lamentations de Jérémie"<br />
ElseIf livre = "Nahoum" Then<br />
livre = "Nahum"<br />
ElseIf livre = "Habaquq" Then<br />
livre = "Habakuk"<br />
End If<br />
' affectation variable<br />
aouvrir = App.Path & "\modules\DF\" & livre & ".txt"<br />
recherche = chapitre & "-" & verset & " "<br />
lfile = FreeFile<br />
frmBible.txtPassage.Text = ""<br />
On Error Resume Next<br />
Open aouvrir For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
frmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",", 1)<br />
End If<br />
Loop While Not EOF(lfile)<br />
Close<br />
nd Function
fctLireOST - 1<br />
Public Function LireOST(livre, chapitre, verset)<br />
Dim ofile$, lfile%, ligne$<br />
'verset = "1"<br />
ofile = App.Path & "\modules\OST\ost.txt"<br />
lfile = FreeFile<br />
Open ofile For Input As #lfile<br />
On Error GoTo err:<br />
Do<br />
Line Input #lfile, ligne<br />
set) + 2, Len(ligne))<br />
If ligne = livre Then<br />
'j'ai trouvé mon livre; je cherche maintenant mon chapitre<br />
Do<br />
Line Input #lfile, ligne<br />
If ligne = "Chapitre " & chapitre Then<br />
'j'ai trouvé mon chapitre, je cherche mon verset<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(verset)) = verset Then<br />
frmBible.txtPassage.Text = frmBible.txtPassage.Text & Mid(ligne, Len(ve<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, 1) = "1" Or Left(ligne, 1) = "2" Or Left(ligne,<br />
) = "3" _<br />
Or Left(ligne, 1) = "4" Or Left(ligne, 1) = "5" Or Left(lig<br />
e, 1) = "6" _<br />
Or Left(ligne, 1) = "7" Or Left(ligne, 1) = "8" Or Left(lig<br />
e, 1) = "9" Then<br />
GoTo apres:<br />
Else<br />
frmBible.txtPassage.Text = frmBible.txtPassage.Text & ligne<br />
End If<br />
Loop<br />
End If<br />
Loop<br />
End If<br />
Loop<br />
pres:<br />
End If<br />
Loop While Not EOF(lfile)<br />
rr:<br />
lose<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLirePereGrecs - 1<br />
Public Function LirePeresGrecs(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\APF\apfg.txt"<br />
lfile = FreeFile<br />
If livre = "1ère de Clément" Then<br />
chercher = "1Cl"<br />
ElseIf livre = "2ème de Clément" Then<br />
chercher = "2Cl"<br />
ElseIf livre = "Epître de Barnabé" Then<br />
chercher = "Brn"<br />
ElseIf livre = "Lettre à Diognète" Then<br />
chercher = "Dio"<br />
ElseIf livre = "Ignace - 1ère Ephésiens" Then<br />
chercher = "IEp"<br />
ElseIf livre = "Ignace - 2ème Ephésiens" Then<br />
chercher = "IIEp"<br />
ElseIf livre = "Ignace - aux Magnésiens" Then<br />
chercher = "IMg"<br />
ElseIf livre = "Ignace - aux Tralliens" Then<br />
chercher = "ITr"<br />
ElseIf livre = "Ignace - aux Romains" Then<br />
chercher = "IRo"<br />
ElseIf livre = "Ignace - aux Philadelphiens" Then<br />
chercher = "IPh"<br />
ElseIf livre = "Ignace - aux Smyrniotes" Then<br />
chercher = "ISm"<br />
ElseIf livre = "Ignace - à Polycarpe" Then<br />
chercher = "IPo"<br />
ElseIf livre = "Polycarpe - aux Philippiens" Then<br />
chercher = "Pol"<br />
ElseIf livre = "Martyr de Polycarpe" Then<br />
chercher = "MPo"<br />
ElseIf livre = "La Didachè" Then<br />
chercher = "Did"<br />
ElseIf livre = "Hermas - Vision 1" Then<br />
chercher = "HV1"<br />
ElseIf livre = "Hermas - Vision 2" Then<br />
chercher = "HV2"<br />
ElseIf livre = "Hermas - Vision 3" Then<br />
chercher = "HV3"<br />
ElseIf livre = "Hermas - Vision 4" Then<br />
chercher = "HV4"<br />
ElseIf livre = "Hermas - Vision 5" Then<br />
chercher = "HV5"<br />
ElseIf livre = "Hermas - Précepte 1" Then<br />
chercher = "HMA"<br />
ElseIf livre = "Hermas - Précepte 2" Then<br />
chercher = "HMB"<br />
ElseIf livre = "Hermas - Précepte 3" Then<br />
chercher = "HMC"
fctLirePereGrecs - 2<br />
ElseIf livre = "Hermas - Précepte 4" Then<br />
chercher = "HMD"<br />
ElseIf livre = "Hermas - Précepte 5" Then<br />
chercher = "HME"<br />
ElseIf livre = "Hermas - Précepte 6" Then<br />
chercher = "HMF"<br />
ElseIf livre = "Hermas - Précepte 7" Then<br />
chercher = "HMG"<br />
ElseIf livre = "Hermas - Précepte 8" Then<br />
chercher = "HMH"<br />
ElseIf livre = "Hermas - Précepte 9" Then<br />
chercher = "HMI"<br />
ElseIf livre = "Hermas - Précepte 10" Then<br />
chercher = "HMJ"<br />
ElseIf livre = "Hermas - Précepte 11" Then<br />
chercher = "HMK"<br />
ElseIf livre = "Hermas - Précepte 12" Then<br />
chercher = "HML"<br />
ElseIf livre = "Hermas - Similitudes 1" Then<br />
chercher = "HSA"<br />
ElseIf livre = "Hermas - Similitudes 2" Then<br />
chercher = "HSB"<br />
ElseIf livre = "Hermas - Similitudes 3" Then<br />
chercher = "HSC"<br />
ElseIf livre = "Hermas - Similitudes 4" Then<br />
chercher = "HSD"<br />
ElseIf livre = "Hermas - Similitudes 5" Then<br />
chercher = "HSE"<br />
ElseIf livre = "Hermas - Similitudes 6" Then<br />
chercher = "HSF"<br />
ElseIf livre = "Hermas - Similitudes 7" Then<br />
chercher = "HSG"<br />
ElseIf livre = "Hermas - Similitudes 8" Then<br />
chercher = "HSH"<br />
ElseIf livre = "Hermas - Similitudes 9" Then<br />
chercher = "HSI"<br />
ElseIf livre = "Hermas - Similitudes 10" Then<br />
chercher = "HSJ"<br />
End If<br />
recherche = chercher & " " & chapitre & ":" & verset & " "<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
Do<br />
On Error GoTo suite:<br />
Line Input #lfile, ligne<br />
If Mid(ligne, 1, 3) = chercher Then Exit Do<br />
frmBible.txtPassage.Text = frmBible.txtPassage.Text & " " & ligne<br />
Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
uite:<br />
lose<br />
frmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 14<br />
rmBible.txtPassage.Font = "Bwgrkn"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLirePeresEn - 1<br />
Public Function LirePeresEn(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
If frmBible.cboVersion.Text = "Lightfoot" Then<br />
ofile = App.Path & "\modules\APF\Lightfoot.txt"<br />
Else<br />
ofile = App.Path & "\modules\APF\ape.txt"<br />
End If<br />
lfile = FreeFile<br />
If livre = "1ère de Clément" Then<br />
chercher = "1Cl"<br />
ElseIf livre = "2ème de Clément" Then<br />
chercher = "2Cl"<br />
ElseIf livre = "Epître de Barnabé" Then<br />
chercher = "Brn"<br />
ElseIf livre = "Lettre à Diognète" Then<br />
chercher = "Dio"<br />
ElseIf livre = "Ignace - 1ère Ephésiens" Then<br />
chercher = "IEp"<br />
ElseIf livre = "Ignace - 2ème Ephésiens" Then<br />
chercher = "IIEp"<br />
ElseIf livre = "Ignace - aux Magnésiens" Then<br />
chercher = "IMg"<br />
ElseIf livre = "Ignace - aux Tralliens" Then<br />
chercher = "ITr"<br />
ElseIf livre = "Ignace - aux Romains" Then<br />
chercher = "IRo"<br />
ElseIf livre = "Ignace - aux Philadelphiens" Then<br />
chercher = "IPh"<br />
ElseIf livre = "Ignace - aux Smyrniotes" Then<br />
chercher = "ISm"<br />
ElseIf livre = "Ignace - à Polycarpe" Then<br />
chercher = "IPo"<br />
ElseIf livre = "Polycarpe - aux Philippiens" Then<br />
chercher = "Pol"<br />
ElseIf livre = "Martyr de Polycarpe" Then<br />
chercher = "MPo"<br />
ElseIf livre = "La Didachè" Then<br />
chercher = "Did"<br />
ElseIf livre = "Hermas - Vision 1" Then<br />
chercher = "HV1"<br />
ElseIf livre = "Hermas - Vision 2" Then<br />
chercher = "HV2"<br />
ElseIf livre = "Hermas - Vision 3" Then<br />
chercher = "HV3"<br />
ElseIf livre = "Hermas - Vision 4" Then<br />
chercher = "HV4"<br />
ElseIf livre = "Hermas - Vision 5" Then<br />
chercher = "HV5"<br />
ElseIf livre = "Hermas - Précepte 1" Then<br />
chercher = "HMA"<br />
ElseIf livre = "Hermas - Précepte 2" Then
fctLirePeresEn - 2<br />
chercher = "HMB"<br />
ElseIf livre = "Hermas - Précepte 3" Then<br />
chercher = "HMC"<br />
ElseIf livre = "Hermas - Précepte 4" Then<br />
chercher = "HMD"<br />
ElseIf livre = "Hermas - Précepte 5" Then<br />
chercher = "HME"<br />
ElseIf livre = "Hermas - Précepte 6" Then<br />
chercher = "HMF"<br />
ElseIf livre = "Hermas - Précepte 7" Then<br />
chercher = "HMG"<br />
ElseIf livre = "Hermas - Précepte 8" Then<br />
chercher = "HMH"<br />
ElseIf livre = "Hermas - Précepte 9" Then<br />
chercher = "HMI"<br />
ElseIf livre = "Hermas - Précepte 10" Then<br />
chercher = "HMJ"<br />
ElseIf livre = "Hermas - Précepte 11" Then<br />
chercher = "HMK"<br />
ElseIf livre = "Hermas - Précepte 12" Then<br />
chercher = "HML"<br />
ElseIf livre = "Hermas - Similitudes 1" Then<br />
chercher = "HSA"<br />
ElseIf livre = "Hermas - Similitudes 2" Then<br />
chercher = "HSB"<br />
ElseIf livre = "Hermas - Similitudes 3" Then<br />
chercher = "HSC"<br />
ElseIf livre = "Hermas - Similitudes 4" Then<br />
chercher = "HSD"<br />
ElseIf livre = "Hermas - Similitudes 5" Then<br />
chercher = "HSE"<br />
ElseIf livre = "Hermas - Similitudes 6" Then<br />
chercher = "HSF"<br />
ElseIf livre = "Hermas - Similitudes 7" Then<br />
chercher = "HSG"<br />
ElseIf livre = "Hermas - Similitudes 8" Then<br />
chercher = "HSH"<br />
ElseIf livre = "Hermas - Similitudes 9" Then<br />
chercher = "HSI"<br />
ElseIf livre = "Hermas - Similitudes 10" Then<br />
chercher = "HSJ"<br />
End If<br />
recherche = chercher & " " & chapitre & ":" & verset & " "<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
Do<br />
On Error GoTo suite:<br />
Line Input #lfile, ligne<br />
If Mid(ligne, 1, 3) = chercher Then Exit Do<br />
frmBible.txtPassage.Text = frmBible.txtPassage.Text & " " & ligne<br />
Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
uite:<br />
lose<br />
frmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLirePeresEn - 3
fctLirePeresFr - 1<br />
Public Function LirePeresFr(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\APF\apff.txt"<br />
lfile = FreeFile<br />
If livre = "1ère de Clément" Then<br />
chercher = "1Cl"<br />
ElseIf livre = "2ème de Clément" Then<br />
chercher = "2Cl"<br />
ElseIf livre = "Epître de Barnabé" Then<br />
chercher = "Brn"<br />
ElseIf livre = "Lettre à Diognète" Then<br />
chercher = "Dio"<br />
ElseIf livre = "Ignace - 1ère Ephésiens" Then<br />
chercher = "IEp"<br />
ElseIf livre = "Ignace - 2ème Ephésiens" Then<br />
chercher = "IIEp"<br />
ElseIf livre = "Ignace - aux Magnésiens" Then<br />
chercher = "IMg"<br />
ElseIf livre = "Ignace - aux Tralliens" Then<br />
chercher = "ITr"<br />
ElseIf livre = "Ignace - aux Romains" Then<br />
chercher = "IRo"<br />
ElseIf livre = "Ignace - aux Philadelphiens" Then<br />
chercher = "IPh"<br />
ElseIf livre = "Ignace - aux Smyrniotes" Then<br />
chercher = "ISm"<br />
ElseIf livre = "Ignace - à Polycarpe" Then<br />
chercher = "IPo"<br />
ElseIf livre = "Polycarpe - aux Philippiens" Then<br />
chercher = "Pol"<br />
ElseIf livre = "Martyr de Polycarpe" Then<br />
chercher = "MPo"<br />
ElseIf livre = "La Didachè" Then<br />
chercher = "Did"<br />
ElseIf livre = "Hermas - Vision 1" Then<br />
chercher = "HV1"<br />
ElseIf livre = "Hermas - Vision 2" Then<br />
chercher = "HV2"<br />
ElseIf livre = "Hermas - Vision 3" Then<br />
chercher = "HV3"<br />
ElseIf livre = "Hermas - Vision 4" Then<br />
chercher = "HV4"<br />
ElseIf livre = "Hermas - Vision 5" Then<br />
chercher = "HV5"<br />
ElseIf livre = "Hermas - Précepte 1" Then<br />
chercher = "HMA"<br />
ElseIf livre = "Hermas - Précepte 2" Then<br />
chercher = "HMB"<br />
ElseIf livre = "Hermas - Précepte 3" Then<br />
chercher = "HMC"<br />
ElseIf livre = "Hermas - Précepte 4" Then<br />
chercher = "HMD"
fctLirePeresFr - 2<br />
ElseIf livre = "Hermas - Précepte 5" Then<br />
chercher = "HME"<br />
ElseIf livre = "Hermas - Précepte 6" Then<br />
chercher = "HMF"<br />
ElseIf livre = "Hermas - Précepte 7" Then<br />
chercher = "HMG"<br />
ElseIf livre = "Hermas - Précepte 8" Then<br />
chercher = "HMH"<br />
ElseIf livre = "Hermas - Précepte 9" Then<br />
chercher = "HMI"<br />
ElseIf livre = "Hermas - Précepte 10" Then<br />
chercher = "HMJ"<br />
ElseIf livre = "Hermas - Précepte 11" Then<br />
chercher = "HMK"<br />
ElseIf livre = "Hermas - Précepte 12" Then<br />
chercher = "HML"<br />
ElseIf livre = "Hermas - Similitudes 1" Then<br />
chercher = "HSA"<br />
ElseIf livre = "Hermas - Similitudes 2" Then<br />
chercher = "HSB"<br />
ElseIf livre = "Hermas - Similitudes 3" Then<br />
chercher = "HSC"<br />
ElseIf livre = "Hermas - Similitudes 4" Then<br />
chercher = "HSD"<br />
ElseIf livre = "Hermas - Similitudes 5" Then<br />
chercher = "HSE"<br />
ElseIf livre = "Hermas - Similitudes 6" Then<br />
chercher = "HSF"<br />
ElseIf livre = "Hermas - Similitudes 7" Then<br />
chercher = "HSG"<br />
ElseIf livre = "Hermas - Similitudes 8" Then<br />
chercher = "HSH"<br />
ElseIf livre = "Hermas - Similitudes 9" Then<br />
chercher = "HSI"<br />
ElseIf livre = "Hermas - Similitudes 10" Then<br />
chercher = "HSJ"<br />
End If<br />
recherche = chercher & " " & chapitre & ":" & verset & " "<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
Do<br />
On Error GoTo suite:<br />
Line Input #lfile, ligne<br />
If Mid(ligne, 1, 3) = chercher Then Exit Do<br />
frmBible.txtPassage.Text = frmBible.txtPassage.Text & " " & ligne<br />
Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
uite:<br />
lose<br />
frmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireRWP - 1<br />
Public Function LireRWP(livre, chapitre, verset) As String<br />
Dim repertoire, fichier, fichier2<br />
Dim lfile<br />
lfile = FreeFile<br />
If livre = "Matthieu" Then<br />
repertoire = "mat"<br />
fichier2 = "MT"<br />
End If<br />
fichier = App.Path & "\modules\RWP\" & repertoire & "\" & fichier2 & chapitre & ".RWP"<br />
Open fichier For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(chapitre) + Len(verset) + 4) = chapitre & "~" & verset Then<br />
Do<br />
Input #lfile, ligne<br />
'frmTSK.Text.Text = frmTSK.Text.Text & ligne<br />
If ligne = "" Or ligne = vbCrLf Then<br />
Exit Do<br />
End If<br />
Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose lfile<br />
Load frmTSK<br />
frmTSK. Show 1<br />
nd Function
fctLireScrivener - 1<br />
Public Function LireScrivener(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\Scrivener\scrivener.txt"<br />
lfile = FreeFile<br />
If livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luc"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Jea"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "UnCo"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "DeCo"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Php"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "UnTh"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "DeTh"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "UnTi"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "DeTi"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jac"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "UnPi"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "DePi"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "UnJn"
fctLireScrivener - 2<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "DeJn"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "TrJn"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jude"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
Else: livre = "Matthieu"<br />
chercher = "Mat"<br />
frmBible.cboLivre.Text = "Matthieu"<br />
End If<br />
recherche = chercher & "-" & chapitre & "-" & verset & "-"<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
Exit Do<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
frmBible.txtPassage.Text = LCase(frmBible.txtPassage.Text)<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "c", "x", 1)<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",", 1)<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "V", "j", 1)<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "V,", "j,", 1)<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "V.", "j.", 1)<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Grenet"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireSeptante - 1<br />
Public Function LireSeptante(livre, chapitre, verset, fichier, chercher)<br />
Dim ofile<br />
Dim ligne$, remplacer$<br />
Dim LFile2<br />
Dim nveau$<br />
LFile2 = FreeFile + 1<br />
lfile = FreeFile<br />
nveau = App.Path & "\tools\septante.txt"<br />
frmParse2.Text1.Text = ""<br />
Open nveau For Output As #lfile<br />
rite #lfile, ""<br />
lose #lfile<br />
' définition du passage à rechercher<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exod"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Num"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Josh"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deut"<br />
ElseIf livre = "Juges" Then<br />
chercher = "JudgB"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Ruth"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "1Sam/K"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "2Sam/K"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "1/3Kgs"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "2/4Kgs"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "2/4Kgs"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "1Chr"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "2Chr"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "2Esdr"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Esth"<br />
ElseIf livre = "Judith" Then<br />
chercher = "Jdt"<br />
ElseIf livre = "Tobie" Then<br />
chercher = "TobBA"<br />
ElseIf livre = "1 Maccabées" Then<br />
chercher = "1Mac"<br />
ElseIf livre = "2 Maccabées" Then<br />
chercher = "2Mac"<br />
ElseIf livre = "3 Maccabées" Then<br />
chercher = "3Mac"<br />
ElseIf livre = "4 Maccabées" Then<br />
chercher = "4Mac"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Ps"<br />
ElseIf livre = "Odes" Then<br />
chercher = "Od"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Prov"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Qoh"
fctLireSeptante - 2<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Cant"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Sagesse" Then<br />
chercher = "Wis"<br />
ElseIf livre = "Siracides" Then<br />
chercher = "Sir"<br />
ElseIf livre = "Psaumes de Salomon" Then<br />
chercher = "PsSol"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Hos"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amos"<br />
ElseIf livre = "Micah" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joel"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jonah"<br />
ElseIf livre = "Nahum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Habbacuc" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Zeph"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Hag"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zech"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
ElseIf livre = "Isaïe" Then<br />
chercher = "Isa"<br />
ElseIf livre = "Jérémie" Then<br />
chercher = "Jer"<br />
ElseIf livre = "Baruch" Then<br />
chercher = "Bar"<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Epître de Jérémie" Then<br />
chercher = "EpJer"<br />
ElseIf livre = "Ezékiel" Then<br />
chercher = "Ezek"<br />
ElseIf livre = "Susanna" Then<br />
chercher = "SusTh"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Bel et Draco" Then<br />
chercher = "Bel"<br />
End If<br />
'On Error GoTo erreur:<br />
If Len(fichier) < 35 Then<br />
fichier = App.Path & fichier<br />
End If<br />
On Error GoTo erreur:<br />
Open fichier For Input As #lfile<br />
o<br />
Input #lfile, ligne<br />
If ligne = chercher & " " & chapitre & "-" & verset Then<br />
Do While Not ligne = chercher & " " & chapitre & "-" & Val(verset) + 1<br />
Loop<br />
Input #lfile, ligne<br />
frmParse2.Text1.Text = frmParse2.Text1.Text & vbCrLf & ligne<br />
Open nveau For Append As #LFile2<br />
Write #LFile2, ligne<br />
Close #LFile2
fctLireSeptante - 3<br />
End If<br />
Loop Until EOF(lfile)<br />
Close #lfile<br />
'remplacer = Replace(frmParse2.Text1.Text, vbCrLf, " ")<br />
'remplacer = Replace(frmParse2.Text1.Text, " ", "")<br />
'frmBible.txtPassage.Text = remplacer<br />
Open nveau For Input As #LFile2<br />
Do<br />
Input #LFile2, ligne<br />
frmBible.txtPassage.Text = frmBible.txtPassage.Text & ligne & vbCrLf<br />
Loop While Not EOF(LFile2)<br />
lose #LFile2<br />
rmBible.txtPassage.Text = frmParse2.Text1.Text<br />
rmBible.lblchapitre.Caption = frmBible.cboLivre.Text & " " & frmBible.txtChapitre & " : " & frmBib<br />
e.txtverset.Text<br />
all CorrigerLectureSeptante(chercher)<br />
Open nveau For Output As #LFile2<br />
Write #LFile2, frmParse2.Text1.Text<br />
Close #LFile2<br />
xit Function<br />
rreur:<br />
sgBox "Une erreur s'est produite...", vbInformation, "Bible Parser : Erreur"<br />
rmBible.cboVersion.Text = "Septante"<br />
rmBible.cboLivre.Text = "Genèse"<br />
rmBible.txtChapitre.Text = "1"<br />
rmBible.txtverset.Text = "1"<br />
rmBible.txtPassage.Font = "Grenet"<br />
nd Function
fctLireStephanos - 1<br />
Public Function LireStephanos(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\TR1550\stephanos.txt"<br />
lfile = FreeFile<br />
If livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luc"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Jea"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "UnCo"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "DeCo"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Php"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "UnTh"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "DeTh"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "UnTi"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "DeTi"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jac"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "UnPi"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "DePi"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "UnJn"
fctLireStephanos - 2<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "DeJn"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "TrJn"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jude"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
Else: livre = "Matthieu"<br />
chercher = "Mat"<br />
frmBible.cboLivre.Text = "Matthieu"<br />
End If<br />
recherche = chercher & "-" & chapitre & "-" & verset & "-"<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
Exit Do<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
frmBible.txtPassage.Text = LCase(frmBible.txtPassage.Text)<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "c", "x", 1)<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",", 1)<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "V", "j", 1)<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "V,", "j,", 1)<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "V.", "j.", 1)<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Grenet"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireStrong - 1<br />
Public Function LireStrong(mot) As String<br />
frmParse2.Text1.Text = ""<br />
Dim lfile As Long 'Lecture<br />
Dim ofile As String 'Fichier à ouvrir<br />
ofile = App.Path & "\modules\StrongGr\strgr.txt"<br />
lfile = FreeFile<br />
Dim chercher$, reference$<br />
If Len(mot) = 1 Then<br />
chercher = "$$T000000" & mot<br />
ElseIf Len(mot) = 2 Then<br />
chercher = "$$T00000" & mot<br />
ElseIf Len(mot) = 3 Then<br />
chercher = "$$T0000" & mot<br />
ElseIf Len(mot) = 4 Then<br />
chercher = "$$T000" & mot<br />
End If<br />
reference = chercher<br />
Open ofile For Input As #lfile<br />
o<br />
nput #lfile, ligne<br />
f ligne = reference Then ' pour que le verset recherché soit exact<br />
'affectation du verset du fichier à la variable<br />
frmParse2.Text1.Text = frmParse2.Text1.Text & ligne<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, 2) = "$$" Then<br />
GoTo apres:<br />
Else<br />
frmParse2.Text1.Text = frmParse2.Text1.Text & " " & vbCrLf & ligne<br />
'MsgBox ligne<br />
' MsgBox frmParse2.text1.Text, , "lbltampon"<br />
End If<br />
Loop 'While Left(ligne, Len(chercher)) "mat" & chapitre & "-" & Val(verset) + 1<br />
nd If<br />
oop While Not EOF(lfile) 'While Left(ligne, Len(chercher)) "mat" & chapitre & "-" & Val(verset)<br />
+ 1<br />
pres:<br />
MsgBox frmParse2.Text1.Text<br />
mot = frmParse2.Text1.Text<br />
lose #lfile<br />
nd Function
fctLireStrongC - 1<br />
Public Function LireStrongC(mot)<br />
Dim ofile<br />
ofile = FreeFile<br />
Dim lfile<br />
lfile = App.Path & "\tools\corrigerneg.txt"<br />
Dim ligne As String<br />
Dim premierRepere As Integer<br />
Dim secondrepere As Integer<br />
Dim nstrong As String<br />
Open lfile For Input As #ofile<br />
o<br />
ine Input #ofile, ligne<br />
If InStr(1, ligne, mot & "
fctLireStrongFr - 1<br />
Public Function LireStrongFr(mot)<br />
Dim cherche$, ofile, lfile, ligne$<br />
If frmBible.cboLivre.Text = "Matthieu" Or _<br />
frmBible.cboLivre.Text = "Marc" Or _<br />
frmBible.cboLivre.Text = "Luc" Or _<br />
frmBible.cboLivre.Text = "Jean" Or _<br />
frmBible.cboLivre.Text = "Actes" Or _<br />
frmBible.cboLivre.Text = "Romains" Or _<br />
frmBible.cboLivre.Text = "1 Corinthiens" Then<br />
GoTo suite:<br />
'Else<br />
'Call LireStrongFrAT(mot)<br />
'Exit Function<br />
End If<br />
If frmBible.cboLivre.Text = "2 Corinthiens" Or _<br />
frmBible.cboLivre.Text = "Galates" Or _<br />
frmBible.cboLivre.Text = "Ephésiens" Or _<br />
frmBible.cboLivre.Text = "Philippiens" Or _<br />
frmBible.cboLivre.Text = "Colossiens" Or _<br />
frmBible.cboLivre.Text = "1 Thessaloniciens" Or _<br />
frmBible.cboLivre.Text = "2 Thessaloniciens" Or _<br />
frmBible.cboLivre.Text = "1 Timothée" Then<br />
GoTo suite:<br />
'Else<br />
'Call LireStrongFrAT(mot)<br />
'Exit Function<br />
End If<br />
If frmBible.cboLivre.Text = "2 Timothée" Or _<br />
frmBible.cboLivre.Text = "Tite" Or _<br />
frmBible.cboLivre.Text = "Philémon" Or _<br />
frmBible.cboLivre.Text = "Hébreux" Or _<br />
frmBible.cboLivre.Text = "Jacques" Or _<br />
frmBible.cboLivre.Text = "1 Pierre" Or _<br />
frmBible.cboLivre.Text = "2 Pierre" Then<br />
GoTo suite:<br />
'Else<br />
'Call LireStrongFrAT(mot)<br />
'Exit Function<br />
End If<br />
If frmBible.cboLivre.Text = "1 Jean" Or _<br />
frmBible.cboLivre.Text = "2 Jean" Or _<br />
frmBible.cboLivre.Text = "3 Jean" Or _<br />
frmBible.cboLivre.Text = "Jude" Or _<br />
frmBible.cboLivre.Text = "Révélation" Then<br />
GoTo suite:<br />
Else<br />
Call LireStrongFrAT(mot)<br />
Exit Function<br />
End If<br />
suite:<br />
ofile = App.Path & "\modules\Strong\ntfr.txt"<br />
lfile = FreeFile<br />
If Val(mot) < 10 Then<br />
mot = "0000" & mot<br />
ElseIf Val(mot) > 10 And Val(mot) < 99 Then<br />
mot = "000" & mot<br />
ElseIf Val(mot) > 100 And Val(mot) < 999 Then<br />
mot = "00" & mot<br />
ElseIf Val(mot) > 1000 And Val(mot) < 9999 Then<br />
mot = "0" & mot
fctLireStrongFr - 2<br />
End If<br />
frmParse2.Text1.Text = ""<br />
Open ofile For Input As #lfile<br />
Do<br />
rr:<br />
pres:<br />
lose<br />
On Error GoTo err:<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(mot)) = mot Then<br />
frmParse2.Text1.Text = frmParse2.Text1.Text & ligne<br />
Do While Not EOF(lfile)<br />
Line Input #lfile, ligne<br />
If Mid(ligne, 1, 1) = "0" Then<br />
GoTo apres:<br />
End If<br />
frmParse2.Text1.Text = frmParse2.Text1.Text & ligne<br />
Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
oad frmResultatStrong<br />
commenc = 2 * Len(mot) + 1<br />
exte = Trim(Mid(frmParse2.Text1.Text, Len(mot) + 1, Len(frmParse2.Text1.Text)))<br />
space = InStr(1, texte, " ")<br />
exte = Mid(texte, espace + 1, Len(texte))<br />
epere = InStr(1, texte, "\~")<br />
trong = mot<br />
f repere 0 Then<br />
mot = Trim(Mid(texte, 1, repere - 1))<br />
texte = Mid(texte, Len(mot) + 1, Len(texte))<br />
repere2 = InStr(1, texte, "\~ ")<br />
mot = Mid(texte, 1, repere2)<br />
mot = Trim(mot)<br />
mot = Mid(mot, 3, Len(mot) - 1)<br />
mot = Replace(mot, "\", "")<br />
If Right(mot, 1) = "v" Then mot = Mid(mot, 1, Len(mot) - 1) & "j"<br />
mot = Replace(mot, "y", "q")<br />
mot = Replace(mot, "c", "x")<br />
mot = Replace(mot, "Ioa", "Iwa")<br />
mot = Replace(mot, "pho", "fw")<br />
mot = Replace(mot, "-", "")<br />
If Left(mot, 3) = "Ies" And mot "Iessai" Then mot = Replace(mot, "Ies", "Ihs")<br />
lse<br />
espace = InStr(1, texte, " ")<br />
mot = Trim(Mid(texte, 1, espace))<br />
mot = Replace(mot, "ch", "x")<br />
mot = Replace(mot, "Ch", "x")<br />
mot = Replace(mot, "Ioa", "Iwa")<br />
mot = Replace(mot, "pho", "fw")<br />
mot = Replace(mot, "ph", "f")<br />
mot = Replace(mot, "Ph", "f")<br />
mot = Replace(mot, "-", "")<br />
mot = Replace(mot, "s ", "j")<br />
mot = Replace(mot, "y", "q")<br />
mot = Replace(mot, "c", "x")<br />
If Left(mot, 3) = "Ies" And mot "Iessai" Then mot = Replace(mot, "Ies", "Ihs")<br />
nd If<br />
If Right(mot, 1) = "s" Then mot = Mid(mot, 1, Len(mot) - 1) & "j"<br />
If Right(mot, 1) = "o" Then mot = Mid(mot, 1, Len(mot) - 1) & "w"<br />
If Left(mot, 1) = "h" Then mot = Mid(mot, 2, Len(mot))
fctLireStrongFr - 3<br />
texte = Trim(texte)<br />
texte = Replace(texte, "\~", vbCrLf & "\~")<br />
texte = Replace(texte, "\&", vbCrLf & "\&")<br />
texte = Replace(texte, "1a)", vbCrLf & "1a) ")<br />
texte = Replace(texte, "1b)", vbCrLf & "1b) ")<br />
texte = Replace(texte, "1c)", vbCrLf & "1c) ")<br />
texte = Replace(texte, "1d)", vbCrLf & "1d) ")<br />
texte = Replace(texte, "1e)", vbCrLf & "1e) ")<br />
texte = Replace(texte, "1f)", vbCrLf & "1f) ")<br />
texte = Replace(texte, "2a)", vbCrLf & "2a) ")<br />
texte = Replace(texte, "2b)", vbCrLf & "2b) ")<br />
texte = Replace(texte, "2c)", vbCrLf & "2c) ")<br />
texte = Replace(texte, "2d)", vbCrLf & "2d) ")<br />
texte = Replace(texte, "2e)", vbCrLf & "2e) ")<br />
texte = Replace(texte, "2f)", vbCrLf & "2f) ")<br />
texte = Replace(texte, "3a)", vbCrLf & "3a) ")<br />
texte = Replace(texte, "3b)", vbCrLf & "3b) ")<br />
texte = Replace(texte, "3c)", vbCrLf & "3c) ")<br />
texte = Replace(texte, "3d)", vbCrLf & "3d) ")<br />
texte = Replace(texte, "3e)", vbCrLf & "3e) ")<br />
texte = Replace(texte, "3f)", vbCrLf & "3f) ")<br />
texte = Replace(texte, "1)", vbCrLf & "1) ")<br />
texte = Replace(texte, "2)", vbCrLf & "2) ")<br />
texte = Replace(texte, "3)", vbCrLf & "3) ")<br />
texte = Replace(texte, "4)", vbCrLf & "4) ")<br />
texte = Replace(texte, " ", " ")<br />
texte = Replace(texte, "\\", "")<br />
texte = Replace(texte, "\", "")<br />
texte = Replace(texte, "#", "")<br />
texte = Replace(texte, "~", "")<br />
texte = Replace(texte, " ", " ")<br />
texte = Replace(texte, " ", " ")<br />
If Left(strong, 3) = "000" Then strong = Mid(strong, 4, Len(strong))<br />
If Left(strong, 2) = "00" Then strong = Mid(strong, 3, Len(strong))<br />
If Left(strong, 1) = "0" Then strong = Mid(strong, 2, Len(strong))<br />
frmResultatStrong.lblNStrong.Caption = "Strong : " & strong<br />
frmResultatStrong.lblmot.Caption = mot<br />
frmResultatStrong.txtStrong.Text = texte<br />
frmResultatStrong.Show<br />
End Function
fctLireStrongFrAT - 1<br />
Public Function LireStrongFrAT(mot)<br />
Dim cherche$, ofile, lfile, ligne$<br />
ofile = App.Path & "\modules\Strong\aten.txt"<br />
lfile = FreeFile<br />
If Left(mot, 1) = "0" Then mot = Mid(mot, 2, Len(mot))<br />
mot = "SH" & mot<br />
frmParse2.Text1.Text = ""<br />
Open ofile For Input As #lfile<br />
Do<br />
rr:<br />
pres:<br />
lose<br />
On Error GoTo err:<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(mot)) = mot Then<br />
'frmParse2.Text1.Text = frmParse2.Text1.Text & ligne<br />
Do While Not EOF(lfile)<br />
Line Input #lfile, ligne<br />
If Mid(ligne, 1, 2) = "SH" And Len(ligne) < 6 Then<br />
GoTo apres:<br />
End If<br />
frmParse2.Text1.Text = frmParse2.Text1.Text & ligne<br />
Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
If frmAutomatos.Visible = False Then<br />
frmResultatStrong.Show<br />
End If<br />
ofile = App.Path & "\tools\temp2.txt"<br />
lfile = FreeFile<br />
Open ofile For Output As #lfile<br />
Print #lfile, texte<br />
Close<br />
rmResultatStrong.txtStrong.Text = frmParse2.Text1.Text<br />
rmResultatStrong.txtStrong.Text = Replace(frmResultatStrong.txtStrong.Text, " ", vbCrLf)<br />
rmResultatStrong.txtStrong.Text = Replace(frmResultatStrong.txtStrong.Text, " ", vbCrLf)<br />
rmResultatStrong.Show<br />
nd Function
fctLireStrongFrN - 1<br />
Public Function LireStrongFrN(mot)<br />
'ancien Strong Petrakian : LireStrongFrN<br />
Dim cherche$, ofile, lfile, ligne$<br />
If frmBible.cboLivre.Text = "Matthieu" Or _<br />
frmBible.cboLivre.Text = "Marc" Or _<br />
frmBible.cboLivre.Text = "Luc" Or _<br />
frmBible.cboLivre.Text = "Jean" Or _<br />
frmBible.cboLivre.Text = "Actes" Or _<br />
frmBible.cboLivre.Text = "Romains" Or _<br />
frmBible.cboLivre.Text = "1 Corinthiens" Then<br />
GoTo suite:<br />
'Else<br />
'Call LireStrongFrAT(mot)<br />
'Exit Function<br />
End If<br />
If frmBible.cboLivre.Text = "2 Corinthiens" Or _<br />
frmBible.cboLivre.Text = "Galates" Or _<br />
frmBible.cboLivre.Text = "Ephésiens" Or _<br />
frmBible.cboLivre.Text = "Philippiens" Or _<br />
frmBible.cboLivre.Text = "Colossiens" Or _<br />
frmBible.cboLivre.Text = "1 Thessaloniciens" Or _<br />
frmBible.cboLivre.Text = "2 Thessaloniciens" Or _<br />
frmBible.cboLivre.Text = "1 Timothée" Then<br />
GoTo suite:<br />
'Else<br />
'Call LireStrongFrAT(mot)<br />
'Exit Function<br />
End If<br />
If frmBible.cboLivre.Text = "2 Timothée" Or _<br />
frmBible.cboLivre.Text = "Tite" Or _<br />
frmBible.cboLivre.Text = "Philémon" Or _<br />
frmBible.cboLivre.Text = "Hébreux" Or _<br />
frmBible.cboLivre.Text = "Jacques" Or _<br />
frmBible.cboLivre.Text = "1 Pierre" Or _<br />
frmBible.cboLivre.Text = "2 Pierre" Then<br />
GoTo suite:<br />
'Else<br />
'Call LireStrongFrAT(mot)<br />
'Exit Function<br />
End If<br />
If frmBible.cboLivre.Text = "1 Jean" Or _<br />
frmBible.cboLivre.Text = "2 Jean" Or _<br />
frmBible.cboLivre.Text = "3 Jean" Or _<br />
frmBible.cboLivre.Text = "Jude" Or _<br />
frmBible.cboLivre.Text = "Révélation" Then<br />
GoTo suite:<br />
Else<br />
Call LireStrongATFrN(mot)<br />
Exit Function<br />
End If<br />
suite:<br />
ofile = App.Path & "\modules\Strong\sgf.dat"<br />
lfile = FreeFile<br />
If Val(mot) < 10 Then<br />
mot = "0000" & mot<br />
GoTo bonmot:<br />
ElseIf Val(mot) < 99 Then<br />
mot = "000" & mot
fctLireStrongFrN - 2<br />
GoTo bonmot:<br />
ElseIf Val(mot) < 999 Then<br />
mot = "00" & mot<br />
GoTo bonmot:<br />
ElseIf Val(mot) < 9999 Then<br />
mot = "0" & mot<br />
GoTo bonmot:<br />
End If<br />
bonmot:<br />
frmParse2.Text1.Text = ""<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(mot)) = mot Then<br />
Line Input #lfile, ligne<br />
'ligne = Mid(ligne, Len(mot), Len(ligne))<br />
repere = InStr(1, ligne, " \")<br />
repere2 = InStr(repere + 1, ligne, "\n")<br />
ligne = Mid(ligne, repere, Len(ligne))<br />
repere2 = InStr(2, ligne, "\n")<br />
motgrec = Mid(ligne, 1, repere2)<br />
motgrec = Replace(motgrec, "\", "")<br />
motgrec = Trim(motgrec)<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, 1) = "0" And Len(ligne) < 7 Then GoTo plusloin:<br />
frmParse2.Text1.Text = frmParse2.Text1.Text & ligne<br />
Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
lusloin:<br />
lose<br />
01079<br />
' 1079 \Ggenethv\n genete {ghen-et-ay}<br />
vient d 'un dérivé présumé de \\1074\\; n f<br />
'LSG - naissance 1; 1<br />
1) naissance, depuis la naissance<br />
oad frmResultatStrong<br />
exte = frmParse2.Text1.Text<br />
trong = mot<br />
exte = Trim(texte)<br />
exte = Replace(texte, "\\", "")<br />
exte = Replace(texte, "#", "")<br />
exte = Replace(texte, "1a)", vbCrLf & "1a) ")<br />
exte = Replace(texte, "1b)", vbCrLf & "1b) ")<br />
exte = Replace(texte, "1c)", vbCrLf & "1c) ")<br />
exte = Replace(texte, "1d)", vbCrLf & "1d) ")<br />
exte = Replace(texte, "1e)", vbCrLf & "1e) ")<br />
exte = Replace(texte, "1f)", vbCrLf & "1f) ")<br />
exte = Replace(texte, "2a)", vbCrLf & "2a) ")<br />
exte = Replace(texte, "2b)", vbCrLf & "2b) ")<br />
exte = Replace(texte, "2c)", vbCrLf & "2c) ")<br />
exte = Replace(texte, "2d)", vbCrLf & "2d) ")<br />
exte = Replace(texte, "2e)", vbCrLf & "2e) ")<br />
exte = Replace(texte, "2f)", vbCrLf & "2f) ")<br />
exte = Replace(texte, "3a)", vbCrLf & "3a) ")<br />
exte = Replace(texte, "3b)", vbCrLf & "3b) ")<br />
exte = Replace(texte, "3c)", vbCrLf & "3c) ")<br />
exte = Replace(texte, "3d)", vbCrLf & "3d) ")<br />
exte = Replace(texte, "3e)", vbCrLf & "3e) ")<br />
exte = Replace(texte, "3f)", vbCrLf & "3f) ")
fctLireStrongFrN - 3<br />
texte = Replace(texte, "1)", vbCrLf & "1) ")<br />
texte = Replace(texte, "2)", vbCrLf & "2) ")<br />
texte = Replace(texte, "3)", vbCrLf & "3) ")<br />
texte = Replace(texte, "4)", vbCrLf & "4) ")<br />
texte = Replace(texte, "5)", vbCrLf & "5) ")<br />
texte = Replace(texte, "6)", vbCrLf & "6) ")<br />
texte = Replace(texte, " ", " ")<br />
'texte = Replace(texte, "\\", "")<br />
'texte = Replace(texte, "\", "")<br />
'texte = Replace(texte, "#", "")<br />
'texte = Replace(texte, "~", "")<br />
'texte = Replace(texte, " ", " ")<br />
'texte = Replace(texte, " ", " ")<br />
If Left(strong, 3) = "000" Then strong = Mid(strong, 4, Len(strong))<br />
If Left(strong, 2) = "00" Then strong = Mid(strong, 3, Len(strong))<br />
If Left(strong, 1) = "0" Then strong = Mid(strong, 2, Len(strong))<br />
ofile = App.Path & "\tools\temp.txt"<br />
lfile = FreeFile<br />
Open ofile For Output As #lfile<br />
rint #lfile, motgrec<br />
lose<br />
file = FreeFile<br />
Open ofile For Input As #lfile<br />
nput #lfile, motgrec<br />
lose<br />
guillemet = Chr$(34)<br />
If Left(motgrec, 1) = guillemet Then motgrec = Mid(motgrec, 2, Len(motgrec))<br />
If Right(motgrec, 2) = guillemet & guillement Then motgrec = Mid(motgrec, 1, Len(motgrec) - 2)<br />
If Right(motgrec, 1) = guillemet Then motgrec = Mid(motgrec, 1, Len(motgrec) - 1)<br />
f motgrec "" Then<br />
motgrec = Mid(motgrec, 2, Len(motgrec) - 1)<br />
motgrec = Replace(motgrec, "j", "~")<br />
motgrec = Replace(motgrec, "J", "~,")<br />
otgrec = Replace(motgrec, "~i", "i~")<br />
otgrec = Replace(motgrec, "~o", "o~")<br />
otgrec = Replace(motgrec, "i~,o", "~io,")<br />
otgrec = Replace(motgrec, "!", "v")<br />
motgrec = Replace(motgrec, "a{", "{a")<br />
motgrec = Replace(motgrec, "o{", "{o")<br />
motgrec = Replace(motgrec, "i{", "{i")<br />
motgrec = Replace(motgrec, "u{", "{u")<br />
motgrec = Replace(motgrec, "w{", "{w")<br />
motgrec = Replace(motgrec, "h{", "{h")<br />
motgrec = Replace(motgrec, "a}", "}a")<br />
motgrec = Replace(motgrec, "o}", "}o")<br />
motgrec = Replace(motgrec, "i}", "}i")<br />
motgrec = Replace(motgrec, "u}", "}u")<br />
motgrec = Replace(motgrec, "w}", "}w")<br />
motgrec = Replace(motgrec, "h}", "}h")<br />
motgrec = Replace(motgrec, "a[", "[a")<br />
motgrec = Replace(motgrec, "o[", "[o")<br />
motgrec = Replace(motgrec, "i[", "[i")<br />
motgrec = Replace(motgrec, "u[", "[u")<br />
motgrec = Replace(motgrec, "w[", "[w")<br />
motgrec = Replace(motgrec, "h[", "[w")<br />
motgrec = Replace(motgrec, "a]", "]a")<br />
motgrec = Replace(motgrec, "o]", "]o")<br />
motgrec = Replace(motgrec, "i]", "]i")<br />
motgrec = Replace(motgrec, "u]", "]u")<br />
motgrec = Replace(motgrec, "w]", "]w")<br />
motgrec = Replace(motgrec, "h]", "]h")<br />
motgrec = Replace(motgrec, "a~", "~a")<br />
motgrec = Replace(motgrec, "o~", "~o")<br />
'motgrec = Replace(motgrec, "i~", "~i")<br />
motgrec = Replace(motgrec, "e~", "~e")
fctLireStrongFrN - 4<br />
motgrec = Replace(motgrec, "w~", "~w")<br />
motgrec = Replace(motgrec, "h~", "~h")<br />
motgrec = Replace(motgrec, "~h,", "h~")<br />
motgrec = Replace(motgrec, "~o,", "~o")<br />
motgrec = Replace(motgrec, Chr$(34), "j")<br />
motgrec = Replace(motgrec, "v", ",")<br />
motgrec = Replace(motgrec, "'", "/")<br />
'motgrec = Replace(motgrec, "j", "~")<br />
'motgrec = Replace(motgrec, "j", "~")<br />
End If<br />
frmResultatStrong.lblNStrong.Caption = "Strong : " & strong<br />
frmResultatStrong.Font = "Bwgrkn"<br />
frmResultatStrong.FontSize = 14<br />
frmResultatStrong.lblmot.Caption = motgrec<br />
texte = Replace(texte, " ", "")<br />
frmResultatStrong.txtStrong.Text = texte<br />
If frmAutomatos.Visible = False Then<br />
frmResultatStrong.Show<br />
End If<br />
ofile = App.Path & "\tools\temp2.txt"<br />
lfile = FreeFile<br />
Open ofile For Output As #lfile<br />
Print #lfile, texte<br />
Close<br />
End Function
fctLireStrongHebreuEn - 1<br />
Public Function LireStrongHebreuEn(mot)<br />
If Len(mot) = 4 Then<br />
mot = "0" & mot<br />
ElseIf Len(mot) = 3 Then<br />
mot = "00" & mot<br />
ElseIf Len(mot) = 2 Then<br />
mot = "000" & mot<br />
ElseIf Len(mot) = 1 Then<br />
mot = "0000" & mot<br />
End If<br />
Dim ofile$, lfile%, ligne$, secondeligne$, mothebreu$, espace%, repere%<br />
ofile = App.Path & "\modules\Strong\Stronghebrew.dat"<br />
lfile = FreeFile<br />
recherche = "\" & mot & "\"<br />
frmResultatStrong.txtStrong.Text = ""<br />
Open ofile For Input As #lfile<br />
oad frmResultatStrong<br />
Do<br />
Input #lfile, ligne<br />
If ligne = recherche Then<br />
frmResultatStrong.txtStrong.Text = frmResultatStrong.txtStrong.Text & ligne<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, 2) = "$$" Then Exit Do<br />
frmResultatStrong.txtStrong.Text = frmResultatStrong.txtStrong.Text & ligne<br />
Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
repere = InStr(1, secondeligne, " ")<br />
espace = InStr(repere + 1, secondeligne, " ")<br />
mothebreu = Mid(secondeligne, repere + 1, espace - 1)<br />
exte = Trim(frmResultatStrong.txtStrong.Text)<br />
exte = Replace(texte, "~", ",")<br />
epere = InStr(1, texte, " ")<br />
rmResultatStrong.txtStrong.Text = texte<br />
mot = Mid(texte, 1, repere - 1)<br />
rmResultatStrong.txtStrong.Text = Mid(texte, Len(recherche) + 1 + Len(mot) + 1, Len(texte))<br />
f Left(mot, 1) = "0" Then mot = Mid(mot, 2, Len(mot))<br />
echerche = Replace(recherche, "\", "")<br />
rmResultatStrong.lblNStrong = "Strong : " & recherche & " [cliquez ici -> déf. en français]*"<br />
rmResultatStrong.Show<br />
nd Function
fctLireStrongLSG2 - 1<br />
Public Sub LireStrongLSG2(mot)<br />
Dim ofile, lfile, ligne, strong, trouve<br />
If Right(mot, 1) = "," Then mot = Mid(mot, 1, Len(mot) - 1)<br />
If Right(mot, 1) = ":" Then mot = Mid(mot, 1, Len(mot) - 1)<br />
If Right(mot, 1) = "!" Then mot = Mid(mot, 1, Len(mot) - 1)<br />
'If Right(mot, 1) = "-" Then mot = Mid(mot, 1, Len(mot) - 1)<br />
If Right(mot, 1) = ";" Then mot = Mid(mot, 1, Len(mot) - 1)<br />
If Right(mot, 1) = "." Then mot = Mid(mot, 1, Len(mot) - 1)<br />
If Left(mot, 1) = "-" Then mot = Mid(mot, 2, Len(mot))<br />
'If Right(mot, 1) = "," Then mot = Mid(mot, 1, Len(mot) - 1)<br />
ofile = App.Path & "\tools\temp2.txt"<br />
lfile = FreeFile<br />
Open ofile For Input As #lfile<br />
trong = ""<br />
Do<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, mot) 0 Then<br />
trouve = ligne<br />
repere = InStr(1, ligne, "
fctLireStrongNEG - 1<br />
Public Function LireStrongNEG(mot)<br />
Dim ofile<br />
ofile = FreeFile<br />
Dim lfile<br />
lfile = App.Path & "\tools\corrigerneg.txt"<br />
Dim ligne As String<br />
Dim premierRepere As Integer<br />
Dim secondrepere As Integer<br />
Dim nstrong As String<br />
Open lfile For Input As #ofile<br />
o<br />
ine Input #ofile, ligne<br />
If InStr(1, ligne, mot & "
fctLireThayer - 1<br />
Public Function LireThayer(mot, reference) As String<br />
mot = Replace(mot, "0", "O")<br />
'If Len(mot) = 4 Then<br />
'mot = "g" & mot<br />
'End If<br />
frmParse2.Text1.Text = ""<br />
Dim lfile As Long 'Lecture<br />
Dim ofile As String 'Fichier à ouvrir<br />
ofile = App.Path & "\modules\Thayer\thayer.txt"<br />
lfile = FreeFile<br />
Dim chercher$<br />
ligne = ""<br />
If Len(mot) = 1 Then<br />
chercher = "OOOO" & mot<br />
ElseIf Len(mot) = 2 Then<br />
chercher = "OOO" & mot<br />
ElseIf Len(mot) = 3 Then<br />
chercher = "OO" & mot<br />
ElseIf Len(mot) = 4 Then<br />
chercher = "O" & mot<br />
End If<br />
reference = chercher<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If ligne = reference Then ' pour que le verset recherché soit exact<br />
'affectation du verset du fichier à la variable<br />
frmParse2.Text1.Text = frmParse2.Text1.Text & ligne<br />
Do While Not EOF(lfile)<br />
Input #lfile, ligne<br />
If Left(ligne, 1) = "O" Then<br />
GoTo apres:<br />
Else<br />
'If IsNumeric(ligne) = True Then<br />
'frmParse2.Text1.Text = frmParse2.Text1.Text & ligne<br />
'Else<br />
frmParse2.Text1.Text = frmParse2.Text1.Text & " " & vbCrLf & ligne<br />
'MsgBox ligne<br />
'End If<br />
Loop<br />
End If<br />
End If<br />
Loop While Not EOF(lfile)<br />
pres:<br />
lose #lfile<br />
nd Function
fctLireTIS - 1<br />
Public Function LireTIS(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\TIS\tis.txt"<br />
lfile = FreeFile<br />
If livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luk"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Joh"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "1Co"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "2Co"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "1Th"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "2Th"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "1Ti"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "2Ti"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jam"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "1Pe"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "2Pe"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "1Jo"
fctLireTIS - 2<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "2Jo"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "3Jo"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jud"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
End If<br />
recherche = chercher & " " & chapitre & ":" & verset & " "<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
Exit Do<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 14<br />
rmBible.txtPassage.Font = "Bwgrkn"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireTMN - 1<br />
Public Function LireTMN(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\TMN\TMN.txt"<br />
lfile = FreeFile<br />
frmBible.txtPassage.Text = ""<br />
frmParse2.Text1.Text = ""<br />
Open ofile For Input As #lfile<br />
n<br />
Do<br />
Line Input #lfile, ligne<br />
' j'ai trouvé le livre<br />
If ligne = livre Then<br />
Do<br />
On Error GoTo apres:<br />
Line Input #lfile, ligne<br />
'j'ai trouvé le chapitre<br />
If Left(ligne, 8) = "chapitre" And _<br />
Mid(ligne, 9, Len(chapitre) + 1 + Len(verset)) = chapitre & ">" & verset Th<br />
frmParse2.Text1.Text = frmParse2.Text1.Text & Mid(ligne, 9 + Len(chapitre)<br />
Len(verset), Len(ligne))<br />
GoTo suite:<br />
Else<br />
Do While Not EOF(lfile)<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, verset & " ") 0 Then<br />
frmParse2.Text1.Text = Mid(ligne, InStr(1, ligne, verset & " ")<br />
Len(ligne))<br />
GoTo suite:<br />
End If<br />
Loop<br />
uite:<br />
Do While Not EOF(lfile)<br />
Loop<br />
Loop<br />
End If<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, "1 ") = 0 And _<br />
InStr(1, ligne, "2 ") = 0 And _<br />
InStr(1, ligne, "3 ") = 0 And _<br />
InStr(1, ligne, "4 ") = 0 And _<br />
InStr(1, ligne, "5 ") = 0 And _<br />
InStr(1, ligne, "6 ") = 0 And _<br />
InStr(1, ligne, "7 ") = 0 And _<br />
InStr(1, ligne, "8 ") = 0 And _<br />
InStr(1, ligne, "9 ") = 0 Then<br />
frmParse2.Text1.Text = frmParse2.Text1.Text & ligne<br />
Else<br />
repere = InStr(1, ligne, "1 ")<br />
If repere 0 Then ligne = Mid(ligne, 1, repere - 2)<br />
repere = InStr(1, ligne, "2 ")<br />
If repere 0 Then ligne = Mid(ligne, 1, repere - 2)<br />
repere = InStr(1, ligne, "3 ")<br />
If repere 0 Then ligne = Mid(ligne, 1, repere - 2)<br />
repere = InStr(1, ligne, "4 ")<br />
If repere 0 Then ligne = Mid(ligne, 1, repere - 2)<br />
repere = InStr(1, ligne, "5 ")<br />
If repere 0 Then ligne = Mid(ligne, 1, repere - 2)<br />
repere = InStr(1, ligne, "6 ")<br />
If repere 0 Then ligne = Mid(ligne, 1, repere - 2)<br />
repere = InStr(1, ligne, "7 ")<br />
If repere 0 Then ligne = Mid(ligne, 1, repere - 2)<br />
repere = InStr(1, ligne, "8 ")<br />
If repere 0 Then ligne = Mid(ligne, 1, repere - 2)<br />
repere = InStr(1, ligne, "9 ")<br />
If repere 0 Then ligne = Mid(ligne, 1, repere - 2)<br />
frmParse2.Text1.Text = frmParse2.Text1.Text & " " & ligne<br />
Exit Do<br />
End If
fctLireTMN - 2<br />
End If<br />
Loop While Not EOF(lfile)<br />
apres:<br />
Close<br />
frmBible.txtPassage.Text = ""<br />
texte = frmParse2.Text1.Text<br />
texte = Replace(texte, "0", "")<br />
texte = Replace(texte, "1", "")<br />
texte = Replace(texte, "2", "")<br />
texte = Replace(texte, "3", "")<br />
texte = Replace(texte, "4", "")<br />
texte = Replace(texte, "5", "")<br />
texte = Replace(texte, "6", "")<br />
texte = Replace(texte, "7", "")<br />
texte = Replace(texte, "8", "")<br />
texte = Replace(texte, "9", "")<br />
frmBible.txtPassage.Text = texte<br />
'ofile = App.Path & "\tools\temp.txt"<br />
'lfile = FreeFile<br />
'Open ofile For Output As #lfile<br />
'Print #lfile, frmParse2.Text.Text<br />
'Close<br />
'lfile = FreeFile<br />
'Open ofile For Input As #lfile<br />
'frmBible.txtPassage.Text = ""<br />
' Do<br />
' On Error GoTo suite:<br />
' Input #lfile, ligne<br />
' If InStr(1, ligne, verset) 0 Then<br />
' debut = InStr(1, ligne, " " & verset)<br />
' 'versetsuivant = " " & Str(Val(verset) + 1)<br />
' fin = InStr(1, ligne, Str(Val(verset) + 1))<br />
' If fin = 0 Then fin = InStr(1, ligne, "fin du chapitre") - 1<br />
' frmBible.txtPassage.Text = Mid(ligne, debut + 3, (fin - debut) - 2)<br />
' Exit Do<br />
'<br />
'End If<br />
'Loop While Not EOF(lfile)<br />
'suite:<br />
'Close<br />
frmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
frmBible.txtPassage.FontSize = 12<br />
frmBible.txtPassage.Font = "Times"<br />
frmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
End Function
fctLireTOB - 1<br />
Public Function LireTOB(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\TOB\tob.txt"<br />
lfile = FreeFile<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Num"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jdg"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "1Sa"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "2Sa"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "1Ki"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "2Ki"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "1Ch"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "2Ch"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Ezr"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Sol"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Isa"<br />
ElseIf livre = "Jérémie" Then
fctLireTOB - 2<br />
chercher = "Jer"<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Hos"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Zep"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Hag"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zec"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
ElseIf livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luk"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Joh"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "1Co"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "2Co"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"
fctLireTOB - 3<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "1Th"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "2Th"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "1Ti"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "2Ti"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jam"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "1Pe"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "2Pe"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "1Jo"<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "2Jo"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "3Jo"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jud"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
End If<br />
recherche = chercher & " " & chapitre & "-" & verset & " "<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireTSK - 1<br />
Public Function LireTSK(livre, chapitre, verset) As String<br />
frmParse2.Text1.Text = ""<br />
Dim lfile As Long 'Lecture<br />
Dim ofile As String 'Fichier à ouvrir<br />
lfile = FreeFile<br />
Dim fichier$, chercherverset$, texte$<br />
If livre = "1 Corinthiens" Then<br />
fichier = "essaico.txt"<br />
End If<br />
ofile = App.Path & "\modules\dictionnaires\tsk\" & fichier<br />
'chercherverset = Trim(chapitre) & "v" & Trim(verset)<br />
If Val(chapitre) < "10" Then<br />
chapitre = "0" & chapitre<br />
End If<br />
If Val(verset) < "10" Then<br />
verset = "0" & verset<br />
End If<br />
chercherverset = Trim(chapitre) & ":" & Trim(verset) & ":00"<br />
On Error GoTo erreur:<br />
Open ofile For Input As #lfile<br />
o<br />
Input #lfile, ligne<br />
If ligne = chercherverset Then<br />
' pour que le verset recherché soit exact<br />
Do<br />
Loop<br />
End If<br />
oop Until EOF(lfile)<br />
lose #lfile<br />
rreur:<br />
xit Function<br />
Input #lfile, ligne<br />
If IsEmpty(ligne) = True Then<br />
'If Len(ligne) = "" Then<br />
GoTo apres:<br />
Else<br />
frmParse2.Text1.Text = frmParse2.Text1.Text & " " & ligne<br />
End If<br />
pres:<br />
exte = frmParse2.Text1.Text<br />
lose #lfile<br />
Load frmTSK<br />
frmTSK.Show<br />
frmTSK.lblpassage = livre & " " & chapitre & " : " & verset & " - références "<br />
frmTSK.Text.Text = texte<br />
nd Function
fctLireVulgate - 1<br />
Public Function LireVulgate(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\Vg\vulgate.txt"<br />
lfile = FreeFile<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Nom"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jug"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "Samun"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "Samde"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "UnRo"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "DeRo"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "UnCr"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "DeCr"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Esd"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Can"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Esa"<br />
ElseIf livre = "Jérémie" Then
fctLireVulgate - 2<br />
chercher = "Jer"<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Ose"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Sop"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Agg"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zac"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
ElseIf livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luc"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Jea"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "UnCo"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "DeCo"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"
fctLireVulgate - 3<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Php"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "UnTh"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "DeTh"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "UnTi"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "DeTi"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jac"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "UnPi"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "DePi"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "UnJn"<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "DeJn"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "TrJn"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jude"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
End If<br />
recherche = chercher & "-" & chapitre & "-" & verset & "-"<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireWEB - 1<br />
Public Function LireWEB(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\WEB\web.txt"<br />
lfile = FreeFile<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Nom"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jug"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "Samun"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "Samde"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "UnRo"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "DeRo"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "UnCr"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "DeCr"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Esd"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Can"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Esa"<br />
ElseIf livre = "Jérémie" Then<br />
chercher = "Jer"
fctLireWEB - 2<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Ose"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Sop"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Agg"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zac"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
ElseIf livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luc"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Jea"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "UnCo"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "DeCo"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"
fctLireWEB - 3<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Php"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "UnTh"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "DeTh"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "UnTi"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "DeTi"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jac"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "UnPi"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "DePi"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "UnJn"<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "DeJn"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "TrJn"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jude"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
End If<br />
recherche = chercher & "-" & chapitre & "-" & verset & "-"<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireWebster - 1<br />
Public Function LireWebster(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\Webster\webster.txt"<br />
lfile = FreeFile<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Nom"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jug"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "Samun"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "Samde"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "UnRo"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "DeRo"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "UnCr"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "DeCr"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Esd"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Can"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Esa"<br />
ElseIf livre = "Jérémie" Then<br />
chercher = "Jer"
fctLireWebster - 2<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Ose"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Sop"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Agg"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zac"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
ElseIf livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luc"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Jea"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "UnCo"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "DeCo"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"
fctLireWebster - 3<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Php"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "UnTh"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "DeTh"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "UnTi"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "DeTi"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jac"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "UnPi"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "DePi"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "UnJn"<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "DeJn"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "TrJn"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jude"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
End If<br />
recherche = chercher & "-" & chapitre & "-" & verset & "-"<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireWebster - 4
fctLireWestcottHortParsed - 1<br />
Public Function LireWestcottHortParsed(livre, chapitre, verset)<br />
Dim ofile$<br />
Dim lfile%<br />
Dim ligne$<br />
ofile = App.Path & "\modules\WHpars\whpar.whp"<br />
lfile = FreeFile<br />
ref = chapitre & ":" & verset<br />
frmParse2.Text1.Text = ""<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If LCase(ligne) = LCase(livre) Then<br />
'j'ai trouvé le livre<br />
Do While Not EOF(lfile)<br />
Line Input #lfile, ligne<br />
'j'ai trouvé le chapitre et le verset<br />
If InStr(1, ligne, ref & " ") 0 Then<br />
frmParse2.Text1.Text = frmParse2.Text1.Text & ligne<br />
Do<br />
Line Input #lfile, ligne<br />
'c'est le verset suivant<br />
If InStr(1, ligne, ":") 0 Then GoTo fin:<br />
frmParse2.Text1.Text = frmParse2.Text1.Text & ligne<br />
Loop<br />
End If<br />
Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
in:<br />
lose<br />
exte = Trim(frmParse2.Text1.Text)<br />
le texte est maintenant trouvé<br />
il faut mettre d'un côté le texte : txtpassage<br />
de l'autre les codes, dans le tampon<br />
all CorrigerWH(texte)<br />
exte = Replace(texte, "v ", "V ")<br />
exte = Replace(texte, "y", "q")<br />
exte = Replace(texte, "§", "y")<br />
MsgBox (texte)<br />
rmBible.txtPassage.Text = texte<br />
rmBible.txtPassage.Font = "Symbol"<br />
rmBible.txtPassage.FontSize = 14<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctLireWHPlus - 1<br />
Public Function LireWHPlus(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$, espace%, texte$<br />
ofile = App.Path & "\modules\WHpars\whm.txt"<br />
lfile = FreeFile<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Num"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jdg"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "1Sa"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "2Sa"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "1Ki"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "2Ki"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "1Ch"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "2Ch"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Ezr"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Sol"<br />
ElseIf livre = "Esaïe" Then
fctLireWHPlus - 2<br />
chercher = "Isa"<br />
ElseIf livre = "Jérémie" Then<br />
chercher = "Jer"<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Hos"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Zep"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Hag"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zec"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
ElseIf livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luk"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Joh"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "1Co"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "2Co"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"
fctLireWHPlus - 3<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "1Th"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "2Th"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "1Ti"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "2Ti"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jam"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "1Pe"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "2Pe"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "1Jo"<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "2Jo"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "3Jo"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jud"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
End If<br />
recherche = chercher & " " & chapitre & ":" & verset & " "<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
texte = texte & Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
file = App.Path & "\modules\WHpars\morphwh.txt"<br />
Open ofile For Output As #lfile<br />
exte = Trim(texte)<br />
exte = Replace(texte, ") ", ")" & vbCrLf)<br />
rint #lfile, texte<br />
lose
fctLireWHPlus - 4<br />
Open ofile For Input As #lfile<br />
Do<br />
Line Input #lfile, ligne<br />
espace = InStr(1, ligne, " ")<br />
If ligne "" Then frmBible.txtPassage.Text = frmBible.txtPassage.Text & Mid(ligne, 1, esp<br />
ce - 1) & " "<br />
Loop While Not EOF(lfile)<br />
Close<br />
frmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
frmBible.txtPassage.FontSize = 14<br />
frmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
EpurerWH (recherche)<br />
nd Function
fctLireWTM - 1<br />
Public Function LireWTM(livre, chapitre, verset, mot)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Num"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jdg"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "1Sa"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "2Sa"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "1Ki"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "2Ki"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "1Ch"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "2Ch"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Ezr"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Sol"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Isa"<br />
ElseIf livre = "Jérémie" Then<br />
chercher = "Jer"
fctLireWTM - 2<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Hos"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Zep"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Hag"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zec"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
End If<br />
recherche2 = chercher & " " & chapitre & ":" & verset<br />
'étape 1 : mettre le verset dans un fichier<br />
ofile = App.Path & "\modules\BHSv\wtm.txt"<br />
lfile = FreeFile<br />
Open ofile For Input As #lfile<br />
rmParse2.Text.Text = ""<br />
Do<br />
))<br />
lose<br />
Input #lfile, ligne<br />
If Mid(ligne, 1, Len(recherche2)) = recherche2 Then<br />
frmParse2.Text.Text = frmParse2.Text.Text & Mid(ligne, Len(recherche) + 1, Len(lign<br />
Do<br />
Input #lfile, ligne<br />
If InStr(1, ligne, " ") 0 Then Exit Do<br />
frmParse2.Text.Text = frmParse2.Text.Text & ligne<br />
Loop<br />
'Exit Do<br />
End If<br />
Loop While Not EOF(lfile)<br />
rmParse2.Text.Text = Replace(frmParse2.Text.Text, ") ", ")" & vbCrLf)<br />
file = App.Path & "\modules\BHSv\corrbhs.txt"<br />
file = FreeFile<br />
Open ofile For Output As #lfile
fctLireWTM - 3<br />
Print #lfile, frmParse2.Text.Text<br />
Close<br />
' étape 2 : lire e<br />
recherche = chercher & " " & chapitre & ":" & verset & " "<br />
Open ofile For Input As #lfile<br />
nd Function
fctLireYLT - 1<br />
Public Function LireYLT(livre, chapitre, verset)<br />
Dim cherche$, ofile$, lfile%, ligne$, recherhche$<br />
ofile = App.Path & "\modules\YLT\ylt.txt"<br />
lfile = FreeFile<br />
If livre = "Genèse" Then<br />
chercher = "Gen"<br />
ElseIf livre = "Exode" Then<br />
chercher = "Exo"<br />
ElseIf livre = "Lévitique" Then<br />
chercher = "Lev"<br />
ElseIf livre = "Nombres" Then<br />
chercher = "Nom"<br />
ElseIf livre = "Deutéronome" Then<br />
chercher = "Deu"<br />
ElseIf livre = "Josué" Then<br />
chercher = "Jos"<br />
ElseIf livre = "Juges" Then<br />
chercher = "Jug"<br />
ElseIf livre = "Ruth" Then<br />
chercher = "Rut"<br />
ElseIf livre = "1 Samuel" Then<br />
chercher = "Samun"<br />
ElseIf livre = "2 Samuel" Then<br />
chercher = "Samde"<br />
ElseIf livre = "1 Rois" Then<br />
chercher = "UnRo"<br />
ElseIf livre = "2 Rois" Then<br />
chercher = "DeRo"<br />
ElseIf livre = "1 Chroniques" Then<br />
chercher = "UnCr"<br />
ElseIf livre = "2 Chroniques" Then<br />
chercher = "DeCr"<br />
ElseIf livre = "Esdras" Then<br />
chercher = "Esd"<br />
ElseIf livre = "Néhémie" Then<br />
chercher = "Neh"<br />
ElseIf livre = "Esther" Then<br />
chercher = "Est"<br />
ElseIf livre = "Job" Then<br />
chercher = "Job"<br />
ElseIf livre = "Psaumes" Then<br />
chercher = "Psa"<br />
ElseIf livre = "Proverbes" Then<br />
chercher = "Pro"<br />
ElseIf livre = "Ecclésiaste" Then<br />
chercher = "Ecc"<br />
ElseIf livre = "Cantique des cantiques" Then<br />
chercher = "Can"<br />
ElseIf livre = "Esaïe" Then<br />
chercher = "Esa"<br />
ElseIf livre = "Jérémie" Then<br />
chercher = "Jer"
fctLireYLT - 2<br />
ElseIf livre = "Lamentations" Then<br />
chercher = "Lam"<br />
ElseIf livre = "Ezéchiel" Then<br />
chercher = "Eze"<br />
ElseIf livre = "Daniel" Then<br />
chercher = "Dan"<br />
ElseIf livre = "Osée" Then<br />
chercher = "Ose"<br />
ElseIf livre = "Joël" Then<br />
chercher = "Joe"<br />
ElseIf livre = "Amos" Then<br />
chercher = "Amo"<br />
ElseIf livre = "Abdias" Then<br />
chercher = "Oba"<br />
ElseIf livre = "Jonas" Then<br />
chercher = "Jon"<br />
ElseIf livre = "Michée" Then<br />
chercher = "Mic"<br />
ElseIf livre = "Habaquq" Then<br />
chercher = "Hab"<br />
ElseIf livre = "Sophonie" Then<br />
chercher = "Sop"<br />
ElseIf livre = "Aggée" Then<br />
chercher = "Agg"<br />
ElseIf livre = "Nahoum" Then<br />
chercher = "Nah"<br />
ElseIf livre = "Zacharie" Then<br />
chercher = "Zac"<br />
ElseIf livre = "Malachie" Then<br />
chercher = "Mal"<br />
ElseIf livre = "Matthieu" Then<br />
chercher = "Mat"<br />
ElseIf livre = "Marc" Then<br />
chercher = "Mar"<br />
ElseIf livre = "Luc" Then<br />
chercher = "Luc"<br />
ElseIf livre = "Jean" Then<br />
chercher = "Jea"<br />
ElseIf livre = "Actes" Then<br />
chercher = "Act"<br />
ElseIf livre = "Romains" Then<br />
chercher = "Rom"<br />
ElseIf livre = "1 Corinthiens" Then<br />
chercher = "UnCo"<br />
ElseIf livre = "2 Corinthiens" Then<br />
chercher = "DeCo"<br />
ElseIf livre = "Galates" Then<br />
chercher = "Gal"<br />
ElseIf livre = "Ephésiens" Then<br />
chercher = "Eph"
fctLireYLT - 3<br />
ElseIf livre = "Philippiens" Then<br />
chercher = "Php"<br />
ElseIf livre = "Colossiens" Then<br />
chercher = "Col"<br />
ElseIf livre = "1 Thessaloniciens" Then<br />
chercher = "UnTh"<br />
ElseIf livre = "2 Thessaloniciens" Then<br />
chercher = "DeTh"<br />
ElseIf livre = "1 Timothée" Then<br />
chercher = "UnTi"<br />
ElseIf livre = "2 Timothée" Then<br />
chercher = "DeTi"<br />
ElseIf livre = "Tite" Then<br />
chercher = "Tit"<br />
ElseIf livre = "Philémon" Then<br />
chercher = "Phi"<br />
ElseIf livre = "Hébreux" Then<br />
chercher = "Heb"<br />
ElseIf livre = "Jacques" Then<br />
chercher = "Jac"<br />
ElseIf livre = "1 Pierre" Then<br />
chercher = "UnPi"<br />
ElseIf livre = "2 Pierre" Then<br />
chercher = "DePi"<br />
ElseIf livre = "1 Jean" Then<br />
chercher = "UnJn"<br />
ElseIf livre = "2 Jean" Then<br />
chercher = "DeJn"<br />
ElseIf livre = "3 Jean" Then<br />
chercher = "TrJn"<br />
ElseIf livre = "Jude" Then<br />
chercher = "Jude"<br />
ElseIf livre = "Révélation" Then<br />
chercher = "Rev"<br />
End If<br />
recherche = chercher & "-" & chapitre & "-" & verset & "-"<br />
Open ofile For Input As #lfile<br />
Do<br />
Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",")<br />
rmBible.txtPassage.FontSize = 12<br />
rmBible.txtPassage.Font = "Times"<br />
rmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
nd Function
fctMorphContextuelle - 1<br />
Public Function MorphContextuelle(mot, code, vientde)<br />
ancienmot = mot<br />
Dim ofile$, lfile%, ligne$, premierespace%, deuxiemeespace%, parenthese%, nouvelespace%<br />
ofile = App.Path & "\modules\WHpars\morphwh.txt"<br />
lfile = FreeFile<br />
Open ofile For Input As #lfile<br />
o<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(mot)) = mot Then<br />
premiereespace = InStr(1, ligne, " ")<br />
deuxiemeespace = InStr(premiereespace, ligne, " ")<br />
parenthese = InStr(1, ligne, "(")<br />
vientde = Trim(Mid(ligne, premiereespace, Len(ligne)))<br />
nouvelespace = InStr(1, vientde, " ")<br />
vientde = Left(vientde, nouvelespace - 1)<br />
'petit tour de passe passe...<br />
code = StrReverse(ligne)<br />
espace = InStr(1, code, "(")<br />
code = Mid(code, 1, espace)<br />
code = StrReverse(code)<br />
code = Mid(code, 2, Len(code) - 1)<br />
Exit Do<br />
End If<br />
oop While Not EOF(lfile)<br />
lose<br />
f Right(code, 1) = ")" Then code = Mid(code, 1, Len(code) - 1)<br />
efinir = vientde<br />
efinir = Replace(definir, "/", "=")<br />
efinir = Replace(definir, "\", "|")<br />
efinir = Replace(definir, "v", ")")<br />
efinir = Replace(definir, "~", "(")<br />
efinir = Replace(definir, ".", "\")<br />
efinir = Replace(definir, "_", "(=")<br />
efinir = Replace(definir, "+", ")=")<br />
efinir = Replace(definir, "[", "(/")<br />
efinir = Replace(definir, "]", "(\")<br />
efinir = Replace(definir, ";", ")/")<br />
efinir = Replace(definir, "'", ")\")<br />
efinir = Replace(definir, ",", "/")<br />
je renseigne la définition du mot grec<br />
otr = definir<br />
je dois maintenant retransformer le fort Bwgrkn en Grenet/SPIonic<br />
otr = Replace(motr, "-", ")")<br />
otr = Replace(motr, "`", "(")<br />
otr = Replace(motr, "V", ")")<br />
f Mid(motr, 1, 2) = ")A" Then mot = "a)" & Mid(mot, 3, Len(mot))<br />
f Mid(motr, 1, 2) = ")E" Then mot = "e)" & Mid(mot, 3, Len(mot))<br />
all DefinirGrec(motr, mott)<br />
oad frmAnalyseMorphologique<br />
rmAnalyseMorphologique.lblDefinition.Caption = mott<br />
je m'occupe à décrypter le code morphologique<br />
rmAnalyseMorphologique.lblmot.Caption = ancienmot<br />
rmAnalyseMorphologique.lblvientde.Caption = vientde<br />
rmAnalyseMorphologique.lblanalyse2.Caption = code<br />
all LireCodeMorph(code)<br />
Load frmRechercheMorphologique
fctMorphContextuelle - 2<br />
'frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
1s", "1ère personne du singulier")<br />
'frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
2s", "2ème personne du singulier")<br />
'frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
3s", "3ème personne du singulier")<br />
'frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
1p", "1ère personne du pluriel")<br />
'frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
2p", "2ème personne du pluriel")<br />
'frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
3p", "3ème personne du pluriel")<br />
'Unload frmRechercheMorphologique<br />
'frmAnalyseMorphologique.Show<br />
End Function
fctMorphLXX - 1<br />
Public Function MorphLXX(mot)<br />
Dim ofile$, lfile%, ligne$, vientde$, code$, premierespace%, deuxiemeespace%, parenthese%, nouveles<br />
pace%, definir$<br />
ofile = App.Path & "\modules\WHpars\morphwh.txt"<br />
lfile = FreeFile<br />
Open ofile For Input As #lfile<br />
o<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(mot)) = mot Then<br />
premiereespace = InStr(1, ligne, " ")<br />
deuxiemeespace = InStr(premiereespace, ligne, " ")<br />
parenthese = InStr(1, ligne, "(")<br />
vientde = Trim(Mid(ligne, premiereespace, Len(ligne)))<br />
nouvelespace = InStr(1, vientde, " ")<br />
vientde = Left(vientde, nouvelespace - 1)<br />
code = Mid(ligne, parenthese + 1, Len(ligne) - 1)<br />
Exit Do<br />
End If<br />
oop While Not EOF(lfile)<br />
lose<br />
f Right(code, 1) = ")" Then code = Mid(code, 1, Len(code) - 1)<br />
efinir = vientde<br />
efinir = Replace(definir, "/", "=")<br />
efinir = Replace(definir, "\", "|")<br />
efinir = Replace(definir, "`", "(")<br />
efinir = Replace(definir, "v", ")")<br />
efinir = Replace(definir, "~", "(")<br />
efinir = Replace(definir, ".", "\")<br />
efinir = Replace(definir, "_", "(=")<br />
efinir = Replace(definir, "+", ")=")<br />
efinir = Replace(definir, "[", "(/")<br />
efinir = Replace(definir, "]", "(\")<br />
efinir = Replace(definir, ";", ")/")<br />
efinir = Replace(definir, "'", ")\")<br />
efinir = Replace(definir, ",", "/")<br />
je renseigne la définition du mot grec<br />
otr = definir<br />
all DefinirGrec(motr, mott)<br />
oad frmAnalyseMorphologique<br />
rmAnalyseMorphologique.lblDefinition.Caption = mott<br />
je m'occupe à décrypter le code morphologique<br />
rmAnalyseMorphologique.lblmot.Caption = mot<br />
rmAnalyseMorphologique.lblvientde.Caption = vientde<br />
rmAnalyseMorphologique.lblanalyse2.Caption = code<br />
all LireCodeMorph(code)<br />
oad frmAnalyseMorphologique<br />
rmAnalyseMorphologique.lblmot.Caption = mot<br />
rmAnalyseMorphologique.lblvientde.Caption = vientde<br />
rmAnalyseMorphologique.lblDefinition.Caption = mott<br />
rmAnalyseMorphologique.Show<br />
nd Function
fctMorphNA27Plus - 1<br />
Public Function MorphNA27Plus(mot)<br />
ancienmot = mot<br />
Dim ofile$, lfile%, ligne$, vientde$, code$, premierespace%, deuxiemeespace%, parenthese%, nouveles<br />
pace%<br />
ofile = App.Path & "\modules\WHpars\morphwh.txt"<br />
lfile = FreeFile<br />
Open ofile For Input As #lfile<br />
o<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(mot)) = mot Then<br />
premiereespace = InStr(1, ligne, " ")<br />
deuxiemeespace = InStr(premiereespace, ligne, " ")<br />
parenthese = InStr(1, ligne, "(")<br />
vientde = Trim(Mid(ligne, premiereespace, Len(ligne)))<br />
nouvelespace = InStr(1, vientde, " ")<br />
vientde = Left(vientde, nouvelespace - 1)<br />
'petit tour de passe passe...<br />
code = StrReverse(ligne)<br />
espace = InStr(1, code, "(")<br />
code = Mid(code, 1, espace)<br />
code = StrReverse(code)<br />
code = Mid(code, 2, Len(code) - 1)<br />
Exit Do<br />
End If<br />
oop While Not EOF(lfile)<br />
lose<br />
f Right(code, 1) = ")" Then code = Mid(code, 1, Len(code) - 1)<br />
efinir = vientde<br />
efinir = Replace(definir, "/", "=")<br />
efinir = Replace(definir, "\", "|")<br />
efinir = Replace(definir, "v", ")")<br />
efinir = Replace(definir, "~", "(")<br />
efinir = Replace(definir, ".", "\")<br />
efinir = Replace(definir, "_", "(=")<br />
efinir = Replace(definir, "+", ")=")<br />
efinir = Replace(definir, "[", "(/")<br />
efinir = Replace(definir, "]", "(\")<br />
efinir = Replace(definir, ";", ")/")<br />
efinir = Replace(definir, "'", ")\")<br />
efinir = Replace(definir, ",", "/")<br />
je renseigne la définition du mot grec<br />
otr = definir<br />
je dois maintenant retransformer le fort Bwgrkn en Grenet/SPIonic<br />
otr = Replace(motr, "-", ")")<br />
otr = Replace(motr, "`", "(")<br />
otr = Replace(motr, "V", ")")<br />
f Mid(motr, 1, 2) = ")A" Then mot = "a)" & Mid(mot, 3, Len(mot))<br />
f Mid(motr, 1, 2) = ")E" Then mot = "e)" & Mid(mot, 3, Len(mot))<br />
all DefinirGrec(motr, mott)<br />
oad frmAnalyseMorphologique<br />
rmAnalyseMorphologique.lblDefinition.Caption = mott<br />
je m'occupe à décrypter le code morphologique<br />
rmAnalyseMorphologique.lblmot.Caption = ancienmot<br />
rmAnalyseMorphologique.lblvientde.Caption = vientde<br />
rmAnalyseMorphologique.lblanalyse2.Caption = code<br />
all LireCodeMorph(code)<br />
Load frmRechercheMorphologique
fctMorphNA27Plus - 2<br />
'frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
1s", "1ère personne du singulier")<br />
'frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
2s", "2ème personne du singulier")<br />
'frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
3s", "3ème personne du singulier")<br />
'frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
1p", "1ère personne du pluriel")<br />
'frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
2p", "2ème personne du pluriel")<br />
'frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
3p", "3ème personne du pluriel")<br />
'Unload frmRechercheMorphologique<br />
frmAnalyseMorphologique.Show<br />
End Function
fctMorphWHPlus - 1<br />
Public Function MorphWHPlus(mot)<br />
Dim ofile$, lfile%, ligne$, vientde$, code$, premierespace%, deuxiemeespace%, parenthese%, nouveles<br />
pace%, definir$<br />
ofile = App.Path & "\modules\WHpars\morphwh.txt"<br />
lfile = FreeFile<br />
Open ofile For Input As #lfile<br />
o<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(mot)) = mot Then<br />
premiereespace = InStr(1, ligne, " ")<br />
deuxiemeespace = InStr(premiereespace, ligne, " ")<br />
parenthese = InStr(1, ligne, "(")<br />
vientde = Trim(Mid(ligne, premiereespace, Len(ligne)))<br />
nouvelespace = InStr(1, vientde, " ")<br />
vientde = Left(vientde, nouvelespace - 1)<br />
code = Mid(ligne, parenthese + 1, Len(ligne) - 1)<br />
Exit Do<br />
End If<br />
oop While Not EOF(lfile)<br />
lose<br />
f Right(code, 1) = ")" Then code = Mid(code, 1, Len(code) - 1)<br />
efinir = vientde<br />
efinir = Replace(definir, "/", "=")<br />
efinir = Replace(definir, "\", "|")<br />
efinir = Replace(definir, "`", "(")<br />
efinir = Replace(definir, "v", ")")<br />
efinir = Replace(definir, "~", "(")<br />
efinir = Replace(definir, ".", "\")<br />
efinir = Replace(definir, "_", "(=")<br />
efinir = Replace(definir, "+", ")=")<br />
efinir = Replace(definir, "[", "(/")<br />
efinir = Replace(definir, "]", "(\")<br />
efinir = Replace(definir, ";", ")/")<br />
efinir = Replace(definir, "'", ")\")<br />
efinir = Replace(definir, ",", "/")<br />
otr = definir<br />
all DefinirGrec(motr, mott)<br />
oad frmAnalyseMorphologique<br />
rmAnalyseMorphologique.lblmot.Caption = mot<br />
rmAnalyseMorphologique.lblvientde.Caption = vientde<br />
rmAnalyseMorphologique.lblanalyse2.Caption = code<br />
all LireCodeMorph(code)<br />
Load frmRechercheMorphologique<br />
frmAnalyseMorphologique.lblanalyse.Caption = frmRechercheMorphologique.cboType.Text & " " & frmRec<br />
ercheMorphologique.cboTempsCas.Text & " " & frmRechercheMorphologique.cboGenre.Text & " " & frmRec<br />
ercheMorphologique.cboNombre.Text & " " & frmRechercheMorphologique.cboPersonne.Text<br />
frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
s", "1ère personne du singulier")<br />
frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
s", "2ème personne du singulier")<br />
frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
s", "3ème personne du singulier")<br />
frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
p", "1ère personne du pluriel")<br />
frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
p", "2ème personne du pluriel")<br />
frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
p", "3ème personne du pluriel")<br />
Unload frmRechercheMorphologique
fctMorphWHPlus - 2<br />
frmAnalyseMorphologique.lblDefinition.Caption = mott<br />
frmAnalyseMorphologique.Show<br />
End Function
fctRechercheLemmatiqueLXX - 1<br />
Public Function RechercheLemmatiqueLXX(mot)<br />
Dim ofile$, lfile%, ligne$, vientde$, code$, premierespace%, deuxiemeespace%, parenthese%, nouveles<br />
pace%<br />
ofile = App.Path & "\modules\WHpars\morphwh.txt"<br />
lfile = FreeFile<br />
Open ofile For Input As #lfile<br />
o<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(mot)) = mot Then<br />
premiereespace = InStr(1, ligne, " ")<br />
deuxiemeespace = InStr(premiereespace, ligne, " ")<br />
parenthese = InStr(1, ligne, "(")<br />
vientde = Trim(Mid(ligne, premiereespace, Len(ligne)))<br />
nouvelespace = InStr(1, vientde, " ")<br />
vientde = Left(vientde, nouvelespace - 1)<br />
'petit tour de passe passe...<br />
code = StrReverse(ligne)<br />
espace = InStr(1, code, "(")<br />
code = Mid(code, 1, espace)<br />
code = StrReverse(code)<br />
code = Mid(code, 2, Len(code) - 1)<br />
Exit Do<br />
End If<br />
oop While Not EOF(lfile)<br />
lose<br />
maintenant je recherche vraiment toutes les formes du mots<br />
echerche = vientde & " " & "("<br />
file = App.Path & "\modules\LXX\lxx.txt"<br />
file = FreeFile<br />
Open ofile For Input As #lfile<br />
oad frmZetoGraphe<br />
rmZetoGraphe.cboVersion.Text = "NA27"<br />
= 0<br />
o<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, recherche) 0 Then<br />
deuxpoints = InStr(1, ligne, ":")<br />
espace = InStr(deuxpoints, ligne, " ")<br />
frmZetoGraphe.Text1.Text = frmZetoGraphe.Text1.Text & vbCrLf & Mid(ligne, 1, espace)<br />
i = i + 1<br />
End If<br />
oop While Not EOF(lfile)<br />
rmZetoGraphe.Show<br />
rmZetoGraphe.lblResultat.Caption = i & " passages trouvés."<br />
rmZetoGraphe.Text1.Text = Mid(frmZetoGraphe.Text1.Text, 3, Len(frmZetoGraphe.Text1.Text))<br />
nd Function
fctRechercheLemmatiqueNA27 - 1<br />
Public Function RechercheLemmatiqueNA27(mot)<br />
Dim ofile$, lfile%, ligne$, vientde$, code$, premierespace%, deuxiemeespace%, parenthese%, nouveles<br />
pace%<br />
ofile = App.Path & "\modules\WHpars\morphwh.txt"<br />
lfile = FreeFile<br />
Open ofile For Input As #lfile<br />
o<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(mot)) = mot Then<br />
premiereespace = InStr(1, ligne, " ")<br />
deuxiemeespace = InStr(premiereespace, ligne, " ")<br />
parenthese = InStr(1, ligne, "(")<br />
vientde = Trim(Mid(ligne, premiereespace, Len(ligne)))<br />
nouvelespace = InStr(1, vientde, " ")<br />
vientde = Left(vientde, nouvelespace - 1)<br />
'petit tour de passe passe...<br />
code = StrReverse(ligne)<br />
espace = InStr(1, code, "(")<br />
code = Mid(code, 1, espace)<br />
code = StrReverse(code)<br />
code = Mid(code, 2, Len(code) - 1)<br />
Exit Do<br />
End If<br />
oop While Not EOF(lfile)<br />
lose<br />
maintenant je recherche vraiment toutes les formes du mots<br />
echerche = vientde & " " & "("<br />
file = App.Path & "\modules\NA27\na27p.txt"<br />
file = FreeFile<br />
Open ofile For Input As #lfile<br />
oad frmZetoGraphe<br />
rmZetoGraphe.cboVersion.Text = "NA27"<br />
= 0<br />
o<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, recherche) 0 Then<br />
deuxpoints = InStr(1, ligne, ":")<br />
espace = InStr(deuxpoints, ligne, " ")<br />
frmZetoGraphe.Text1.Text = frmZetoGraphe.Text1.Text & vbCrLf & Mid(ligne, 1, espace)<br />
i = i + 1<br />
End If<br />
oop While Not EOF(lfile)<br />
rmZetoGraphe.Show<br />
rmZetoGraphe.lblResultat.Caption = i & " passages trouvés."<br />
rmZetoGraphe.Text1.Text = Mid(frmZetoGraphe.Text1.Text, 3, Len(frmZetoGraphe.Text1.Text))<br />
nd Function
fctRechercheMorphAPFG - 1<br />
Public Function RechercheMorphAPFG(mot)<br />
Dim ofile$, lfile%, ligne$, vientde$, code$, premierespace%, deuxiemeespace%, parenthese%, nouveles<br />
pace%<br />
ofile = App.Path & "\modules\LXX\lxx.txt"<br />
lfile = FreeFile<br />
ofile2 = App.Path & "\tools\temp.txt"<br />
mot = mot & " "<br />
Open ofile For Input As #lfile<br />
o<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, mot) 0 Then<br />
LFile2 = FreeFile<br />
Open ofile2 For Output As #LFile2<br />
ligne = Replace(ligne, ") ", ")" & vbCrLf)<br />
Print #LFile2, ligne<br />
Exit Do<br />
'Close<br />
End If<br />
oop While Not EOF(lfile)<br />
lose<br />
file = FreeFile<br />
Open ofile2 For Input As #lfile<br />
o<br />
ine Input #lfile, ligne<br />
If Left(ligne, Len(mot)) = mot Then<br />
premiereespace = InStr(1, ligne, " ")<br />
deuxiemeespace = InStr(premiereespace, ligne, " ")<br />
parenthese = InStr(1, ligne, "(")<br />
vientde = Trim(Mid(ligne, premiereespace, Len(ligne)))<br />
nouvelespace = InStr(1, vientde, " ")<br />
vientde = Left(vientde, nouvelespace - 1)<br />
'petit tour de passe passe...<br />
code = StrReverse(ligne)<br />
espace = InStr(1, code, "(")<br />
code = Mid(code, 1, espace)<br />
code = StrReverse(code)<br />
code = Mid(code, 2, Len(code) - 1)<br />
Exit Do<br />
End If<br />
oop While Not EOF(lfile)<br />
lose<br />
f Right(code, 1) = ")" Then code = Mid(code, 1, Len(code) - 1)<br />
efinir = vientde<br />
efinir = Replace(definir, "/", "=")<br />
efinir = Replace(definir, "\", "|")<br />
efinir = Replace(definir, "v", ")")<br />
efinir = Replace(definir, "~", "(")<br />
efinir = Replace(definir, ".", "\")<br />
efinir = Replace(definir, "_", "(=")<br />
efinir = Replace(definir, "+", ")=")<br />
efinir = Replace(definir, "[", "(/")<br />
efinir = Replace(definir, "]", "(\")<br />
efinir = Replace(definir, ";", ")/")<br />
efinir = Replace(definir, "'", ")\")<br />
efinir = Replace(definir, ",", "/")<br />
je renseigne la définition du mot grec<br />
otr = definir
fctRechercheMorphAPFG - 2<br />
Call DefinirGrec(motr, mott)<br />
Load frmAnalyseMorphologique<br />
frmAnalyseMorphologique.lblDefinition.Caption = mott<br />
' je m'occupe à décrypter le code morphologique<br />
frmAnalyseMorphologique.lblmot.Caption = mot<br />
frmAnalyseMorphologique.lblvientde.Caption = vientde<br />
frmAnalyseMorphologique.lblanalyse2.Caption = code<br />
Call LireCodeMorph(code)<br />
'Load frmRechercheMorphologique<br />
'frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
1s", "1ère personne du singulier")<br />
'frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
2s", "2ème personne du singulier")<br />
'frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
3s", "3ème personne du singulier")<br />
'frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
1p", "1ère personne du pluriel")<br />
'frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
2p", "2ème personne du pluriel")<br />
'frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, "<br />
3p", "3ème personne du pluriel")<br />
'Unload frmRechercheMorphologique<br />
frmAnalyseMorphologique.Show<br />
End Function
fctRechercheMorphologique - 1<br />
Public Function RechercheMorphologique(recherche, nveaucode)<br />
Dim ofile$, lfile%, ligne$, verset$, premierespace$, marge$, i%<br />
If frmBible.cboVersion.Text = "WH+" Then<br />
ofile = App.Path & "\modules\WHpars\whm.txt"<br />
ElseIf frmBible.cboVersion.Text = "NA27" Then<br />
ofile = App.Path & "\modules\NA27\na27p.txt"<br />
ElseIf frmBible.cboVersion.Text = "LXX" Then<br />
ofile = App.Path & "\modules\LXX\lxx.txt"<br />
End If<br />
lfile = FreeFile<br />
'frmRechercheMorphologique.lstPassages.Clear<br />
frmAssistant.lstPassages.Clear<br />
i = 0<br />
'If frmRechercheMorphologique.Option1.Value = True Then GoTo formeexacte:<br />
'If frmRechercheMorphologique.Option2.Value = True Then GoTo touteforme:<br />
If ofile "" Then Open ofile For Input As #lfile<br />
On Error GoTo err:<br />
Do<br />
rr:<br />
lose<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, recherche) 0 Then<br />
marge = InStr(1, ligne, recherche)<br />
premierespace = InStr(1, ligne, " ")<br />
' deuxiemeespace = InStr(premierespace, ligne, " ")<br />
verset = Mid(ligne, 1, premierespace)<br />
i = i + 1<br />
frmAssistant.lstPassages.AddItem (verset)<br />
'frmRechercheMorphologique.lstPassages.AddItem (verset)<br />
'frmRechercheMorphologique.lstFormes.AddItem (Mid(ligne, marge - 20, 20))<br />
End If<br />
Loop While Not EOF(lfile)<br />
f i = 0 Then<br />
rmAssistant.lblOcc.Caption = "0 passages"<br />
rmAssistant.Label1.Caption = ""<br />
lseIf i = 1 Then<br />
rmAssistant.lblOcc.Caption = "Une seule occurrence."<br />
frmAssistant.lstPassages.Selected(1) = True<br />
frmAssistant.lstPassages_Click<br />
lse<br />
rmAssistant.lblOcc.Caption = i & " passages."<br />
frmAssistant.lstPassages.Selected(1) = True<br />
frmAssistant.lstPassages_Click<br />
nd If<br />
formeexacte:<br />
recherche = frmRechercheMorphologique.txtMot.Text<br />
ofile = App.Path & "\modules\WHpars\whm.txt"<br />
Open ofile For Input As #lfile<br />
On Error GoTo err:<br />
'Do<br />
'Line Input #lfile, ligne<br />
'If InStr(1, ligne, recherche) 0 Then<br />
'marge = InStr(1, ligne, recherche)<br />
'premierespace = InStr(1, ligne, " ")<br />
'deuxiemeespace = InStr(premierespace, ligne, " ")<br />
'verset = Mid(ligne, 1, premierespace)<br />
'i = i + 1<br />
'frmRechercheMorphologique.lstPassages.AddItem (verset)
fctRechercheMorphologique - 2<br />
' End If<br />
' Loop While Not EOF(lfile)<br />
'frmRechercheMorphologique.lstFormes.AddItem (Mid(ligne, marge - 20, 20))<br />
'err:<br />
'Close<br />
'If i = 0 Then<br />
'frmRechercheMorphologique.lblOcc.Caption = "Ce mot n'apparaît pas à cette forme !"<br />
'ElseIf i = 1 Then<br />
'frmRechercheMorphologique.lblOcc.Caption = "Une seule occurrence."<br />
'Else<br />
'frmRechercheMorphologique.lblOcc.Caption = i & " passages."<br />
'End If<br />
'touteforme:<br />
'recherche = frmAnalyseMorphologique.lblvientde.Caption & " (" & nveaucode & ")"<br />
'ofile = App.Path & "\modules\WHpars\whm.txt"<br />
'Open ofile For Input As #lfile<br />
'On Error GoTo err:<br />
' Do<br />
' Line Input #lfile, ligne<br />
' If InStr(1, ligne, recherche) 0 Then<br />
'marge = InStr(1, ligne, recherche)<br />
'premierespace = InStr(1, ligne, " ")<br />
'deuxiemeespace = InStr(premierespace, ligne, " ")<br />
'verset = Mid(ligne, 1, premierespace)<br />
'i = i + 1<br />
'frmRechercheMorphologique.lstPassages.AddItem (verset)<br />
'frmRechercheMorphologique.lstFormes.AddItem (Mid(ligne, marge - 20, 20))<br />
'End If<br />
'Loop While Not EOF(lfile)<br />
'err:<br />
'Close<br />
'If i = 0 Then<br />
'frmRechercheMorphologique.lblOcc.Caption = "Ce mot n'apparaît pas à cette forme !"<br />
'ElseIf i = 1 Then<br />
'frmRechercheMorphologique.lblOcc.Caption = "Une seule occurrence."<br />
'Else<br />
'frmRechercheMorphologique.lblOcc.Caption = i & " passages."<br />
'End If<br />
End Function
fctRechercherATSBD - 1<br />
Public Function RechercherATSBD(mot)<br />
Dim ofile$, lfile%, ligne$<br />
ofile = App.Path & "\modules\dictionnaires\ATSBD.txt"<br />
lfile = FreeFile<br />
recherche = mot<br />
recherche = UCase(recherche)<br />
frmDictionnaires.txtResultat.Text = ""<br />
Open ofile For Input As #lfile<br />
On Error GoTo err:<br />
Do<br />
":" & vbCrLf<br />
Line Input #lfile, ligne<br />
If ligne = recherche Then<br />
frmDictionnaires.txtResultat.Text = frmDictionnaires.txtResultat.Text & recherche &<br />
Do<br />
Line Input #lfile, ligne<br />
If Len(ligne) < 30 And ligne "" And ligne recherche Then Exit Do<br />
frmDictionnaires.txtResultat.Text = frmDictionnaires.txtResultat.Text &<br />
ligne<br />
Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
rr:<br />
lose<br />
nd Function
fctRechercherNuttall - 1<br />
Public Function RechercherNuttall(mot)<br />
Dim ofile$, lfile%, ligne$<br />
ofile = App.Path & "\modules\dictionnaires\nuttall.txt"<br />
lfile = FreeFile<br />
recherche = mot<br />
recherche = UCase(recherche)<br />
frmDictionnaires.txtResultat.Text = ""<br />
Open ofile For Input As #lfile<br />
On Error GoTo err:<br />
Do<br />
Line Input #lfile, ligne<br />
If Mid(ligne, 1, Len(recherche) + 1) = recherche & "," Then<br />
frmDictionnaires.txtResultat.Text = frmDictionnaires.txtResultat.Text & " " & ligne<br />
Do<br />
Line Input #lfile, ligne<br />
If ligne = "" Then Exit Do<br />
frmDictionnaires.txtResultat.Text = frmDictionnaires.txtResultat.Text &<br />
ligne<br />
Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
rr:<br />
lose<br />
nd Function
fctRechercherWace - 1<br />
Public Function RechercherWace(mot)<br />
Dim ofile$, lfile%, ligne$<br />
ofile = App.Path & "\modules\dictionnaires\wace.txt"<br />
lfile = FreeFile<br />
recherche = mot<br />
recherche = " " & recherche & ","<br />
frmDictionnaires.txtResultat.Text = ""<br />
Open ofile For Input As #lfile<br />
On Error GoTo err:<br />
Do<br />
Line Input #lfile, ligne<br />
If Mid(ligne, 1, Len(recherche)) = recherche Then<br />
frmDictionnaires.txtResultat.Text = frmDictionnaires.txtResultat.Text & " " & ligne<br />
Do<br />
Line Input #lfile, ligne<br />
If Len(ligne) < 35 And ligne "" Then Exit Do<br />
frmDictionnaires.txtResultat.Text = frmDictionnaires.txtResultat.Text &<br />
ligne<br />
Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
rr:<br />
lose<br />
rmDictionnaires.txtResultat.Text = Replace(frmDictionnaires.txtResultat.Text, " ", " ")<br />
rmDictionnaires.txtResultat.Text = Replace(frmDictionnaires.txtResultat.Text, " ", "")<br />
" "<br />
nd Function
fctRechercherWebster - 1<br />
Public Function RechercherWebster(mot)<br />
Dim ofile$, lfile%, ligne$, fichier$<br />
mot = LCase(mot)<br />
If Left(mot, 1) = "a" Then<br />
fichier = "a.txt"<br />
ElseIf Left(mot, 1) = "b" Then<br />
fichier = "b.txt"<br />
ElseIf Left(mot, 1) = "c" Then<br />
fichier = "c.txt"<br />
ElseIf Left(mot, 1) = "d" Then<br />
fichier = "d.txt"<br />
ElseIf Left(mot, 1) = "e" Then<br />
fichier = "e.txt"<br />
ElseIf Left(mot, 1) = "f" Then<br />
fichier = "f.txt"<br />
ElseIf Left(mot, 1) = "g" Then<br />
fichier = "g.txt"<br />
ElseIf Left(mot, 1) = "h" Then<br />
fichier = "h.txt"<br />
ElseIf Left(mot, 1) = "i" Then<br />
fichier = "i.txt"<br />
ElseIf Left(mot, 1) = "j" Then<br />
fichier = "j.txt"<br />
ElseIf Left(mot, 1) = "k" Then<br />
fichier = "k.txt"<br />
ElseIf Left(mot, 1) = "l" Then<br />
fichier = "l.txt"<br />
ElseIf Left(mot, 1) = "m" Then<br />
fichier = "m.txt"<br />
ElseIf Left(mot, 1) = "n" Then<br />
fichier = "n.txt"<br />
ElseIf Left(mot, 1) = "o" Then<br />
fichier = "o.txt"<br />
ElseIf Left(mot, 1) = "p" Then<br />
fichier = "p.txt"<br />
ElseIf Left(mot, 1) = "q" Then<br />
fichier = "q.txt"<br />
ElseIf Left(mot, 1) = "r" Then<br />
fichier = "r.txt"<br />
ElseIf Left(mot, 1) = "s" Then<br />
fichier = "s.txt"<br />
ElseIf Left(mot, 1) = "t" Then<br />
fichier = "t.txt"<br />
ElseIf Left(mot, 1) = "u" Then<br />
fichier = "u.txt"<br />
ElseIf Left(mot, 1) = "v" Then<br />
fichier = "v.txt"<br />
ElseIf Left(mot, 1) = "w" Then<br />
fichier = "w.txt"<br />
ElseIf Left(mot, 1) = "x" Then<br />
fichier = "x.txt"<br />
ElseIf Left(mot, 1) = "y" Then<br />
fichier = "y.txt"<br />
ElseIf Left(mot, 1) = "z" Then<br />
fichier = "z.txt"<br />
End If<br />
ofile = App.Path & "\modules\dictionnaires\WBST\" & fichier<br />
lfile = FreeFile<br />
mot = UCase(Mid(mot, 1, 1)) & Mid(mot, 2, Len(mot))<br />
recherche = mot<br />
'recherche = UCase(recherche)<br />
frmDictionnaires.txtResultat.Text = ""<br />
Open ofile For Input As #lfile<br />
On Error GoTo err:<br />
Do<br />
Line Input #lfile, ligne<br />
If Mid(ligne, 1, Len(recherche) + 1) = recherche & " " Then<br />
frmDictionnaires.txtResultat.Text = frmDictionnaires.txtResultat.Text & ligne
fctRechercherWebster - 2<br />
même mot<br />
Do<br />
Line Input #lfile, ligne<br />
If Mid(ligne, 1, Len(recherche) + 1) = recherche & " " Then<br />
'le webster peut présenter plusieurs entrées pour les différents sens d'un<br />
frmDictionnaires.txtResultat.Text = frmDictionnaires.txtResultat.Text & vbC<br />
rLf & vbCrLf & " " & ligne<br />
Else<br />
Exit Do<br />
End If<br />
Loop<br />
'Do<br />
'Line Input #lfile, ligne<br />
'If ligne = "" Then Exit Do<br />
'frmDictionnaires.txtresultat.Text = frmDictionnaires.txtresultat.Text<br />
& ligne<br />
'Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
err:<br />
Close<br />
End Function
fctStrongBHSPlus - 1<br />
Public Sub StrongBHSPlus(mot)<br />
Dim ofile, lfile, ligne, strong, trouve<br />
ofile = App.Path & "\tools\temp2.txt"<br />
lfile = FreeFile<br />
Open ofile For Input As #lfile<br />
trong = ""<br />
Do<br />
Line Input #lfile, ligne<br />
If InStr(1, ligne, mot) 0 Then<br />
trouve = ligne<br />
repere = InStr(1, ligne, ">")<br />
strong = Mid(ligne, 2, repere - 2)<br />
Exit Do<br />
End If<br />
Loop While Not EOF(lfile)<br />
lose<br />
ot = strong<br />
all LireStrongATFrN(mot)<br />
nd Sub
fctVersetNBS - 1<br />
Public Function VersetNBS(livre, chapitre, verset)<br />
Dim aouvrir$, recherche$, ligne$<br />
Dim lfile<br />
If livre = "Révélation" Then<br />
livre = "Apocalypse"<br />
ElseIf livre = "Lamentations" Then<br />
livre = "Lamentations de Jérémie"<br />
ElseIf livre = "Nahoum" Then<br />
livre = "Nahum"<br />
ElseIf livre = "Habaquq" Then<br />
livre = "Habakuk"<br />
End If<br />
' affectation variable<br />
aouvrir = App.Path & "\modules\NBS\" & livre & ".txt"<br />
recherche = chapitre & "-" & verset & " "<br />
lfile = FreeFile<br />
frmBible.txtPassage.Text = ""<br />
Open aouvrir For Input As #lfile<br />
Do<br />
hen Exit Do<br />
Line Input #lfile, ligne<br />
If Left(ligne, Len(recherche)) = recherche Then<br />
frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne))<br />
frmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",", 1)<br />
Do<br />
Line Input #lfile, ligne<br />
If Mid(ligne, 2, 1) = "-" Or Mid(ligne, 3, 1) = "-" Or Mid(ligne, 4, 1) = "-" T<br />
frmBible.txtPassage.Text = frmBible.txtPassage.Text & vbCrLf & ligne<br />
Loop<br />
End If<br />
Loop While Not EOF(lfile)<br />
frmBible.txtPassage.FontSize = 12<br />
frmBible.txtPassage.Font = "Times"<br />
frmBible.lblchapitre = livre & " " & chapitre & ":" & verset<br />
Close<br />
End Function