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 


Load frmRechercheMorphologique 

frmRechercheMorphologique.txtcode.Text = lblanalyse2.Caption 

frmRechercheMorphologique.txtMot.Text = lblvientde.Caption 

frmRechercheMorphologique.Show 


End Sub 


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 


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 




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))


Load frmBrowser 

'ancienne adresse:http://www.perseus.tufts.edu/cgi-bin/morphindex?lookup=" & mot & "&.submit=Analyz 

e+Form&searchTe 

frmBrowser.cboAddress = "http://www.perseus.tufts.edu/hopper/morph.jsp?l=" & mot & "&la=greek" 

'frmBrowser. Show 1 

End Sub 

Private Sub pctAideGrammaticale_Click() 


frmGrammaire.txtAnalyse.Text = lblanalyse.Caption 

'frmGrammaire.btnGo_Click 


On Error GoTo fin: 

rmGrammaire.Show 

in: 

nd Sub 


im mot$ 

ot = lblvientde.Caption 



f Mid(mot, 1, 2) = "(A" Then mot = "a(" & Mid(mot, 3, Len(mot)) 

oad frmBrowser 

rmBrowser.cboAddress = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0057 

entry=" & mot '"http://www.perseus.tufts.edu/cgi-bin/lexindex?entry=" & mot & "&display=Beta" 

frmBrowser. Show 1 

nd Sub 


im mot$ 

ot = lblmot.Caption 



f Mid(mot, 1, 2) = "(A" Then mot = "a(" & Mid(mot, 3, Len(mot)) 


ancienne adresse:http://www.perseus.tufts.edu/cgi-bin/morphindex?lookup=" & mot & "&.submit=Analyz 

+Form&searchTe 

rmBrowser.cboAddress = "http://www.perseus.tufts.edu/hopper/morph.jsp?l=" & mot & "&la=greek" ' an 

ienne adresse: http://www.perseus.tufts.edu/cgi-bin/lexindex?entry=" & mot & "&display=Beta 


frmRechercheMorphologique.txtcode.Text = lblanalyse2.Caption 

frmRechercheMorphologique.txtMot.Text = lblmot.Caption 

frmRechercheMorphologique. Show 1 


nd Sub 


im mot$ 

ot = LCase(lblmot.Caption) 

renetTOBw (mot) 

ot = Replace(mot, ")", "") 

ot = Replace(mot, "(", "") 

f Mid(mot, 1, 1) = "a" Then 

frmBible.mnuAlpha_Click 

lseIf Mid(mot, 1, 1) = "b" Then 

frmBible.mnuBeta_Click 

lseIf Mid(mot, 1, 1) = "g" Then 

frmBible.mnuGamma_Click 

lseIf Mid(mot, 1, 1) = "d" Then 

frmBible.mnuDelta_Click 

lseIf Mid(mot, 1, 1) = "e" Then 

frmBible.mnuEpsilonn_Click 

lseIf Mid(mot, 1, 1) = "z" Then 

frmBible.mnuDzeta_Click 

lseIf Mid(mot, 1, 1) = "h" Then 

frmBible.mnuEta_Click 

lseIf Mid(mot, 1, 1) = "q" Then 

frmBible.mnuTheta_Click


ElseIf Mid(mot, 1, 1) = "i" Then 

frmBible.mnuIota_Click 

ElseIf Mid(mot, 1, 1) = "k" Then 

frmBible.mnuKappa_Click 

ElseIf Mid(mot, 1, 1) = "l" Then 

frmBible.mnuLambda_Click 

ElseIf Mid(mot, 1, 1) = "m" Then 

frmBible.mnuMu_Click 

ElseIf Mid(mot, 1, 1) = "n" Then 

frmBible.mnuNu_Click 

ElseIf Mid(mot, 1, 1) = "c" Then 

frmBible.mnuXi_Click 

ElseIf Mid(mot, 1, 1) = "o" Then 

frmBible.mnuOmicronn_Click 

ElseIf Mid(mot, 1, 1) = "p" Then 

frmBible.mnuPi_Click 

ElseIf Mid(mot, 1, 1) = "r" Then 

frmBible.mnuRho_Click 

ElseIf Mid(mot, 1, 1) = "s" Then 

frmBible.mnuSigma_Click 

ElseIf Mid(mot, 1, 1) = "t" Then 

frmBible.mnuTau_Click 

ElseIf Mid(mot, 1, 1) = "u" Then 

frmBible.mnuUpsilonn_Click 

ElseIf Mid(mot, 1, 1) = "f" Then 

frmBible.mnuPhi_Click 

ElseIf Mid(mot, 1, 1) = "x" Then 

frmBible.mnuKhi_Click 

ElseIf Mid(mot, 1, 1) = "y" Then 

frmBible.mnuPsi_Click 

ElseIf Mid(mot, 1, 1) = "w" Then 

frmBible.mnuOmega_Click 

End If 

End Sub


VERSION 5.00 

Begin VB.Form frmAnalyseMorphologique 

BackColor = &H00C0E0FF& 

BorderStyle = 4 'Fixed ToolWindow 

Caption = " Analyse morphologique..." 

ClientHeight = 2895 

ClientLeft = 9150 

ClientTop = 4245 

ClientWidth = 4335 

LinkTopic = "Form1" 

MaxButton = 0 'False 

MinButton = 0 'False 

Picture = (Bitmap) 

ScaleHeight = 2895 

ScaleWidth = 4335 

ShowInTaskbar = 0 'False 

Begin VB.PictureBox pctAideGrammaticale 

Appearance = 0 'Flat 


ForeColor = &H80000008& 

Height = 375 

Left = 3840 

MousePointer = 2 'Cross 




TabIndex = 13 

ToolTipText = "Accéder à l'Aide Grammaticale" 

Top = 1920 

Width = 375 

End 

Begin VB.PictureBox Picture4 




Height = 255 

Left = 3600 





TabIndex = 12 

ToolTipText = "Consulter le Bailly [abrégé]" 

Top = 600 

Width = 255 

End 





Height = 255 

Left = 3960 





TabIndex = 11 

ToolTipText = "Analyse morphologique + Liddell-Scott-Jones" 

Top = 1560 

Width = 255 

End 





Height = 255 

Left = 3960 





TabIndex = 7 

ToolTipText = "Consulter le LSJ" 

Top = 600 

Width = 255 

End


Begin VB.Timer Timer1 

Interval = 10 

Left = 0 

Top = 2760 

End 

Begin VB.CommandButton Command1 

Cancel = -1 'True 

Caption = "X" 

Default = -1 'True 

Height = 255 

Left = 3840 

TabIndex = 4 

Top = 2520 

Width = 375 

End 

Begin VB.Image Image3 

Height = 240 

Left = 3960 

Picture = (Icon) 

Stretch = -1 'True 

ToolTipText = "Recherche les occurrences de ce mot dans NA27" 

Top = 120 

Width = 240 

End 


Height = 240 

Left = 3960 



ToolTipText = "Faire une recherche morphologique sur ce mot" 

Top = 1200 

Width = 240 

End 

Begin VB.Label lblanalyse2 

BackStyle = 0 'Transparent 

Height = 375 

Left = 720 

TabIndex = 10 

Top = 2520 

Visible = 0 'False 

Width = 855 

End 

Begin VB.Label Label1 


Caption = "Définition :" 

BeginProperty Font 

Name = "MS Sans Serif" 

Size = 9.75 

Charset = 0 

Weight = 700 

Underline = 0 'False 

Italic = 0 'False 

Strikethrough = 0 'False 

EndProperty 

Height = 375 

Left = 120 

TabIndex = 9 

Top = 1920 

Width = 1215 

End 

Begin VB.Label lblDefinition 


Height = 1095 

Left = 1320 

TabIndex = 8 

Top = 1920 

Width = 1935 

End 

Begin VB.Label lbltxtanalyse 


Caption = "Analyse :" 



Size = 9.75 

Charset = 0 

Weight = 700





EndProperty 

Height = 375 

Left = 120 

TabIndex = 6 

Top = 1200 

Width = 1095 

End 

Begin VB.Label lblanalyse 



Name = "Arial" 

Size = 8.25 

Charset = 0 

Weight = 400 




EndProperty 

Height = 855 

Left = 1320 

TabIndex = 5 

ToolTipText = "Cliquez ici pour accéder à l'Aide Grammaticale" 

Top = 1200 

Width = 2655 

End 

Begin VB.Label lblvientde 



Name = "Bwgrkn" 

Size = 14.25 

Charset = 0 

Weight = 400 




EndProperty 

Height = 495 

Left = 1320 

TabIndex = 3 

ToolTipText = "Cliquez ici pour chercher ce terme dans NA27" 

Top = 600 

Width = 2055 

End 

Begin VB.Label lbltxtvientde 


Caption = "Vient de :" 



Size = 9.75 

Charset = 0 

Weight = 700 




EndProperty 

Height = 375 

Left = 120 

TabIndex = 2 

Top = 600 

Width = 1095 

End 

Begin VB.Label lblmot 




Size = 14.25 

Charset = 0 

Weight = 400 




EndProperty 

Height = 495


Left = 1320 

TabIndex = 1 

ToolTipText = "Cliquez ici pour chercher ce terme dans NA27" 

Top = 120 

Width = 1935 

End 

Begin VB.Label lbltxtmot 


Caption = "Mot :" 



Size = 9.75 

Charset = 0 

Weight = 700 




EndProperty 

Height = 375 

Left = 120 

TabIndex = 0 

Top = 120 

Width = 1095 

End 

End

Mot : 

Vient de : 

Analyse : 

Définition :

frmAssistant - 1 

Dim code$, un$, deux$, trois$, quatre$, cinq$, six$, sept$ 

Private Sub cbo2_GotFocus() 

'dès qu'on connait le type, on peut renseigner cbo1, le cas ou le temps,etc. 

Dim ttype$ 

ttype = cbo1.Text 

If ttype = "nom (n)" Then 

cbo2.Clear 

'cbo3.Clear 

cbo4.Clear 

'cbo5.Clear 

cbo6.Clear 

cbo2.AddItem ("nominatif (n)") 

cbo2.AddItem ("acusatif (a)") 

cbo2.AddItem ("génitif (g)") 

cbo2.AddItem ("datif (d)") 

cbo2.AddItem ("vocatif (v)") 

'cbo2.AddItem ("tous (*)") 

cbo3.AddItem ("masculin (m)") 

cbo3.AddItem ("féminin (f)") 

cbo3.AddItem ("neutre (n)") 


cbo4.AddItem ("singulier (s)") 

cbo4.AddItem ("pluriel (p)") 


cbo5.AddItem (", nom commun (c)") 

cbo5.AddItem (", nom propre (p)") 

'cbo5.Text = ", nom commun (c)" 

cbo6.Clear 

cbo7.Visible = False 

ElseIf ttype = "verbe (v)" Then 

cbo2.Clear 

cbo3.Clear 

cbo4.Clear 

cbo5.Clear 

cbo6.Clear 

cbo2.AddItem ("indicatif (i)") 

cbo2.AddItem ("impératif (d)") 

cbo2.AddItem ("subjonctif (s)") 

cbo2.AddItem ("optatif (o)") 

cbo2.AddItem ("participe (p)") 

cbo2.AddItem ("infinitif (n)") 


cbo3.AddItem ("présent (p)") 

cbo3.AddItem ("futur (f)") 

cbo3.AddItem ("aoriste (a)") 

cbo3.AddItem ("imparfait (i)") 

cbo3.AddItem ("parfait (x)") 

cbo3.AddItem ("plusqueparfait (y)") 

cbo3.AddItem ("futur du parfait (z)") 


cbo4.AddItem ("actif (a)") 

cbo4.AddItem ("moyen (m)") 

cbo4.AddItem ("passif (p)") 

cbo4.AddItem ("moyen/passif (e)") 


cbo5.Clear 

cbo5.AddItem ("1ère personne (1)") 

cbo5.AddItem ("2ème personne (2)") 

cbo5.AddItem ("3ème personne (3)") 


cbo6.Clear 



'cbo6.AddItem ("tous (*)")



ElseIf ttype = "adjectif (a)" Then 

cbo2.Clear 

cbo3.Clear 

cbo4.Clear 

cbo5.Clear 

cbo6.Clear 

cbo2.AddItem ("normal (n)") 

cbo2.AddItem ("possessif (s)") 

cbo2.AddItem ("démonstratif (d)") 

cbo2.AddItem ("interrogatif (q)") 

cbo2.AddItem ("indéfini (i)") 

cbo2.AddItem ("intensif (t)") 

cbo2.AddItem ("cardinal (c)") 

cbo2.AddItem ("ordinal (o)") 

cbo2.AddItem ("nombre (m)") 







cbo3.AddItem ("tous (*)") 








cbo6.AddItem ("simple (n)") 

cbo6.AddItem ("comparatif (c)") 

cbo6.AddItem ("superlatif (s)") 



ElseIf ttype = "pronom (r)" Then 

cbo2.Clear 

cbo3.Clear 

cbo4.Clear 

cbo5.Clear 

cbo6.Clear 

cbo2.AddItem ("personnel (p)") 

cbo2.AddItem ("relatif (r)") 

cbo2.AddItem ("démonstratif (d)") 

cbo2.AddItem ("interrogatif (q)") 

cbo2.AddItem ("indéfini (i)") 

cbo2.AddItem ("intensif (t)") 

cbo2.AddItem ("réfléchi (x)") 

cbo2.AddItem ("réciproque (e)") 






cbo3.AddItem ("tous (*)") 




cbo4.AddItem ("commun (-)") 





cbo7.Visible = False


ElseIf ttype = "conjonction (c)" Then 

cbo2.Clear 

cbo3.Clear 

cbo4.Clear 

cbo5.Clear 

cbo6.Clear 


cbo2.AddItem ("subordination (s)") 

cbo2.AddItem ("coordination (c)") 

ElseIf ttype = "indéclinable (t)" Then 

cbo2.Clear 

cbo3.Clear 

cbo4.Clear 

cbo5.Clear 

cbo6.Clear 


ElseIf ttype = "particule (x)" Then 

cbo2.Clear 

cbo3.Clear 

cbo4.Clear 

cbo5.Clear 

cbo6.Clear 


ElseIf ttype = "interjection (i)" Then 

cbo2.Clear 

cbo3.Clear 

cbo4.Clear 

cbo5.Clear 

cbo6.Clear 


ElseIf ttype = "préposition (p)" Then 

cbo2.Clear 

cbo3.Clear 

cbo4.Clear 

cbo5.Clear 

cbo6.Clear 


cbo2.AddItem ("accusatif (a)") 



cbo2.AddItem ("indéterminé (p)") 

ElseIf ttype = "adverbe (b)" Then 

cbo2.Clear 

cbo3.Clear 

cbo4.Clear 

cbo5.Clear 

cbo6.Clear 


ElseIf ttype = "article défini (d)" Then 

cbo2.Clear 

cbo3.Clear 

cbo4.Clear 

cbo5.Clear 

cbo6.Clear 


End If 

End Sub 

Private Sub cbo3_GotFocus() 

If cbo1.Text = "verbe (v)" And cbo2.Text = "participe (p)" Then 

cbo7.Visible = True 

cbo5.Clear 




cbo5.AddItem ("datif (d)")



cbo6.Clear 




cbo7.Clear 



End If 

End Sub 


Unload Me 

End Sub 

Public Sub Command2_Click() 

If vientde = "" And _ 

recherche = "" Then 

GoTo suite: 

End If 

un = "" 

deux = "" 

trois = "" 

quatre = "" 

cinq = "" 

six = "" 

sept = "" 

'les codes particuliers correspondent à l'avant dernière lettre de chaque champs 

' exemple: "nom (n)" , code = n 

If cbo1.Text "" Then un = Mid(cbo1.Text, Len(cbo1.Text) - 1, 1) 

If cbo2.Text "" Then deux = Mid(cbo2.Text, Len(cbo2.Text) - 1, 1) 

If cbo3.Text "" Then trois = Mid(cbo3.Text, Len(cbo3.Text) - 1, 1) 

If cbo4.Text "" Then quatre = Mid(cbo4.Text, Len(cbo4.Text) - 1, 1) 

If cbo5.Text "" And Len(cbo5.Text) > 2 Then cinq = Mid(cbo5.Text, Len(cbo5.Text) - 1, 1) 

If cbo6.Text "" And Len(cbo6.Text) > 2 Then six = Mid(cbo6.Text, Len(cbo6.Text) - 1, 1) 

If cbo7.Text "" And Len(cbo7.Text) > 2 Then sept = Mid(cbo7.Text, Len(cbo7.Text) - 1, 1) 

'ceci correspond donc au nouveau code issus des modifications de l'utilisateur 

code = Trim(un & deux & trois & quatre & cinq & six & sept) 

' j'efface toute trace d'une recherche précédente 

Label1.Caption = "" 

txtcode.Text = code 

vientde = frmAnalyseMorphologique.lblvientde.Caption 

recherche = vientde & " (" & code & ")" 

txtRecherche.Text = recherche 

nveaucode = code 

suite: 

'je dois quant même récupérer le nveaucode 

If cbo1.Text "" Then un = Mid(cbo1.Text, Len(cbo1.Text) - 1, 1) 

If cbo2.Text "" Then deux = Mid(cbo2.Text, Len(cbo2.Text) - 1, 1) 

If cbo3.Text "" Then trois = Mid(cbo3.Text, Len(cbo3.Text) - 1, 1) 

If cbo4.Text "" Then quatre = Mid(cbo4.Text, Len(cbo4.Text) - 1, 1) 

If cbo5.Text "" And Len(cbo5.Text) > 2 Then cinq = Mid(cbo5.Text, Len(cbo5.Text) - 1, 1) 

If cbo6.Text "" And Len(cbo6.Text) > 2 Then six = Mid(cbo6.Text, Len(cbo6.Text) - 1, 1) 

If cbo7.Text "" And Len(cbo7.Text) > 2 Then sept = Mid(cbo7.Text, Len(cbo7.Text) - 1, 1) 

'ceci correspond donc au nouveau code issus des modifications de l'utilisateur 

code = Trim(un & deux & trois & quatre & cinq & six & sept) 


recherche = frmAssistant.txtRecherche.Text & " (" & nveaucode & ")" 

Call RechercheMorphologique(recherche, nveaucode) 

lstPassages.Text = lstPassages.List(0) 

lstPassages_Click 

End Sub 

Private Sub Form_Load() 

autoexecut = False 

cbo1.AddItem ("nom (n)") 

cbo1.AddItem ("verbe (v)") 

cbo1.AddItem ("adjectif (a)") 

cbo1.AddItem ("pronom (r)")


cbo1.AddItem ("conjonction (c)") 

cbo1.AddItem ("indéclinable (t)") 

cbo1.AddItem ("particule ou part. disjonctive (x)") 

cbo1.AddItem ("conjonction ou conjonctif (q)") 

cbo1.AddItem ("interjection (i)") 

cbo1.AddItem ("préposition (p)") 

cbo1.AddItem ("adverbe (b)") 

cbo1.AddItem ("article défini (d)") 

mot = frmAnalyseMorphologique.lblanalyse2.Caption 

'VERBES 

If Mid(mot, 1, 1) = "v" And _ 

Mid(mot, 3, 2) = "2f" Or _ 

Mid(mot, 3, 2) = "2a" Or Mid(mot, 3, 2) = "2r" Or Mid(mot, 3, 2) = "2l" Then 

ttype = "verbe (v)" 

Mode = Mid(mot, 2, 1) 

temps = Mid(mot, 3, 2) 

voix = Mid(mot, 5, 1) 

personne = Mid(mot, 6, 2) 

ElseIf Mid(mot, 1, 1) = "v" Then 

ttype = "verbe (v)" 

Mode = Mid(mot, 2, 1) 

temps = Mid(mot, 3, 1) 

voix = Mid(mot, 4, 1) 

personne = Mid(mot, 5, 2) 

End If 

' MODE des VERBES 

If Mid(mot, 1, 1) = "v" Then 

If Mode = "i" Then Mode = "indicatif (i)" 

If Mode = "d" Then Mode = "impératif (d)" 

If Mode = "s" Then Mode = "subjonctif (s)" 

If Mode = "o" Then Mode = "optatif (o)" 

If Mode = "n" Then Mode = "infinitif (n)" 

If Mode = "p" Then Mode = "participe (p)" 

cbo2.Clear 

cbo2.AddItem ("indicatif (i)") 

cbo2.AddItem ("impératif (d)") 

cbo2.AddItem ("subjonctif (s)") 

cbo2.AddItem ("optatif (o)") 

cbo2.AddItem ("infinitif (n)") 

cbo2.AddItem ("participe (p)") 

End If 

'TEMPS des VERBES 


'If temps = "2f" Then temps = "futur second" 

'If temps = "2a" Then temps = "aoriste second" 

'If temps = "2l" Then temps = "pqp second" 

'If temps = "2r" Then temps = "parfait second" 

If temps = "p" Then temps = "présent (p)" 

If temps = "f" Then temps = "futur (f)" 

If temps = "a" Then temps = "aoriste (a)" 

If temps = "i" Then temps = "imparfait (i)" 

If temps = "x" Then temps = "parfait (x)" 

If temps = "y" Then temps = "plusqueparfait (y)" 

If temps = "x" Then temps = "tous (*)" 

'cboGenre.AddItem ("présent") 

'cboGenre.AddItem ("imparfait") 

'cboGenre.AddItem ("futur") 

'cboGenre.AddItem ("aoriste") 

'cboGenre.AddItem ("aoriste") 

'cboGenre.AddItem ("parfait") 

'cboGenre.AddItem ("plusqueparfait") 

'cboGenre.AddItem ("tous") 

End If 

' VOIX des VERBES 


If voix = "a" Then voix = "actif (a)" 

If voix = "m" Then voix = "moyen (m)"


If voix = "p" Then voix = "passif (p)" 

If voix = "e" Then voix = "moyen ou passif (e)" 

If voix = "d" Then voix = "déponent moyen (d)" 

If voix = "o" Then voix = "déponent passif (o)" 

If voix = "p" Then voix = "déponent moyen ou passif (p)" 

If voix = "q" Then voix = "impersonnel actif (q)" 

If voix = "x" Then voix = "non indiqué (x)" 

'cboNombre.AddItem ("actif") 

'cboNombre.AddItem ("moyen") 

'cboNombre.AddItem ("passif") 

'cboNombre.AddItem ("moyen ou passif") 

'cboNombre.AddItem ("déponent moyen") 

'cboNombre.AddItem ("déponent passif") 

'cboNombre.AddItem ("déponent moyen ou passif") 

'cboNombre.AddItem ("impersonnel actif") 

'cboNombre.AddItem ("-") 

End If 

' PERSONNE des VERBES 

If personne = "1s" Then 

cbo5.Text = "1ère personne (1)" 

cbo6.Text = "singulier (s)" 

ElseIf personne = "2s" Then 

cbo5.Text = "2ème personne (2)" 


ElseIf personne = "3s" Then 



ElseIf personne = "1p" Then 

cbo5.Text = "1ère personne (1)" 

cbo6.Text = "pluriel (p)" 



cbo6.Text = "pluriel (p)" 



cbo6.Text = "pluriel (s)" 

End If 

'personne = personne 

' NOMS 

If Mid(mot, 1, 1) = "n" Then 

ttype = "nom (n)" 

cas = Mid(mot, 2, 1) 

genre = Mid(mot, 3, 1) 

nombre = Mid(mot, 4, 4) 

End If 

' ADJECTIF 

If Mid(mot, 1, 1) = "a" Then 

ttype = "adjectif (a)" 

ttype2 = Mid(mot, 2, 1) 

cas = Mid(mot, 3, 1) 

genre = Mid(mot, 4, 1) 

nombre = Mid(mot, 5, 4) 

degre = Mid(mot, 6, 1) 

End If 


If ttype2 = "n" Then cbo2.AddItem ("normal (n)") 

cbo2.Text = "normal (n)" 

If ttype2 = "s" Then cbo2.AddItem ("possessif (s)") 

cbo2.Text = "possessif (s)" 

If ttype2 = "d" Then cbo2.AddItem ("démonstratif (d)") 

cbo2.Text = "démonstratif (d)" 

If ttype2 = "q" Then cbo2.AddItem ("interrogatif (q)") 

cbo2.Text = "interrogatif (q)" 

If ttype2 = "i" Then cbo2.AddItem ("indéfini (i)") 

cbo2.Text = "indéfini (i)" 

If ttype2 = "t" Then cbo2.AddItem ("intensif (t)") 

cbo2.Text = "intensif (t)" 

If ttype2 = "c" Then cbo2.AddItem ("cardinal (c)") 

cbo2.Text = "cardinal (c)" 

If ttype2 = "o" Then cbo2.AddItem ("ordinal (o)") 

cbo2.Text = "ordinal (o)"


If ttype2 = "m" Then cbo2.AddItem ("nombre (m)") 

cbo2.Text = "nombre (m)" 

End If 

' NOMS PROPRES 

If Mid(mot, 1, 2) = "tp" Then 

ttype = "nom propre" 

'cas = Mid(mot, 2, 1) 

'genre = Mid(mot, 3, 1) 

'nombre = Mid(mot, 4, 4) 

End If 

' DEGRE des ADJECTIFS 


If degré = "c" Then degré = "comparatif (c)" 

If degré = "s" Then degré = "superlatif (s)" 

If degré = "*" Then degré = "tous (*)" 

End If 


cbo1.Text = ttype 

cbo2.Text = cas 

cbo3.Text = genre 

cbo4.Text = nombre 

cbo5.Text = "" 




cbo2.Text = Mode 

cbo3.Text = temps 

cbo4.Text = voix 

'a priori pas besoin de faire les personnes 

ElseIf Mid(mot, 1, 1) = "a" Then 


cbo2.Text = cas 

cbo3.Text = genre 

cbo4.Text = nombre 

cbo5.Text = degré 


End If 

End Sub 

Public Sub lstPassages_Click() 

If lstPassages.Text "" Then 

passage = Trim(lstPassages.Text) 

premierespace = InStr(1, passage, " ") 

deuxpoints = InStr(1, passage, ":") 

livre = Mid(passage, 1, premierespace - 1) 

chapitre = Mid(passage, premierespace + 1, deuxpoints - 1) 

chapitre = Mid(chapitre, 1, InStr(1, chapitre, ":") - 1) 

verset = Trim(Mid(passage, deuxpoints + 1, 2)) 

'MsgBox livre & " " & chapitre & " " & verset 

Else 

Exit Sub 

End If 

If livre = "Gen" Then 

chercher = "Genèse" 

ElseIf livre = "Exo" Then 

chercher = "Exode" 

ElseIf livre = "Lev" Then 

chercher = "Lévitique" 

ElseIf livre = "Num" Then


chercher = "Nombres" 

ElseIf livre = "Deu" Then 

chercher = "Deutéronome" 

ElseIf livre = "Jos" Then 

chercher = "Josué" 

ElseIf livre = "Jdg" Then 

chercher = "Juges" 

ElseIf livre = "Rut" Then 

chercher = "Ruth" 

ElseIf livre = "1Sa" Then 

chercher = "1 Samuel" 



ElseIf livre = "1Ki" Then 

chercher = "1 Rois" 



ElseIf livre = "1Ch" Then 

chercher = "1 Chroniques" 

ElseIf livre = "2 Chroniques" Then 

chercher = "2Ch" 

ElseIf livre = "Ezr" Then 

chercher = "Esdras" 

ElseIf livre = "Neh" Then 

chercher = "Néhémie" 

ElseIf livre = "Est" Then 

chercher = "Esther" 

ElseIf livre = "Job" Then 

chercher = "Job" 

ElseIf livre = "Psa" Then 

chercher = "Psaumes" 

ElseIf livre = "Pro" Then 

chercher = "Proverbes" 

ElseIf livre = "Ecc" Then 

chercher = "Ecclésiaste" 

ElseIf livre = "Sol" Then 

chercher = "Cantique des cantiques" 

ElseIf livre = "Isa" Then 

chercher = "Esaïe" 

ElseIf livre = "Jer" Then 

chercher = "Jérémie" 

ElseIf livre = "Lam" Then 

chercher = "Lamentations" 

ElseIf livre = "Eze" Then 

chercher = "Ezéchiel" 

ElseIf livre = "Dan" Then 

chercher = "Daniel" 

ElseIf livre = "Hos" Then 

chercher = "Osée" 

ElseIf livre = "Joe" Then 

chercher = "Joël"


ElseIf livre = "Amo" Then 

chercher = "Amos" 

ElseIf livre = "Oba" Then 

chercher = "Abdias" 

ElseIf livre = "Jon" Then 

chercher = "Jonas" 

ElseIf livre = "Mic" Then 

chercher = "Michée" 

ElseIf livre = "Hab" Then 

chercher = "Habaquq" 

ElseIf livre = "Zep" Then 

chercher = "Sophonie" 

ElseIf livre = "Hag" Then 

chercher = "Aggée" 

ElseIf livre = "Nah" Then 

chercher = "Nahoum" 

ElseIf livre = "Zec" Then 

chercher = "Zacharie" 

ElseIf livre = "Mal" Then 

chercher = "Malachie" 

'--------- 

ElseIf livre = "Mat" Then 

chercher = "Matthieu" 

ElseIf livre = "Mar" Then 

chercher = "Marc" 

ElseIf livre = "Luk" Then 

chercher = "Luc" 

ElseIf livre = "Joh" Then 

chercher = "Jean" 

ElseIf livre = "Act" Then 

chercher = "Actes" 

ElseIf livre = "Rom" Then 

chercher = "Romains" 

ElseIf livre = "1Co" Then 

chercher = "1 Corinthiens" 



ElseIf livre = "Gal" Then 

chercher = "Galates" 

ElseIf livre = "Eph" Then 

chercher = "Ephésiens" 

ElseIf livre = "Phi" Then 

chercher = "Philippiens" 

ElseIf livre = "Col" Then 

chercher = "Colossiens" 

ElseIf livre = "1Th" Then 

chercher = "1 Thessaloniciens" 



ElseIf livre = "1Ti" Then 

chercher = "1 Timothée"



chercher = "2 Timothée" 

ElseIf livre = "Tit" Then 

chercher = "Tite" 

ElseIf livre = "Phm" Then 

chercher = "Philémon" 

ElseIf livre = "Heb" Then 

chercher = "Hébreux" 

ElseIf livre = "Jam" Then 

chercher = "Jacques" 

ElseIf livre = "1Pe" Then 

chercher = "1 Pierre" 



ElseIf livre = "1Jo" Then 

chercher = "1 Jean" 





ElseIf livre = "Jud" Then 

chercher = "Jude" 

ElseIf livre = "Rev" Then 

chercher = "Révélation" 

End If 

frmBible.cboLivre.Text = chercher 

frmBible.txtChapitre.Text = chapitre 

frmBible.txtverset.Text = verset 

ofile = App.Path & "\modules\WHpars\morphwh.txt" 

lfile = FreeFile 

recherche = frmAssistant.txtRecherche.Text 

Open ofile For Input As #lfile 

o 

On Error GoTo err: 

Line Input #lfile, ligne 

If InStr(1, ligne, recherche) 0 Then 

premierespace = InStr(1, ligne, " ") 

frmAssistant.Label1.Caption = Mid(ligne, 1, premierespace) 

Exit Do 

End If 

oop While Not EOF(lfile) 

rr: 

lose 

frmBible.Timer2.Enabled = True 

livre = 

Line1.Visible = True 



nd Sub


VERSION 5.00 

Begin VB.Form frmAssistant 


Caption = " Recherche morphologique ..." 












StartUpPosition = 1 'CenterOwner 

Begin VB.ComboBox cbo7 

Height = 315 

Left = 2280 

TabIndex = 20 

Top = 2400 


Width = 1575 

End 

Begin VB.TextBox txtRecherche 

Height = 375 

Left = 120 

TabIndex = 18 

Top = 2400 


Width = 1935 

End 

Begin VB.ListBox lstPassages 

Height = 1815 

Left = 120 

TabIndex = 16 

Top = 3000 

Width = 1935 

End 

Begin VB.TextBox txtMot 



Size = 14.25 

Charset = 0 

Weight = 400 




EndProperty 

Height = 495 

Left = 120 

TabIndex = 15 

Top = 120 

Width = 2055 

End 


Caption = "Ok" 


Height = 375 

Left = 3360 

TabIndex = 14 

Top = 3000 

Width = 495 

End 



Caption = "X" 

Height = 375 

Left = 3360 

TabIndex = 13 

Top = 4800 

Width = 495 

End 

Begin VB.TextBox txtcode 

Height = 495 

Left = 2760


TabIndex = 12 

Top = 120 


Width = 1575 

End 


Height = 315 

Left = 2280 

TabIndex = 5 

Top = 1920 

Width = 1575 

End 


Height = 315 

Left = 2280 

TabIndex = 4 

Top = 1440 

Width = 1575 

End 


Height = 315 

Left = 2280 

TabIndex = 3 

Top = 960 

Width = 1575 

End 


Height = 315 

Left = 120 

TabIndex = 2 

Top = 1920 

Width = 1575 

End 


Height = 315 

Left = 120 

TabIndex = 1 

Top = 1440 

Width = 1575 

End 


Height = 315 

Left = 120 

TabIndex = 0 

Top = 960 

Width = 1575 

End 





Size = 14.25 

Charset = 0 

Weight = 400 




EndProperty 

Height = 615 

Left = 2280 

TabIndex = 19 

Top = 3600 

Width = 1935 

End 

Begin VB.Label lblOcc 




Size = 8.25 

Charset = 0 

Weight = 700 




EndProperty 

Height = 495


Left = 2280 

TabIndex = 17 

Top = 4320 

Width = 1455 

End 

Begin VB.Label lblcbo6 


Caption = "Label1" 

Height = 255 

Left = 1680 

TabIndex = 11 

Top = 2040 


Width = 975 

End 




Height = 255 

Left = 1680 

TabIndex = 10 

Top = 1440 


Width = 975 

End 




Height = 255 

Left = 1680 

TabIndex = 9 

Top = 960 


Width = 975 

End 



Caption = "Cas" 

Height = 255 

Left = -120 

TabIndex = 8 

Top = 2040 


Width = 975 

End 



Caption = "Cas" 

Height = 255 

Left = -120 

TabIndex = 7 

Top = 1440 


Width = 975 

End 



Caption = "Type" 

Height = 255 

Left = -120 

TabIndex = 6 

Top = 960 


Width = 975 

End 

End

pe 

s 

s 

Label1 

Label1 

Label1

frmAutomatos - 1 

Private Const EM_CHARFROMPOS& = &HD7 

Private Type POINTAPI 

x As Long 

y As Long 

End Type 

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ 

(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ 

lParam As Any) As Long 

Public Function RichWordOver(rch As RichTextBox, x As Single, y As Single) As String 

Dim pt As POINTAPI 

Dim pos As Integer 

Dim start_pos As Integer 

Dim end_pos As Integer 

Dim ch As String 

Dim txt As String 

Dim txtlen As Integer 

pt.x = x \ Screen.TwipsPerPixelX 

pt.y = y \ Screen.TwipsPerPixelY 

pos = SendMessage(rch.hwnd, EM_CHARFROMPOS, 0&, pt) 

If pos = "0" And ch = "a" And ch = "A" And ch = "0" And ch = "a" And ch = "A" And ch


End Sub 

Private Sub Label5_Click() 

frmBible.lblsuivant_Click 

RichTextBox1.Text = frmBible.txtPassage.Text 

RichTextBox1.SelAlignment = frmBible.txtPassage.Alignment 

frmAutomatos.Caption = "Verse Parser : " & frmBible.lblchapitre.Caption 

End Sub 

Private Sub lblAnalyse_Change() 

If lblanalyse.Caption = "" Then Exit Sub 

mot = lblanalyse.Caption 

'WH/Strong 

If frmBible.cboVersion.Text = "W/H & Strong" Then 

Call AutomatosWH(mot) 

Exit Sub 

ElseIf frmBible.cboVersion.Text = "BHS+" Then 

frmBible.btnGo_Click 

Call AutomatosBHS(mot) 

Exit Sub 

End If 

End Sub 

Private Sub RichTextBox1_MouseMove(Button As Integer, Shift As Integer, x _ 

As Single, y As Single) 

Dim txt As String 

txt = RichWordOver(RichTextBox1, x, y) 

If Label1.Caption txt Then _ 

Label1.Caption = txt 

End Sub


VERSION 5.00 

Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX" 

egin VB.Form frmAutomatos 


Caption = " Verse Parser" 














Caption = "X" 

Height = 375 

Left = 6000 

TabIndex = 2 

Top = 5040 

Width = 495 

End 

Begin RichTextLib.RichTextBox RichTextBox1 

Height = 1815 

Left = 0 

TabIndex = 1 

Top = 0 

Width = 6615 

_ExtentX = 11668 

_ExtentY = 3201 

_Version = 393217 

Enabled = -1 'True 

ScrollBars = 2 

TextRTF = 

BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 


Size = 14.25 

Charset = 0 

Weight = 400 




EndProperty 

End 



Caption = ">" 



Size = 18 

Charset = 0 

Weight = 700 




EndProperty 

Height = 375 

Left = 6720 

TabIndex = 12 

ToolTipText = "Verset suivant" 

Top = 480 

Width = 375 

End 



Caption = "



EndProperty 

Height = 375 

Left = 6720 

TabIndex = 11 

ToolTipText = "Verset précédent" 

Top = 0 

Width = 375 

End 

Begin VB.Line Line5 


X1 = 3480 

X2 = 5520 

Y1 = 4440 

Y2 = 4440 

End 


X1 = 0 

X2 = 1680 

Y1 = 0 

Y2 = 0 

End 



Caption = "Morphologie" 

Height = 255 

Left = 3480 

TabIndex = 10 

Top = 4200 


Width = 1455 

End 



Caption = "Strong" 

Height = 255 

Left = 240 

TabIndex = 9 

Top = 4200 

Width = 1455 

End 


X1 = 240 

X2 = 1920 

Y1 = 4440 

Y2 = 4440 

End 

Begin VB.Label lblStrong 


Height = 495 

Left = 240 

TabIndex = 8 

Top = 4560 

Width = 1935 

End 

Begin VB.Label lblMorpho 


Height = 855 

Left = 3480 

TabIndex = 7 

Top = 4560 


Width = 2415 

End 

Begin VB.Label lblResultat 




Size = 8.25 

Charset = 0 

Weight = 700 




EndProperty 

Height = 1815


Left = 3360 

TabIndex = 6 

Top = 2280 

Width = 3015 

End 

Begin VB.Label lblAnalyse 


Caption = "lblAnalyse" 



Size = 9.75 

Charset = 0 

Weight = 400 




EndProperty 

Height = 255 

Left = 2280 

TabIndex = 5 

Top = 3480 


Width = 975 

End 


X1 = 3360 

X2 = 5520 

Y1 = 2160 

Y2 = 2160 

End 

Begin VB.Label lbl2 


Caption = "Définitions possibles" 

Height = 255 

Left = 3360 

TabIndex = 4 

Top = 1920 

Width = 1935 

End 


X1 = 360 

X2 = 2040 

Y1 = 2160 

Y2 = 2160 

End 

Begin VB.Label lbl1 


Caption = "Mot" 

Height = 255 

Left = 360 

TabIndex = 3 

Top = 1920 

Width = 495 

End 




Name = "Symbol" 

Size = 14.25 

Charset = 2 

Weight = 400 




EndProperty 

Height = 615 

Left = 360 

TabIndex = 0 

Top = 2280 

Width = 2295 

End 

End

>

frmBHSLXX - 1 

Private Sub btnGo_Click() 

' récupération des données propres à la lecture 

Dim livre$, chapitre$, verset$, msgerreur$, passage$, fichier$, finverset$ 

livre = cboLivre.Text 

chapitre = txtChapitre.Text 

verset = txtverset.Text 

' GESTION MAUVAISE SAISIE 

If livre = "" Or chapitre = "" Or verset = "" Then 

msgerreur = MsgBox("Référence de passage invalide, veuillez vérifier votre saisie !", vbCri 

tical) 

Exit Sub 

End If 

' Définition du fichier à ouvrir ET de la forme du verset à chercher 

Call BhsLxxDefFichier(livre, chapitre, verset, passage, fichier, finverset) 

' j'ai maintenant mon fichier à ouvrir, et mon passage en bonne et due forme 

Call LectureBhsLxx(fichier, passage, finverset) 

End Sub 


Unload Me 

End Sub 


cboLivre.AddItem ("Genèse") 

cboLivre.AddItem ("Exode") 

cboLivre.AddItem ("Lévitique") 

cboLivre.AddItem ("Nombres") 

cboLivre.AddItem ("Deutéronome") 

cboLivre.AddItem ("Josué") 

cboLivre.AddItem ("Juges") 

cboLivre.AddItem ("Ruth") 

cboLivre.AddItem ("1 Samuel") 


cboLivre.AddItem ("1 Rois") 


cboLivre.AddItem ("1 Chroniques") 


cboLivre.AddItem ("Esdras") 

cboLivre.AddItem ("Néhémie") 

cboLivre.AddItem ("Esther") 

cboLivre.AddItem ("Judith") 

cboLivre.AddItem ("Tobie") 

cboLivre.AddItem ("1 Maccabées") 




cboLivre.AddItem ("Psaumes") 

cboLivre.AddItem ("Odes") 

cboLivre.AddItem ("Proverbes") 

cboLivre.AddItem ("Ecclésiaste") 

cboLivre.AddItem ("Cantique des cantiques") 

cboLivre.AddItem ("Job") 

cboLivre.AddItem ("Sagesse") 

cboLivre.AddItem ("Siracides") 

cboLivre.AddItem ("Psaumes de Salomon") 

cboLivre.AddItem ("Osée") 

cboLivre.AddItem ("Amos") 

cboLivre.AddItem ("Micah") 

cboLivre.AddItem ("Joël") 

cboLivre.AddItem ("Abdias") 

cboLivre.AddItem ("Jonas") 

cboLivre.AddItem ("Nahum") 

cboLivre.AddItem ("Habbacuc") 

cboLivre.AddItem ("Sophonie") 

cboLivre.AddItem ("Aggée") 

cboLivre.AddItem ("Zacharie") 

cboLivre.AddItem ("Malachie") 

cboLivre.AddItem ("Isaïe") 

cboLivre.AddItem ("Jérémie") 

cboLivre.AddItem ("Baruch") 

cboLivre.AddItem ("Lamentations") 

cboLivre.AddItem ("Epître de Jérémie")

frmBHSLXX - 2 

cboLivre.AddItem ("Ezékiel") 

cboLivre.AddItem ("Susanna") 

cboLivre.AddItem ("Daniel") 

cboLivre.AddItem ("Bel et Draco") 

End Sub 

Private Sub lblLicense_Click() 

Dim license 

license = App.Path & "\modules\parallel\00.ReadMe.txt" 

'txtGauche.LoadFile (license) 


frmBrowser.cboAddress.Text = license 

frmBrowser.Show 

End Sub 

Private Sub lblSource_Click() 

Dim site$ 

site = "gopher://ccat.sas.upenn.edu:3333/11/Religious/Biblical/parallel" 


frmBrowser.cboAddress.Text = site 


frmBrowser.Caption = "CCAT - Centre pour l'Analyse informatique de textes" 

End Sub

frmBHSLXX - 1 

VERSION 5.00 

Begin VB.Form frmBHSLXX 

BackColor = &H00FFFFFF& 


Caption = "Parallel Aligned Hebrew-Aramaic and Greek texts of Jewish Scriptures" 







Size = 9.75 

Charset = 0 

Weight = 700 




EndProperty 








StartUpPosition = 2 'CenterScreen 

Begin VB.ComboBox cboLivre 

Height = 360 

Left = 480 

TabIndex = 13 

Text = "Livre" 

Top = 1440 

Width = 2055 

End 

Begin VB.TextBox txtChapitre 

Alignment = 2 'Center 

Height = 285 

Left = 3000 

TabIndex = 12 

Top = 1440 

Width = 975 

End 

Begin VB.TextBox txtverset 


Height = 285 

Left = 4080 

TabIndex = 11 

Top = 1440 

Width = 975 

End 

Begin VB.CommandButton btnGo 

Caption = "&Rechercher" 


Height = 375 

Left = 5280 

TabIndex = 10 

Top = 1440 

Width = 1455 

End 

Begin VB.TextBox txtDroite 



Size = 9.75 

Charset = 0 

Weight = 400 




EndProperty 

Height = 1095 

Left = 3600 

MultiLine = -1 'True 

ScrollBars = 2 'Vertical 

TabIndex = 9 

Top = 2400 

Width = 3135

frmBHSLXX - 2 

End 

Begin VB.TextBox txtGauche 



Size = 9.75 

Charset = 0 

Weight = 400 




EndProperty 

Height = 1095 

Left = 240 



TabIndex = 8 

Top = 2400 

Width = 3135 

End 



Caption = "OK" 



Size = 8.25 

Charset = 0 

Weight = 400 




EndProperty 

Height = 375 

Left = 6480 

TabIndex = 1 

Top = 5040 

Width = 495 

End 



Caption = "chapitre" 

Height = 255 

Left = 3000 

TabIndex = 15 

Top = 1800 

Width = 975 

End 



Caption = "verset" 

Height = 255 

Left = 4200 

TabIndex = 14 

Top = 1800 

Width = 975 

End 

Begin VB.Label lblsuivant 


Caption = ">" 



Size = 18 

Charset = 0 

Weight = 700 




EndProperty 

Height = 375 

Left = 6600 

TabIndex = 7 


Top = 1920 

Width = 375 

End 

Begin VB.Label lblprecedent 

BackStyle = 0 'Transparent

frmBHSLXX - 3 

Caption = "

frmBHSLXX - 4 

Caption = "BIBLIA STUGARTTENSIA && SEPTANTE ALIGNEES" 


Name = "Times New Roman" 

Size = 15.75 

Charset = 0 

Weight = 700 




EndProperty 

Height = 855 

Left = 600 

TabIndex = 0 

Top = 240 

Width = 6135 

End 

End

BIBLIA STUGARTTENSIA & SEPTANTE 

ALIGNEES 

chapitre 

verset 

< > 

Biblica Stugarttensia Texte 

Consonantique (BHS) 

Source License 

Septuaginta, A. Rahlfs (LXX)

frmBible - 1 

'Private Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _ 

'(ByVal hwndCaller As Long, ByVal pszFile As String, _ 

'ByVal uCommand As Long, ByVal dwData As Long) As Long 

'Dim robby As IAgentCtlCharacterEx 

'Const DATAPATH = "robby.acs" 

Dim debloque As Boolean 

Dim ssaidegr As Boolean 

Dim automatos As Boolean 

Private WithEvents m_frmSysTray As frmSysTray 

Public Sub btnGo_Click() 

frmBible.txtPassage.Text = "" 

' définitions des variables de cette procédure 

Dim fichierseptante$ 

Dim dictionnaire$, lexique$ 

Dim version, msg, chercher, fichier, passage, ligne, ligne2, livre 

' vidage du tampon 

frmBible.lbltampon.Text = "" 

' petite gestion de l'alignement du texte 

If cboVersion.Text = "BHS" Or cboVersion.Text = "WTM" Then 

txtPassage.Alignment = 1 

Else 

txtPassage.Alignment = 0 

End If 

'j'enlève les outils du bas 

If cboVersion.Text = "W/H & Strong" Then 

sortievocale.Visible = False 

End If 

' affectation des polices de caractères 

'Texte Massorétique 

lblstrongfr.Visible = False 

optstrongfr.Visible = False 

If cboVersion.Text = "TM" Then 

If cboLivre.Text = "Matthieu" Then 

cboLivre.Text = "Genèse" 

livre = "Genèse" 

End If 

If cboVersion.Text = "SG" Then 


cboLivre.Text = "Matthieu" 

livre = "Matthieu" 

End If 

frmBible.txtPassage.Font = "OLBHEB" 




Call LireBHS(livre, chapitre, verset) 

frmBible.lblchapitre.Caption = frmBible.cboLivre.Text & " " & frmBible.txtChapitre.Text & ":" & 

frmBible.txtverset.Text 

txtPassage.ToolTipText = "Double-cliquez sur un mot pour l'analyser ou le définir" 

Exit Sub 

End If 

' Versions anglaises / ajout du menu 

If cboVersion.Text = "ASV" Or _ 

cboVersion.Text = "KJV" Or _ 

cboVersion.Text = "YLT" Or _ 

cboVersion.Text = "WEB" Or _ 

cboVersion.Text = "BBE" Or _ 

cboVersion.Text = "JPS" Or _ 

cboVersion.Text = "DR" Or _ 

cboVersion.Text = "WBST" Then 


End If

frmBible - 2 

' BHS Vocalisée 

If cboVersion.Text = "BHS" Then 

frmBible.txtPassage.Font = "Bwhebb" 

If cboLivre.Text = "Matthieu" Then 



End If 




Call LireBHSV(livre, chapitre, verset) 

Exit Sub 

End If 

' NET 

If cboVersion.Text = "NET" Or cboVersion.Text = "JPS" Then 




Call LireNET(livre, chapitre, verset) 

Exit Sub 

End If 

' LSG2+ 

If cboVersion.Text = "LSG & Strong" Then 




Call LireLSGStrong2(livre, chapitre, verset) 

Exit Sub 

End If 

'WH & Strong 





Call LireWestcottHortParsed(livre, chapitre, verset) 

Exit Sub 

End If 

'BHS+ 

If cboVersion.Text = "BHS+" Then 




Call LireBHSStrong(livre, chapitre, verset) 

Exit Sub 

End If 

'FILLION 

If cboVersion.Text = "FILLION" Then 




'Call LireFillion(livre, chapitre, verset) 

Exit Sub 

End If 

'Pères apostoliques grec 

If cboVersion.Text = "APF-G" Then 




Call LirePeresGrecs(livre, chapitre, verset) 

Exit Sub 

End If 

'Pères apostoliques par Lightfoot 

If cboVersion.Text = "Lightfoot" Then 




Call LirePeresEn(livre, chapitre, verset)

frmBible - 3 

Exit Sub 

End If 

'Homère, Iliade et Odyssée en grec 

If cboVersion.Text = "Homère" Then 




Call LireHomere(livre, chapitre, verset) 

Exit Sub 

End If 

'Pères anté-nicéens ANF en anglais 

If cboVersion.Text = "ANF" Then 




Call LireANF(livre, chapitre, verset) 

Exit Sub 

End If 

'Pères apostoliques fr 

If cboVersion.Text = "APF-F" Then 




Call LirePeresFr(livre, chapitre, verset) 

Exit Sub 

End If 

'Pères apostoliques en (Ph. Schaff) 

If cboVersion.Text = "APF-E" Then 




Call LirePeresEn(livre, chapitre, verset) 

Exit Sub 

End If 

'TMN 

If cboVersion.Text = "TMN" Then 




Call LireTMN(livre, chapitre, verset) 

Exit Sub 

End If 

' Salkinson-Ginsburg 

If cboVersion.Text = "SG" Then 




'Call LireHNT(livre, chapitre, verset) 

frmBible.txtPassage.RightToLeft = True 

frmBible.txtPassage.Alignment = vbRightJustify 

Exit Sub 

End If 

If cboVersion.Text = "MRT" Then 




Call LireMRT(livre, chapitre, verset) 

Exit Sub 

End If 

If cboVersion.Text = "OST" Then 




Call LireOST(livre, chapitre, verset) 

Exit Sub 

End If 

If cboVersion.Text = "Tischendorf+" Then 


chapitre = txtChapitre.Text

frmBible - 4 


Call LireTIS(livre, chapitre, verset) 

Exit Sub 

End If 

If cboVersion.Text = "WTM" Then 




Call LireWTM(livre, chapitre, verset, mot) 

Exit Sub 

End If 

' NA27 

If cboVersion.Text = "NA27" Then 

If cboLivre.Text = "Genèse" Then cboLivre.Text = "Matthieu" 




Call LireNA27(livre, chapitre, verset) 

txtPassage.Font = "Bwgrkn" 

txtPassage.FontSize = 14 

Exit Sub 

End If 

' WH+ 

If cboVersion.Text = "WH+" Then 





Call LireWHPlus(livre, chapitre, verset) 

txtPassage.Font = "Bwgrkn" 

txtPassage.FontSize = 14 

Exit Sub 

End If 

' gestion des oublis 

If cboVersion.Text = "Version" Then 

MsgBox "Vous devez sélectionner une version de la Bible", vbInformation, "Bible Parser" 

Exit Sub 

ElseIf txtChapitre.Text = "" Then 

MsgBox "Vous n'avez pas saisi de chapitre", vbInformation, "Bible Parser" 

Exit Sub 

ElseIf txtverset.Text = "" Then 

MsgBox "Vous n'avez pas saisi de verset", vbInformation, "Bible Parser" 

ElseIf cboLivre.Text = "" Then 

MsgBox "Vous n'avez pas saisi de livre", vbInformation, "Bible Parser" 

Exit Sub 

End If 

'affectation des variables 

version = Trim(cboVersion.Text) 

chapitre = Trim(txtChapitre.Text) 

verset = Trim(txtverset.Text) 

livre = Trim(cboLivre.Text) 

' définition du fichier livre à ouvrir pour la septante 

'If cboVersion.Text = "LXX" Then 

'sortievocale.Visible = False 

'Call DefFichierSeptante(livre, fichierseptante) 

'End If 

' Définition du fichier à ouvrir 

If cboVersion.Text = "LXX" Then 

frmBible.txtPassage.Font = "Bwgrkn" 

frmBible.txtPassage.FontSize = 14 

chkstrong.Visible = False 

chkthayer.Visible = False 

lblStrong.Visible = False 

lblthayer.Visible = False 

lblchapitre.Visible = True 

txtPassage.ToolTipText = "Double-cliquez sur un mot pour l'analyser ou le définir" 

If cboLivre.Text = "Matthieu" Then

frmBible - 5 



End If 

'chkthayer.Value = False 

'chkstrong.Value = True 

'fichier = "\modules\Septante\" & fichierseptante 


'MnuSortieVocale.Enabled = False 

Call LireLXX(livre, chapitre, verset) 

Exit Sub 

' Stephanus 

ElseIf cboVersion.Text = "Stephanus" Then 


frmBible.chkstrong.Visible = False 

frmBible.lblStrong.Visible = False 

frmBible.chkthayer.Visible = False 

frmBible.lblthayer.Visible = False 

frmBible.optstrongfr.Visible = False 

frmBible.lblstrongfr.Visible = False 

Call LireStephanos(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "Scrivener" Then 


frmBible.chkstrong.Visible = False 

frmBible.lblStrong.Visible = False 

frmBible.chkthayer.Visible = False 

frmBible.lblthayer.Visible = False 



Call LireScrivener(livre, chapitre, verset) 

Exit Sub 

'NA26 

ElseIf cboVersion.Text = "NA26+" Then 

If cboLivre.Text = "Genèse" Then 


livre = "Matthieu" 

End If 

'txtPassage.ToolTipText = "Double-cliquez sur un mot pour l'analyser ou le définir" 


MnuSortieVocale.Enabled = False 

Call LireNA26(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "LSG" Then 









chkthayer.Value = False 

chkstrong.Value = True 

Call LireLSG(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "NEG+" Then 











Call LireNEG(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "LSG+" Then 



chkstrong.Visible = False

frmBible - 6 








Call LireLSGStrong(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "JER" Then 











Call LireJerusalem(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "BFC" Then 











Call LireBFC(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "Darby" Then 











Call LireDarby(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "NBS" Then 













lblchapitre.Caption = livre & " " & chapitre & ":" & verset 

Call VersetNBS(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "TOB" Then 











chkthayer.Value = False

frmBible - 7 



Call LireTOB(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "DIAGLOTT" Then 



'MnuSortieVocale.Enabled = False 









Call Diaglott(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "NT Annoté" Then 












Call LireNTDF(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "Vulgate" Then 













Call LireVulgate(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "CRP" Then 













Call LireCRP(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "W/H & Strong" Then 









'txtPassage.ToolTipText = "Double cliquez sur un numéro pour voir sa définition Strong / Thayer 

" 

fichier = "\modules\WHpars\" 

frmBible.optstrongfr.Visible = False

frmBible - 8 


ElseIf cboVersion.Text = "ASV" Then 



Call LireASV(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "KJV" Then 



Call LireKJV(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "YLT" Then 



Call LireYLT(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "WEB" Then 



Call LireWEB(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "Flavius Josèphe" Or cboVersion.Text = "Flavius Josèphe - En" Then 



Call LireFJ(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "Flavius Josèphe - Fr" Then 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\modules\JOS\jof.pdf") 

frmPDF.Caption = "Oeuvres complètes de Flavius Josèphe" 

If cboLivre.Text = "Antiquités judaïques" Then 

frmPDF.pdfmain.setCurrentPage (603) 

ElseIf cboLivre.Text = "Guerre des Juifs" Then 


ElseIf cboLivre.Text = "Contre Apion" Then 


End If 

frmPDF.Show 

Exit Sub 

ElseIf cboVersion.Text = "BBE" Then 



Call LireBBE(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "DR" Then 



Call LireDR(livre, chapitre, verset) 

Exit Sub 

ElseIf cboVersion.Text = "WBST" Then 



Call LireWebster(livre, chapitre, verset) 

Exit Sub 

End If 

' selon la version choisie, la nomenclature des versets recherchés est différente 

If version = "NT grec ancien" Then 

Call CreerPassage(version, livre, chapitre, verset, chercher) 

ElseIf version = "NT UBS" Then 

Call CreerPassagesgreek(version, livre, chapitre, verset, chercher) 

ElseIf version = "Vulgate" Then 

Call CreerPassageVulgate(version, livre, chapitre, verset, chercher) 

ElseIf version = "W/H & Strong" Then 

Call CreerPassageWHpars(version, livre, chapitre, verset, chercher, fichier, chap) 

Call CorrigerWH(texte) 

ElseIf version = "LXX" Then 

Call LireSeptante(livre, chapitre, verset, fichier, chercher) 

Dim enlevererr$, nveautxt$ 

msg = Trim(StrReverse(frmBible.txtPassage.Text)) 

enleverr = InStr(1, msg, " ") 

nveautxt = Mid(msg, enleverr + 1, Len(msg))

frmBible - 9 

frmBible.txtPassage.Text = StrReverse(nveautxt) 

Exit Sub 

End If 


Exit Sub 

End If 

'affichage des références du Treasaury of Scripture Knowledge 




'If chkTSK.Value = 1 Then 

'Call LireTSK(livre, chapitre, verset) 

'End If 

' lecture de la version choisie 

Dim lfile As Long 'Lecture 

Dim ofile As String 'Fichier à ouvrir 

Dim toti$ 

If Len(fichier) < 30 Then 

toti = fichier 

ofile = App.Path & toti 

Else 

ofile = fichier 

End If 


If fichier "" Then 


Do 

'lecture 

Input #lfile, ligne 

If Mid(ligne, 1, Len(chercher)) = chercher And _ 

IsNumeric(Mid(ligne, Len(chercher) + 1, 1)) = False Then ' pour que le verset reche 

rché soit exact 

'affectation du verset du fichier à la variable 

passage = ligne 

End If 

Loop Until EOF(lfile) 

Close #lfile 

End If 

'affecter le verset trouvé au textbox 

If passage "" Then 

txtPassage.Text = Mid(passage, Len(chercher) + 1, Len(passage)) 

Else 

' s'il n'y a pas de verset correspondant, le signaler 

txtPassage.Font = "Times New Roman" 

txtPassage.Text = "Pas de verset" 

End If 

'affecter le verset choisi au label au-dessus 

lblchapitre.Caption = cboLivre.Text & " " & txtChapitre & " : " & txtverset.Text 

lblprecedent.Visible = True 

lblsuivant.Visible = True 

' affichage des outils d'analyse 

If cboVersion.Text = "NA26+" Then 






End If

frmBible - 10 

erreur: 

Exit Sub 

End Sub 

Public Sub btnGo_KeyUp(KeyCode As Integer, Shift As Integer) 

If KeyCode = 13 Then btnGo_Click 

End Sub 

Public Sub BtnGraphic1_Click() 

'Load frmTSK 

'frmTSK. Show 1 

End Sub 

Public Sub btnQuitter_Click() 

End 

End Sub 

Public Sub cboLivre_GotFocus() 

If cboVersion.Text = "LXX" Or cboVersion.Text = "BHS / LXX" Then 

cboLivre.Clear 































cboLivre.AddItem ("Siracides") 

cboLivre.AddItem ("Psaumes de Salomon") 

















cboLivre.AddItem ("Epître de Jérémie") 


cboLivre.AddItem ("Susanna") 


cboLivre.AddItem ("Bel et Draco") 

sortievocale.Visible = False

frmBible - 11 

ElseIf cboVersion.Text = "Homère" Then 


cboLivre.AddItem ("Iliade") 

cboLivre.AddItem ("Odyssée") 

ElseIf cboVersion.Text = "Flavius Josèphe" Or cboVersion.Text = "Flavius Josèphe - En" Or cboVersio 

n.Text = "Flavius Josèphe - Fr" Then 


cboLivre.AddItem ("Antiquités judaïques") 

cboLivre.AddItem ("Guerre des Juifs") 

cboLivre.AddItem ("Vie de FJ") 

cboLivre.AddItem ("Contre Apion") 

ElseIf cboVersion.Text = "APF-G" Or cboVersion.Text = "APF-F" Or cboVersion.Text = "APF-E" Or cboVe 

rsion.Text = "Lightfoot" Then 


cboLivre.AddItem ("1ère de Clément") 

cboLivre.AddItem ("2ème de Clément") 

cboLivre.AddItem ("Epître de Barnabé") 

cboLivre.AddItem ("Ignace - 1ère Ephésiens") 

cboLivre.AddItem ("Ignace - 2ème Ephésiens") 

cboLivre.AddItem ("Ignace - aux Magnésiens") 

cboLivre.AddItem ("Ignace - aux Tralliens") 

cboLivre.AddItem ("Ignace - aux Romains") 

cboLivre.AddItem ("Ignace - aux Philadelphiens") 

cboLivre.AddItem ("Ignace - aux Smyrniotes") 

cboLivre.AddItem ("Ignace - à Polycarpe") 

cboLivre.AddItem ("Ignace - aux Philippiens") 

cboLivre.AddItem ("Martyr de Polycarpe") 

cboLivre.AddItem ("La Didachè") 

cboLivre.AddItem ("Hermas - Vision 1") 





cboLivre.AddItem ("Hermas - Précepte 1") 'HMA 

cboLivre.AddItem ("Hermas - Précepte 2") 'HMB 

cboLivre.AddItem ("Hermas - Précepte 3") 'HMC 

cboLivre.AddItem ("Hermas - Précepte 4") 'HMD 

cboLivre.AddItem ("Hermas - Précepte 5") 'HME 

cboLivre.AddItem ("Hermas - Précepte 6") 'HMF 

cboLivre.AddItem ("Hermas - Précepte 7") 'HMG 

cboLivre.AddItem ("Hermas - Précepte 8") 'HMH 

cboLivre.AddItem ("Hermas - Précepte 9") 'HMI 

cboLivre.AddItem ("Hermas - Précepte 10") 'HMJ 

cboLivre.AddItem ("Hermas - Précepte 11") 'HMK 

cboLivre.AddItem ("Hermas - Précepte 12") 'HML 

cboLivre.AddItem ("Hermas - Similitudes 1") 'HSA 

cboLivre.AddItem ("Hermas - Similitudes 2") 'HSB 

cboLivre.AddItem ("Hermas - Similitudes 3") 'HSC 

cboLivre.AddItem ("Hermas - Similitudes 4") 'HSD 

cboLivre.AddItem ("Hermas - Similitudes 5") 'HSE 

cboLivre.AddItem ("Hermas - Similitudes 6") 'HSF 

cboLivre.AddItem ("Hermas - Similitudes 7") 'HSG 

cboLivre.AddItem ("Hermas - Similitudes 8") 'HSH 

cboLivre.AddItem ("Hermas - Similitudes 9") 'HSI 

cboLivre.AddItem ("Hermas - Similitudes 10") 'HSJ 

ElseIf cboVersion.Text = "ANF" Then 


cboLivre.AddItem ("Justin - Apologie") 

cboLivre.AddItem ("Justin - Dialogue avec Tryphon") 

cboLivre.AddItem ("Justin - Discours avec les Grecs") 

cboLivre.AddItem ("Justin - Adresse aux Grecs") 

cboLivre.AddItem ("Justin - Sur le gouvernement de Dieu") 

cboLivre.AddItem ("Justin - Fragments sur la Résurrection") 

cboLivre.AddItem ("Irénée - Contre les Hérésies Livre 1") 





cboLivre.AddItem ("Tatien - Adresse aux Grecs") 

cboLivre.AddItem ("Théophile d'Antioche à Autolycus") 

cboLivre.AddItem ("Athénagore - Défense des Chrétiens") 'PCA 

cboLivre.AddItem ("Athénagore - Sur la Résurrections des morts") 'ARD 

cboLivre.AddItem ("Clément d'Alexandrie - Exhoration aux cieux") 'CEH 

cboLivre.AddItem ("Clément d'Alexandrie - Pédagogue Livre 1") 'CI1 

cboLivre.AddItem ("Clément d'Alexandrie - Pédagogue Livre 2") 'CI2

frmBible - 12 

cboLivre.AddItem ("Clément d'Alexandrie - Pédagogue Livre 3") 'CI3 

cboLivre.AddItem ("Clément d'Alexandrie - Stromates Livre 1") 'CS1 








cboLivre.AddItem ("Tertullien - Apologie") 'TAP, TAp 

cboLivre.AddItem ("Tertullien - Sur l'idolâtrie") 'TID 

cboLivre.AddItem ("Tertullien - Sur les spectacles") 'TSh TSH 

cboLivre.AddItem ("Tertullien - Sur le chapelet") 'TCH 

cboLivre.AddItem ("Tertullien - A Scapula") 'TTS 

cboLivre.AddItem ("Tertullien - Ad Nationes") 'TAD 

cboLivre.AddItem ("Tertullien - Réponse aux Juifs") 'TAJ 

cboLivre.AddItem ("Tertullien - Le témoignage de l'âme") 'TST 

cboLivre.AddItem ("Tertullien - Prescription contre les hérétiques") 'TPH 

cboLivre.AddItem ("Tertullien - Contre Marcion Livre 1") 'TM1 





cboLivre.AddItem ("Tertullien - Contre Hermogène") 'TAH 

cboLivre.AddItem ("Tertullien - Contre les Valentiniens") 'TAV 

cboLivre.AddItem ("Tertullien - Sur la chair du Christ") 'TFC 

cboLivre.AddItem ("Tertullien - Sur la résurrection de la chair") 'TRF 

cboLivre.AddItem ("Tertullien - Contre Praxeas") 'TPR 

cboLivre.AddItem ("Tertullien - Scorpiace") 'TSC 

cboLivre.AddItem ("Tertullien - Contre toutes les hérésies") 'AAH 

cboLivre.AddItem ("Tertullien - Sur la repentance") 'TOR 

cboLivre.AddItem ("Tertullien - Sur le baptême") 'TBa 

cboLivre.AddItem ("Tertullien - Sur la prière") 'TOP 

cboLivre.AddItem ("Tertullien - Ad martyras") 'TAM 

cboLivre.AddItem ("Tertullien - Martyr de Perpétue et Félécie") 'TPF 

cboLivre.AddItem ("Tertullien - Sur la patience") 'TPA 

cboLivre.AddItem ("Tertullien - Sur le Pallium") 'TPl 

cboLivre.AddItem ("Tertullien - Sur les ornements des femmes") 'TAW 

cboLivre.AddItem ("Tertullien - Sur le voile des vierges") 'TVV 

cboLivre.AddItem ("Tertullien - A sa femme") 'THW 

cboLivre.AddItem ("Tertullien - Exhortation à la chasteté") 'TEC 

cboLivre.AddItem ("Tertullien - Sur la monogamie") 'TOM 

cboLivre.AddItem ("Tertullien - Sur la modestie") 'TMD 

cboLivre.AddItem ("Tertullien - Sur les fêtes") 'TOF 

cboLivre.AddItem ("Tertullien - De fuga in persecutione") 'TFP 

cboLivre.AddItem ("Munucius Felix - L'Octavius") 'MFO 

cboLivre.AddItem ("Munucius Felix - Instructions de Commodianus") 'MFC 

cboLivre.AddItem ("Origène - Prologue") 'OPP 

cboLivre.AddItem ("Origène - De Principiis Livre 1") 'OP1 




cboLivre.AddItem ("Origène - Lettres") 'OLt 

cboLivre.AddItem ("Origène - Contre Celse") 'OAC 

cboLivre.AddItem ("Hippolyte - Réfutation de toutes les hérésies") 'HRH 

cboLivre.AddItem ("Anonyme - Canon de Muratori") 'TMC 

'LPC,Pontius the Deacon Life and Passion of Cyprian,LPC,LPC 

'CEp,Cyprian Epistles of Cyprian,CEp,CEP 

'CTr,Cyprian Treatises of Cyprian,CTr,CTR 

'CEM,Cyprian Exhortation to Martyrdom,CEM,CEM 

'CAJ,Cyprian Three Books of Testimonies Against the Jews,CAJ,CAJ 

'SCC,Seventh Council of Carthage re: Baptism of Heretics,SCC,SCC 

'TMC,The Muratorian Canon,TMC,TMC 

'NTT,Novatian Treatise re: the Trinity,NTT,NTT 

'NJM,Novation On the Jewish Meats,NJM,NJM 

'AAN,Anonymous Treatise Against Novatian,AAN,AAN 

'ATB,Anonymous Treatise on Re-Baptism,ATB,ATB 

'TDF,Gregory Thaumaturgus Declaration of Faith,TDF,TDF 

'TME,Gregory Thaumaturgus Metaphrase of Ecclesiastes,TME,TME 

'TCE,Gregory Thaumaturgus Canonical Epistle,TCE,TCE 

'TPO,Gregory Thaumaturgus Panegyric to Origen,TPO,TPO 

ElseIf cboVersion.Text = "FILLION" Then 


cboLivre.AddItem ("Genèse")

frmBible - 13 





























cboLivre.AddItem ("Michée") 
















cboLivre.AddItem ("Matthieu") 

cboLivre.AddItem ("Marc") 

cboLivre.AddItem ("Luc") 

cboLivre.AddItem ("Jean") 

cboLivre.AddItem ("Actes") 

cboLivre.AddItem ("Romains") 

cboLivre.AddItem ("1 Corinthiens") 


cboLivre.AddItem ("Galates") 

cboLivre.AddItem ("Ephésiens") 

cboLivre.AddItem ("Philippiens") 

cboLivre.AddItem ("Colossiens") 

cboLivre.AddItem ("1 Thessaloniciens") 


cboLivre.AddItem ("1 Timothée") 


cboLivre.AddItem ("Tite") 

cboLivre.AddItem ("Philémon") 

cboLivre.AddItem ("Hébreux") 

cboLivre.AddItem ("Jacques") 

cboLivre.AddItem ("1 Pierre") 


cboLivre.AddItem ("1 Jean") 



cboLivre.AddItem ("Jude") 

cboLivre.AddItem ("Révélation") 


ElseIf cboVersion.Text = "ASV" Or _ 

cboVersion.Text = "KJV" Or _

frmBible - 14 

cboVersion.Text = "YLT" Or _ 

cboVersion.Text = "WEB" Or _ 

cboVersion.Text = "BBE" Or _ 


cboVersion.Text = "DR" Or _ 

cboVersion.Text = "WBST" Or _ 

cboVersion.Text = "NEG+" Or _ 

cboVersion.Text = "LSG+" Or _ 

cboVersion.Text = "LSG & Strong" Or _ 

cboVersion.Text = "TM" Or _ 

cboVersion.Text = "BHS+" Or _ 

cboVersion.Text = "TMN" Or _ 


cboVersion.Text = "NET" Then 
























cboLivre.AddItem ("Esaïe") 



cboLivre.AddItem ("Ezéchiel") 








cboLivre.AddItem ("Nahoum") 

cboLivre.AddItem ("Habaquq") 

























cboLivre.AddItem ("1 Pierre")

frmBible - 15 








ElseIf cboVersion.Text = "BHS" Or cboVersion.Text = "TM" Then 

txtPassage.RightToLeft = True 


' 









































ElseIf cboVersion.Text = "NT Annoté" Then 










ElseIf cboVersion.Text = "NA27" Or cboVersion.Text = "WH+" Or cboVersion.Text = "SG" Or cboVersion. 

Text = "Tischendorf+" Or cboVersion.Text = "DIAGLOTT" Then 











cboLivre.AddItem ("Ephésiens")

frmBible - 16 



















ElseIf cboVersion.Text = "The Emphatic Diaglott" Then 


cboLivre.AddItem ("Matthew") 

cboLivre.AddItem ("Mark") 

cboLivre.AddItem ("Luke") 

cboLivre.AddItem ("John") 

cboLivre.AddItem ("Acts") 

cboLivre.AddItem ("Romans") 

cboLivre.AddItem ("1 Corinthians") 

cboLivre.AddItem ("2 Corinthians") 

cboLivre.AddItem ("Galatians") 

cboLivre.AddItem ("Ephesians") 

cboLivre.AddItem ("Philippians") 

cboLivre.AddItem ("Colossians") 

cboLivre.AddItem ("1 Thessalonians") 

cboLivre.AddItem ("2 Thessalonians") 

cboLivre.AddItem ("1 Timothy") 

cboLivre.AddItem ("2 Timothy") 

cboLivre.AddItem ("Titus") 

cboLivre.AddItem ("Philemon") 

cboLivre.AddItem ("Hebrews") 

cboLivre.AddItem ("James") 

cboLivre.AddItem ("1 Peter") 

cboLivre.AddItem ("2 Peter") 

cboLivre.AddItem ("1 John") 




cboLivre.AddItem ("Revelation") 


ElseIf cboVersion.Text = "NA26+" Or cboVersion.Text = "Stephanus" Or cboVersion.Text = "Scrivener" 

Then 

























cboLivre.AddItem ("2 Jean")

frmBible - 17 


































' 









































cboLivre.AddItem ("Zacharie")

frmBible - 18 






























ElseIf cboVersion.Text = "LSG" Or _ 

cboVersion.Text = "NBS" Or _ 

cboVersion.Text = "TOB" Or _ 

cboVersion.Text = "JER" Or _ 

cboVersion.Text = "Darby" Or _ 

cboVersion.Text = "BFC" Or _ 

cboVersion.Text = "NEG+" Or _ 

cboVersion.Text = "MRT" Or _ 

cboVersion.Text = "OST" Or _ 

cboVersion.Text = "CRP" Then 



































cboLivre.AddItem ("Nahoum")

frmBible - 19 


































End If 

End Sub 

Public Sub cboVersion_Change() 

If txtverset.Text "" Then btnGo_Click 





















'cboLivre.AddItem ("Tobie") 



'cboLivre.AddItem ("3 Maccabées") 

'cboLivre.AddItem ("4 Maccabées") 







'cboLivre.AddItem ("Sagesse") 

'cboLivre.AddItem ("Siracides")

frmBible - 20 

'cboLivre.AddItem ("Psaumes de Salomon") 















'cboLivre.AddItem ("Baruch") 


'cboLivre.AddItem ("Epître de Jérémie") 


'cboLivre.AddItem ("Susanna") 


'cboLivre.AddItem ("Bel et Draco") 


txtPassage.FontSize = "14" 
































txtPassage.FontSize = "12" 

















cboLivre.AddItem ("2 Thessaloniciens")

frmBible - 21 














ElseIf cboVersion.Text = "LSG" Then 





























































cboLivre.AddItem ("Hébreux")

frmBible - 22 









End If 

End Sub 

Public Sub cboVersion_LostFocus() 

If cboVersion.Text "DIAGLOTT" Then 

frmBible.Caption = "Menu Général - " & cboVersion.Text 

Else 

frmBible.Caption = "Menu Général - The Emphatic Diaglott, Benjamin Wilson [1942]" 

End If 

End Sub 


Unload Me 

End 

End Sub 


Load frmBHSLXX 

frmBHSLXX.Show 

End Sub 

Public Sub fctLexique_Click() 

Load frmGF 

frmGF.Show 

End Sub 

Public Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) 


End Sub 

Private Sub m_frmSysTray_SysTrayDoubleClick(ByVal eButton As MouseButtonConstants) 

'double clic dans la barre de tache 

Me.Show 

Me.ZOrder 

End Sub 

Private Sub m_frmSysTray_SysTrayMouseDown(ByVal eButton As MouseButtonConstants) 

' clic droit souris 

If (eButton = vbRightButton) Then 

m_frmSysTray.ShowMenu 

End If 

End Sub 

Private Sub m_frmSysTray_MenuClick(ByVal lIndex As Long, ByVal sKey As String) 

Select Case sKey 

Case "open" 

Me.Show 

Me.ZOrder 

If Me.WindowState = 1 Then Me.WindowState = 0 

Case "close" 

Unload Me 

End 

Case "about" 

frmBible.mnuBP_Click 

Case "site" 

frmBrowser.cboAddress.Text = "http://www.areopage.net" 

End Select 

End Sub 

Public Sub Form_Load() 

Dim ofile% 

Dim fichier$, mot$ 

automatos = False 

'fichier = App.Path & "\tools\bp.ini" 

'ofile = FreeFile 

'Open fichier For Input As #ofile 

'Input #ofile, mot 

'If mot = "NBS" Then

frmBible - 23 

' debloque = True 

' Else 

' debloque = flase 

'End If 

'---------------------- 

'Mise en icône dans la barre des tâches (Merci à vbaccelerator.com !) 

If (chkSysTray.Value = Checked) Then 

Set m_frmSysTray = New frmSysTray 

With m_frmSysTray 

.AddMenuItem "&Ouvrir Bible Parser", "open", True 

.AddMenuItem "-" 

.AddMenuItem "&Site de l'auteur", "site" 

.AddMenuItem "&A propos...", "about" 


.AddMenuItem "&Quitter", "close" 

.ToolTip = "Bible Parser 2006" 

End With 

m_frmSysTray.IconHandle = LoadPicture(App.Path & "\tools\book02.ico") 

Else 

Unload m_frmSysTray 

Set m_frmSysTray = Nothing 

End If 

'fin de la mise en barre de tâche 

Label4.Caption = "version " & App.Major & "." & App.Minor & "." & App.Revision 

lblprecedent.Visible = False 

lblsuivant.Visible = False 

txtPassage.Font = "Grenet" 

'frmBible.txtPassage.RightToLeft = True 

'------------------------------------------------------------------------------ 

cboVersion.AddItem ("BHS+") 

cboVersion.AddItem ("BHS") 

cboVersion.AddItem ("TM") 

'cboVersion.AddItem ("SG") 

cboVersion.AddItem ("--") 

cboVersion.AddItem ("LXX") 

cboVersion.AddItem ("NA26+") 

cboVersion.AddItem ("NA27") 

cboVersion.AddItem ("WH+") 

cboVersion.AddItem ("Tischendorf+") 

cboVersion.AddItem ("W/H & Strong") 

cboVersion.AddItem ("Stephanus") 

cboVersion.AddItem ("Scrivener") 


cboVersion.AddItem ("APF-G") 

cboVersion.AddItem ("APF-F") 

cboVersion.AddItem ("APF-E") 

cboVersion.AddItem ("Lightfoot") 

cboVersion.AddItem ("ANF") 


cboVersion.AddItem ("Vulgate") 


cboVersion.AddItem ("LSG") 

'cboVersion.AddItem ("LSG+") 

cboVersion.AddItem ("LSG & Strong") 

cboVersion.AddItem ("TMN") 

cboVersion.AddItem ("OST") 

cboVersion.AddItem ("CRP") 

cboVersion.AddItem ("Darby") 

cboVersion.AddItem ("MRT") 

'cboVersion.AddItem ("Chouraqui (à faire)") 


cboVersion.AddItem ("DIAGLOTT") 

cboVersion.AddItem ("ASV") 

cboVersion.AddItem ("KJV") 

cboVersion.AddItem ("YLT") 

cboVersion.AddItem ("WEB") 

cboVersion.AddItem ("JPS") 

cboVersion.AddItem ("BBE") 

cboVersion.AddItem ("DR") 

cboVersion.AddItem ("WBST") 


cboVersion.AddItem ("Flavius Josèphe")

frmBible - 24 

cboVersion.AddItem ("Flavius Josèphe - En") 

cboVersion.AddItem ("Flavius Josèphe - Fr") 

'cboVersion.AddItem ("Homère") 

mnuGingrich.Enabled = False 

mnuTWOT.Enabled = False 

mnuTDNT.Enabled = False 

mnuRosetta.Enabled = False 

'mnuAuvray.Enabled = False 

'mnuAbel.Enabled = False 

cboVersion.Text = "NA27" 


txtChapitre.Text = "1" 

txtverset.Text = "1" 

btnGo_Click 

frmBible.lblprecedent.Visible = True 

frmBible.lblsuivant.Visible = True 



mnuZetoG.Checked = False 

'frmBible.PopupMenu mnuRecherche 

'Microsoft Agent robby 

'Agent.Characters.Load "robby", DATAPATH 

'Set robby = Agent.Characters("robby") 

'robby.LanguageID = &H40C 

'Dim c 

'c = robby.MoveTo(640, 200) 

'robby.Show 

'robby.Play ("GetAttention") 

'robby.Think ("Bonjour, Je suis Robby. Je vous lirai les passages que vous souhaitez. Pour 

cela, cliquez moi, ou pressez F2") 

End Sub 

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 



End Sub 

Public Sub Form_Resize() 

If Me.WindowState = 2 Then Me.WindowState = 0 

'If Me.WindowState = 1 Then Me.Hide 

On Error GoTo suite 

rmBible.Height = 5955 

rmBible.Width = 7260 

uite: 

nd Sub 

ublic Sub Label5_Click() 

rmBible.txtPassage.FontSize = frmBible.txtPassage.FontSize + 2 

nd Sub 

ublic Sub chkSysTray_Click() 

If (chkSysTray.Value = Checked) Then 

Set m_frmSysTray = New frmSysTray 

With m_frmSysTray 

.AddMenuItem "&Open SysTray Sample", "open", True 


.AddMenuItem "&vbAccelerator on the Web", "vbAccelerator" 

.AddMenuItem "&About...", "About" 


.AddMenuItem "&Close", "close" 

.ToolTip = "SysTray Sample!" 

End With 

m_frmSysTray.IconHandle = LoadPicture(App.Path & "\tools\book02.ico") 

Else 



End If 

nd Sub 

ublic Sub Label6_Click() 

rmBible.txtPassage.FontSize = frmBible.txtPassage.FontSize - 2 

nd Sub

frmBible - 25 

Public Sub lblprecedent_Click() 

txtverset.Text = Val(txtverset.Text) - 1 

btnGo_Click 

End Sub 

Public Sub lblsuivant_Click() 

txtverset.Text = Val(txtverset.Text) + 1 

btnGo_Click 

End Sub 

Public Sub mnuAcad_Click() 

frmBrowser.cboAddress.Text = "http://www.lib.uchicago.edu/efts/ARTFL/projects/dicos/ACADEMIE/CINQUI 

EME/search.form.fr.html" 

End Sub 

Public Sub mnuAcadFr_Click() 

Dim mot$ 

mot = InputBox("Indiquez le mot que vous recherchez" & vbCrLf _ 

& "Thésor de la langue française - Jean Nicot, 1606" & vbCrLf _ 

& "Dictionnaire critique de la langue française - Jean-François Féraud, 1787-1788" & vbCrLf _ 

& "Dictionaire de l'Académie Française, 1e, 4e, 5e, 6e et 8e éditions") 

If mot "" Then 


frmBrowser.cboAddress.Text = "http://colet.uchicago.edu/cgi-bin/dico1look.pl?strippedhw=" & mot & " 

&headword=&docyear=ALL&dicoid=ALL&articletype=1" 

Else 

mot = MsgBox("Vous n'avez pas saisi de mot à définir !", vbExclamation, "Erreur") 

Exit Sub 

End If 

End Sub 

Public Sub mnuAddEnglish_Click() 

mnuAddEnglish.Checked = True 

mnuRemoveEnglish.Checked = False 

cboVersion.Clear 










cboVersion.AddItem ("NBS") 











cboVersion.Text = "ASV" 

btnGo_Click 

End Sub 

Public Sub mnuAnalyseGrec_Click() 

frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/cgi-bin/morphindex?lang=greek" 

' 

End Sub 

Public Sub mnuAnalyseLatin_Click() 

frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/cgi-bin/morphindex?lang=latin" 

End Sub 

Public Sub mnuBaker_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Dictionaries/BakersEvangelicalDictionary/" 

End Sub

frmBible - 26 

Public Sub mnuA_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf") 

frmPDF.Caption = "The Abridged Brown-Driver-Briggs" 

frmPDF.Show 

End Sub 

Public Sub mnuAbel_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\abel\abel.pdf") 

frmPDF.Caption = "Abel, Grammaire de grec biblique" 

frmPDF.Show 

End Sub 

Public Sub mnuAG_Click() 


ssaidegr = False 

frmGrammaire.Show 

End Sub 

Public Sub mnuAlpha_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf") 


frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]" 

frmPDF.Show 

End Sub 

Private Sub mnuAntiquites_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\grk\AGrecques.pdf") 

frmPDF.Caption = "P. Paris/G. Roques, Lexique des Antiquités grecques et latines (1909)" 

frmPDF.Show 

'AGrecques.pdf 

End Sub 

Private Sub mnuApparatCritique_Click() 




If livre = "Matthieu" Then 

chercher = "47" 

ElseIf livre = "Marc" Then 


ElseIf livre = "Luc" Then 


ElseIf livre = "Jean" Then 


ElseIf livre = "Actes" Then 


ElseIf livre = "Romains" Then 


ElseIf livre = "1 Corinthiens" Then 




ElseIf livre = "Galates" Then 


ElseIf livre = "Ephésiens" Then 


ElseIf livre = "Philippiens" Then 


ElseIf livre = "Colossiens" Then 


ElseIf livre = "1 Thessaloniciens" Then 




ElseIf livre = "1 Timothée" Then 



chercher = "62"

frmBible - 27 

ElseIf livre = "Tite" Then 


ElseIf livre = "Philémon" Then 


ElseIf livre = "Hébreux" Then 


ElseIf livre = "Jacques" Then 


ElseIf livre = "1 Pierre" Then 




ElseIf livre = "1 Jean" Then 






ElseIf livre = "Jude" Then 


ElseIf livre = "Révélation" Then 


'http://www.laparola.net/greco/index.php?rif1=49&rif2=4%3A15 

End If 

frmBrowser.cboAddress.Text = "http://www.laparola.net/greco/index.php?rif1=" & chercher & "&rif2=" 

& chapitre & "%3A" & verset 

'http://bible.ovc.edu/tc/lay13act.htm#ac20_28b 

End Sub 

Private Sub mnuApparatus_Click() 

Dim page As Integer 

Dim livre As String 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\Apparat.pdf") 

frmPDF.Caption = "A Student's Guide to New Testament Textual Variants" 


frmPDF.Show 

End Sub 

Public Sub mnuATSBD_Click() 

Load frmDictionnaires 

frmDictionnaires.cboEncyclo.Text = "ATSBD" 

frmDictionnaires.Show 

End Sub 

Private Sub mnuAutomatos_Click() 

automatos = True 

Dim msg$ 

If cboVersion.Text = "W/H & Strong" Or cboVersion = "BHS+" Or cboVersion = "TM" Then 

Load frmAutomatos 

frmAutomatos.Show 

'frmBible.Hide 

Else 

msg = MsgBox("Verse Parser n'est disponible pour que le texte grec Westcott/Hort & Strong et hé 

breu BHS+ !", vbInformation) 

End If 

End Sub 

Public Sub mnuAuvray_Click() 

'frmBible.pdfmain.LoadFile (App.Path & "\ref\auv\auvray.pdf") 

'frmBible.pdfmain.setCurrentPage (1) 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\auv\auvray.pdf") 

frmPDF.Show 

End Sub 

Public Sub mnuBDBA_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\boxus\boxus.pdf") 

frmPDF.Caption = "Anne-Marie Boxus, Précis de grammaire grecque" 

frmPDF.Show

frmBible - 28 

End Sub 

Private Sub mnuAyin_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuBaillyTout_Click() 

Load frmPDF 



frmPDF.Show 

End Sub 

Public Sub mnuBeta_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuBeth_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuBHSLXX_Click() 

Load frmBHSLXX 

frmBHSLXX.Show 

End Sub 

Public Sub mnuBoxus_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\boxus\boxus.pdf") 

frmPDF.Caption = "Anne-Marie Boxus, Précis de grammaire grecque" 

frmPDF.Show 

End Sub 

Public Sub mnuBP_Click() 

MsgBox "Bible Parser v." & App.Major & "." & App.Minor & "." & App.Revision & ", par Didier Fontain 

e" & vbCrLf & vbCrLf & "(c) 2003 - 2006", vbInformation, "A propos..." 

End Sub 

Public Sub mnuParse_Click() 

Load frmParse 

frmParse.Show 

End Sub 

Public Sub mnuBPT_Click() 

'frmBrowser.cboAddress.Text = "http://www.unboundbible.org/index.cfm?lang=french" 

End Sub 

Public Sub mnuBST_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/" 

End Sub 

Private Sub mnuBurnouf_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\grk\Burnouf.pdf") 

frmPDF.Caption = "Burnouf - Méthode pour étudier la langue grecque" 

frmPDF.Show 

End Sub

frmBible - 29 

Public Sub mnuBurton_Click() 

frmBrowser.cboAddress.Text = "http://www.dabar.org/BurtonMoodsTenses/Main-Burton.html" 

' 

End Sub 

Public Sub mnuCBC_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Encyclopedias/CondensedBiblicalCyclopedia/ 

" 

End Sub 

Public Sub mnuCBC2_Click() 



frmDictionnaires.optCBC.Value = True 

End Sub 

Public Sub mnuCE_Click() 

frmBrowser.cboAddress.Text = "http://www.newadvent.org/cathen/" 

End Sub 

Public Sub mnuDarby_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/DarbysSynopsisofNewTestament/ 

" 

End Sub 

Public Sub mnuDavid_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/TreasuryofDavid/" 

End Sub 

Public Sub mnuBurton2_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\burton\burton.pdf") 


frmPDF.Caption = "Burton - Moods and Tenses of New Testament Greek" 

frmPDF.Show 

End Sub 

Private Sub mnuCAF_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\Dicogr\LMG.pdf") 

frmPDF.Caption = "P. Crouzet, P. Andraud, A. Font - Dictionnaire grec-français [Méthode grecque, 19 

27]" 

frmPDF.Show 

End Sub 

Private Sub mnuCatenaRC_Click() 

livre = frmBible.cboLivre.Text 

chapitre = frmBible.txtChapitre.Text 

Call eCatena(livre, chapitre) 

End Sub 

Public Sub mnuCellerier_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\cel\cellerier.pdf") 

frmPDF.Caption = "Cellerier - Elements de grammaire hébraïque" 

frmPDF.Show 

End Sub 

Public Sub mnuConybeare_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\cony\conybeare.pdf") 

frmPDF.Caption = "Conybeare - A Grammar of Septuagint Greek" 

frmPDF.Show 

End Sub 

Public Sub mnuDalet_Click() 

Load frmPDF 



frmPDF.Caption = "The Abridged Brown-Driver-Briggs"

frmBible - 30 

frmPDF.Show 

End Sub 

Private Sub mnuDavis_Click() 

frmBrowser.cboAddress.Text = "http://www.earlychristianwritings.com/davis/" 

End Sub 

Public Sub mnuDelta_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuDicEaston_Click() 



frmDictionnaires.optEaston.Value = True 

frmDictionnaires.cboEncyclo.Text = "Easton" 

End Sub 

Public Sub mnuDicoLat_Click() 

Load frmDicoLatFr 

frmDicoLatFr.Show 

End Sub 

Private Sub mnuDicoLatC_Click() 

mot = Trim(txtPassage.SelText) 


frmDicoLatFr.Text1.Text = mot 

frmDicoLatFr.btnGo_Click 


End Sub 

Private Sub mnuDicoST_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\ST\ST.pdf") 

frmPDF.Caption = "Sander et Trenel - Dictionnaire hébreu-français" 

frmPDF.Show 

End Sub 

Private Sub mnuDictionnairesC_Click() 

mot = frmBible.txtPassage.SelText 


frmDictionnaires.txtRecherche = mot 


frmDictionnaires.btnRechercher_Click 


End Sub 

Public Sub mnuDictSmith_Click() 



frmDictionnaires.optSmith.Value = True 

frmDictionnaires.cboEncyclo.Text = "Smith" 

End Sub 

Public Sub mnuEastond_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Dictionaries/EastonBibleDictionary/" 

End Sub 

Public Sub mnuDzeta_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnueCatena_Click() 

frmBrowser.cboAddress.Text = "http://www.earlychristianwritings.com/e-catena/"

frmBible - 31 

End Sub 

Private Sub mnuEB1911_Click() 

frmBrowser.cboAddress.Text = "http://www.1911encyclopedia.org/" 

' 

End Sub 

Private Sub mnuEBCB_Click() 

frmBrowser.cboAddress.Text = "http://www.cwru.edu/UL/preserve/Etana/encyl_biblica_a-d/encyl_biblica 

_a-d.html" 

End Sub 

Public Sub mnuEpsilonn_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuEta_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Private Sub mnuEulalie_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\grk\Eulalie.pdf") 

frmPDF.Caption = "S. Reinach - Eulalie, le grec sans larmes" 

frmPDF.Show 

End Sub 

Public Sub mnuEusebe_Click() 

frmBrowser.cboAddress.Text = "http://remacle.org/bloodwolf/historiens/eusebe/index.htm" 

' 

End Sub 

Public Sub mnuFisher_Click() 

frmBrowser.cboAddress.Text = "http://www-users.cs.york.ac.uk/~fisher/gnt/chapters.html" 

End Sub 

Public Sub mnuFrenchOnly_Click() 








cboVersion.Text = "NBS" 

btnGo_Click 

End Sub 

Public Sub mnuFJ_Click() 

frmBrowser.cboAddress.Text = "http://remacle.org/bloodwolf/historiens/Flajose/intro.htm" 

' 

End Sub 

Public Sub mnuGeneva_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/GenevaStudyBible/" 

End Sub 

Public Sub mnuGill_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/GillsExpositionoftheBible/" 

End Sub

frmBible - 32 

Public Sub mnuGospel_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/TheFourfoldGospel/" 

End Sub 

Public Sub mnuFormeExacte_Click() 

Dim mot$ 

mot = Trim(frmBible.txtPassage.SelText) 

Load frmZetoGraphe 


frmZetoGraphe.cboVersion.Text = "NA27" 

ElseIf cboVersion.Text = "LXX" Then 

frmZetoGraphe.cboVersion.Text = "LXX" 

ElseIf cboVersion.Text = "APF-G" Then 

frmZetoGraphe.cboVersion.Text = "APF-G" 

End If 

frmZetoGraphe.txtRecherche.Text = mot 

frmZetoGraphe.Show 

'RechercheLemmatiqueNA27(mot) 

End Sub 

Public Sub mnuGamma_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuGesenius_Click() 

'Load frmReferences 

'frmReferences. Show 1 

'frmReferences.Image1.Picture = LoadPicture(App.Path & "\ref\ges\ges_014_0001.jpg") 

'frmReferences.cboRef.Text = "Gesenius's Hebrew Grammar" 

'frmReferences.txtPage.Text = "14" 

'frmReferences.txtRefPage.Text = "ges_014_0001.jpg" 

'frmReferences.txtNombrePage.Text = "582" 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\ges\gesenius.pdf") 

frmPDF.Caption = "Gesenius's Hebrew Grammar" 

frmPDF.Show 

'pdfmain.setCurrentPage 0 

End Sub 

Private Sub mnuGeseniusLexicon_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\ges\GeseniusLexicon.pdf") 

frmPDF.Caption = "Gesenius - Lexicon manuale Hebraicum et Chaldaicum in Veteris Testamentis Lib 

ros" 

frmPDF.Show 

End Sub 

Private Sub mnuGesHC_Click() 


Call LireStrongC(mot) 

If Mid(mot, 1, 1) "0" Then 

mot = "0" & mot 

End If 


frmBrowser.cboAddress.Text = "http://www.blueletterbible.org/cgi-bin/words.pl?Strong=" & mot & "&pa 

ge=1&flag_full=1" 


End Sub 

Public Sub mnuGG_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\gg\GG.pdf") 

frmPDF.Caption = "Wallace / Mounce Greek Grammar [Compilation]" 

frmPDF.Show 

End Sub 

Private Sub mnuGildersleeve_Click() 

frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04

frmBible - 33 

.0074" 

End Sub 

Public Sub mnuGim_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Private Sub mnuGingrich_Click() 

Dim adresse$ 

adresse = App.Path & "\ref\a&g\main.htm" 

frmBrowser.cboAddress.Text = adresse 


End Sub 

Public Sub mnuGoodwinG_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\goodw\GoodwinG.pdf") 

frmPDF.Caption = "Goodwin - Greek Grammar" 

frmPDF.Show 

End Sub 

Public Sub mnuGoodwinS_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\goodw\GoodwinS.pdf") 

frmPDF.Caption = "Goodwin - Syntax of the Moods and Tenses of the Greek Verb" 

frmPDF.Show 

End Sub 

Public Sub mnugrechebreu_Click() 

Load frmGrecHebreu 

frmGrecHebreu.Show 

End Sub 

Public Sub mnuGreek_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Lexicons/Greek/" 

End Sub 

Public Sub mnuGreekOnly_Click() 







cboVersion.Text = "NA26+" 

cboVersion.Text = "NA27" 




btnGo_Click 

End Sub 

Public Sub mnuGrekkbible_Click() 

frmBrowser.cboAddress.Text = "http://www.greekbible.com/" 

End Sub 

Public Sub mnuHebrewOnly_Click() 






cboVersion.Text = "BHS" 

btnGo_Click 

End Sub

frmBible - 34 

Public Sub mnuHe_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Private Sub mnuHebrewChaldee_Click() 

Dim adresse$ 

adresse = "http://books.google.fr/books?ie=UTF-8&id=dxCBQLh9-9kC&pg=PP3&printsec=2&lpg=PP3" 



End Sub 

Public Sub mnuHeth_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuHitch_Click() 



frmDictionnaires.cboEncyclo.Text = "Hitchcock" 

End Sub 

Private Sub mnuHolman_Click() 

frmBrowser.cboAddress.Text = "http://www.studylight.org/dic/hbd/" 

' 

End Sub 

Public Sub mnuIBE_Click() 



frmDictionnaires.optEncyclopaedia.Value = True 

frmDictionnaires.cboEncyclo.Text = "ISBE" 

End Sub 

Public Sub mnuJER_Click() 

frmBrowser.cboAddress.Text = "http://www.tradere.com/biblio/bdj/index.htm" 

End Sub 

Public Sub mnuJFB_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/JamiesonFaussetBrown/" 

End Sub 

Public Sub mnuJVI_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Dictionaries/JVIProphecyDictionary/" 

End Sub 

Public Sub mnuKJVDic_Click() 



frmDictionnaires.optKJVD.Value = True 

End Sub 

Public Sub mnuKof_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuIota_Click() 

Load frmPDF 


frmPDF.pdfmain.setCurrentPage (429)

frmBible - 35 


frmPDF.Show 

End Sub 

Private Sub mnuJastrow_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\Dicoheb\Jastrow.pdf") 

frmPDF.Caption = "Marcus Jastrow - A Dictionary of the Targumim, the Talmud Babli and Yerushalm 

i and the Midrashic Literature" 

frmPDF.Show 

End Sub 

Private Sub mnuJE_Click() 

frmBrowser.cboAddress.Text = "http://www.jewishencyclopedia.com/index.jsp" 

End Sub 

Private Sub mnuJO_Click() 


frmBrowser.cboAddress.Text = "http://collatinus.fltr.ucl.ac.be/jcoll.php?forme=m:" & mot 

frmBrowser.Caption = "Analyse Collatinus - Jeanneau" 

' *** autres possibilités 

' dictionnaire latinogallicum : http://colet.uchicago.edu/cgi-bin/search2e?headword=" & Mot & "&wor 

d=" & Mot & "&CONJUNCT=PHRASE&DISTANCE=3&PROXY=or+fewer&OUTPUT=conc&SYSTEM_DIR=%2Fprojects%2Fartflb 

%2Fdatabases%2Fartfl%2Fdicos%2Festienne%2Ffulltext%2FIMAGE%2F 

End Sub 

Private Sub mnuJRCox_Click() 

frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04 

.0052" 

End Sub 

Public Sub mnuKappa_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuKhi_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuLambda_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuLamed_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuLemme_Click() 

Dim mot$ 



RechercheLemmatiqueNA27 (mot) 

ElseIf cboVersion.Text = "LXX" Then

frmBible - 36 

RechercheLemmatiqueLXX (mot) 

End If 

End Sub 

Public Sub mnuLexHG_Click() 

Load frmHebreuGrec 

frmHebreuGrec.Show 

End Sub 

Private Sub mnuLexiConc_Click() 



frmBrowser.cboAddress.Text = "http://cf.blueletterbible.org/search/lexiconc.cfm?ss=" & mot & "&sear 

chtype=any" 


End Sub 

Public Sub mnuLexiqueHebFr_Click() 

Load frmDicoHebreu 

frmDicoHebreu.Timer1.Enabled = False 

frmDicoHebreu.Show 

End Sub 

Public Sub mnuLexiqueNT_Click() 

Load frmGF 

frmGF.Show 

End Sub 

Public Sub mnuLSG_Click() 

frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/cgi-bin/resolveform" 

End Sub 

Public Sub mnuMH_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/MatthewHenryComplete/" 

End Sub 

Public Sub mnuMonde_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/PeoplesNewTestament/" 

End Sub 

Public Sub mnuMotsGrecs_Click() 

Dim numstrong$, msg$ 

msg = InputBox("Entrez le numéro") 



frmBrowser.cboAddress = "http://www.blueletterbible.org/cgi-bin/words.pl?Strong=" & msg & "&page=1& 

flag_full=1" 

End Sub 

Public Sub mnuNave_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Concordances/NavesTopicalBible/" 

End Sub 

Public Sub mnuNTP_Click() 

frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999. 

01.0155" 

End Sub 

Public Sub mnuOlive_Click() 

frmBrowser.cboAddress.Text = "http://www.olivetree.com/cgi-bin/EnglishBible.htm" 

End Sub 

Public Sub mnuOT_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Lexicons/Hebrew/" 

End Sub 

Private Sub mnuLG_Click()

frmBible - 37 


frmBrowser.cboAddress.Text = "http://colet.uchicago.edu/cgi-bin/Estienne.sh?WORD=" & mot 

frmBrowser.Caption = "Robert Estienne - Dictionarium Latinogallicum" 

End Sub 

Private Sub mnuLouwNida_Click() 

Dim adresse$ 

adresse = "http://www.laparola.net/greco/louwnida.php" 



End Sub 

Private Sub mnuLS_Click() 



.0059:entry=" & mot 

' 

End Sub 

Private Sub mnuMem_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuMu_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuNu_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Private Sub mnuNun_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuNuttall_Click() 


frmDictionnaires.cboEncyclo.Text = "Nuttall" 


End Sub 

Public Sub mnuOLBheb_Click() 

'Load frmPDF 

'frmPDF.pdfmain.LoadFile (App.Path & "\ref\OLB.pdf") 

'frmPDF.Caption = "Online Bible Hebrew-English Lexicon [Enhanced Strong]" 

'frmPDF.Show 

End Sub 

Public Sub mnuOmega_Click() 

Load frmPDF 




frmPDF.Show

frmBible - 38 

End Sub 

Public Sub mnuOmicronn_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Private Sub mnuPé_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Private Sub mnuPerseusVulgate_Click() 


frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/hopper/morph.jsp?l=" & mot & "&la=la" 

End Sub 

Public Sub mnuPhi_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuPi_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuPsi_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Private Sub mnuQof_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuQuit_Click() 



End 

End Sub 

Public Sub mnuRemoveEnglish_Click() 

mnuAddEnglish.Checked = False 

mnuRemoveEnglish.Checked = True 



cboVersion.AddItem ("LXX")

frmBible - 39 












cboVersion.Text = "BHS" 

End Sub 

Public Sub mnuRJ_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Dictionaries/KingJamesDictionary/" 

End Sub 

Private Sub mnuRech_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuRecherche_Click() 

'Dim i 

'i = toto 

'msg toto 

End Sub 

Private Sub mnuRechercheMorphoC_Click() 

Dim mot$, vientde$, code$ 


Call MorphContextuelle(mot, code, vientde) 

Unload frmAnalyseMorphologique 

Load frmAssistant 

frmAssistant.txtMot.Text = mot 

frmAssistant.txtcode.Text = code 

frmAssistant.txtRecherche.Text = vientde 

'frmAssistant.Command2_Click 

recherche = vientde & " (" & code & ")" 



frmAssistant.lstPassages.Text = frmAssistant.lstPassages.List(0) 

frmAssistant.lstPassages_Click 

frmAssistant.Show 

End Sub 

Public Sub mnuRho_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Private Sub mnuRosetta_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\Dicoheb\ROS.pdf") 


frmPDF.Caption = "The Rosetta Stone Hebrew Lexicon" 

frmPDF.Show 

End Sub 

'MsgBox clique 

'End Sub 

Public Sub mnuRWP_Click()

frmBible - 40 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/RobertsonsWordPictures/" 

' 

End Sub 

Public Sub mnuRWP2_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/RobertsonsWordPictures/" 

End Sub 

Public Sub mnuScofield_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/ScofieldReferenceNotes/" 

End Sub 

Public Sub mnuSDd_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Dictionaries/SmithsBibleDictionary/" 

End Sub 

Private Sub mnuSamek_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Private Sub mnuSE_Click() 

frmBrowser.cboAddress.Text = "http://www.ccel.org/s/schaff/encyc/encyc13/htm/TOC.htm" 

'New Schaff-Herzog Encyclopedia of Religious Knowledge 

End Sub 

Public Sub mnuSigma_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Private Sub mnuSin_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuSmithGG_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\smith\smith.pdf") 

frmPDF.Caption = "Smith - Greek Grammar" 

frmPDF.Show 

End Sub 

Public Sub MnuSortieVocale_Click() 

' ACCENT français ou anglais ? 

'If frmBible.cboVersion.Text = "LSG" Or _ 

'frmBible.cboVersion.Text = "NBS" Or _ 

'frmBible.cboVersion.Text = "Darby" Then 


'ElseIf frmBible.cboVersion.Text = "ASV" Or _ 

'frmBible.cboVersion.Text = "KJV" Or _ 

'frmBible.cboVersion.Text = "YLT" Or _ 

'frmBible.cboVersion.Text = "WEB" Or _ 

'frmBible.cboVersion.Text = "BBE" Or _ 

'frmBible.cboVersion.Text = "DR" Or _ 

'frmBible.cboVersion.Text = "WBST" Then 

'robby.LanguageID = &H809 

'ElseIf frmBible.cboVersion.Text = "Vulgate" Then 

' robby.Think ("Désolé, je ne parle par latin !") 

' Exit Sub 

'Else 

' robby.Think ("Désolé, je ne parle pas grec !")

frmBible - 41 

' Exit Sub 

'End If 

' prononciation & gestion erreur 

'If frmBible.txtPassage.Text "" Then 

'robby.Play ("Explain") 

'robby.Speak frmBible.txtPassage.Text 

'Else 

'robby.Play ("Sad") 

'robby.Think ("Il n'y a rien à prononcer !") 

'End If 

End Sub 

Public Sub mnuStrong_Click() 


End Sub 

Public Sub mnuThayer_Click() 


End Sub 

Public Sub mnuTLF_Click() 

frmBrowser.cboAddress.Text = "http://www.lib.uchicago.edu/efts/ARTFL/projects/dicos/TLF-NICOT/searc 

h.form.html" 

End Sub 

Public Sub mnuTOB_Click() 

frmBrowser.cboAddress.Text = "http://www.tradere.com/biblio/tob/index.htm" 

End Sub 

Public Sub mnuTorrey_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Concordances/TorreysTopicalTextbook/" 

End Sub 

Public Sub mnuTSK_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Concordances/TreasuryofScriptureKnowledge/ 

" 

End Sub 

Public Sub mnuUnbound_Click() 

'frmBrowser.cboAddress.Text = "http://www.unboundbible.org/greek_search/index.cfm?lang=french" 

End Sub 

Private Sub mnuSouter_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\Dicogr\Souter.pdf") 

frmPDF.Caption = "A. Souter - A Pocket Lexicon to the Greek New Testament" 

frmPDF.Show 

End Sub 

Private Sub mnuStrongD_Click() 


Call LireStrongNEG(mot) 

End Sub 

Public Sub mnuTau_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Private Sub mnuTaw_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\bdb.pdf")

frmBible - 42 



frmPDF.Show 

End Sub 

Private Sub mnuTDNT_Click() 

Dim adresse$ 

adresse = App.Path & "\ref\kittel\main.htm" 



End Sub 

Private Sub mnuThayerC_Click() 


Call LireStrongC(mot) 

If Mid(mot, 1, 1) = "0" Then 

mot = Mid(mot, 2, Len(mot)) 

End If 


frmBrowser.cboAddress.Text = "http://www.blueletterbible.org/cgi-bin/words.pl?Strong=" & mot & "&pa 

ge=1&flag_full=1" 

'http://www.blueletterbible.org/cgi-bin/words.pl?Strong=4228&page=1&flag_full=1 


End Sub 

Public Sub mnuThet_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuTheta_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Private Sub mnuTMN_Click() 

frmBrowser.cboAddress.Text = "http://www.areopage.net/traducnt.htm#versions" 

End Sub 

Private Sub mnuToto_Click() 


.0052" 

End Sub 

Private Sub mnuTsadé_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Private Sub mnuTWOT_Click() 

Dim adresse$ 

adresse = App.Path & "\ref\twot\main.htm" 



End Sub 

Private Sub mnuUnlock_Click() 

Dim pw$ 

Dim fichier$ 

Dim ofile%, msg$

frmBible - 43 

ofile = FreeFile 

fichier = App.Path & "\tools\bp.ini" 

pw = InputBox("Saisissez le mot de passe (respecter la casse)." & vbCrLf & "Nota: pour obtenir le m 

ot de passe, contact: didier@areopage.net [objet : PW-BP]." & vbCrLf & "En envoyant un mail blanc ( 

ou avec un message sympa!) avec cet objet, vous certifiez posséder les versions papier des document 

s suivants : TWOT, TDNT, NEG, NBS, JER, TOB, BFC, NET, Abel, Auvray, et considérez les modules du p 

résent logiciel comme vos copies de sauvegarde personnelles (reproduction et diffusion interdites). 

", "Débloquer les Bibles...") 

If pw = "nbs" Then 

debloque = True 

Open fichier For Output As #ofile 

Print #ofile, "NBS" 

Close 

msg = MsgBox("Débloquage effectué !", vbInformation) 

mnuGingrich.Enabled = True 

mnuTWOT.Enabled = True 

mnuTDNT.Enabled = True 

mnuRosetta.Enabled = True 

mnuAuvray.Enabled = True 

mnuAbel.Enabled = True 



'cboVersion.AddItem ("WTM") 

cboVersion.AddItem ("TM") 

cboVersion.AddItem ("SG") 




cboVersion.AddItem ("NA27") 

cboVersion.AddItem ("WH+") 





cboVersion.AddItem ("APF-G") 

cboVersion.AddItem ("APF-F") 




cboVersion.AddItem ("TMN") 


cboVersion.AddItem ("FILLION") 

cboVersion.AddItem ("JER") 

cboVersion.AddItem ("NEG+") 

cboVersion.AddItem ("LSG+") 

cboVersion.AddItem ("CRP") 



cboVersion.AddItem ("TOB") 

cboVersion.AddItem ("BFC") 

cboVersion.AddItem ("MRT") 

'cboVersion.AddItem ("Chouraqui (à faire)") 

cboVersion.AddItem ("OST") 


cboVersion.AddItem ("NET") 

cboVersion.AddItem ("DIAGLOTT") 






cboVersion.AddItem ("JPS") 

End If 

End Sub 



Public Sub mnuUpsilonn_Click() 

Load frmPDF 




frmPDF.Show 

End Sub

frmBible - 44 

Private Sub mnuVincentNT_Click() 

frmBrowser.cboAddress.Text = "http://www.godrules.net/library/vincent/vincent.htm" 

End Sub 

Public Sub mnuVine_Click() 

frmBrowser.cboAddress.Text = "http://www.antioch.com.sg/bible/vines/" 

End Sub 

Public Sub mnuVocMacchi_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\Dicoheb\vocheb.pdf") 

frmPDF.Caption = "Macchi - Vocabulaire d'hébreu biblique [termes apparaissant plus de 70 fois]" 

frmPDF.Show 

End Sub 

Private Sub mnuVoltaire_Click() 

frmBrowser.cboAddress.Text = "http://www.fh-augsburg.de/%7Eharsch/gallica/Chronologie/18siecle/Volt 

aire/vol_dp00.html" 

End Sub 

Private Sub mnuVulZG_Click() 




frmZetoGraphe.cboVersion.Text = "Vulgate" 

frmZetoGraphe.btnRechercher_Click 

End Sub 

Private Sub mnuWace_Click() 



frmDictionnaires.cboEncyclo.Text = "Wace" 

End Sub 

Public Sub mnuWaw_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuwb_Click() 

frmBrowser.cboAddress.Text = "http://www.areopage.net/bp.html" 

End Sub 

Public Sub mnuWesley_Click() 

frmBrowser.cboAddress.Text = "http://bible.crosswalk.com/Commentaries/WesleysExplanatoryNotes/" 

End Sub 

Public Sub mnuWordSearch_Click() 

Dim msg 

msg = InputBox("Saisissez un mot (Nave's Topical, Torrey's Topical, Vine's Dictionary, Easton's Dic 

tionary, Subject Guide, Hitchcock's Dictionary)", "Blue Letter Bible") 

If msg "" Then 


frmBrowser.cboAddress.Text = "http://www.blueletterbible.org/cgi-bin/detailed_words.pl?word=" & 

msg 


End If 

End Sub 

Public Sub mnuWebster_Click() 


frmDictionnaires.cboEncyclo.Text = "Webster" 


End Sub 

Public Sub mnuWilson_Click() 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\wilson\wilson.pdf")

frmBible - 45 

frmPDF.Caption = "Wilson -Analytical Hebrew and Chaldee Lexicon (Paradigms)" 

frmPDF.Show 

End Sub 

Private Sub mnuWiner_Click() 

frmBrowser.cboAddress.Text = "http://books.google.com/books?ie=UTF-8&hl=fr&id=872gnvIsAiMC&pg=PP7&p 

rintsec=2&lpg=PP7" 

End Sub 

Public Sub mnuXi_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuYod_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuZa_Click() 

Load frmPDF 




frmPDF.Show 

End Sub 

Public Sub mnuZetoG_Click() 



mnuZetoG.Checked = True 

'zetographedirect = True 

End Sub 

Private Sub mnuZGC_Click() 




frmZetoGraphe.cboVersion.Text = cboVersion.Text 


End Sub 

Public Sub sortievocale_Click() 

MnuSortieVocale_Click 

End Sub 

Public Sub Timer1_Timer() 








End If 

cboVersion.AddItem ("NT grec ancien") 










cboLivre.AddItem ("Romains")

frmBible - 46 






















End Sub 

Public Sub Timer2_Timer() 

i = 1 

If i < 2 Then btnGo_Click 

i = i + 1 

End Sub 

Public Sub txtChapitre_Change() 

btnGo_Click 

End Sub 

Public Sub txtChapitre_KeyPress(KeyAscii As Integer) 

If KeyAscii = 8 Then Exit Sub 

If KeyAscii < 47 Or KeyAscii > 57 Then 

KeyAscii = 0 

Beep 

End If 

End Sub 

Public Sub txtChapitre_KeyUp(KeyCode As Integer, Shift As Integer) 


End Sub 

Public Sub txtPassage_DblClick() 

'déclarations 

Dim mot$, livre$, valinstr%, motr$, mott$ 


If Right(mot, 1) = "." Then mot = Mid(mot, 1, Len(mot) - 1) 

If Right(mot, 1) = "," Then mot = Mid(mot, 1, Len(mot) - 1) 

If Right(mot, 1) = ";" Then mot = Mid(mot, 1, Len(mot) - 1) 

If Right(mot, 1) = ":" Then mot = Mid(mot, 1, Len(mot) - 1) 

'les versions autres que NA26+ utilisent la fonte Bwgrkn 

If cboVersion.Text "NA26+" Then 

mot = Replace(mot, "", "") 

mot = Replace(mot, "(", "") 

mot = Replace(mot, ")", "") 

End If 

livre = frmBible.cboLivre.Text 

If Right(mot, 1) = "." Or Right(mot, 1) = "," Or Right(mot, 1) = ";" Or Right(mot, 1) = ":" Or 

Right(mot, 1) = "?" Or Right(mot, 1) = "!" Then 

mot = Mid(mot, 1, Len(mot) - 1) 

End If 

If cboVersion.Text = "LSG" Then 

Load frmZetoGraphe

frmBible - 47 


frmZetoGraphe.cboVersion.Text = "LSG" 


Exit Sub 

End If 

If cboVersion.Text = "Darby" Then 



frmZetoGraphe.cboVersion.Text = "Darby" 


Exit Sub 

End If 

If cboVersion.Text = "APF-G" Then 

Call RechercheMorphAPFG(mot) 

Exit Sub 

End If 

If cboVersion.Text = "TOB" Then 



frmZetoGraphe.cboVersion.Text = "TOB" 


Exit Sub 

End If 

If cboVersion.Text = "BFC" Then 



frmZetoGraphe.cboVersion.Text = "BFC" 


Exit Sub 

End If 

If cboVersion.Text = "LSG & Strong" Then 


btnGo_Click 

Call LireStrongLSG2(mot) 

Exit Sub 

End If 

If cboVersion.Text = "JER" Then 



frmZetoGraphe.cboVersion.Text = "JER" 


Exit Sub 

End If 

If cboVersion.Text = "Flavius Josèphe" Then 



frmZetoGraphe.cboVersion.Text = "Flavius Josèphe" 


Exit Sub 

End If 

If cboVersion.Text = "BHS" Then 



Call LireWTM(livre, chapitre, verset, mot) 

'Load frmZetoGraphe 

'frmZetoGraphe.txtRecherche.Text = mot 

'frmZetoGraphe.cboVersion.Text = "BHS" 

'frmZetoGraphe.Show 

'Exit Sub 

End If 

If cboVersion.Text = "WH+" Then 



frmZetoGraphe.cboVersion.Text = "WH+" 


Exit Sub

frmBible - 48 

End If 

If cboVersion.Text = "Tischendorf+" Then 



frmZetoGraphe.cboVersion.Text = "Tischendorf+" 


Exit Sub 

End If 


Call MorphNA27Plus(mot) 

Exit Sub 

End If 


Call MorphLXX(mot) 

Exit Sub 

End If 

If cboVersion.Text = "BHS+" Then 


frmBible.btnGo_Click 

Call StrongBHSPlus(mot) 

Exit Sub 

End If 

If cboVersion.Text = "BHS" Or _ 

cboVersion.Text = "NBS" Or _ 

cboVersion.Text = "BFC" Or _ 

cboVersion.Text = "Stephanus" Or _ 

cboVersion.Text = "MRT" Or _ 

cboVersion.Text = "CRP" Or _ 

cboVersion.Text = "OST" Or _ 

cboVersion.Text = "SG" Or _ 

cboVersion.Text = "Scrivener" Then 

Exit Sub 

End If 

'VULGATE 

If cboVersion.Text = "Vulgate" Then 

' Load frmBrowser 

' frmBrowser.cboAddress.Text = "http://collatinus.fltr.ucl.ac.be/jcoll.php?forme=m:" & mot 

' frmBrowser.WindowState = 0 

' frmBrowser.Show 



frmDicoLatFr.Text1.Text = mot 

frmDicoLatFr.btnGo_Click 

Exit Sub 

End If 

'j'appelle la fonction désignée 

Call DoubleCliqueMP(mot, livre) 

End Sub 

Public Sub txtPassage_KeyUp(KeyCode As Integer, Shift As Integer) 

If KeyCode = 13 Then 

btnGo_Click 

ElseIf KeyCode = vbKeyEscape Then 

End 

Unload Me 

End If 

End Sub 

Public Sub txtPassage_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

frmBible - 49 


If Button = vbRightButton And cboVersion.Text = "NA27" Then 

txtPassage.Enabled = False 

txtPassage.Enabled = True 

If InStr(1, mot, " ") 0 Then 

mnuLemme.Enabled = False 

PopupMenu mnuRecherche, vbPopupMenuLeftAlign 

Else 

mnuLemme.Enabled = True 


End If 

ElseIf Button = vbRightButton And cboVersion.Text = "LXX" Then 

mnuCatenaRC.Visible = False 

mnuApparatus.Visible = False 

mnuApparatCritique.Visible = False 



If InStr(1, mot, " ") 0 Then 

mnuLemme.Enabled = False 


Else 

mnuLemme.Enabled = True 


End If 

ElseIf Button = vbRightButton And cboVersion.Text = "NET" Or _ 

frmBible.cboVersion.Text = "ASV" And Button = vbRightButton Or _ 

frmBible.cboVersion.Text = "KJV" And Button = vbRightButton Or _ 

frmBible.cboVersion.Text = "YLT" And Button = vbRightButton Or _ 

frmBible.cboVersion.Text = "WEB" And Button = vbRightButton Or _ 

frmBible.cboVersion.Text = "BBE" And Button = vbRightButton Or _ 

frmBible.cboVersion.Text = "JPS" And Button = vbRightButton Or _ 

frmBible.cboVersion.Text = "DR" And Button = vbRightButton Or _ 

frmBible.cboVersion.Text = "NET" And Button = vbRightButton Or _ 

frmBible.cboVersion.Text = "DIAGLOTT" And Button = vbRightButton Or _ 

frmBible.cboVersion.Text = "ANF" And Button = vbRightButton Or _ 

frmBible.cboVersion.Text = "APF-G" And Button = vbRightButton Or _ 

frmBible.cboVersion.Text = "APF-E" And Button = vbRightButton Or _ 

frmBible.cboVersion.Text = "Lightfoot" And Button = vbRightButton Or _ 

frmBible.cboVersion.Text = "Flavius Josèphe - En" And Button = vbRightButton Or _ 

frmBible.cboVersion.Text = "WBST" And Button = vbRightButton Then 



If InStr(1, mot, " ") 0 Then mot = Trim(mot) 

PopupMenu mnuDicoC, vbPopupMenuLeftAlign 

ElseIf Button = vbRightButton And cboVersion.Text = "Vulgate" Then 



PopupMenu mnuVulgate, vbPopupMenuLeftAlign 

ElseIf Button = vbRightButton And cboVersion.Text = "APF-G" Then 

mnuCatenaRC.Visible = False 

mnuApparatus.Visible = False 



mnuRechercheMorphoC.Visible = False 

mnuLemme.Visible = False 

mnuApparatCritique.Visible = False 

If InStr(1, mot, " ") 0 Then mot = Trim(mot) 


ElseIf Button = vbRightButton And cboVersion.Text = "LSG+" Then 


txtPassage.Enabled = True

frmBible - 50 

End If 

End Sub 

PopupMenu mnuLexiquesC, vbPopupMenuLeftAlign 

Public Sub txtverset_Change() 

btnGo_Click 

End Sub 

Public Sub txtverset_KeyPress(KeyAscii As Integer) 

If KeyAscii = 8 Then Exit Sub 


KeyAscii = 0 

Beep 

End If 

End Sub 

Public Sub txtverset_KeyUp(KeyCode As Integer, Shift As Integer) 


btnGo_Click 


End 

Unload Me 

End If 

End Sub

frmBible - 1 

VERSION 5.00 

Begin VB.Form frmBible 


Caption = "Bible Parser 2006" 





Icon = (Icon) 


MousePointer = 1 'Arrow 





Begin VB.TextBox txtPassage 

Height = 1815 

Left = 360 



TabIndex = 32 

Top = 2640 

Width = 6135 

End 

Begin VB.CheckBox chkSysTray 

Caption = "chkSysTray" 

Height = 375 

Left = 120 

TabIndex = 31 

Top = 600 

Value = 1 'Checked 


Width = 1335 

End 


Left = 0 

Top = 4080 

End 

Begin VB.CommandButton btnQuitter 


Caption = "&Fermer" 

Height = 375 

Left = 6240 

TabIndex = 27 

Top = 4560 

Width = 855 

End 

Begin VB.CommandButton btnFermer 

Height = 255 

Left = 0 

TabIndex = 24 

Top = 4800 


Width = 255 

End 

Begin VB.PictureBox sortievocale 


BorderStyle = 0 'None 

Height = 255 

Left = 6480 

MouseIcon = (Icon) 

MousePointer = 4 'Icon 




TabIndex = 23 

ToolTipText = "Lire le passage" 

Top = 1800 


Width = 255 

End 

Begin VB.OptionButton optstrongfr 


Height = 255 

Left = 4440 

TabIndex = 21

frmBible - 2 

Top = 4800 


Width = 255 

End 


Left = 6720 

Top = 3960 

End 

Begin VB.Frame framOutils 



Height = 375 

Left = 360 

TabIndex = 19 

Top = 4680 


Width = 1575 

Begin VB.CheckBox chkConcordance 

Caption = "Cliquez ici pour activer l'option Concordance au double-click" 

Enabled = 0 'False 

Height = 255 

Left = 120 

TabIndex = 28 

Top = 120 

Width = 255 

End 

Begin VB.Label lblConcordance 


Caption = "&Concordance" 




Size = 8.25 

Charset = 0 

Weight = 700 




EndProperty 


Height = 255 

Left = 360 

TabIndex = 20 

ToolTipText = "Dictionnaire et analyseur de Bible Parser, rapide et concis." 

Top = 120 


Width = 1215 

End 

End 

Begin VB.OptionButton chkthayer 


Caption = "Option2" 

Height = 255 

Left = 3840 

TabIndex = 6 

Top = 2160 


Width = 255 

End 

Begin VB.OptionButton chkstrong 



Height = 255 

Left = 2880 

TabIndex = 5 

Top = 2160 

Value = -1 'True 


Width = 255 

End 

Begin VB.TextBox lbltampon 

Height = 375 

Left = 120 

TabIndex = 16 

Top = 120 

Visible = 0 'False

frmBible - 3 

Width = 975 

End 


Height = 1335 

Left = 5160 




TabIndex = 15 

Top = 120 

Width = 1695 

End 


Caption = "&Ok" 

DisabledPicture = (Icon) 

Height = 495 

Left = 6600 


TabIndex = 13 

Top = 3240 


Width = 735 

End 

Begin VB.ComboBox cboVersion 

Height = 315 

Left = 240 

TabIndex = 0 

Text = "Version" 

Top = 1080 

Width = 2295 

End 




Height = 375 

Left = 5160 

TabIndex = 4 

Top = 1680 

Width = 1215 

End 

Begin VB.TextBox txtverset 


Height = 285 

Left = 3960 

TabIndex = 3 

Top = 1560 

Width = 975 

End 

Begin VB.TextBox txtChapitre 


Height = 285 

Left = 2880 

TabIndex = 2 

Top = 1560 

Width = 975 

End 

Begin VB.ComboBox cboLivre 

Height = 315 

Left = 240 

TabIndex = 1 

Text = "Livre" 

Top = 1560 

Width = 2295 

End 




Caption = "-" 



Size = 12 

Charset = 0 

Weight = 700 



Strikethrough = 0 'False

frmBible - 4 

EndProperty 

Height = 255 

Left = 6480 

TabIndex = 30 

ToolTipText = "Réduire le texte d'une taille" 

Top = 3000 

Width = 255 

End 




Caption = "+" 



Size = 12 

Charset = 0 

Weight = 700 




EndProperty 

Height = 255 

Left = 6480 

TabIndex = 29 

ToolTipText = "Agrandir le texte d'une taille" 

Top = 2760 

Width = 255 

End 



Height = 615 

Left = 6360 

TabIndex = 26 

ToolTipText = "Quitter Bible Parser" 

Top = 4560 

Width = 735 

End 



Height = 615 

Left = 6600 

TabIndex = 25 

ToolTipText = "Robertson's Word Pictures in the New Testament" 

Top = 2640 

Width = 495 

End 

Begin VB.Label lblstrongfr 


Caption = "Strong fr (Internet)" 



Size = 8.25 

Charset = 0 

Weight = 400 


Italic = -1 'True 


EndProperty 

Height = 255 

Left = 4680 

TabIndex = 22 

Top = 4800 


Width = 1455 

End 

Begin VB.Label lblthayer 


Caption = "Thayer" 

Height = 255 

Left = 4080 

TabIndex = 18 

ToolTipText = "Thayer's Greek Lexicon with Strongs" 

Top = 2160 


Width = 615 

End

frmBible - 5 

Begin VB.Label lblstrong 


Caption = "Strong" 

Height = 255 

Left = 3120 

TabIndex = 17 

ToolTipText = "Stong's Exhaustive Concordance" 

Top = 2160 


Width = 615 

End 



Height = 375 

Left = 2640 

TabIndex = 14 

Top = 600 

Width = 1335 

End 

Begin VB.Label lblsuivant 


Caption = ">" 



Size = 18 

Charset = 0 

Weight = 700 




EndProperty 

Height = 375 

Left = 6240 

TabIndex = 12 


Top = 2280 

Width = 375 

End 

Begin VB.Label lblprecedent 


Caption = "

frmBible - 6 


Caption = "verset" 

Height = 255 

Left = 3960 

TabIndex = 9 

Top = 1920 

Width = 975 

End 



Caption = "chapitre" 

Height = 255 

Left = 2880 

TabIndex = 8 

Top = 1920 

Width = 975 

End 




Caption = "Bible Parser 2006" 


Name = "Georgia" 

Size = 20.25 

Charset = 0 

Weight = 400 




EndProperty 

Height = 495 

Left = 1320 

TabIndex = 7 

Top = 120 

Width = 3615 

End 

Begin VB.Menu mnuFichier 

Caption = "Fichier" 

Begin VB.Menu mnuAutomatos 

Caption = "Ouvrir Verse Parser" 

Shortcut = {F7} 

End 

Begin VB.Menu mnuUnlock 

Caption = "Débloquer modules..." 


End 

Begin VB.Menu mnuZetoG 

Caption = "Concordance" 

Checked = -1 'True 

Shortcut = ^Z 

End 

Begin VB.Menu MnuSortieVocale 

Caption = "Sortie vocale" 



End 

Begin VB.Menu mnuQuit 

Caption = "Quitter" 

Shortcut = ^{F4} 

End 

Begin VB.Menu mnuBHSLXX 

Caption = "BHSLXX" 


End 

End 

Begin VB.Menu mnuLexique 

Caption = "Dictionnaires" 

Begin VB.Menu mnuBailly 

Caption = "Abrégé du Dictionnaire Grec - Français A. Bailly" 

Begin VB.Menu mnuBaillyTout 

Caption = "Bailly [tout]" 

End 

Begin VB.Menu mnuAlpha 

Caption = "Alpha" 

End 

Begin VB.Menu mnuBeta

frmBible - 7 

Caption = "Bêta" 

End 

Begin VB.Menu mnuGamma 

Caption = "Gamma" 

End 

Begin VB.Menu mnuDelta 

Caption = "Delta" 

End 

Begin VB.Menu mnuEpsilonn 

Caption = "Epsilonn" 

End 

Begin VB.Menu mnuDzeta 

Caption = "Dzêta" 

End 

Begin VB.Menu mnuEta 

Caption = "Eta" 

End 

Begin VB.Menu mnuTheta 

Caption = "Thêta" 

End 

Begin VB.Menu mnuIota 

Caption = "Iota" 

End 

Begin VB.Menu mnuKappa 

Caption = "Kappa" 

End 

Begin VB.Menu mnuLambda 

Caption = "Lambda" 

End 

Begin VB.Menu mnuMu 

Caption = "Mu" 

End 

Begin VB.Menu mnuNu 

Caption = "Nu" 

End 

Begin VB.Menu mnuXi 

Caption = "Xi" 

End 

Begin VB.Menu mnuOmicronn 

Caption = "Omicronn" 

End 

Begin VB.Menu mnuPi 

Caption = "Pi" 

End 

Begin VB.Menu mnuRho 

Caption = "Rhô" 

End 

Begin VB.Menu mnuSigma 

Caption = "Sigma" 

End 

Begin VB.Menu mnuTau 

Caption = "Tau" 

End 

Begin VB.Menu mnuUpsilonn 

Caption = "Upsilonn" 

End 

Begin VB.Menu mnuPhi 

Caption = "Phi" 

End 

Begin VB.Menu mnuKhi 

Caption = "Khi" 

End 

Begin VB.Menu mnuPsi 

Caption = "Psi" 

End 

Begin VB.Menu mnuOmega 

Caption = "Omêga" 

End 

End 

Begin VB.Menu mnuCAF 

Caption = "Crouzet/Andraud/Font - Dictionnaire grec-français" 

End 

Begin VB.Menu mnuSouter 

Caption = "Souter - A Pocket Lexicon to the Greek New Testament" 

End 

Begin VB.Menu mnuLouwNida

frmBible - 8 

Caption = "Louw-Nida Greek-English Lexicon of the NT Based on Semantic Domains*" 

End 

Begin VB.Menu mnuGingrich 

Caption = "Gingrich/Danker - Greek-English Lexicon NT And Other Literature" 


End 

Begin VB.Menu mnuTDNT 

Caption = "Kittel/Friedrich - Theological Dictionary of the New Testament" 


End 

Begin VB.Menu mnuAntiquites 

Caption = "Paris/Roques - Lexique des Antiquités grecques et latines" 

End 

Begin VB.Menu mnuTiretDico 

Caption = "-" 

End 

Begin VB.Menu mnuDicoST 

Caption = "Dictionnaire hébreu-français Sander-Trenel" 

End 

Begin VB.Menu mnuJastrow 

Caption = "Jastrow - Dictionary of the Targumim" 

End 

Begin VB.Menu mnuHebrewChaldee 

Caption = "Gesenius' Hebrew-Chaldee Lexicon to the Old Testament*" 

End 

Begin VB.Menu mnuGeseniusLexicon 

Caption = "Gesenius - Lexicon Manuale Hebraicum [heb/lat]" 

End 

Begin VB.Menu mnuTWOT 

Caption = "Theological Wordbook of the Old Testament" 


End 

Begin VB.Menu mnuABDB 

Caption = "Abridged Brown-Driver-Briggs" 

Begin VB.Menu mnuBDBT 

Caption = "BDB [tout]" 

End 

Begin VB.Menu mnuA 

Caption = "Aleph" 

End 

Begin VB.Menu mnuBeth 

Caption = "Beth" 

End 

Begin VB.Menu mnuGim 

Caption = "Gimel" 

End 

Begin VB.Menu mnuDalet 

Caption = "Daleth" 

End 

Begin VB.Menu mnuHE 

Caption = "Hé" 

End 

Begin VB.Menu mnuWaw 

Caption = "Wav" 

End 

Begin VB.Menu mnuZa 

Caption = "Zayin" 

End 

Begin VB.Menu mnuHeth 

Caption = "Heth" 

End 

Begin VB.Menu mnuThet 

Caption = "Thet" 

End 

Begin VB.Menu mnuYod 

Caption = "Yod" 

End 

Begin VB.Menu mnuKaf 

Caption = "Kaf" 

End 

Begin VB.Menu mnuLamed 

Caption = "Lamed" 

End 

Begin VB.Menu mnuMem 

Caption = "Mem" 

End

frmBible - 9 

Begin VB.Menu mnuNun 

Caption = "Nun" 

End 

Begin VB.Menu mnuSamek 

Caption = "Samek" 

End 

Begin VB.Menu mnuAyin 

Caption = "Ayin" 

End 

Begin VB.Menu mnuPé 

Caption = "Pé" 

End 

Begin VB.Menu mnuTsadé 

Caption = "Tsadé" 

End 

Begin VB.Menu mnuQof 

Caption = "Qof" 

End 

Begin VB.Menu mnuRech 

Caption = "Rech" 

End 

Begin VB.Menu mnuSin 

Caption = "Sin/Schin" 

End 

Begin VB.Menu mnuTaw 

Caption = "Taw" 

End 

End 

Begin VB.Menu mnuRosetta 

Caption = "The Rosetta Stone Hebrew Lexicon" 


End 

Begin VB.Menu mnuTiretDicoBP 

Caption = "-" 

End 

Begin VB.Menu mnuLexiqueHebFr 

Caption = "Bible Parser - Dictionnaire hébreu / français" 

Shortcut = ^H 

End 

Begin VB.Menu mnuLexiqueNT 

Caption = "Bible Parser - Dictionnaire grec / français" 

Shortcut = ^G 

End 

Begin VB.Menu mnuDicoLat 

Caption = "Bible Parser - Dictionnaire latin / français" 

Shortcut = ^L 

End 

Begin VB.Menu mnuB4 

Caption = "-" 

End 

Begin VB.Menu mnugrechebreu 

Caption = "Lexique grec/hébreu" 

End 

Begin VB.Menu mnuLexHG 

Caption = "Lexique hébreu/grec" 

End 

End 

Begin VB.Menu mnuDictionnaires 

Caption = "Références" 

Begin VB.Menu mnuDicEaston 

Caption = "Easton" 

Shortcut = Ê 

End 

Begin VB.Menu mnuDictSmith 

Caption = "Smith" 

Shortcut = ^V 

End 

Begin VB.Menu mnuIBE 

Caption = "ISBE" 

Shortcut = Î 

End 

Begin VB.Menu mnuATSBD 

Caption = "ATSBD" 

Shortcut = Â 

End 

Begin VB.Menu mnuNuttall

frmBible - 10 

Caption = "Nuttall" 

Shortcut = ^N 

End 

Begin VB.Menu mnuWebster 

Caption = "Webster" 

Shortcut = ^W 

End 

Begin VB.Menu mnuHitch 

Caption = "Hitchkcok" 

Shortcut = ^J 

End 

Begin VB.Menu mnuWace 

Caption = "Wace" 


End 

Begin VB.Menu mnuSepXcvb 

Caption = "-" 

End 

Begin VB.Menu mnuVine 

Caption = "Vine's Expository Dictionary*" 

End 

Begin VB.Menu mnuVincentNT 

Caption = "Vincent NT Word Studies*" 

End 

Begin VB.Menu mnuHolman 

Caption = "Holman Bible Dictionary*" 

End 

Begin VB.Menu mnuRWP 

Caption = "Robertson's Word Pictures*" 

End 

Begin VB.Menu mnuRefEncy 

Caption = "Références encyclopédiques" 

Begin VB.Menu mnuEB1911 

Caption = "Encyclopedia Britannica 1911*" 

End 

Begin VB.Menu mnuCE 

Caption = "The Catholic Encyclopedia*" 

End 

Begin VB.Menu mnuJE 

Caption = "The Jewish Encyclopedia*" 

End 

Begin VB.Menu mnuSE 

Caption = "New Schaff-Herzog Encyclopedia of Religious Knowledge*" 

End 

Begin VB.Menu mnuEBCB 

Caption = "Encyclopedia Biblica [Cheyne/Black]*" 

End 

Begin VB.Menu mnuVoltaire 

Caption = "Dictionnaire philosophique portatif [Voltaire]*" 

End 

End 

Begin VB.Menu mnuAutres 

Caption = "Autres versions bibliques" 

Begin VB.Menu mnuTMN 

Caption = "TMN, FILLION, JER, TOB, SEM, NET, etc." 

End 

End 

End 

Begin VB.Menu mnuGrammaires 

Caption = "Grammaires" 

Begin VB.Menu mnuAG 

Caption = "Aide grammaticale" 

End 

Begin VB.Menu mnuHebreu 

Caption = "-" 

End 

Begin VB.Menu mnuAuvray 

Caption = "Auvray - Initiation à l'hébreu biblique" 

End 

Begin VB.Menu mnuGesenius 

Caption = "Gesenius - Hebrew Grammar" 

End 

Begin VB.Menu mnuCellerier 

Caption = "Cellerier - Elemens de grammaire hébraïque" 

End 

Begin VB.Menu mnuWilson

frmBible - 11 

Caption = "Wilson - Analytical Heb. & Ch. Lexicon Paradigms" 

End 

Begin VB.Menu mnuVocMacchi 

Caption = "Macchi - Vocabulaire d'hébreu biblique" 

End 

Begin VB.Menu mnuGrec 

Caption = "-" 

End 

Begin VB.Menu mnuBoxus 

Caption = "Boxus - Précis de grammaire grecque" 

End 

Begin VB.Menu mnuAbel 

Caption = "Abel - Grammaire du grec biblique" 

End 

Begin VB.Menu mnuBurnouf 

Caption = "Burnouf - Grammaire grecque" 

End 

Begin VB.Menu mnuGG 

Caption = "Wallace / Mounce Compilation" 

End 

Begin VB.Menu mnuSmithGG 

Caption = "Smith - Greek Grammar" 

End 

Begin VB.Menu mnuGoodwinG 

Caption = "Goodwin - Greek Grammar" 

End 

Begin VB.Menu mnuGoodwinS 

Caption = "Goodwin - Syntax Moods/Tenses Greek Verb" 

End 

Begin VB.Menu mnuBurton2 

Caption = "Burton - Moods/Tenses of New Testament Greek" 

End 

Begin VB.Menu mnuConybeare 

Caption = "Conybeare - A Grammar of Septuagint Greek" 

End 

Begin VB.Menu mnuEulalie 

Caption = "Reinach - Eulalie, le grec sans larmes" 

End 

Begin VB.Menu mnuWiner 

Caption = "G.B.Winer - A Grammar of the New Testament Diction*" 

End 

Begin VB.Menu mnuGildersleeve 

Caption = "B.L.Gildersleeve - Syntax of Classical Greek*" 

End 

Begin VB.Menu mnuJRCox 

Caption = "J. R-Cox- Overview of Greek Syntax*" 

End 

Begin VB.Menu mnuDavis 

Caption = "W.H.Davis - Beginner's Grammar of the Greek New Testament *" 

End 

End 

Begin VB.Menu mnuAbout 

Caption = "?" 

Begin VB.Menu mnuwb 

Caption = "Mise à jour Bible Parser..." 

End 

Begin VB.Menu mnuSeptt 

Caption = "-" 

End 

Begin VB.Menu mnuBP 

Caption = "A propos de Bible Parser" 


End 

Begin VB.Menu mnuRecherche 

Caption = "Recherche" 


Begin VB.Menu mnuFormeExacte 

Caption = "Recherche forme exacte" 

End 

Begin VB.Menu mnuLemme 

Caption = "Recherche toutes les formes" 

End 

Begin VB.Menu mnuRechercheMorphoC 

Caption = "Recherche morphologique" 

End 

Begin VB.Menu mnuApparatCritique

frmBible - 12 

Caption = "Greek New Testament Textual Apparatus*" 

End 

Begin VB.Menu mnuApparatus 

Caption = "Apparat critique : Terry/Marlowe/Willker" 


End 

Begin VB.Menu mnuCatenaRC 

Caption = "e-Catena : allusions à ce verset chez les Pères*" 

End 

End 

Begin VB.Menu mnuLexiquesC 

Caption = "LexiquesContextuels" 


Begin VB.Menu mnuStrongD 

Caption = "Strong - Greek and Hebrew Dictionaries" 

End 

Begin VB.Menu mnuThayerC 

Caption = "Thayer - Greek/English Lexicon of the NT*" 

End 

Begin VB.Menu mnuGesHC 

Caption = "Gesenius - Hebrew and Chaldee Lexicon...*" 

End 

End 

Begin VB.Menu mnuDicoC 

Caption = "DictionnairesC" 


Begin VB.Menu mnuZGC 

Caption = "ZetoGraphê" 

End 

Begin VB.Menu mnuDictionnairesC 

Caption = "Dictionnaires" 

End 

Begin VB.Menu mnuLexiConc 

Caption = "English to Hebrew/Greek*" 

End 

End 

Begin VB.Menu mnuVulgate 

Caption = "Vulgate" 


Begin VB.Menu mnuVulZG 

Caption = "ZetôGraphê" 

End 

Begin VB.Menu mnuDicoLatC 

Caption = "Dictionnaire latin/français" 

End 

Begin VB.Menu mnuJO 

Caption = "Jeanneau/Ouvrard : morphologie + dictionnaire*" 

End 

Begin VB.Menu mnuPerseusVulgate 

Caption = "Perseus : analyse morphologique*" 

End 

Begin VB.Menu mnuLS 

Caption = "Lewis/Short : Latin/English Dictionary*" 

End 

Begin VB.Menu mnuLG 

Caption = "R. Estienne - Dictionarium Latinogallicum*" 

End 

End 

End 

End

Bible Parser 2006 

chapitre verset 

< 

Strong Thayer 

> 

Concordance 

Strong fr (Internet) 

+ 

-

frmBrowser - 1 

Option Explicit 

ublic StartingAddress As String 

im mbDontNavigateNow As Boolean 

rivate Sub cboAddress_Change() 

If mbDontNavigateNow Then Exit Sub 

timTimer.Enabled = True 

brwWebBrowser.Navigate cboAddress.Text 

nd Sub 

rivate Sub Form_Load() 

On Error Resume Next 

Me.Show 

tbToolBar.Refresh 

Form_Resize 

cboAddress.Move 50, lblAddress.Top + lblAddress.Height + 15 

If Len(StartingAddress) > 0 Then 

cboAddress.Text = StartingAddress 

cboAddress.AddItem cboAddress.Text 

' Essaie d'aller vers l'adresse de départ. 


brwWebBrowser.Navigate StartingAddress 

End If 

nd Sub 

rivate Sub brwWebBrowser_DownloadComplete() 


Me.Caption = brwWebBrowser.LocationName 

nd Sub 

rivate Sub brwWebBrowser_NavigateComplete(ByVal URL As String) 

Dim i As Integer 

Dim bFound As Boolean 


For i = 0 To cboAddress.ListCount - 1 

If cboAddress.List(i) = brwWebBrowser.LocationURL Then 

bFound = True 

Exit For 

End If 

Next i 

mbDontNavigateNow = True 

If bFound Then 

cboAddress.RemoveItem i 

End If 

cboAddress.AddItem brwWebBrowser.LocationURL, 0 

cboAddress.ListIndex = 0 

mbDontNavigateNow = False 

nd Sub 

rivate Sub cboAddress_Click() 

If mbDontNavigateNow Then Exit Sub 


brwWebBrowser.Navigate cboAddress.Text 

nd Sub 

rivate Sub cboAddress_KeyPress(KeyAscii As Integer) 


If KeyAscii = vbKeyReturn Then 

cboAddress_Click 

End If 

nd Sub 

rivate Sub Form_Resize() 


cboAddress.Width = Me.ScaleWidth - 100 

brwWebBrowser.Width = Me.ScaleWidth - 100 

brwWebBrowser.Height = Me.ScaleHeight - (picAddress.Top + picAddress.Height) - 100 

nd Sub


Private Sub timTimer_Timer() 

If brwWebBrowser.Busy = False Then 

timTimer.Enabled = False 


Else 

Me.Caption = "Traitement en cours..." 

End If 

End Sub 

Private Sub tbToolBar_ButtonClick(ByVal Button As Button) 


End Sub 


Select Case Button.Key 

Case "Back" 

brwWebBrowser.GoBack 

Case "Forward" 

brwWebBrowser.GoForward 

Case "Refresh" 

brwWebBrowser.Refresh 

Case "Home" 

brwWebBrowser.GoHome 

Case "Search" 

brwWebBrowser.GoSearch 

Case "Stop" 

timTimer.Enabled = False 

brwWebBrowser.Stop 


End Select


VERSION 5.00 

Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.dll" 

Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx" 

egin VB.Form frmBrowser 






LockControls = -1 'True 




WindowState = 2 'Maximized 

Begin ComctlLib.Toolbar tbToolBar 

Align = 1 'Align Top 

Height = 540 

Left = 0 

TabIndex = 3 

Top = 0 

Width = 5790 



ButtonWidth = 820 

ButtonHeight = 794 

Appearance = 1 

ImageList = "imlIcons" 

_Version = 327682 

BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 

NumButtons = 6 

BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 

Key = "Back" 

Object.ToolTipText = "Précédent" 

Object.Tag = "" 

ImageIndex = 1 

EndProperty 


Key = "Forward" 

Object.ToolTipText = "Suivant" 



EndProperty 


Key = "Stop" 

Object.ToolTipText = "Arrêter" 



EndProperty 


Key = "Refresh" 

Object.ToolTipText = "Actualiser" 



EndProperty 


Key = "Home" 

Object.ToolTipText = "Démarrage" 



EndProperty 


Key = "Search" 

Object.ToolTipText = "Rechercher" 



EndProperty 

EndProperty 

End 

Begin SHDocVwCtl.WebBrowser brwWebBrowser 

Height = 3734 

Left = 50 

TabIndex = 0 

Top = 1215 

Width = 5393 

ExtentX = 9525 

ExtentY = 6588


ViewMode = 1 

Offline = 0 

Silent = 0 

RegisterAsBrowser= 0 

RegisterAsDropTarget= 0 

AutoArrange = -1 'True 

NoClientEdge = -1 'True 

AlignLeft = 0 'False 

NoWebView = 0 'False 

HideFileNames = 0 'False 

SingleClick = 0 'False 

SingleSelection = 0 'False 

NoFolders = 0 'False 

Transparent = 0 'False 

ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}" 

Location = "" 

End 

Begin VB.Timer timTimer 


Interval = 5 

Left = 6180 

Top = 1500 

End 

Begin VB.PictureBox picAddress 

Align = 1 'Align Top 


Height = 675 

Left = 0 



TabIndex = 4 

TabStop = 0 'False 

Top = 540 

Width = 5790 

Begin VB.ComboBox cboAddress 

Height = 315 

Left = 30 

TabIndex = 2 

Top = 330 

Width = 5415 

End 

Begin VB.Label lblAddress 

Caption = "&Adresse:" 

Height = 255 

Left = 45 

TabIndex = 1 

Tag = "&Address:" 

Top = 60 

Width = 3075 

End 

End 

Begin ComctlLib.ImageList imlIcons 

Left = 2670 

Top = 2325 



BackColor = -2147483643 

ImageWidth = 24 

ImageHeight = 24 

MaskColor = 12632256 

_Version = 327682 

BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 

NumListImages = 6 

BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 

Picture = {Binary} 

Key = "" 

EndProperty 



Key = "" 

EndProperty 



Key = "" 

EndProperty 

BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}



Key = "" 

EndProperty 



Key = "" 

EndProperty 



Key = "" 

EndProperty 

EndProperty 

End 

End

Adresse:

frmDicoHebreu - 1 

'Private Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _ 

'(ByVal hwndCaller As Long, ByVal pszFile As String, _ 

'ByVal uCommand As Long, ByVal dwData As Long) As Long 

'Dim robby As IAgentCtlCharacterEx 

'Const DATAPATH = "robby.acs" 

Private Sub btnAjouter_Click() 

' au cas où 

Close 

Dim lexique$, lfile, hebreu$, prononciation$, francais$, notes$ 

lexique = App.Path & "\tools\lexiqueheb.dic" 


'définitions des variables 

hebreu = txtHebreu.Text 

prononciation = txtPrononciation.Text 

francais = txtFrancais.Text 

notes = txtNotes.Text 

' attention VB ne gère pas les virgules & les guilleemnts 

francais = Replace(francais, ",", "~", 1, , vbTextCompare) 

notes = Replace(notes, ",", "~", 1, , vbTextCompare) 

notes = Replace(notes, Chr$(51), "'", 1) 

' ouverture du lexique pour écriture 

Open lexique For Append As #lfile 

rite #lfile, hebreu & "1/" & prononciation & "2/" & francais & "3/" & notes 

lose 

tnEffacer_Click 

nd Sub 

rivate Sub btnEscape_Click() 

nload Me 

nd Sub 

rivate Sub btnEffacer_Click() 

xtHebreu.Text = "" 

xtPrononciation.Text = "" 

xtFrancais.Text = "" 

xtNotes.Text = "" 

imer1.Enabled = False 

nd Sub 

rivate Sub btnFermer_Click() 

robby.Hide 0 

nload Me 

nd Sub 

rivate Sub btnGo_Click() 

im hebreu$, prononciation$, francais$, notes$, recherche$, mot$ 

définitions des variables 

ebreu = txtHebreu.Text 

rononciation = txtPrononciation.Text 

rancais = txtFrancais.Text 

otes = txtNotes.Text 

gestion erreurs 

f txtHebreu.Text = "" And _ 

xtFrancais.Text = "" Then 

file = MsgBox("Vous n'avez pas saisi votre recherche !", vbExclamation, "Rechercher un mot") 

xit Sub 

nd If 

Par défaut la recherche est EXACTE 

détermination du mot-clé à chercher dans le lexique 

je cherche un mot HEBREU 

f txtFrancais.Text = "" Then 'And _ 

'txtPrononciation.Text = "" And _ 

'txtNotes.Text = "" Then


recherche = txtHebreu.Text 

Call HebreuFrancais(recherche) 

Exit Sub 

' je cherche un mot FRANCAIS 

ElseIf txtHebreu.Text = "" Then 'And _ 


'txtNotes.Text = "" Then 

recherche = txtFrancais.Text 

Call FrancaisHebreu(recherche) 

Exit Sub 

' C'est du français que je cherche ! 

End If 

End Sub 

Private Sub btnGo2_Click() 

End Sub 

Private Sub BtnGraphic1_Click() 

txtHebreu.Text = "" 

txtPrononciation.Text = "" 

txtFrancais.Text = "" 

txtNotes.Text = "" 

Timer1.Enabled = False 

End Sub 

Private Sub btnRechercher_Click() 

btnGo_Click 

End Sub 


Dim mothebreu$ 

mothebreu = txtHebreu.Text 

mothebreu = StrReverse(mothebreu) 

If Left(mothebreu, 1) = "m" Then 

mothebreu = "M" & Mid(mothebreu, 2, Len(mothebreu)) 

ElseIf Left(mothebreu, 1) = "k" Then 

mothebreu = "n" & Mid(mothebreu, 2, Len(mothebreu)) 

ElseIf Left(mothebreu, 1) = "k" Then 

mothebreu = "N" & Mid(mothebreu, 2, Len(mothebreu)) 

ElseIf Left(mothebreu, 1) = "p" Then 

mothebreu = "P" & Mid(mothebreu, 2, Len(mothebreu)) 

ElseIf Left(mothebreu, 1) = "u" Then 

mothebreu = "U" & Mid(mothebreu, 2, Len(mothebreu)) 

End If 

txtHebreu.Text = mothebreu 

End Sub 


Command1.Visible = False 

btnAjouter.Visible = False 

mnuConsultation.Checked = True 

'Microsoft Agent robby 

'Agent.Characters.Load "robby", DATAPATH 

'Set robby = Agent.Characters("robby") 


'Dim c 

'c = robby.MoveTo(640, 200) 

'robby.Show 

'robby.Play ("GetAttention") 

'robby.Think ("Bonjour, Je suis Robby. Je vous lirai les passages que vous souhaitez. Pour 

cela, cliquez moi, ou pressez F2") 

End Sub 


Dim erreur 

'If txtPrononciation.Text "" Then


'robby.Speak (txtPrononciation.Text & ", qui signifie : " & txtFrancais.Text) 

'Else 

'erreur = MsgBox("Il n'y a rien à prononcer !", vbExclamation, "Erreur") 

'End If 

End Sub 


Dim erreur 

'If txtPrononciation.Text "" Then 

'Prononce.Speak (txtPrononciation.Text) 

'Else 

'erreur = MsgBox("Il n'y a rien à prononcer !", vbExclamation) 

'End If 

End Sub 

Private Sub mnuAide2_Click() 

Dim msg$ 

msg = MsgBox("Abbréviations :" & vbCrLf & "- S + numéro = Numéro strong" & vbCrLf & "- EP : Etude P 

erspicaces des Ecritures (2 vol.)" & vbCrLf & "- BDB : Brown-Driver-Briggs Hebrew and Chaldee Lexic 

on, Hendrikson Publishers, 7e éd." & vbCrLf & "- DHAB: Dictionnaire d'Hébreu et d'Araméen Bibliques 

, Ph. Reymond, éd. CERF/SBF, 2002", vbInformation) 

End Sub 

Private Sub mnuConsultation_Click() 


Command1.Visible = True 


mnuEdition.Checked = False 


End Sub 

Private Sub mnuEdition_Click() 

Dim msg 

msg = InputBox("Vous allez modifier le lexique de Bible Parser." & vbCrLf & vbCrLf & "Veuillez sasi 

sir le mot de passe !", "Mode Edition") 

If msg = "debarim" Then 

btnAjouter.Visible = True 

btnAjouter.Enabled = True 


mnuConsultation.Checked = False 

mnuEdition.Checked = True 

mnuVisible_Click 

mnuStrRev_Click 


End If 

End Sub 

Private Sub mnuInvisible_Click() 

mnuVisible.Checked = False 

mnuInvisible.Checked = True 

txtPrononciation.Visible = False 

Label5.Visible = False 

End Sub 

Private Sub mnuQuit_Click() 

Unload Me 

End Sub 

Private Sub mnuStrRev_Click() 


Command1_Click 

End Sub 

Private Sub mnuVisible_Click() 

mnuVisible.Checked = True 

mnuInvisible.Checked = False 

txtPrononciation.Visible = True 

End Sub


Private Sub Timer1_Timer() 

If mnuEdition.Checked = False Then btnGo_Click 

End Sub 


If txtHebreu.Text = "" Then 


End If 

End Sub 

Private Sub txtFrancais_KeyUp(KeyCode As Integer, Shift As Integer) 


End Sub 

Private Sub txtHebreu_KeyUp(KeyCode As Integer, Shift As Integer) 


If KeyCode = 27 Then Unload Me 

End Sub 

Private Sub txtNotes_Change() 


End Sub


VERSION 5.00 

Begin VB.Form frmDicoHebreu 


Caption = " Dictionnaire hébreu / français" 






Icon = (Icon) 









Begin VB.CommandButton btnAjouter 

Caption = "&Ajouter" 

Height = 375 

Left = 5040 

TabIndex = 16 

Top = 2160 

Width = 1455 

End 

Begin VB.CommandButton btnRechercher 

Caption = "Rechercher" 

Height = 375 

Left = 5040 

TabIndex = 15 

Top = 1680 

Width = 1455 

End 

Begin VB.CommandButton btnEffacer 

Caption = "&Effacer" 

Height = 375 

Left = 5280 

TabIndex = 14 

Top = 960 

Width = 1095 

End 


Caption = "&Fermer" 

Height = 375 

Left = 5520 

TabIndex = 13 

Top = 3360 

Width = 855 

End 


Interval = 20 

Left = 720 

Top = 3120 

End 

Begin VB.CheckBox chkCase 

Height = 195 

Left = 5040 

TabIndex = 11 

Top = 1440 


Width = 195 

End 


Interval = 250 

Left = 5520 

Top = 2640 

End 


Caption = "btnGo" 

Height = 195 

Left = 480 

TabIndex = 10 

Top = 120 


Width = 1335


End 


Caption = "" 

Height = 255 

Left = 2040 

TabIndex = 9 

ToolTipText = "Cliquez ici pour inverser votre mot hébreu" 

Top = 1440 


Width = 735 

End 

Begin VB.TextBox txtPrononciation 

Height = 405 

Left = 0 

MouseIcon = (Icon) 

TabIndex = 2 

ToolTipText = "Cliquez ici pour écouter la prononciation de ce mot" 

Top = 1680 


Width = 1815 

End 

Begin VB.TextBox txtFrancais 

Height = 495 

Left = 3000 

TabIndex = 1 

Top = 960 

Width = 2055 

End 

Begin VB.TextBox txtHebreu 


Name = "OLBHEB" 

Size = 14.25 

Charset = 0 

Weight = 400 




EndProperty 

Height = 495 

Left = 720 

TabIndex = 0 

Top = 960 

Width = 2055 

End 

Begin VB.TextBox txtNotes 

Height = 975 

Left = 1320 



TabIndex = 3 

Top = 2640 

Width = 3615 

End 


Height = 480 

Left = 120 



ToolTipText = "Prononcer le mot hébreu" 

Top = 960 


Width = 480 

End 



Caption = "Repecter la casse" 



Size = 8.25 

Charset = 0 

Weight = 700 




EndProperty 

ForeColor = &H00FFFFFF&


Height = 255 

Left = 5280 

TabIndex = 12 

Top = 1440 

Width = 1215 

End 



Caption = "Prononciation" 



Size = 9.75 

Charset = 0 

Weight = 400 




EndProperty 

ForeColor = &H00FFFFFF& 

Height = 255 

Left = 0 

TabIndex = 8 


Top = 2160 


Width = 1215 

End 



Caption = "Français" 



Size = 8.25 

Charset = 0 

Weight = 700 




EndProperty 


Height = 255 

Left = 3480 

TabIndex = 7 

Top = 1440 

Width = 975 

End 



Caption = "Hébreu" 



Size = 8.25 

Charset = 0 

Weight = 700 




EndProperty 


Height = 255 

Left = 1320 

TabIndex = 6 


Top = 1440 

Width = 975 

End 




Caption = "Notes" 



Size = 12 

Charset = 0 

Weight = 700 

Underline = 0 'False




EndProperty 


Height = 375 

Left = 1200 

TabIndex = 5 

Top = 2280 

Width = 3615 

End 




Caption = "Mrbd" 


Name = "OLBHEB" 

Size = 24 

Charset = 0 

Weight = 700 




EndProperty 


Height = 495 

Left = 0 

TabIndex = 4 

ToolTipText = "DEBARIM : LES PAROLES, LES MOTS, LES CHOSES" 

Top = 120 

Width = 6495 

End 


Caption = "Fichier" 


Caption = "Quitter" 


End 

End 

Begin VB.Menu mnuMode 

Caption = "Mode" 

Begin VB.Menu mnuConsultation 

Caption = "Consultation" 


Shortcut = ^C 

End 


Caption = "-" 

End 

Begin VB.Menu mnuEdition 

Caption = "Edition" 

Shortcut = Ê 

End 

End 

Begin VB.Menu mnuOptions 

Caption = "Options" 

Begin VB.Menu mnuStrRev 

Caption = "Inverse hébreu" 

Shortcut = {DEL} 

End 


Caption = "-" 

End 

Begin VB.Menu mnuTrans 

Caption = "Translitération" 

Begin VB.Menu mnuVisible 

Caption = "Visible" 

End 

Begin VB.Menu mnuInvisible 

Caption = "Invisible" 


End 

End 

End 

Begin VB.Menu mnuAide 

Caption = "?" 

Begin VB.Menu mnuAide2


Caption = "Aide" 


End 

Begin VB.Menu mnuTimerOui 

Caption = "TimerOui" 


End 

Begin VB.Menu mnuTimerNon 

Caption = "TimerNon" 


End 

End 

End

Prononciation 

Mrbd 

Hébreu Français 

Notes 

Repecter la casse

frmDicoLatFr - 1 

Public Sub btnGo_Click() 

Dim mot$ 

mot = Text1.Text 

Text2.Text = "" 

If Option1.Value = 1 Then 

Call FrancaisLatin(mot) 

Else 

Call LatinFrancais(mot) 

End If 

Text2.Visible = True 

txtWords.Visible = True 

End Sub 


Unload Me 

End Sub 

Private Sub Text1_Click() 


txtWords.Text = "" 

Text2.Visible = False 

txtWords.Visible = False 

List1.Visible = False 

End Sub 

Private Sub Text1_KeyPress(KeyAscii As Integer) 

If KeyAscii = 13 Then btnGo_Click 

If KeyAscii = 27 Then Command1_Click 

End Sub


VERSION 5.00 

Begin VB.Form frmDicoLatFr 


Caption = " Latin / Français & Anglais + analyse morphologique" 













Begin VB.ListBox List1 

Height = 645 

Left = 120 

TabIndex = 6 

Top = 2520 

Width = 4455 

End 

Begin VB.TextBox txtWords 

Height = 1575 

Left = 2280 



TabIndex = 5 

Top = 840 


Width = 2775 

End 

Begin VB.CheckBox Option1 


Caption = "ou français/latin" 

Height = 255 

Left = 120 

TabIndex = 4 

Top = 480 

Width = 1575 

End 


Caption = "Go" 

Height = 375 

Left = 1920 

TabIndex = 3 

Top = 120 

Width = 375 

End 

Begin VB.TextBox Text2 

Height = 1575 

Left = 120 



TabIndex = 2 

Top = 840 


Width = 2175 

End 



Caption = "X" 

Height = 375 

Left = 4680 

TabIndex = 1 

Top = 2520 

Width = 375 

End 


Height = 375 

Left = 120 

TabIndex = 0 

Top = 120 

Width = 1575 

End


End

frmDictionnaires - 1 

Private Sub btnQuitter_Click() 

Unload Me 

End Sub 

Public Sub btnRechercher_Click() 

Dim mot$ 

msg = Replace(frmDictionnaires.txtRecherche.Text, ",", "", 1) 

If frmDictionnaires.txtRecherche.Text = "" Then Exit Sub 

'If cboEncyclo.Text = "KJD" Then 

' mot = txtRecherche.Text 

' Call LireKJVD(mot) 

' Exit Sub 

'End If 

'If cboEncyclo.Text = "CBC" Then 

' mot = txtRecherche.Text 

' Call LireCBC(mot) 

' Exit Sub 

'End If 

frmParse2.Text1.Text = "" 

' définition des variables 



Dim chercher$, reference$ 

Dim dico$ 

mot = frmDictionnaires.txtRecherche.Text 


' conditions pour les différents fichiers 

If cboEncyclo.Text = "Easton" Then 

mot = LCase(mot) 

dico = "easton.txt" 

ElseIf cboEncyclo.Text = "Smith" Then 

dico = "smith.txt" 

ElseIf cboEncyclo.Text = "ISBE" Then 

dico = "isbe.txt" 

ElseIf cboEncyclo.Text = "Hitchcock" Then 

dico = "hitch.txt" 

ElseIf cboEncyclo.Text = "ATSBD" Then 

RechercherATSBD (mot) 

Exit Sub 

ElseIf cboEncyclo.Text = "Webster" Then 

RechercherWebster (mot) 

Exit Sub 

ElseIf cboEncyclo.Text = "Nuttall" Then 

RechercherNuttall (mot) 

Exit Sub 

ElseIf cboEncyclo.Text = "Wace" Then 

RechercherWace (mot) 

Exit Sub 

End If 

' affectation du fichier à ouvrir 

ofile = App.Path & "\modules\dictionnaires\" & dico 

If dico = "isbe.txt" Then 

mot = UCase(mot) 

End If 

If cboEncyclo.Text = "Easton" Or cboEncyclo.Text = "Smith" Then 

premierelettre = UCase(Left(mot, 1)) 

mot = premierelettre & Mid(mot, 2, Len(mot)) 

End If 

reference = "\" & mot & "\" 


Do 


If Left(ligne, Len(reference)) = reference Then ' pour que le mot recherché soit exact 


frmParse2.Text1.Text = frmParse2.Text1.Text & ligne 

Do 

Line Input #lfile, ligne


Loop 

End If 

Loop While Not EOF(lfile) 

If Left(ligne, 2) = "$$" Then 

GoTo apres: 

Else 

frmParse2.Text1.Text = frmParse2.Text1.Text & " " & ligne 

End If 

apres: 

'MsgBox frmParse2.Text1.Text 

'mot = frmParse2.Text1.Text 

Close #lfile 

frmDictionnaires.txtResultat = UCase(mot) & " :" & vbCrLf & Mid(frmParse2.Text1.Text, Len(mot) + 4, 

Len(frmParse2.Text1.Text)) 

End Sub 


cboEncyclo.AddItem ("Easton") 

cboEncyclo.AddItem ("Smith") 

cboEncyclo.AddItem ("ISBE") 

cboEncyclo.AddItem ("ATSBD") 

cboEncyclo.AddItem ("Wace") 

cboEncyclo.AddItem ("Webster") 

cboEncyclo.AddItem ("Nuttall") 

cboEncyclo.AddItem ("Hitchcock") 

cboEncyclo.Text = "Easton" 

End Sub 

Private Sub txtrecherche_KeyUp(KeyCode As Integer, Shift As Integer) 

If KeyCode = 13 Then btnRechercher_Click 

End Sub 

Private Sub txtresultat_DblClick() 

txtRecherche.Text = txtResultat.SelText 

txtRecherche.Text = Trim(txtRecherche.Text) 

txtRecherche.Text = Replace(txtRecherche.Text, ",", "") 

txtRecherche.Text = Replace(txtRecherche.Text, ".", "") 

txtRecherche.Text = Replace(txtRecherche.Text, "!", "") 

txtRecherche.Text = Replace(txtRecherche.Text, ":", "") 

txtRecherche.Text = Replace(txtRecherche.Text, "(", "") 

txtRecherche.Text = Replace(txtRecherche.Text, ")", "") 

btnRechercher_Click 

End Sub


VERSION 5.00 


egin VB.Form frmDictionnaires 







Icon = (Icon) 







Begin RichTextLib.RichTextBox txtresultat 

Height = 2415 

Left = 120 

TabIndex = 13 

Top = 1440 

Width = 3855 



_Version = 393217 



TextRTF = 

End 

Begin VB.ComboBox cboEncyclo 

Height = 315 

Left = 1920 

TabIndex = 11 

Top = 840 

Width = 1575 

End 

Begin VB.CommandButton btnQuitter 


Caption = "X" 

Height = 375 

Left = 3600 

TabIndex = 10 

Top = 3960 

Width = 495 

End 

Begin VB.OptionButton optCBC 




Height = 255 

Left = 4080 

TabIndex = 8 

Top = 4800 


Width = 255 

End 

Begin VB.OptionButton optKJVD 




Height = 255 

Left = 4080 

TabIndex = 6 

Top = 4440 


Width = 255 

End 

Begin VB.CommandButton btnrechercher 



Height = 375 

Left = 3600 

TabIndex = 1 

Top = 840 

Width = 495 

End


Begin VB.TextBox txtrecherche 

Height = 405 

Left = 120 

TabIndex = 0 

ToolTipText = "Tapez votre recherche en anglais" 

Top = 840 

Width = 1695 

End 

Begin VB.OptionButton optEncyclopaedia 


Caption = "&International Bible Standard Encyclopaedia" 

Height = 255 

Left = 4080 

TabIndex = 5 

Top = 4080 


Width = 3375 

End 

Begin VB.OptionButton optSmith 


Caption = "Dictionnaire biblique de &Smith" 

Height = 255 

Left = 4080 

TabIndex = 4 

Top = 3720 


Width = 2415 

End 

Begin VB.OptionButton optHitch 


Caption = "Dictionnaire de &Hitchcock" 

Height = 255 

Left = 4080 

TabIndex = 3 

Top = 3360 


Width = 2535 

End 

Begin VB.OptionButton optEaston 


Caption = "Dictionnaire de &Easton" 

Height = 255 

Left = 4080 

TabIndex = 2 

Top = 3000 


Width = 1935 

End 



Caption = "Références" 


Name = "Georgia" 

Size = 15.75 

Charset = 0 

Weight = 700 




EndProperty 

Height = 615 

Left = 1080 

TabIndex = 12 

Top = 120 

Width = 3255 

End 

Begin VB.Label lblCBC 


Caption = "Encyclopédie biblique condensée" 


Height = 255 

Left = 4320 

TabIndex = 9 

Top = 4800 


Width = 2535


End 



Caption = "Dictionnaire de la Bible King James" 


Height = 255 

Left = 4320 

TabIndex = 7 

Top = 4440 


Width = 2535 

End 

End

Références

frmGF - 1 

Private Sub Agent1_Bookmark(ByVal BookmarkID As Long) 

Dim msg 

If BookmarkID = 100 Then 

msg = MsgBox("Voulez-vous visiter ce site ?", vbYesNo, "Consulter le dictionnaire Liddell Scott") 

If msg = vbYes Then 



frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/cgi-bin/resolveform" 

End If 

End If 

End Sub 


If optgrec.Value = True Then 

Text1.Font = "Grenet" 

Label1.Font = "Papyrus" 

ElseIf optfra.Value = True Then 

Text1.Font = "Papyrus" 

Label1.Font = "Grenet" 

End If 

Dim definition$, motr$, mott$, msg$ 

msg = "Vous devez saisir un mot à définir ! | Vous n'avez pas saisi de mot à définir... | Que voule 

z-vous définir ? | Il vous faut indiquer un mot à définir." 

If Text1.Text = "" Then 

MsgBox msg 

Exit Sub 

End If 

If optgrec.Value = True Then '--------- appel de fonction pour le grec ( Gr > Fr ) 

motr = Text1.Text 

Call DefinirGrec(motr, mott) 

If mott = "Pas de définition disponible" Then 

mott = "???" 

End If 

Label1.Caption = mott 

Label1.ToolTipText = "Résultat pour " & motr 

ElseIf optfra.Value = True Then ' ----- appel de fonction pour le français ( Fr > Gr ) 

motr = Text1.Text 

Call DefinirFrancais(motr, mott) 

If mott = "Pas de définition disponible" Then 

mott = "***" 

End If 

Label1.Caption = mott 

Label1.ToolTipText = "Résultat pour " & motr 

End If 

End Sub 


Unload Me 

End Sub 


If optgrec.Value = True Then 

Text1.Font = "Grenet" 


Else 


Label1.Font = "Grenet" 

End If 

End Sub 


Text1.Text = ""

frmGF - 2 


End Sub 

Private Sub optfra_Click() 





End Sub 

Private Sub optgrec_Click() 





End Sub 

Private Sub Picture1_Click() 

Unload Me 

End Sub 

Private Sub Text1_GotFocus() 


End Sub 

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) 


Command1_Click 'Lance la recherche 


Unload Me 

End If 

End Sub

frmGF - 1 

VERSION 5.00 

Begin VB.Form frmGF 


Caption = " Dictionnaire grec/français" 





Icon = (Icon) 











Caption = "X" 

Height = 375 

Left = 4560 

TabIndex = 6 

Top = 1680 

Width = 375 

End 


Caption = "&Définir" 




Size = 8.25 

Charset = 0 

Weight = 400 




EndProperty 

Height = 375 

Left = 2400 

TabIndex = 5 

Top = 0 

Width = 735 

End 




Size = 13.5 

Charset = 0 

Weight = 400 




EndProperty 

Height = 495 

Left = 0 

TabIndex = 0 

Top = 0 

Width = 2295 

End 

Begin VB.OptionButton optfra 


Caption = "&Français" 

Height = 255 

Left = 840 

TabIndex = 2 

Top = 480 

Width = 1455 

End 

Begin VB.OptionButton optgrec 


Caption = "Grec" 

Height = 255 

Left = 0 

TabIndex = 1 

Top = 480

frmGF - 2 

Value = -1 'True 

Width = 855 

End 




Caption = "Effacer" 

ForeColor = &H000000FF& 

Height = 255 

Left = 2040 

TabIndex = 4 

Top = 480 

Width = 1335 

End 




Name = "Grenet" 

Size = 14.25 

Charset = 0 

Weight = 400 




EndProperty 

Height = 615 

Left = 240 

TabIndex = 3 

Top = 1320 

Width = 3495 

End 

End

Effacer

frmGrammaire - 1 

Private Sub btnFermer_Click() 

If frmAnalyseMorphologique.lblanalyse "" Then 

Unload Me 

'Me.Hide 

frmAnalyseMorphologique.Show 

Else 

Unload Me 

End If 

End Sub 

Private Sub btnGo_Click() 

Dim ofile, lfile, ligne, texte 

lstGrammaires.Text = "" 

If chkExact.Value = 0 Then 

ofile = App.Path & "\tools\temp.txt" 


texte = Replace(txtAnalyse.Text, " ", vbCrLf) 

texte = Replace(texte, "1", "") 



texte = Replace(texte, "personne", "") 

texte = Replace(texte, "ème", "") 

texte = Replace(texte, "ère", "") 

texte = Replace(texte, "(", "") 

texte = Replace(texte, ")", "") 

List1.Clear 

Open ofile For Output As #lfile 

Print #lfile, texte 

Close 


texte = "" 


Do 

Input #lfile, texte 

If texte "" Then 

List1.AddItem (texte) 

End If 


Close 

List1.Text = List1.List(1) 

'Call GrammaireAbel(recherche) 

'If recherche "" Then lstGrammaires.AddItem ("Abel, Grammaire du grec biblique") 

'Call GrammaireBoxus(recherche) 

'If recherche "" Then lstGrammaires.AddItem ("Boxus, Grammaire grecque") 

'Call GrammaireWallace(recherche) 

'If recherche "" Then lstGrammaires.AddItem ("Wallace/Mounce, Greek Grammar Compilation") 

'List1_Click 

Else 

'RECHERCHE COMPOSEE, genre: aoriste moyen 

List1.Clear 

List1.AddItem (txtAnalyse.Text) 

'List1.Text = recherche 

'Call GrammaireAbel(recherche) 

'If recherche "" Then lstGrammaires.AddItem ("Abel, Grammaire du Grec biblique") 

'Call GrammaireBoxus(recherche) 

'If recherche "" Then lstGrammaires.AddItem ("Boxus, Grammaire grecque") 

'Call GrammaireWallace(recherche) 

'If recherche "" Then lstGrammaires.AddItem ("Wallace/Mounce, Greek Grammar Compilation") 

End If 

End Sub 

Private Sub lblAbel_Click() 

Dim msg$, debloque As Boolean 

Dim fichier$ 

Dim ofile%



fichier = App.Path & "\tools\bp.ini" 

Open fichier For Input As #ofile 

Input #ofile, mot 

End Sub 

If lblAbel.Caption = "" Then Exit Sub 

Load frmPDF 


frmPDF.pdfmain.setCurrentPage (Val(lblAbel.Caption)) 

frmPDF.Caption = "Abel, Grammaire de grec biblique" 

frmPDF.Show 

Private Sub lblBurton_Click() 

If lblBurton.Caption = "" Then Exit Sub 

Load frmPDF 


frmPDF.pdfmain.setCurrentPage (Val(lblBurton.Caption)) 


frmPDF.Show 

End Sub 

Private Sub lblConybeare_Click() 

If lblConybeare.Caption = "" Then Exit Sub 

Load frmPDF 


frmPDF.pdfmain.setCurrentPage (Val(lblConybeare.Caption)) 

frmPDF.Caption = "Conybeare - A Grammar of Septuagint Greek" 

frmPDF.Show 

End Sub 

Private Sub lblGoodwin_Click() 

If lblGoodwin.Caption = "" Then Exit Sub 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\goodw\GoodwinG.pdf") 

frmPDF.pdfmain.setCurrentPage (Val(lblGoodwin.Caption)) 

frmPDF.Caption = "Goodwin - Greek Grammar" 

frmPDF.Show 

End Sub 

Private Sub lblSmith_Click() 

If lblSmith.Caption = "" Then Exit Sub 

Load frmPDF 


frmPDF.pdfmain.setCurrentPage (Val(lblSmith.Caption)) 

frmPDF.Caption = "Smith - Greek Grammar" 

frmPDF.Show 

End Sub 

Private Sub lblWallace_Click() 

If lblWallace.Caption = "" Then Exit Sub 

Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\gg\GG.pdf") 

frmPDF.pdfmain.setCurrentPage (Val(lblWallace.Caption)) 

frmPDF.Caption = "Wallace / Mounce Greek Grammar [Compilation]" 

frmPDF.Show 

End Sub 

Private Sub List1_Click() 

Dim abel, boxus, conybeare, burnouf, wallace, burton, smith, goodwing, goodwins, gildersleeve, cox 

As Boolean 

mot = List1.Text 

abel = False 

boxus = False 

burnouf = False 

conybeare = False 

wallace = False 

smyth = False


goodwing = False 

goodwins = False 

cox = False 

gildersleeve = False 

burton = False 

conybeare = False 

Dim abel1 

lstGrammaires.Clear 

recherche = mot 

Call GrammaireAbel(recherche) 

If recherche "" Then abel = True 


Call GrammaireBoxus(recherche) 

If recherche "" Then boxus = True 


Call GrammaireWallace(recherche) 

If recherche "" Then wallace = True 


Call GrammaireSmyth(recherche) 

If recherche "" Then smyth = True 


Call GrammaireBurnouf(recherche) 

If recherche "" Then burnouf = True 


Call GrammaireCox(recherche) 

If recherche "" Then cox = True 


Call GrammaireGildersleeve(recherche) 

If recherche "" Then gildersleeve = True 


Call GrammaireBurton(recherche) 

If recherche "" Then burton = True 


Call GrammaireConybeare(recherche) 

If recherche "" Then conybeare = True 

'idem pour toutes les grammaires 

If abel = True Then lstGrammaires.AddItem "Abel, Grammaire du grec biblique" 

If boxus = True Then lstGrammaires.AddItem "Boxus, Grammaire grecque" 

If wallace = True Then lstGrammaires.AddItem "Wallace/Mounce, Greek Grammar Compilation" 

If smyth = True Then lstGrammaires.AddItem "Smyth - Greek Grammar for Colleges" 

If burnouf = True Then lstGrammaires.AddItem "Burnouf - Méthode pour étudier la langue grecque" 

If cox = True Then lstGrammaires.AddItem "Jeffrey A. Rydberg-Cox, Overview of Greek Syntax" 

If gildersleeve = True Then lstGrammaires.AddItem "Basil Lanneau Gildersleeve, Syntax of Classical 

Greek" 

If burton = True Then lstGrammaires.AddItem "Burton - Moods and Tenses of New Testament Greek" 

If conybeare = True Then lstGrammaires.AddItem "Conybeare - Grammar of Septuagint Greek" 

End Sub 

Private Sub lstGrammaires_Click() 

'GREC 

recherche = List1.Text 

'recherche = lstGrammaires.List(lstGrammaires.ListIndex) 

If lstGrammaires.Text = "Abel, Grammaire du grec biblique" Then 

Call GrammaireAbel(recherche) 

If recherche = "" Then Exit Sub 

Load frmPDF 


frmPDF.Caption = "Abel, Grammaire du grec biblique" 

frmPDF.pdfmain.setCurrentPage (recherche) 

frmPDF.Show


ElseIf lstGrammaires.Text = "Boxus, Grammaire grecque" Then 

Call GrammaireBoxus(recherche) 


Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\boxus\Boxus.pdf") 

frmPDF.Caption = "Boxus, Grammaire grecque" 


frmPDF.Show 

ElseIf lstGrammaires.Text = "Wallace/Mounce, Greek Grammar Compilation" Then 

Call GrammaireWallace(recherche) 


Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\GG\gg.pdf") 

frmPDF.Caption = "Wallace/Mounce, Greek Grammar Compilation" 


frmPDF.Show 

ElseIf lstGrammaires.Text = "Smyth - Greek Grammar for Colleges" Then 

Call GrammaireSmyth(recherche) 


Load frmPDF 


frmPDF.Caption = "Smyth - Greek Grammar for Colleges" 


frmPDF.Show 

ElseIf lstGrammaires.Text = "Burnouf - Méthode pour étudier la langue grecque" Then 

Call GrammaireBurnouf(recherche) 


Load frmPDF 

frmPDF.pdfmain.LoadFile (App.Path & "\ref\grk\Burnouf.pdf") 

frmPDF.Caption = "Burnouf - Méthode pour étudier la langue grecque" 


frmPDF.Show 

ElseIf lstGrammaires.Text = "Jeffrey A. Rydberg-Cox, Overview of Greek Syntax" Then 

Call GrammaireCox(recherche) 


frmBrowser.cboAddress.Text = recherche 

ElseIf lstGrammaires.Text = "Basil Lanneau Gildersleeve, Syntax of Classical Greek" Then 

Call GrammaireGildersleeve(recherche) 


frmBrowser.cboAddress.Text = recherche 

ElseIf lstGrammaires.Text = "Burton - Moods and Tenses of New Testament Greek" Then 

Call GrammaireBurton(recherche) 


Load frmPDF 




frmPDF.Show 

ElseIf lstGrammaires.Text = "Conybeare - Grammar of Septuagint Greek" Then 

Call GrammaireConybeare(recherche) 


Load frmPDF 


frmPDF.Caption = "Conybeare - Grammar of Septuagint Greek" 


frmPDF.Show 

End If 

End Sub 


If frmAnalyseMorphologique.lblanalyse.Caption "" Then 

btnGo_Click 


End If 

End Sub 

Private Sub txtAnalyse_KeyPress(KeyAscii As Integer) 

If KeyAscii = 27 Then btnFermer_Click 

End Sub


VERSION 5.00 

Begin VB.Form frmGrammaire 


Caption = " Aide grammaticale ..." 













Begin VB.ListBox lstGrammaires 

Height = 2595 

Left = 0 

TabIndex = 5 

Top = 1800 

Width = 4215 

End 

Begin VB.CheckBox chkExact 


Caption = "expression exacte" 

Height = 255 

Left = 2640 

TabIndex = 4 

Top = 720 

Width = 1695 

End 


Interval = 10 

Left = 3840 

Top = 1200 

End 

Begin VB.ListBox List1 

Height = 1035 

Left = 0 

TabIndex = 3 

Top = 720 

Width = 2415 

End 


Caption = "chercher !" 

Height = 375 

Left = 2640 

TabIndex = 2 

Top = 1080 

Width = 1215 

End 

Begin VB.TextBox txtAnalyse 

Height = 615 

Left = 0 



TabIndex = 1 

Top = 0 

Width = 4335 

End 



Caption = "X" 

Height = 375 

Left = 3960 

TabIndex = 0 

Top = 4080 


Width = 375 

End 

End

frmGrecHebreu - 1 


ublic numéro As Boolean 

rivate Sub Command1_Click() 

im ofile$, lfile, strong$, texte$, toto, i, texterev$ 

im premiereespace, deuxiemeespace 

trong = "" 

xtResultat.Text = "" 

file = App.Path & "\modules\gh\grechebreu.txt" 

file = FreeFile 

trong = LCase(txtStrong.Text) 

rmTSK.Text = "" 

f numéro = False Then 

If Len(strong) = 1 Then 

strong = "OOOO" & strong 

End If 


strong = "OOO" & strong 

End If 


strong = "OO" & strong 

End If 


strong = "O" & strong 

End If 

nd If 

strong = Replace(strong, "x", "ch") 

strong = Replace(strong, "q", "th") 

strong = Replace(strong, "f", "ph") 

strong = Replace(strong, "w", "o") 

strong = Replace(strong, "y", "ps") 

strong = Replace(strong, "j", "s") 


lse 


Do 


If texte = strong Then 

Do 

Loop 

End If 


Close 


Do 



If Left(texte, 1) = "O" Then Exit Do 

txtResultat.Text = txtResultat.Text & vbCrLf & texte 

If Left(texte, Len(strong)) = strong Then 



' Do 

' Input #lfile, texte 

' txtResultat.Text = txtResultat.Text & vbCrLf & texte


End If 

'Loop 

End If 


Close 

ofile = App.Path & "\tools\corrwh.txt" 

lfile = FreeFile + 1 


rint #lfile, txtResultat.Text 

lose 



o 


i = i + 1 


premiereespace = InStr(1, texte, " ", vbTextCompare) 

texte = Trim(Mid(texte, premiereespace, Len(texte))) 

deuxiemeespace = InStr(1, texte, " ", vbTextCompare) 

texte = Mid(texte, deuxiemeespace, Len(texte)) 

End If 


txtResultat.Text = txtResultat.Text & vbCrLf & i - 1 & ") " & texte 

'frmTSK.Text.Text = frmTSK.Text.Text & vbCrLf & i - 1 & "-" & StrReverse(texte) 

'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "a", "") 

'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "e", "") 

'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "i", "") 

'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "o", "") 

'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "u", "") 

'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "v", "b") 

End If 


MsgBox strong 

MsgBox numéro 

nd Sub 


nload Me 

nd Sub 


im texte$, strong$ 

trong = frmGrecHebreu.txtStrong.Text 

Load frmTSK 

frmTSK. Show 1 

frmTSK.lblpassage.Font = "Grenet" 

frmTSK.lblpassage.Caption = strong 

frmTSK.Text.Font = "Shibolet" 

frmTSK.Text.Text = frmGrecHebreu.txtResultat.Text 

frmTSK.Text.Text = frmGrecHebreu.txtResultat.Text 

texte = StrReverse(frmGrecHebreu.txtResultat.Text) 

frmTSK.Text.Text = texte 

texte = txtResultat.Text 

premiereespace = InStr(1, texte, ")", vbTextCompare) 

texte = Trim(Mid(texte, premiereespace + 1, Len(texte)))


'Load frmTSK 

'frmTSK. Show 1 

'frmTSK.Text1.Font = "OLBHEB" 

'txtResultat.Text = txtResultat.Text & vbCrLf & StrReverse(texte) 

End Sub 

Private Sub txtStrong_KeyPress(KeyAscii As Integer) 


numéro = True 

End If 

End Sub


VERSION 5.00 


egin VB.Form frmGrecHebreu 


BorderStyle = 1 'Fixed Single 

Caption = "Lexique grec/hébreu" 





Icon = (Icon) 









Caption = "&voir hébreu" 

Height = 375 

Left = 2640 

TabIndex = 6 

Top = 2640 


Width = 1095 

End 


Height = 375 

Left = 120 


TabIndex = 5 

Top = 2640 


Width = 975 

End 

Begin RichTextLib.RichTextBox txtResultat 

Height = 1815 

Left = 120 

TabIndex = 4 

Top = 720 

Width = 4215 



_Version = 393217 


TextRTF = 

BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 


Size = 12 

Charset = 238 

Weight = 400 




EndProperty 

End 



Caption = "&ok" 

Height = 375 

Left = 3840 

TabIndex = 3 

Top = 2640 

Width = 615 

End 


Caption = "&Correspondant(s) hébreu" 


Height = 495 

Left = 3000 

TabIndex = 2 

Top = 120 

Width = 1455 

End 

Begin VB.TextBox txtStrong




Size = 12 

Charset = 238 

Weight = 400 




EndProperty 

Height = 495 

Left = 1200 

TabIndex = 0 

Top = 120 

Width = 1695 

End 



Caption = "Mot ou n° Strong" 



Size = 9 

Charset = 238 

Weight = 700 




EndProperty 

Height = 495 

Left = 120 

TabIndex = 1 

Top = 120 

Width = 975 

End 

End

Mot ou n° 

Strong

frmHebreuGrec - 1 


ublic numéro As Boolean 


im ofile$, lfile, strong$, texte$, toto, i, texterev$ 

im premiereespace, deuxiemeespace 

trong = "" 


file = App.Path & "\modules\gh\hebreugrec.txt" 


trong = LCase(txtStrong.Text) 

rmTSK.Text.Text = "" 



strong = "OOOO" & strong 

End If 


strong = "OOO" & strong 

End If 


strong = "OO" & strong 

End If 


strong = "O" & strong 

End If 

nd If 


lse 


Do 


If texte = strong Then 

Do 

Loop 

End If 


Close 


Do 





If Left(texte, Len(strong)) = strong Then 



' Do 

' Input #lfile, texte 

' txtResultat.Text = txtResultat.Text & vbCrLf & texte 

'Loop 

End If 

Loop While Not EOF(lfile)


End If 

Close 




rint #lfile, txtResultat.Text 

lose 



o 


i = i + 1 


premiereespace = InStr(1, texte, " ", vbTextCompare) 

texte = Trim(Mid(texte, premiereespace, Len(texte))) 

deuxiemeespace = InStr(1, texte, " ", vbTextCompare) 

'texte = Mid(texte, deuxiemeespace, Len(texte)) 

End If 


txtResultat.Text = txtResultat.Text & vbCrLf & i - 1 & ") " & texte 

'frmTSK.Text.Text = frmTSK.Text.Text & vbCrLf & i - 1 & "-" & StrReverse(texte) 

'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "a", "") 

'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "e", "") 

'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "i", "") 

'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "o", "") 

'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "u", "") 

'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "v", "b") 

End If 


MsgBox strong 

MsgBox numéro 

nd Sub 


nload Me 

nd Sub 

rivate Sub txtStrong_KeyPress(KeyAscii As Integer) 

f KeyAscii < 47 Or KeyAscii > 57 Then 

uméro = True 

nd If 

nd Sub


VERSION 5.00 


egin VB.Form frmHebreuGrec 



Caption = "Lexique hébreu/grec" 





Icon = (Icon) 








Begin RichTextLib.RichTextBox txtResultat 

Height = 1695 

Left = 120 

TabIndex = 5 

Top = 840 

Width = 4215 



_Version = 393217 



TextRTF = 

End 


Height = 375 

Left = 120 


TabIndex = 4 

Top = 2640 


Width = 1695 

End 



Caption = "&ok" 

Height = 375 

Left = 3840 

TabIndex = 3 

Top = 2640 

Width = 615 

End 


Caption = "&Correspondant(s) grec" 


Height = 495 

Left = 3000 

TabIndex = 2 

Top = 120 

Width = 1455 

End 

Begin VB.TextBox txtStrong 



Size = 12 

Charset = 238 

Weight = 400 




EndProperty 

Height = 495 

Left = 1200 

TabIndex = 0 

Top = 120 

Width = 1695 

End 




Caption = "Mot ou n° Strong" 



Size = 9 

Charset = 238 

Weight = 700 




EndProperty 

Height = 495 

Left = 120 

TabIndex = 1 

Top = 120 

Width = 975 

End 

End

Mot ou n° 

Strong

frmLexiqueNT - 1 

Dim dico As Boolean 

Private Sub btnAjouter_Click() 

' au cas où 

Close 

Dim lexique$, lfile, Grec$, prononciation$, francais$, notes$ 

lexique = App.Path & "\tools\lexiquegr.dic" 


'définitions des variables 

Grec = txtHebreu.Text 

prononciation = txtPrononciation.Text 

francais = txtFrancais.Text 

notes = txtNotes.Text 

' attention VB ne gère pas les virgules & les guilleemnts 

francais = Replace(francais, ",", "~", 1, , vbTextCompare) 

notes = Replace(notes, ",", "~", 1, , vbTextCompare) 

notes = Replace(notes, Chr$(51), "'", 1) 

' ouverture du lexique pour écriture 

Open lexique For Append As #lfile 

rite #lfile, Grec & " " & francais & " 3/" & notes 

lose 

tnEffacer_Click 

nd Sub 

rivate Sub btnEffacer_Click() 

ico = True 

xtGrec.Text = "" 

xtFrancais.Text = "" 

xtNotes.Text = "" 

xtcode.Text = "" 

xtVientde.Text = "" 

xtAnalyse.Text = "" 

imer1.Enabled = False 

nd Sub 

rivate Sub btnFermer_Click() 

nload Me 

nd Sub 

rivate Sub btnGo_Click() 

im Grec$, prononciation$, francais$, notes$, recherche$, mot$, motdeflechi$ 

rec = txtGrec.Text 

rancais = txtFrancais.Text 

otes = txtNotes.Text 

gestion erreurs 

f txtGrec.Text = "" And _ 

txtFrancais.Text = "" Then 

lfile = MsgBox("Vous n'avez pas saisi votre recherche !", vbExclamation, "Rechercher un mot") 

Exit Sub 

nd If 

il faut DEFLECHIR le mot 

commençons par le NT 

If frmBible.cboVersion = "NA26+" Then 

mot = txtGrec.Text 

End If 

If Right(mot, 1) = "j" Then 

mot = Mid(mot, 1, Len(mot) - 1) & "s" 


Call LexiqueNT_Morph(mot) 

End If 

Par défaut la recherche est EXACTE 

détermination du mot-clé à chercher dans le lexique 

je cherche un mot GREC


If txtFrancais.Text = "" And txtVientde.Text = "" Then 

motr = txtGrec.Text 


txtFrancais.Text = mott 

Exit Sub 

' je cherche un mot FRANCAIS 

ElseIf txtGrec.Text = "" And txtVientde.Text = "" Then 'And _ 


'txtNotes.Text = "" Then 

motr = txtFrancais.Text 


recherche = motr 

Call FrancaisGrec(recherche) 

txtGrec.Text = recherche 

Exit Sub 

' C'est du français que je cherche ! 

'ElseIf txtVientde.Text "" Then 

' recherche = txtVientde.Text 

' Call GrecFrancais(recherche) 

' Exit Sub 

End If 

End Sub 

Private Sub btnRechercher_Click() 

btnGo_Click 

End Sub 




dico = False 

End Sub 

Private Sub mnuConsultation_Click() 


mnuEdition.Checked = False 

End Sub 

Private Sub mnuEdition_Click() 

btnAjouter.Visible = True 

mnuEdition.Checked = True 

End Sub 

Private Sub mnuQuit_Click() 

Unload Me 

End Sub 


If mnuEdition.Checked = True Then btnGo_Click 

End Sub 


If txtGrec.Text = "" Then 


End If 

End Sub


VERSION 5.00 

Begin VB.Form frmLexiqueNT 


Caption = "Lexique NT" 






Icon = (Icon) 







Begin VB.CommandButton btnAjouter 

Caption = "+" 

Height = 375 

Left = 3120 

TabIndex = 17 

ToolTipText = "Ajouter" 

Top = 1800 

Width = 495 

End 

Begin VB.CommandButton btnEffacer 

Caption = "Effaçer" 

Height = 375 

Left = 480 

TabIndex = 16 

Top = 3360 


Width = 975 

End 




Height = 375 

Left = 1560 

TabIndex = 15 

Top = 3360 


Width = 1095 

End 




Caption = "X" 

Height = 375 

Left = 3120 

TabIndex = 14 

ToolTipText = "Fermer" 

Top = 3360 

Width = 495 

End 

Begin VB.TextBox txtVientde 



Size = 14.25 

Charset = 0 

Weight = 400 




EndProperty 

Height = 495 

Left = 960 

TabIndex = 12 

Top = 1560 

Width = 2055 

End 

Begin VB.TextBox txtAnalyse 

Height = 975 

Left = 960 


ScrollBars = 2 'Vertical


TabIndex = 11 

Top = 2280 

Width = 2655 

End 

Begin VB.TextBox txtCode 

Height = 375 

Left = 3240 

TabIndex = 9 

Top = 120 


Width = 1455 

End 

Begin VB.TextBox txtNotes 

Height = 375 

Left = 120 



TabIndex = 4 

Top = 3000 


Width = 615 

End 

Begin VB.TextBox txtGrec 



Size = 14.25 

Charset = 0 

Weight = 400 




EndProperty 

Height = 495 

Left = 960 

TabIndex = 0 

Top = 240 

Width = 2055 

End 

Begin VB.TextBox txtFrancais 

Height = 495 

Left = 960 



TabIndex = 1 

ToolTipText = "Vous pouvez lancer une recherche à partir d'ici" 

Top = 840 

Width = 2055 

End 


Caption = "btnGo" 

Height = 195 

Left = 120 

TabIndex = 2 

Top = 3480 


Width = 615 

End 


Interval = 250 

Left = 3120 

Top = 1200 

End 

Begin VB.CheckBox chkCase 

Height = 195 

Left = 1320 

TabIndex = 3 

Top = 3840 



Width = 195 

End 


Interval = 20 

Left = 3120 

Top = 720 

End





Caption = "Vient de" 



Size = 8.25 

Charset = 0 

Weight = 700 




EndProperty 


Height = 255 

Left = -240 

TabIndex = 13 

Top = 1560 

Width = 1455 

End 



Caption = "Code" 



Size = 8.25 

Charset = 0 

Weight = 700 




EndProperty 


Height = 255 

Left = 120 

TabIndex = 10 

Top = 2760 


Width = 615 

End 




Caption = "Analyse" 



Size = 8.25 

Charset = 0 

Weight = 700 




EndProperty 


Height = 375 

Left = -120 

TabIndex = 8 

Top = 2400 

Width = 1095 

End 




Caption = "Grec" 



Size = 8.25 

Charset = 0 

Weight = 700 




EndProperty 


Height = 255 

Left = -120


TabIndex = 7 


Top = 360 

Width = 855 

End 



Caption = "Français" 



Size = 8.25 

Charset = 0 

Weight = 700 




EndProperty 


Height = 255 

Left = 120 

TabIndex = 6 

Top = 960 

Width = 1095 

End 



Caption = "Repecter la casse" 



Size = 8.25 

Charset = 0 

Weight = 700 




EndProperty 


Height = 255 

Left = 1680 

TabIndex = 5 

Top = 3840 


Width = 1215 

End 


Caption = "&Fichier" 


Caption = "&Quitter" 

Shortcut = ^Q 

End 

End 

Begin VB.Menu mnuMode 

Caption = "&Mode" 

Begin VB.Menu mnuConsultation 

Caption = "&Consultation" 


Shortcut = ^C 

End 


Caption = "-" 

End 

Begin VB.Menu mnuEdition 

Caption = "&Edition" 

Shortcut = Ê 

End 

Begin VB.Menu mnuAppele 

Caption = "Appele" 


End 

End 

End

Grec 

Français 

Vient de 

Analyse 

Code

frmNotes - 1 

Private Sub Picture1_Click() 

Unload Me 

End Sub

frmNotes - 1 

VERSION 5.00 


egin VB.Form frmNotes 



Caption = "Nouvelle Traduction Annotée" 













BackColor = &H80000005& 



Height = 495 

Left = 3120 





TabIndex = 1 

ToolTipText = "Fermer cette fenêtre" 

Top = 4200 

Width = 615 

End 

Begin RichTextLib.RichTextBox RTF 

Height = 3135 

Left = 120 

TabIndex = 0 

Top = 960 

Width = 3615 



_Version = 393217 


TextRTF = 

End 




Caption = "NOTES" 



Size = 8.25 

Charset = 0 

Weight = 400 




EndProperty 

Height = 255 

Left = 120 

TabIndex = 2 

Top = 360 

Width = 3735 

End 

nd

NOTES

frmParse - 1 


Unload Me 

End Sub 


Unload Me 

End Sub 


'Unload frmParse2 

End Sub 

Private Sub txtanalyse_Click() 

Unload Me 

End Sub

frmParse - 1 

VERSION 5.00 


egin VB.Form frmParse 


Caption = "Analyse morphologique (Packard)" 





Icon = (Icon) 





Begin RichTextLib.RichTextBox txtBHS 

Height = 1695 

Left = 2760 

TabIndex = 7 

Top = 120 

Width = 1815 



_Version = 393217 

TextRTF = 

End 

Begin VB.Label lbldefinition 




Size = 9.75 

Charset = 0 

Weight = 400 




EndProperty 

Height = 735 

Left = 2760 

TabIndex = 6 

Top = 240 


Width = 1815 

End 


X1 = 1560 

X2 = 2760 

Y1 = 960 

Y2 = 960 

End 

Begin VB.Label txtanalyse 


Height = 1575 

Left = 720 

TabIndex = 5 

ToolTipText = "Cliquez pour fermer cette fenêtre" 

Top = 960 

Width = 2655 

End 

Begin VB.Label lbltampon 


Height = 495 

Left = 120 

TabIndex = 4 

Top = 3120 

Width = 1575 

End 



Caption = "vient de :" 



Size = 9.75 

Charset = 0 

Weight = 400 


Italic = 0 'False

frmParse - 2 


EndProperty 

Height = 255 

Left = 120 

TabIndex = 3 

Top = 480 

Width = 735 

End 



Caption = "Résultat pour" 



Size = 9.75 

Charset = 0 

Weight = 400 




EndProperty 

Height = 255 

Left = 120 

TabIndex = 2 

Top = 120 

Width = 1455 

End 

Begin VB.Label lblorigine 




Size = 9.75 

Charset = 0 

Weight = 400 




EndProperty 

Height = 375 

Left = 960 

TabIndex = 1 

Top = 480 

Width = 1335 

End 





Size = 9.75 

Charset = 0 

Weight = 400 




EndProperty 

Height = 375 

Left = 1440 

TabIndex = 0 

Top = 120 

Width = 1695 

End 

End

Résultat pour 

vient de

frmParse2 - 1 


Unload Me 

End Sub

frmParse2 - 1 

VERSION 5.00 


egin VB.Form frmParse2 



Caption = "Analyser un terme" 





Icon = (Icon) 







Begin RichTextLib.RichTextBox Text1 

Height = 1935 

Left = 120 

TabIndex = 9 

Top = 840 

Width = 2895 



_Version = 393217 



TextRTF = 

End 

Begin VB.TextBox Text 

Height = 285 

Left = 2760 

TabIndex = 8 

Top = 2400 

Width = 1095 

End 


Caption = "&OK" 

Height = 375 

Left = 3960 

TabIndex = 3 

Top = 2400 

Width = 615 

End 

Begin VB.Label lbldef 


Caption = "Définition" 



Size = 9.75 

Charset = 0 

Weight = 400 




EndProperty 

Height = 615 

Left = 1920 

TabIndex = 7 

Top = 1440 

Width = 2655 

End 

Begin VB.Label lblcode 


Height = 495 

Left = 120 

TabIndex = 6 

Top = 2280 

Width = 1575 

End 


X1 = 1440 

X2 = 2880 

Y1 = 1200 

Y2 = 1200

frmParse2 - 2 

End 



Caption = "Résultat pour" 



Size = 9.75 

Charset = 0 

Weight = 400 




EndProperty 

Height = 495 

Left = 120 

TabIndex = 5 

Top = 240 

Width = 1335 

End 



Caption = "vient de :" 



Size = 9.75 

Charset = 0 

Weight = 400 




EndProperty 

Height = 255 

Left = 120 

TabIndex = 4 

Top = 720 

Width = 735 

End 



Caption = "Pas d'analyse" 



Size = 9.75 

Charset = 0 

Weight = 400 




EndProperty 

Height = 495 

Left = 240 

TabIndex = 2 

Top = 1440 

Width = 1455 

End 

Begin VB.Label lblorigine 



Name = "Arial" 

Size = 9.75 

Charset = 0 

Weight = 400 




EndProperty 

Height = 375 

Left = 960 

TabIndex = 1 

Top = 720 

Width = 1695 

End 




Name = "Arial"

frmParse2 - 3 

Size = 9.75 

Charset = 0 

Weight = 400 




EndProperty 

Height = 495 

Left = 1560 

TabIndex = 0 

Top = 240 

Width = 1455 

End 

End

Résultat pour 

vient de 

Pas d'analyse 

Définition

frmPDF - 1 


pdfmain.Width = ScaleWidth 

pdfmain.Height = ScaleHeight 

End Sub 

Private Sub Form_Resize() 

pdfmain.Width = ScaleWidth 

pdfmain.Height = ScaleHeight 

End Sub 

'Private Sub mnuopen_Click() 

'dlgopen.ShowOpen 

'pdfmain.LoadFile (dlgopen.FileName) 

'pdfmain.setCurrentPage 15 

'End Sub

frmPDF - 1 

VERSION 5.00 

Object = "{05BFD3F1-6319-4F30-B752-C7A22889BCC4}#1.0#0"; "AcroPDF.dll" 

egin VB.Form frmPDF 












Begin AcroPDFLibCtl.AcroPDF pdfmain 

Height = 1095 

Left = 0 

TabIndex = 0 

Top = 0 

Width = 2175 

_cx = 5080 

_cy = 5080 

End 

nd

frmRechercheMorphologique - 1 

Dim nveaucodegenre$, nveaucodecas$, nveaucodenombre$, nveautemps$, nveaumode$, nveauvoix$, nveauper 

sonne$ 

Private Sub cboGenre_LostFocus() 

Dim nveaucode$ 

mot = txtcode.Text 

If Mid(mot, 1, 1) = "n" Or Mid(mot, 1, 1) = "a" Then 

If cboGenre.Text = "féminin" Then nveaucodegenre = "f" 

If cboGenre.Text = "masculin" Then nveaucodegenre = "m" 

If cboGenre.Text = "neutre" Then nveaucodegenre = "n" 


If cboGenre.Text = "présent" Then nveautemps = "p" 

If cboGenre.Text = "imparfait" Then nveautemps = "i" 

If cboGenre.Text = "futur" Then nveautemps = "f" 

If cboGenre.Text = "aoriste" Then nveautemps = "a" 

If cboGenre.Text = "parfait" Then nveautemps = "r" 

If cboGenre.Text = "pqp" Then nveautemps = "l" 

If cboGenre.Text = "-" Then nveautemps = "x" 

End If 

'txtNouveauCode.Text = nveaucode 

End Sub 

Private Sub cboNombre_LostFocus() 




If cboNombre.Text = "singulier" Then nveaucodenombre = "s" 

If cboNombre.Text = "pluriel" Then nveaucodenombre = "p" 

If cboNombre.Text = "duel" Then nveaucodenombre = "d" 


If cboNombre.Text = "actif" Then nveauvoix = "a" 

If cboNombre.Text = "moyen" Then nveauvoix = "m" 

If cboNombre.Text = "passif" Then nveauvoix = "p" 

If cboNombre.Text = "moyen ou passif" Then nveauvoix = "e" 

If cboNombre.Text = "déponent moyen" Then nveauvoix = "d" 

If cboNombre.Text = "déponent passif" Then nveauvoix = "o" 

If cboNombre.Text = "déponent moyen ou passif" Then nveauvoix = "n" 

If cboNombre.Text = "impersonnel actif" Then nveauvoix = "q" 

If cboNombre.Text = "-" Then nveaumode = "x" 

End If 

'txtNouveauCode.Text = nveaucode 

End Sub 

Private Sub cboPersonne_Change() 

'Dim nveaucode$ 

'mot = txtcode.Text 

'If Mid(mot, 1, 1) = "a" Then 

'End If 

End Sub 

Private Sub cboTempsCas_LostFocus() 




If cboTempsCas.Text = "nominatif" Then nveaucodecas = "n" 

If cboTempsCas.Text = "génitif" Then nveaucodecas = "g" 

If cboTempsCas.Text = "accusatif" Then nveaucodecas = "a" 

If cboTempsCas.Text = "datif" Then nveaucodecas = "d" 

If cboTempsCas.Text = "vocatif" Then nveaucodecas = "v" 


If cboTempsCas.Text = "indicatif" Then nveaumode = "i" 

If cboTempsCas.Text = "subjonctif" Then nveaumode = "s" 

If cboTempsCas.Text = "optatif" Then nveaumode = "o" 

If cboTempsCas.Text = "impératif" Then nveaumode = "m" 

If cboTempsCas.Text = "infinitif" Then nveaumode = "n" 

If cboTempsCas.Text = "participe" Then nveaumode = "p" 

If cboTempsCas.Text = "participe (sens impératif)" Then nveaumode = "r" 

End If 

'txtNouveauCode.Text = nveaucode


End Sub 


Unload Me 

End Sub 


lstPassages.Clear 



If nveaucodecas = "" Then nveaucodecas = Mid(mot, 2, 1) 

If nveaucodegenre = "" Then nveaucodegenre = Mid(mot, 3, 1) 

If nveaucodenombre = "" Then nveaucodenombre = Mid(mot, 4, 1) 


If nveaumode = "" Then nveaumode = Mid(mot, 2, 1) 

If nveautemps = "" Then nveautemps = Mid(mot, 3, 1) 

If nveauvoix = "" Then nveauvoix = Mid(mot, 4, 1) 

If nveaupersonne = "" Then nveaupersonne = Mid(mot, 5, 2) 

ElseIf mot = "tp" Then 

nveaucode = "tp" 

GoTo apres: 

End If 


nveaucode = "n" & nveaucodecas & nveaucodegenre & nveaucodenombre 


nveaucode = "v" & nveaumode & nveautemps & nveauvoix & cboPersonne.Text 

End If 

apres: 

txtNouveauCode.Text = nveaucode 

vientde = frmAnalyseMorphologique.lblvientde.Caption 

recherche = vientde & " (" & nveaucode & ")" 


End Sub 


mot = frmAnalyseMorphologique.lblanalyse2.Caption 

End Sub 

Private Sub lstPassages_Click() 

passage = Trim(lstPassages.Text) 








If livre = "Mat" Then 









chercher = "Actes" 



ElseIf livre = "1Co" Then











































End If 




'frmBible.Timer2.Enabled = True 

'livre = 

'Line1.Visible = True 



End Sub


VERSION 5.00 

Begin VB.Form frmRechercheMorphologique 


Caption = "Recherche morphologique ..." 












Begin VB.ComboBox cboPersonne 

Height = 315 

Left = 360 

TabIndex = 13 

Top = 2400 

Width = 1095 

End 

Begin VB.ComboBox cboPersonne2 

Height = 315 

Left = 1560 

TabIndex = 12 

Top = 1680 


Width = 1095 

End 

Begin VB.ComboBox cboPersonne3 

Height = 315 

Left = 1560 

TabIndex = 11 

Top = 2040 


Width = 1095 

End 

Begin VB.TextBox txtcode 

Height = 495 

Left = 2520 

TabIndex = 10 

Top = 600 


Width = 1215 

End 




Height = 375 

Left = 1680 

TabIndex = 8 

Top = 2520 

Width = 495 

End 

Begin VB.TextBox txtNouveauCode 

Height = 495 

Left = 2520 

TabIndex = 7 

Text = "nveaucode" 

Top = 0 


Width = 1095 

End 

Begin VB.ComboBox cboNombre 

Height = 315 

Left = 360 

TabIndex = 6 

Text = "Nombre" 

Top = 2040 

Width = 1095 

End 

Begin VB.ComboBox cboGenre 

Height = 315 

Left = 360 

TabIndex = 5


Text = "Genre" 

Top = 1680 

Width = 1095 

End 

Begin VB.ComboBox cboTempsCas 

Height = 315 

Left = 360 

TabIndex = 4 

Text = "Cas" 

Top = 1320 

Width = 1095 

End 

Begin VB.ComboBox cboType 

Height = 315 

Left = 120 

TabIndex = 3 

Text = "Type" 

Top = 840 

Width = 1335 

End 

Begin VB.ListBox lstPassages 

Height = 1815 

Left = 120 

TabIndex = 2 

Top = 3000 

Width = 1935 

End 

Begin VB.TextBox txtMot 



Size = 14.25 

Charset = 0 

Weight = 400 




EndProperty 

Height = 615 

Left = 120 

TabIndex = 1 

Top = 120 

Width = 2055 

End 



Caption = "X" 

Height = 375 

Left = 2280 

TabIndex = 0 

Top = 4560 

Width = 495 

End 

Begin VB.Label lblOcc 



Height = 735 

Left = 2160 

TabIndex = 9 

Top = 3120 

Width = 1095 

End 

End

frmReferences - 1 

Private Sub btnPrecedent_Click() 

If Val(txtPage.Text) > 0 Then 

txtPage.Text = Val(txtPage.Text) - 1 

End If 

End Sub 

Private Sub btnSuivant_Click() 

If Val(txtPage.Text) < 581 Then 

txtPage.Text = Val(txtPage.Text) + 1 

End If 

End Sub 


Unload Me 

End Sub 

Private Sub txtPage_Change() 

'ges_014_0001.jpg 

Dim page$ 

page = txtPage.Text 

On Error GoTo apres: 

f cboRef.Text = "Gesenius's Hebrew Grammar" Then 

If page


VERSION 5.00 

Begin VB.Form frmReferences 


Caption = " Références" 













Begin VB.TextBox txtNombrePage 

Height = 375 

Left = 6240 

TabIndex = 7 

Top = 0 


Width = 1095 

End 

Begin VB.TextBox txtRefPage 

Height = 375 

Left = 3480 

TabIndex = 6 

Top = 0 


Width = 2535 

End 


Caption = "Ok" 

Height = 375 

Left = 2520 

TabIndex = 5 

Top = 0 

Width = 495 

End 

Begin VB.ComboBox cboRef 

Height = 315 

Left = 0 

TabIndex = 4 

Text = "Références" 

Top = 0 

Width = 2535 

End 

Begin VB.TextBox txtPage 

Height = 405 

Left = 3480 

TabIndex = 3 

Top = 960 

Width = 1695 

End 

Begin VB.CommandButton btnSuivant 

Caption = ">" 



Size = 13.5 

Charset = 0 

Weight = 700 




EndProperty 

Height = 375 

Left = 7560 

TabIndex = 2 

Top = 960 

Width = 495 

End 

Begin VB.CommandButton btnPrecedent 

Caption = "


Size = 13.5 

Charset = 0 

Weight = 700 




EndProperty 

Height = 375 

Left = 720 

TabIndex = 1 

Top = 960 

Width = 495 

End 



Caption = "X" 

Height = 375 

Left = 8160 

TabIndex = 0 

Top = 240 

Width = 495 

End 


Height = 7815 

Left = 1320 


Top = 1320 

Width = 6255 

End 

End

frmResultatStrong - 1 

Private Sub Text1_Change() 

End Sub 

Private Sub Text1_Click() 

Unload Me 

End Sub 


Unload Me 

End Sub 

Private Sub lblNStrong_Click() 

strong = lblNStrong.Caption 

If Len(strong) < 20 Then Exit Sub 

strong = Mid(strong, 10, 5) 

If Left(strong, 4) = "0000" Then strong = Mid(strong, 5, Len(strong)) 




frmBrowser.cboAddress.Text = "http://levangile.com/Strong-Hebreu-" & strong & ".htm" 

'1.htm 

End Sub


VERSION 5.00 


egin VB.Form frmResultatStrong 


Caption = " Strong's Dictionary of Greek and Hebrew Words" 





Icon = (Icon) 











Caption = "X" 

Height = 375 

Left = 4080 

TabIndex = 0 

Top = 3360 

Width = 495 

End 

Begin RichTextLib.RichTextBox txtStrong 

Height = 2655 

Left = 0 

TabIndex = 1 

Top = 600 

Width = 4575 



_Version = 393217 



TextRTF = 

End 

Begin VB.Label lblMotH 



Name = "Bwhebb" 

Size = 20.25 

Charset = 0 

Weight = 700 




EndProperty 

Height = 735 

Left = 120 

TabIndex = 4 

Top = 120 

Width = 2535 

End 

Begin VB.Label lblMot 




Size = 14.25 

Charset = 0 

Weight = 700 




EndProperty 

Height = 735 

Left = 120 

TabIndex = 3 

Top = 240 

Width = 2535 

End 

Begin VB.Label lblNStrong 





Size = 9 

Charset = 0 

Weight = 700 




EndProperty 

Height = 495 

Left = 120 

TabIndex = 2 

Top = 3360 

Width = 3975 

End 

End

frmSysTray - 1 


03/03/2003 

* Added Unicode support 

* Added support for new tray version (ME,2000 or above required) 

* Added support for balloon tips (ME,2000 or above required) 

frmSysTray. 

Steve McMahon 

Original version based on code supplied from Ben Baird: 

Author: 

Ben Baird 

Copyright (c) 1997, Ben Baird 

Purpose: 

Demonstrates setting an icon in the taskbar's 

system tray without the overhead of subclassing 

to receive events. 

rivate Declare Function Shell_NotifyIconA Lib "shell32.dll" _ 

(ByVal dwMessage As Long, lpData As NOTIFYICONDATAA) As Long 

rivate Declare Function Shell_NotifyIconW Lib "shell32.dll" _ 

(ByVal dwMessage As Long, lpData As NOTIFYICONDATAW) As Long 

rivate Const NIF_ICON = &H2 

rivate Const NIF_MESSAGE = &H1 

rivate Const NIF_TIP = &H4 

rivate Const NIF_STATE = &H8 

rivate Const NIF_INFO = &H10 

rivate Const NIM_ADD = &H0 

rivate Const NIM_MODIFY = &H1 

rivate Const NIM_DELETE = &H2 

rivate Const NIM_SETFOCUS = &H3 

rivate Const NIM_SETVERSION = &H4 

rivate Const NOTIFYICON_VERSION = 3 

rivate Type NOTIFYICONDATAA 

cbSize As Long ' 4 

hwnd As Long ' 8 

uID As Long ' 12 

uFlags As Long ' 16 

uCallbackMessage As Long ' 20 

hIcon As Long ' 24 

szTip As String * 128 ' 152 

dwState As Long ' 156 

dwStateMask As Long ' 160 

szInfo As String * 256 ' 416 

uTimeOutOrVersion As Long ' 420 

szInfoTitle As String * 64 ' 484 

dwInfoFlags As Long ' 488 

guidItem As Long ' 492 

nd Type 

rivate Type NOTIFYICONDATAW 

cbSize As Long ' 4 

hwnd As Long ' 8 

uID As Long ' 12 

uFlags As Long ' 16 

uCallbackMessage As Long ' 20 

hIcon As Long ' 24 

szTip(0 To 255) As Byte ' 280 

dwState As Long ' 284 

dwStateMask As Long ' 288 

szInfo(0 To 511) As Byte ' 800 

uTimeOutOrVersion As Long ' 804 

szInfoTitle(0 To 127) As Byte ' 932 

dwInfoFlags As Long ' 936 

guidItem As Long ' 940 

nd Type 

rivate nfIconDataA As NOTIFYICONDATAA


Private nfIconDataW As NOTIFYICONDATAW 

Private Const NOTIFYICONDATAA_V1_SIZE_A = 88 

Private Const NOTIFYICONDATAA_V1_SIZE_U = 152 

Private Const NOTIFYICONDATAA_V2_SIZE_A = 488 

Private Const NOTIFYICONDATAA_V2_SIZE_U = 936 

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long 

Private Const WM_MOUSEMOVE = &H200 

Private Const WM_LBUTTONDBLCLK = &H203 

Private Const WM_LBUTTONDOWN = &H201 

Private Const WM_LBUTTONUP = &H202 

Private Const WM_RBUTTONDBLCLK = &H206 

Private Const WM_RBUTTONDOWN = &H204 

Private Const WM_RBUTTONUP = &H205 

Private Const WM_USER = &H400 

Private Const NIN_SELECT = WM_USER 

Private Const NINF_KEY = &H1 

Private Const NIN_KEYSELECT = (NIN_SELECT Or NINF_KEY) 

Private Const NIN_BALLOONSHOW = (WM_USER + 2) 

Private Const NIN_BALLOONHIDE = (WM_USER + 3) 

Private Const NIN_BALLOONTIMEOUT = (WM_USER + 4) 

Private Const NIN_BALLOONUSERCLICK = (WM_USER + 5) 

' Version detection: 

Private Declare Function GetVersion Lib "kernel32" () As Long 

Public Event SysTrayMouseDown(ByVal eButton As MouseButtonConstants) 

Public Event SysTrayMouseUp(ByVal eButton As MouseButtonConstants) 

Public Event SysTrayMouseMove() 

Public Event SysTrayDoubleClick(ByVal eButton As MouseButtonConstants) 

Public Event MenuClick(ByVal lIndex As Long, ByVal sKey As String) 

Public Event BalloonShow() 

Public Event BalloonHide() 

Public Event BalloonTimeOut() 

Public Event BalloonClicked() 

Public Enum EBalloonIconTypes 

NIIF_NONE = 0 

NIIF_INFO = 1 

NIIF_WARNING = 2 

NIIF_ERROR = 3 

NIIF_NOSOUND = &H10 

End Enum 

Private m_bAddedMenuItem As Boolean 

Private m_iDefaultIndex As Long 

Private m_bUseUnicode As Boolean 

Private m_bSupportsNewVersion As Boolean 

Public Sub ShowBalloonTip( _ 

ByVal sMessage As String, _ 

Optional ByVal sTitle As String, _ 

Optional ByVal eIcon As EBalloonIconTypes, _ 

Optional ByVal lTimeOutMs = 30000 _ 

) 

Dim lR As Long 

If (m_bSupportsNewVersion) Then 

If (m_bUseUnicode) Then 

stringToArray sMessage, nfIconDataW.szInfo, 512 

stringToArray sTitle, nfIconDataW.szInfoTitle, 128 

nfIconDataW.uTimeOutOrVersion = lTimeOutMs 

nfIconDataW.dwInfoFlags = eIcon 

nfIconDataW.uFlags = NIF_INFO 

lR = Shell_NotifyIconW(NIM_MODIFY, nfIconDataW) 

Else 

nfIconDataA.szInfo = sMessage 

nfIconDataA.szInfoTitle = sTitle 

nfIconDataA.uTimeOutOrVersion = lTimeOutMs 

nfIconDataA.dwInfoFlags = eIcon 

nfIconDataA.uFlags = NIF_INFO 

lR = Shell_NotifyIconA(NIM_MODIFY, nfIconDataA)


End If 

Else 

' can't do it, fail silently. 

End If 

End Sub 

Public Property Get ToolTip() As String 

Dim sTip As String 

Dim iPos As Long 

sTip = nfIconDataA.szTip 

iPos = InStr(sTip, Chr$(0)) 

If (iPos 0) Then 

sTip = Left$(sTip, iPos - 1) 

End If 

ToolTip = sTip 

End Property 

Public Property Let ToolTip(ByVal sTip As String) 


stringToArray sTip, nfIconDataW.szTip, unicodeSize(IIf(m_bSupportsNewVersion, 128, 64)) 

nfIconDataW.uFlags = NIF_TIP 

Shell_NotifyIconW NIM_MODIFY, nfIconDataW 

Else 

If (sTip & Chr$(0) nfIconDataA.szTip) Then 

nfIconDataA.szTip = sTip & Chr$(0) 

nfIconDataA.uFlags = NIF_TIP 

Shell_NotifyIconA NIM_MODIFY, nfIconDataA 

End If 

End If 

End Property 

Public Property Get IconHandle() As Long 

IconHandle = nfIconDataA.hIcon 

End Property 

Public Property Let IconHandle(ByVal hIcon As Long) 


If (hIcon nfIconDataW.hIcon) Then 

nfIconDataW.hIcon = hIcon 

nfIconDataW.uFlags = NIF_ICON 

Shell_NotifyIconW NIM_MODIFY, nfIconDataW 

End If 

Else 

If (hIcon nfIconDataA.hIcon) Then 

nfIconDataA.hIcon = hIcon 

nfIconDataA.uFlags = NIF_ICON 

Shell_NotifyIconA NIM_MODIFY, nfIconDataA 

End If 

End If 

End Property 

Public Function AddMenuItem(ByVal sCaption As String, Optional ByVal sKey As String = "", Optional 

ByVal bDefault As Boolean = False) As Long 

Dim iIndex As Long 

If Not (m_bAddedMenuItem) Then 

iIndex = 0 

m_bAddedMenuItem = True 

Else 

iIndex = mnuSysTray.UBound + 1 

Load mnuSysTray(iIndex) 

End If 

mnuSysTray(iIndex).Visible = True 

mnuSysTray(iIndex).Tag = sKey 

mnuSysTray(iIndex).Caption = sCaption 

If (bDefault) Then 

m_iDefaultIndex = iIndex 

End If 

AddMenuItem = iIndex 

End Function 

Private Function ValidIndex(ByVal lIndex As Long) As Boolean 

ValidIndex = (lIndex >= mnuSysTray.LBound And lIndex


End Sub 

Public Function RemoveMenuItem(ByVal iIndex As Long) As Long 

Dim i As Long 

If ValidIndex(iIndex) Then 

If (iIndex = 0) Then 

mnuSysTray(0).Caption = "" 

Else 

' remove the item: 

For i = iIndex + 1 To mnuSysTray.UBound 

mnuSysTray(iIndex - 1).Caption = mnuSysTray(iIndex).Caption 

mnuSysTray(iIndex - 1).Tag = mnuSysTray(iIndex).Tag 

Next i 

Unload mnuSysTray(mnuSysTray.UBound) 

End If 

End If 

End Function 

Public Property Get DefaultMenuIndex() As Long 

DefaultMenuIndex = m_iDefaultIndex 

End Property 

Public Property Let DefaultMenuIndex(ByVal lIndex As Long) 

If (ValidIndex(lIndex)) Then 

m_iDefaultIndex = lIndex 

Else 

m_iDefaultIndex = 0 

End If 

End Property 

Public Function ShowMenu() 

SetForegroundWindow Me.hwnd 

If (m_iDefaultIndex > -1) Then 

Me.PopupMenu mnuPopup, 0, , , mnuSysTray(m_iDefaultIndex) 

Else 

Me.PopupMenu mnuPopup, 0 

End If 

End Function 


' Get version: 

Dim lMajor As Long 

Dim lMinor As Long 

Dim bIsNt As Long 

GetWindowsVersion lMajor, lMinor, , , bIsNt 

) 

If (bIsNt) Then 

m_bUseUnicode = True 

If (lMajor >= 5) Then 

' 2000 or XP 

m_bSupportsNewVersion = True 

End If 

ElseIf (lMajor = 4) And (lMinor = 90) Then 

' Windows ME 

m_bSupportsNewVersion = True 

End If 

'Add the icon to the system tray... 



With nfIconDataW 

.hwnd = Me.hwnd 

.uID = Me.Icon 

.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP 

.uCallbackMessage = WM_MOUSEMOVE 

.hIcon = Me.Icon.Handle 

stringToArray App.FileDescription, .szTip, unicodeSize(IIf(m_bSupportsNewVersion, 128, 64) 


.uTimeOutOrVersion = NOTIFYICON_VERSION 

End If 

.cbSize = nfStructureSize 

End With 

lR = Shell_NotifyIconW(NIM_ADD, nfIconDataW)



Shell_NotifyIconW NIM_SETVERSION, nfIconDataW 

End If 

Else 

With nfIconDataA 

.hwnd = Me.hwnd 

.uID = Me.Icon 

.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP 

.uCallbackMessage = WM_MOUSEMOVE 

.hIcon = Me.Icon.Handle 

.szTip = App.FileDescription & Chr$(0) 


.uTimeOutOrVersion = NOTIFYICON_VERSION 

End If 

.cbSize = nfStructureSize 

End With 

lR = Shell_NotifyIconA(NIM_ADD, nfIconDataA) 


lR = Shell_NotifyIconA(NIM_SETVERSION, nfIconDataA) 

End If 

End If 

End Sub 

Private Sub stringToArray( _ 

ByVal sString As String, _ 

bArray() As Byte, _ 

ByVal lMaxSize As Long _ 

) 

Dim b() As Byte 

Dim i As Long 

Dim j As Long 

If Len(sString) > 0 Then 

b = sString 

For i = LBound(b) To UBound(b) 

bArray(i) = b(i) 

If (i = (lMaxSize - 2)) Then 

Exit For 

End If 

Next i 

For j = i To lMaxSize - 1 

bArray(j) = 0 

Next j 

End If 

End Sub 

Private Function unicodeSize(ByVal lSize As Long) As Long 


unicodeSize = lSize * 2 

Else 

unicodeSize = lSize 

End If 

End Function 

Private Property Get nfStructureSize() As Long 



nfStructureSize = NOTIFYICONDATAA_V2_SIZE_U 

Else 

nfStructureSize = NOTIFYICONDATAA_V2_SIZE_A 

End If 

Else 


nfStructureSize = NOTIFYICONDATAA_V1_SIZE_U 

Else 

nfStructureSize = NOTIFYICONDATAA_V1_SIZE_A 

End If 

End If 

End Property 

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) 

Dim lX As Long 

' VB manipulates the x value according to scale mode: 

' we must remove this before we can interpret the 

' message windows was trying to send to us: 

lX = ScaleX(x, Me.ScaleMode, vbPixels) 

Select Case lX


Case WM_MOUSEMOVE 

RaiseEvent SysTrayMouseMove 

Case WM_LBUTTONUP 

RaiseEvent SysTrayMouseDown(vbLeftButton) 

Case WM_LBUTTONUP 

RaiseEvent SysTrayMouseUp(vbLeftButton) 

Case WM_LBUTTONDBLCLK 

RaiseEvent SysTrayDoubleClick(vbLeftButton) 

Case WM_RBUTTONDOWN 

RaiseEvent SysTrayMouseDown(vbRightButton) 

Case WM_RBUTTONUP 

RaiseEvent SysTrayMouseUp(vbRightButton) 

Case WM_RBUTTONDBLCLK 

RaiseEvent SysTrayDoubleClick(vbRightButton) 

Case NIN_BALLOONSHOW 

RaiseEvent BalloonShow 

Case NIN_BALLOONHIDE 

RaiseEvent BalloonHide 

Case NIN_BALLOONTIMEOUT 

RaiseEvent BalloonTimeOut 

Case NIN_BALLOONUSERCLICK 

RaiseEvent BalloonClicked 

End Select 

End Sub 

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 


Shell_NotifyIconW NIM_DELETE, nfIconDataW 

Else 

Shell_NotifyIconA NIM_DELETE, nfIconDataA 

End If 

End Sub 

Private Sub mnuSysTray_Click(Index As Integer) 

RaiseEvent MenuClick(Index, mnuSysTray(Index).Tag) 

End Sub 

Private Sub GetWindowsVersion( _ 

Optional ByRef lMajor = 0, _ 

Optional ByRef lMinor = 0, _ 

Optional ByRef lRevision = 0, _ 

Optional ByRef lBuildNumber = 0, _ 

Optional ByRef bIsNt = False _ 

) 


lR = GetVersion() 

lBuildNumber = (lR And &H7F000000) \ &H1000000 

If (lR And &H80000000) Then lBuildNumber = lBuildNumber Or &H80 

lRevision = (lR And &HFF0000) \ &H10000 

lMinor = (lR And &HFF00&) \ &H100 

lMajor = (lR And &HFF) 

bIsNt = ((lR And &H80000000) = 0) 

End Sub


VERSION 5.00 

Begin VB.Form frmSysTray 

Caption = "Sys Tray Interface" 








Begin VB.Menu mnuPopup 

Caption = "&Popup" 

Begin VB.Menu mnuSysTray 

Caption = "" 

Index = 0 

End 

End 

End

frmTSK - 1 

VERSION 5.00 

Begin VB.Form frmTSK 

Caption = "Form1" 








StartUpPosition = 3 'Windows Default 

Begin VB.TextBox Text 

Height = 2055 

Left = 840 

TabIndex = 0 

Text = "Text1" 

Top = 600 

Width = 3015 

End 

End

frmWeb - 1 


Unload Me 

End Sub

frmWeb - 1 

VERSION 5.00 

Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx" 

egin VB.Form frmWeb 


Caption = "Bible Parser : the Power of the Web..." 











StartUpPosition = 3 'Windows Default 

Begin VB.OptionButton Option1 


Height = 195 

Left = 720 

TabIndex = 3 

Top = 2400 

Width = 2175 

End 

Begin ComctlLib.TabStrip TabStrip1 

Height = 2415 

Left = 480 

TabIndex = 2 

Top = 1560 

Width = 3735 



_Version = 327682 

BeginProperty Tabs {0713E432-850A-101B-AFC0-4210102A8DA7} 

NumTabs = 3 

BeginProperty Tab1 {0713F341-850A-101B-AFC0-4210102A8DA7} 

Caption = "Définition" 

Key = "" 


ImageVarType = 2 

EndProperty 


Caption = "Analyse" 

Key = "" 



EndProperty 


Caption = "Référence" 

Key = "" 



EndProperty 

EndProperty 

End 


Caption = "&OK" 

Height = 375 

Left = 5040 

TabIndex = 1 

Top = 3720 

Width = 495 

End 


Height = 495 

Left = 1440 

TabIndex = 0 

Top = 360 

Width = 2055 

End 

nd

frmZetoGraphe - 1 

Private Sub btnFermer_Click() 

End 

End Sub 

Private Sub cboVersion_LostFocus() 

If cboVersion.Text = "NA27" Or cboVersion.Text = "WH+" Then 

txtRecherche.Text = "" 

txtRecherche.Font = "Bwgrkn" 

txtRecherche.FontSize = "14" 

ElseIf cboVersion.Text = "BHS" Then 


txtRecherche.Font = "Bwhebb" 


Else 


txtRecherche.Font = "MS Sans Serif" 


End If 

End Sub 


zetographediret = False 

Unload Me 

End Sub 

Public Sub btnRechercher_Click() 

Dim version As String 

Dim recherche As String 

Dim lfile As String 

Dim ofile As String 

Dim ligne As String 

Dim nombre As Integer 

Dim msg As String 

Dim fichier As String 

'affectation des variables 


recherche = " " & txtRecherche.Text 

version = cboVersion.Text 


'gestion des erreurs 

If txtRecherche = "" Then 

txtRecherche.Text = frmBible.txtPassage.SelText 

cboVersion.Text = frmBible.cboVersion.Text 

'Or txtRecherche = "mot ou expression" Then 

'msg = MsgBox("Vous n'avez pas saisi votre recherche !", vbInformation) 


End If 

'définition du chemin du fichier texte 

'en fonction de la version choisie 

If version = "LSG" Then 

fichier = App.Path & "\modules\lsg1901\lsg.txt" 

ElseIf version = "Darby" Then 

fichier = App.Path & "\modules\Darby\darby.txt" 

ElseIf version = "JER" Then 

fichier = App.Path & "\modules\JER\jer.txt" 

ElseIf version = "TOB" Then 

fichier = App.Path & "\modules\TOB\tob.txt" 

ElseIf version = "BFC" Then 

fichier = App.Path & "\modules\BFC\bfc.txt" 

ElseIf version = "Vulgate" Then 

fichier = App.Path & "\modules\Vg\vulgate.txt" 

ElseIf version = "ASV" Then 

fichier = App.Path & "\modules\ASV\asv.txt" 

ElseIf version = "KJV" Then 

fichier = App.Path & "\modules\KJV\kjv.txt" 

ElseIf version = "Flavius Josèphe - En" Then 

fichier = App.Path & "\modules\JOS\joe.txt" 

ElseIf version = "DIAGLOTT" Then 

fichier = App.Path & "\modules\Diaglott\Diaglott.txt"


ElseIf version = "YLT" Then 

fichier = App.Path & "\modules\YLT\ylt.txt" 

ElseIf version = "WEB" Then 

fichier = App.Path & "\modules\WEB\web.txt" 

ElseIf version = "BBE" Then 

fichier = App.Path & "\modules\BBE\bbe.txt" 

ElseIf version = "DR" Then 

fichier = App.Path & "\modules\DR\dr.txt" 

ElseIf version = "WBST" Then 

fichier = App.Path & "\modules\Webster\webster.txt" 

ElseIf version = "NET" Then 

fichier = App.Path & "\modules\NET\net.txt" 

ElseIf version = "JPS" Then 

fichier = App.Path & "\modules\JPS\jps.txt" 

ElseIf version = "APF-G" Then 

fichier = App.Path & "\modules\APF\apfg.txt" 

ElseIf version = "APF-E" Then 

fichier = App.Path & "\modules\APF\ape.txt" 

ElseIf version = "Lightfoot" Then 

fichier = App.Path & "\modules\APF\Lightfoot.txt" 

ElseIf version = "BHS" Then 

Call ConcordanceBHS(recherche) 

Exit Sub 

ElseIf version = "Flavius Josèphe" Then 

Call ConcordanceFJ(recherche) 

Exit Sub 

ElseIf version = "ANF" Then 

Call ConcordanceANF(recherche) 

Exit Sub 

ElseIf version = "NA27" Then 

Call ConcordanceNA27(recherche) 

Exit Sub 

ElseIf version = "WH+" Then 

Call ConcordanceWH(recherche) 

Exit Sub 

ElseIf version = "Tischendorf+" Then 

Call ConcordanceTIS(recherche) 

Exit Sub 

ElseIf version = "LXX" Then 

Call ConcordanceLXX(recherche) 

Exit Sub 

ElseIf version = "APF-G" Then 

Call ConcordanceAPFG(recherche) 

Exit Sub 

ElseIf version = "Homère" Then 

Call ConcordanceHomere(recherche) 

Exit Sub 

End If 

'Select Case version 

'Case Is = "LSG" 

'OFile = App.Path & "\modules\lsg1901\lsg.txt" 

'Case Is = "Darby" 

'OFile = App.Path & "\modules\Darby\darby.txt" 

'Case Is = "JER" 

'OFile = App.Path & "\JER\jer.txt" 

'End Select 

'nombre = 0 

Open fichier For Input As #lfile 


Do 

Input #lfile, ligne


If InStr(1, ligne, recherche, vbTextCompare) 0 Then 

Text1.Text = Text1.Text & vbCrLf & Mid(ligne, 1, 45) & "..." 

'recherche = ligne 

'Call RemettrePassageLSG(recherche) 

'lsResultat.AddItem (Mid(recherche, 1, 45) & "...") 

nombre = nombre + 1 

End If 


apres: 

Close 

lblResultat.Caption = nombre & " passages trouvés" 

Text1.Text = Replace(Text1.Text, "~", ",") 

Text1.Text = Mid(Text1.Text, 3, Len(Text1.Text)) 

recherche = Text1.Text 

Call RemettrePassageLSG(recherche) 

Text1.Text = recherche 

Show 0 

frmZetoGraphe.MousePointer = 0 

If lblResultat.Caption = " 1 passage trouvé" Then lblResultat.Caption = "Hapax legomenon !" 

If lblResultat.Caption = "0 passage trouvé" Then 

Unload frmResultat 

msg = MsgBox(frmZetoGraphe.txtRecherche.Text & " n'a pas été trouvé dans la version " & cboVers 

ion.Text, vbInformation, "Pas de résultat") 

End If 

End Sub 

Private Sub Form_GotFocus() 


nload frmResultat 

pres: 

nd Sub 

rivate Sub Form_Load() 

boVersion.Text = "LSG" 

boVersion.AddItem ("BHS") 

boVersion.AddItem ("--") 

boVersion.AddItem ("NA27") 

boVersion.AddItem ("WH+") 

boVersion.AddItem ("LXX") 


boVersion.AddItem ("Vulgate") 


boVersion.AddItem ("LSG") 

boVersion.AddItem ("Darby") 

boVersion.AddItem ("JER") 

boVersion.AddItem ("TOB") 

boVersion.AddItem ("BFC") 


boVersion.AddItem ("ASV") 

boVersion.AddItem ("KJV") 

boVersion.AddItem ("NET") 

boVersion.AddItem ("DIAGLOTT") 

boVersion.AddItem ("YLT") 

boVersion.AddItem ("WEB") 

boVersion.AddItem ("BBE") 

boVersion.AddItem ("DR") 

boVersion.AddItem ("WBST") 


boVersion.AddItem ("ANF") 

boVersion.AddItem ("APF-G") 

boVersion.AddItem ("APF-E") 

boVersion.AddItem ("Lightfoot") 


boVersion.AddItem ("Flavius Josèphe") 

boVersion.AddItem ("Flavius Josèphe - En") 

cboVersion.AddItem ("Homère") 

nd Sub


Private Sub lstResultat_Click() 

Dim msg$ 

If cboVersion.Text = "ANF" Then msg$ = MsgBox("Cette fonction n'est pas encore disponible !", vbInf 

ormation) 

If lstResultat.Text "" Then 

passage = Trim(lstResultat.Text) 








Else 

Exit Sub 

End If 

If livre = "Gen" Then 

chercher = "Genèse" 

ElseIf livre = "Exo" Then 

chercher = "Exode" 

ElseIf livre = "Lev" Then 

chercher = "Lévitique" 

ElseIf livre = "Num" Then 

chercher = "Nombres" 

ElseIf livre = "Deu" Then 

chercher = "Deutéronome" 

ElseIf livre = "Jos" Then 

chercher = "Josué" 

ElseIf livre = "Jdg" Then 

chercher = "Juges" 

ElseIf livre = "Rut" Then 










ElseIf livre = "1Ch" Then 

chercher = "1 Chroniques" 



ElseIf livre = "Ezr" Then 

chercher = "Esdras" 

ElseIf livre = "Neh" Then 

chercher = "Néhémie" 

ElseIf livre = "Est" Then 

chercher = "Esther" 



ElseIf livre = "Psa" Then


chercher = "Psaumes" 

ElseIf livre = "Pro" Then 

chercher = "Proverbes" 

ElseIf livre = "Ecc" Then 

chercher = "Ecclésiaste" 

ElseIf livre = "Sol" Then 

chercher = "Cantique des cantiques" 

ElseIf livre = "Isa" Then 

chercher = "Esaïe" 

ElseIf livre = "Jer" Then 

chercher = "Jérémie" 

ElseIf livre = "Lam" Then 

chercher = "Lamentations" 

ElseIf livre = "Eze" Then 

chercher = "Ezéchiel" 

ElseIf livre = "Dan" Then 

chercher = "Daniel" 

ElseIf livre = "Hos" Then 

chercher = "Osée" 

ElseIf livre = "Joe" Then 

chercher = "Joël" 

ElseIf livre = "Amo" Then 


ElseIf livre = "Oba" Then 

chercher = "Abdias" 

ElseIf livre = "Jon" Then 

chercher = "Jonas" 

ElseIf livre = "Mic" Then 

chercher = "Michée" 

ElseIf livre = "Hab" Then 

chercher = "Habaquq" 

ElseIf livre = "Zep" Then 

chercher = "Sophonie" 

ElseIf livre = "Hag" Then 

chercher = "Aggée" 

ElseIf livre = "Nah" Then 

chercher = "Nahoum" 

ElseIf livre = "Zec" Then 

chercher = "Zacharie" 

ElseIf livre = "Mal" Then 

chercher = "Malachie" 

'--------- 

ElseIf livre = "Mat" Then 









chercher = "Actes"














































End If 




End Sub 


If txtRecherche.Text "" And frmBible.mnuZetoG.Checked = False Then




End If 

End Sub 

Private Sub txtRecherche_Click() 

'txtRecherche.Text = "" 

'txtRecherche.ForeColor = vbBlack 

'On Error GoTo apres: 

' Unload frmResultat 

'apres: 

End Sub 

Private Sub txtRecherche_KeyPress(KeyAscii As Integer) 

If KeyAscii = 13 Then btnRechercher_Click 

If KeyAscii = 27 Then Unload Me 

End Sub


VERSION 5.00 

Begin VB.Form frmZetoGraphe 


Caption = " Concordance ZêtoGraphê" 





Icon = (Icon) 




Moveable = 0 'False 





Begin VB.ListBox lstResultat 

Height = 1815 

Left = 360 

TabIndex = 10 

Top = 2280 


Width = 2655 

End 


Caption = "X" 

Height = 255 

Left = 3960 

TabIndex = 9 

Top = 4200 

Width = 375 

End 


Height = 1815 

Left = 120 


ScrollBars = 3 'Both 

TabIndex = 7 

Top = 2280 

Width = 3735 

End 


Interval = 10 

Left = 1560 

Top = 0 

End 


Caption = "Rechercher" 


Height = 255 

Left = 2640 

TabIndex = 2 

Top = 840 


Width = 1455 

End 



Height = 255 

Left = 3840 

TabIndex = 6 

Top = 1200 


Width = 615 

End 

Begin VB.ComboBox cboVersion 

Height = 315 

Left = 2400 

TabIndex = 1 

Text = " version..." 

Top = 1680 

Width = 1455 

End 


Height = 2175


Left = 0 




TabIndex = 3 

Top = 0 

Width = 1935 

End 

Begin VB.TextBox txtRecherche 


Height = 405 

Left = 2040 

TabIndex = 0 

Top = 1200 

Width = 1815 

End 

Begin VB.Label lblResultat 



Caption = "passages trouvés" 


Name = "Courier New" 

Size = 9 

Charset = 0 

Weight = 700 




EndProperty 

Height = 375 

Left = -600 

TabIndex = 8 

Top = 4200 

Width = 5775 

End 




Caption = "ZhtwGrafh" 


Name = "Symbol" 

Size = 18 

Charset = 2 

Weight = 700 




EndProperty 


Height = 495 

Left = 2040 

TabIndex = 5 

Top = 480 

Width = 2655 

End 




Caption = "ZêtôGraphê" 


Name = "Courier New" 

Size = 18 

Charset = 0 

Weight = 700 




EndProperty 

Height = 375 

Left = 1800 

TabIndex = 4 

Top = 120 

Width = 2655 

End 

End

ZêtôGraphê 

ΖητωΓραφη 

passages trouvés

fctAfficherAnalyseSeptante - 1 

Public Function AfficherAnalyseSeptante(mot, origine, codemot) As String 

Dim packard$ 

Dim ouvrir 

Dim chercher$ 

packard = App.Path & "\tools\packard.txt" 

ouvrir = FreeFile 


Load frmParse 

frmParse.Show 

frmParse.lblDefinition.Caption = mott 

frmParse.lblmot.Caption = mot 

motr = LCase(origine) 

If Right(motr, 1) = "s" Then 

motr = Mid(motr, 1, Len(motr) - 1) & "j" 

End If 

frmParse.lblorigine.Caption = LCase(motr) 


frmParse.lblDefinition.Caption = "Définition: " & mott 

frmParse.lblDefinition.Visible = True 

chercher = Replace(codemot, " ", " ", 1) 

Open packard For Input As #ouvrir 

Do 

pres: 

Input #ouvrir, ligne 

If ligne = chercher Then 

Do 

Input #ouvrir, ligne 

If ligne = "" Or ligne = vbCrLf Then 

GoTo apres: 

End If 

frmBible.lbltampon.Text = frmBible.lbltampon.Text & ligne & vbCrLf 

Loop 

End If 

Loop While Not EOF(ouvrir) 

MsgBox "Récapitulation : mot : " & mot & vbCrLf & "origine : " & LCase(origine) & vbCrLf & "défini 

ion : " & mott & vbCrLf & "code : " & chercher & vbCrLf & frmBible.lbltampon.Text 

rmParse.txtAnalyse.Caption = vbCrLf & frmBible.lbltampon.Text 

rmParse2.Text1.Text = vbCrLf & frmBible.lbltampon.Text 

nd Function

fctAnalyseMorphoLatin - 1 

Public Function AnalyseMorphoLatin(ligne) 

ligne = Replace(ligne, " NOM ", " nominatif ") 

ligne = Replace(ligne, " ACC ", " accusatif ") 

ligne = Replace(ligne, " GEN ", " génitif ") 

ligne = Replace(ligne, " DAT ", " datif ") 

ligne = Replace(ligne, " LOC ", " locatif ") 

ligne = Replace(ligne, " ABL ", " ablatif") 

ligne = Replace(ligne, " NOM", " nominatif ") 

ligne = Replace(ligne, " ACC", " accusatif ") 

ligne = Replace(ligne, " GEN", " génitif ") 

ligne = Replace(ligne, " DAT", " datif ") 

ligne = Replace(ligne, " LOC", " locatif ") 

ligne = Replace(ligne, " ABL", " ablatif") 

ligne = Replace(ligne, " V 0", " Verbe ") 










ligne = Replace(ligne, "V 0", " Verbe ") 










ligne = Replace(ligne, " N 0", " Nom ") 










ligne = Replace(ligne, " N N", " Nom neutre") 

ligne = Replace(ligne, " N M", " Nom masculin") 

ligne = Replace(ligne, " N F", " Nom féminin") 

ligne = Replace(ligne, " N X", " Nom ") 


'ligne = Replace(ligne, "N 1", " Nom ") 









'ligne = Replace(ligne, "N N", " Nom neutre") 

'ligne = Replace(ligne, "N M", " Nom masculin") 

'ligne = Replace(ligne, "N F", " Nom féminin") 

'ligne = Replace(ligne, "N X", " Nom ") 

ligne = Replace(ligne, " X ", " (?) ") 

ligne = Replace(ligne, " ADJ ", " Adjectif ") 

ligne = Replace(ligne, " PRON ", " Pronom ") 

ligne = Replace(ligne, " ADV ", " Adverbe ") 

ligne = Replace(ligne, " NUM ", " numéral ") 

ligne = Replace(ligne, " SUPINE ", " supin ") 

ligne = Replace(ligne, " CONJ ", " Conjonction ") 

ligne = Replace(ligne, " INTERJ ", " Interjection ")


ligne = Replace(ligne, " TACKON ", " (?) ") 

ligne = Replace(ligne, " PREFIX ", " Préfixe ") 

ligne = Replace(ligne, " SUFFIX ", " Suffixe ") 

ligne = Replace(ligne, " PACK ", " (?)") 

ligne = Replace(ligne, " VPAR ", " Participe ") 

ligne = Replace(ligne, " PREP ", " Préposition ") 

ligne = Replace(ligne, " X ", " (?) ") 

ligne = Replace(ligne, " ADJ ", " Adjectif ") 

ligne = Replace(ligne, "PRON ", " Pronom ") 

ligne = Replace(ligne, "ADV ", " Adverbe ") 

ligne = Replace(ligne, "NUM ", " numéral ") 

ligne = Replace(ligne, "SUPINE ", " supin ") 

ligne = Replace(ligne, "CONJ ", " Conjonction ") 

ligne = Replace(ligne, "INTERJ ", " Interjection ") 

ligne = Replace(ligne, "TACKON ", " (?) ") 

ligne = Replace(ligne, "PREFIX ", " Préfixe ") 

ligne = Replace(ligne, "SUFFIX ", " Suffixe ") 

ligne = Replace(ligne, "PACK ", " (?)") 

ligne = Replace(ligne, "VPAR ", " Participe ") 

ligne = Replace(ligne, "PREP ", " Préposition ") 

ligne = Replace(ligne, " S M", " masculin singulier ") 

ligne = Replace(ligne, " P M", " masculin pluriel ") 

ligne = Replace(ligne, " N M", " masculin neutre ") 

ligne = Replace(ligne, " X M", " masculin ") 

ligne = Replace(ligne, "S M", " masculin singulier ") 

ligne = Replace(ligne, "P M", " masculin pluriel ") 

ligne = Replace(ligne, "N M", " masculin neutre ") 

ligne = Replace(ligne, "X M", " masculin ") 

ligne = Replace(ligne, " S F", " féminin singulier ") 

ligne = Replace(ligne, " P F", " féminin pluriel ") 

ligne = Replace(ligne, " N F", " féminin neutre ") 

ligne = Replace(ligne, " X F", " féminin ") 

ligne = Replace(ligne, "S F", " féminin singulier ") 

ligne = Replace(ligne, "P F", " féminin pluriel ") 

ligne = Replace(ligne, "N F", " féminin neutre ") 

ligne = Replace(ligne, "X F", " féminin ") 

ligne = Replace(ligne, " S N", " neutre singulier ") 

ligne = Replace(ligne, " P N", " neutre pluriel ") 

ligne = Replace(ligne, " X N", " neutre ") 

ligne = Replace(ligne, "S N ", " neutre singulier ") 

ligne = Replace(ligne, "P N ", " neutre pluriel ") 

ligne = Replace(ligne, "X N ", " neutre ") 

ligne = Replace(ligne, "S N", " neutre singulier ") 

ligne = Replace(ligne, "P N", " neutre pluriel ") 

ligne = Replace(ligne, " P C", " pluriel (commun) ") 

ligne = Replace(ligne, " S C", " singulier (commun) ") 

ligne = Replace(ligne, " S X", " singulier") 

ligne = Replace(ligne, " P X", " pluriel") 

ligne = Replace(ligne, " PRES ", " présent ") 

ligne = Replace(ligne, " IMPF ", " imparfait ") 

ligne = Replace(ligne, " FUT ", " futur ") 

ligne = Replace(ligne, " PERF ", " parfait ") 

ligne = Replace(ligne, " PLUP ", " plus-que-parfait ") 

ligne = Replace(ligne, " FUTP ", " futur du parfait ") 

ligne = Replace(ligne, " PRES", " présent ") 

ligne = Replace(ligne, " IMPF", " imparfait ") 

ligne = Replace(ligne, " FUT", " futur ") 

ligne = Replace(ligne, " PERF", " parfait ") 

ligne = Replace(ligne, " PLUP", " plus-que-parfait ") 

ligne = Replace(ligne, " FUTP", " futur du parfait ") 

ligne = Replace(ligne, " ACTIVE ", " actif ") 

ligne = Replace(ligne, " PASSIVE ", " passif ") 

ligne = Replace(ligne, " ACTIVE", " actif ") 

ligne = Replace(ligne, " PASSIVE", " passif ")


ligne = Replace(ligne, " IND ", " indicatif ") 

ligne = Replace(ligne, " SUB ", " subjonctif ") 

ligne = Replace(ligne, " IMP ", " impératif ") 

ligne = Replace(ligne, " INF ", " infinitif ") 

ligne = Replace(ligne, " PPL ", " participe ") 

ligne = Replace(ligne, " DEP ", " déponent ") 

ligne = Replace(ligne, " SEMIDEP ", " semidéponent ") 

ligne = Replace(ligne, " PERFDEF ", " verbe défini parfait ") 

ligne = Replace(ligne, " PPL", " participe ") 

ligne = Replace(ligne, " IND", " indicatif ") 

ligne = Replace(ligne, " SUB", " subjonctif ") 

ligne = Replace(ligne, " IMP", " impératif ") 

ligne = Replace(ligne, " INF", " infinitif ") 

ligne = Replace(ligne, " PPL", " participe ") 

ligne = Replace(ligne, " DEP", " déponent ") 

ligne = Replace(ligne, " SEMIDEP", " semidéponent ") 

ligne = Replace(ligne, " PERFDEF", " verbe défini parfait ") 

ligne = Replace(ligne, " unkown ", " ? ") 

ligne = Replace(ligne, " PERS ", " personnel ") 

ligne = Replace(ligne, " REL ", " relatif ") 

ligne = Replace(ligne, " REFLEX ", " réflexif ") 

ligne = Replace(ligne, " DEMONS ", " démonstratif ") 

ligne = Replace(ligne, " INTERR ", " interrogatif ") 

ligne = Replace(ligne, " INDEF ", " indéfini ") 

ligne = Replace(ligne, " ADJECT ", " adjectival ") 

ligne = Replace(ligne, " TO_BE ", " verbe être ") 

ligne = Replace(ligne, " TO_BEING ", " (dérivé du verbe être) ") 

ligne = Replace(ligne, " PRES ", " présent ") 

ligne = Replace(ligne, " TRANS ", " transitif ") 

ligne = Replace(ligne, " INTRANS ", " présent ") 

ligne = Replace(ligne, " IMPERS ", " présent ") 

ligne = Replace(ligne, " 1 S", " 1ère pers. sing. ") 

ligne = Replace(ligne, " 2 S", " 2ème pers. sing. ") 

ligne = Replace(ligne, " 3 S", " 3ème pers. sing. ") 

ligne = Replace(ligne, " 1 P", " 1ère pers. plur. ") 

ligne = Replace(ligne, " 2 P", " 2ème pers. plur. ") 

ligne = Replace(ligne, " 3 P", " 3ème pers. plur. ") 

ligne = Replace(ligne, " NUM ", " numéral ") 

ligne = Replace(ligne, " ORD ", " ordinal ") 

ligne = Replace(ligne, " CARD ", " cardinal ") 

ligne = Replace(ligne, " COMP ", " comparatif ") 

ligne = Replace(ligne, " SUPER ", " superlatif ") 

ligne = Replace(ligne, " DIST ", " distributif ") 

ligne = Replace(ligne, "0 ", "") 










ligne = Replace(ligne, " ", " ") 

ligne = Replace(ligne, " X", "") 

ligne = Replace(ligne, " POS", " positif ") 

ligne = Replace(ligne, " Late", " (tardif) ") 

'ligne = Replace(ligne, " (archaïqe)", " A") 

'ligne = Replace(ligne, " (préclassique)", " B") 

'ligne = Replace(ligne, " (moderne)", " H") 

ligne = Trim(ligne) 

End Function

fctAnalyserGrec - 1 


ublic Function AnalyserGrec(mot, Resultat, enlever, enleverg) 


ARTICLE DEFINI 

f mot = "o(" Or mot = "o" Then 

esultat = "Article défini, nominatif masculin singulier : le " 

lseIf mot = "to/n" Or mot = "ton" Or mot = "to\n" Then 

esultat = "Article défini, accusatif masculin singulier : le " 

lseIf mot = "tou=" Or mot = "tou" Then 

esultat = "Article défini, génitif masculin / neutre singulier : du " 

lseIf mot = "tw=|" Or mot = "tw|=" Or mot = "tw" Then 

esultat = "Article défini, datif masculin / neutre singulier : au " 

lseIf mot = "oi(" Or mot = "oi" Then 

esultat = "Article défini, nominatif masculin pluriel : les " 

lseIf mot = "tou/j" Or mot = "touj" Or mot = "tou\j" Then 

esultat = "Article défini, accusatif masculin pluriel : les " 

lseIf mot = "tw=n" Or mot = "twn" Then 

esultat = "Article défini, génitif masc / fem / neu pluriel : des " 

lseIf mot = "toi=j" Or mot = "toij" Then 

esultat = "Article défini, datif masculin / neutre pluriel : aux " 

lseIf mot = "h(" Or mot = "h" Then 

esultat = "Article défini, nominatif féminin singulier : la " 

lseIf mot = "th/n" Or mot = "thn" Or mot = "th\n" Then 

esultat = "Article défini, accusatif féminin singulier : la " 

lseIf mot = "th=j" Or mot = "thj" Then 

esultat = "Article défini, génitif féminin singulier : de la " 

lseIf mot = "th=|" Or mot = "th|=n" Or mot = "th" Then 

esultat = "Article défini, datif féminin singulier : à la " 

lseIf mot = "ai(" Or mot = "ai" Then 

esultat = "Article défini, nominatif féminin pluriel : les " 

lseIf mot = "ta/j" Or mot = "taj" Then 

esultat = "Article défini, accusatif féminin pluriel : les " 

lseIf mot = "tai=j" Or mot = "taij" Then 

esultat = "Article défini, nominatif féminin pluriel : les " 

lseIf mot = "to/" Or mot = "to" Or mot = "to\" Then 

esultat = "Article défini, nominatif / accusatif neutre pluriel : les " 

lseIf mot = "ta/" Or mot = "ta" Then 

esultat = "Article défini, nominatif / accusatif neutre pluriel : les " 

FIN ARTICLE DEFINI 

DEBUT VERBE ETRE 

présent actif 

lseIf mot = "ei/mi" Or mot = "eimi" Then 

esultat = "Verbe être indicatif présent actif, 1ère personne du singulier : je suis" 

lseIf mot = "ei)=" Or mot = "ei=)" Or mot = "ei" Then 

esultat = "Verbe être, indicatif présent actif, 2ème personne du singulier : tu es OU part. : si" 

lseIf mot = "e)sti/" Or mot = "e)sti/v" Or mot = "esti" Then 

esultat = "Verbe être, indicatif présent actif, 3ème personne du singulier : il est" 

lseIf mot = "e)smen" Or mot = "esmen" Then 

esultat = "Verbe être, indicatif présent actif, 1ère personne du pluriel : nous sommes" 

lseIf mot = "e)ste" Or mot = "este" Then 

esultat = "Verbe être, indicatif présent actif, 2ème personne du pluriel : vous êtes" 

lseIf mot = "ei)si/" Or mot = "ei)si/n" Or mot = "eisin" Then 

esultat = "Verbe être, indicatif présent actif, 3ème personne du singulier : ils sont" 

imparfait actif 

lseIf mot = "h)/mhn" Or mot = "hmen" Then 

esultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : j'étais" 

lseIf mot = "h)=j" Or mot = "hj" Then 

esultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : tu étais" 

lseIf mot = "h)=n" Or mot = "hn" Then 

esultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : il était" 

lseIf mot = "h)=men" Or mot = "hmen" Then 

esultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : nous étions" 

lseIf mot = "h)=te" Or mot = "hte" Then 

esultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : vous étiez" 

lseIf mot = "h)=san" Or mot = "hsan" Then 

esultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : ils étaient" 

futur actif 

lseIf mot = "e)/somai" Or mot = "esomai" Then 

esultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : je serai" 

lseIf mot = "e)/sh|" Or mot = "esh" Then 

esultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : tu seras" 

lseIf mot = "e)/stai" Or mot = "estai" Then 

esultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : il sera" 

lseIf mot = "e)so/meqa" Or mot = "esomeqa" Then


Resultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : nous serons" 

ElseIf mot = "e)/sesqe" Or mot = "esesqe" Then 

Resultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : vous serez" 

ElseIf mot = "e)/sontai" Or mot = "esontai" Then 

Resultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : ils seront" 

' impératif présent actif 

ElseIf mot = "i)/sqi" Or mot = "isqi" Then 

Resultat = "Verbe être, impératif présent actif, 1ère personne du singulier : sois" 

ElseIf mot = "e)/stw" Or mot = "estw" Then 

Resultat = "Verbe être, impératif présent actif, 1ère personne du singulier : qu'il soit" 

ElseIf mot = "e)/ste" Or mot = "este" Then 

Resultat = "Verbe être, impératif présent actif, 1ère personne du singulier : que vous soyez" 

ElseIf mot = "e)/stwsan" Or mot = "estwsan" Then 

Resultat = "Verbe être, impératif présent actif, 1ère personne du singulier : qu'ils soient" 

ElseIf mot = "eij" Or mot = "ei)j" Then 

Resultat = " Adverbe de lieu : vers, en direction de" 

ElseIf Right(mot, 9) = "qh/someqa" Then ' ************************************************DEBUT DE 

L'INDICATIF**************************** 

Resultat = " Indicatif futur passif, 1ère personne du singulier" 

enlever = 9 

ElseIf Right(mot, 9) = "qh/sontai" Then 

Resultat = " Indicatif futur passif, 3ème personne du pluriel" 

enlever = 9 

ElseIf Right(mot, 8) = "qh/somai" Then 

Resultat = " Indicatif futur passif, 1ère personne du singulier" 

enlever = 9 

ElseIf Right(mot, 8) = "qh/setai" Then 

Resultat = " Indicatif futur passif, 3ème personne du singulier" 

enlever = 8 

ElseIf Right(mot, 8) = "qh/sesqe" Then 

Resultat = " Indicatif futur passif, 2ème personne du pluriel" 

enlever = 8 

ElseIf Left(mot, 2) = "e)" And Right(mot, 7) = "sa/meqa" Then 

Resultat = " Indicatif aoriste moyen, 1ère personne du pluriel" 

enlever = 7 

enleverg = 2 

ElseIf Right(mot, 7) = "so/meqa" Then 

Resultat = " Indicatif futur moyen, 1ère personne du pluriel" 

enlever = 7 

ElseIf Right(mot, 7) = "e/twsan" Then 

Resultat = " Impératif présent actif, 3ème personne du pluriel" 

enlever = 7 

ElseIf Left(mot, 2) = "e)" And Right(mot, 6) = "sa/mhn" Then 

Resultat = " Indicatif aoriste moyen, 1ère personne du singulier" 

enlever = 6 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 6) = "o/meqa" Then 

Resultat = " Indicatif imparfait moyen-passif, 1ère personne du pluriel" 

enlever = 6 

enleverg = 2 

ElseIf Right(mot, 6) = "a)lla/" Or mot = "alla" Then 

Resultat = " Conjonction : mais ; eh bien ! ; cependant" 

ElseIf Right(mot, 6) = "sontai" Then 

Resultat = " Indicatif futur moyen, 3ème personne du pluriel" 

enlever = 6 

ElseIf Right(mot, 6) = "qh/sh|" Then 

Resultat = " Indicatif futur passif, 2ème personne du singulier" 

enlever = 6 

ElseIf Right(mot, 6) = "etwsan" Then 

Resultat = " Impératif présent actif, 3ème personne du pluriel" 

enlever = 6 

ElseIf Right(mot, 6) = "keimen" Then 

Resultat = " Indicatif plus-que-parfait actif, 1ère personne du pluriel" 

enlever = 6 

enleverg = 4 

ElseIf Right(mot, 6) = "keisan" Then 

Resultat = " Indicatif plus-que-parfait actif, 3ème personne du pluriel" 

enlever = 6 

enleverg = 4 

ElseIf Left(mot, 2) = "e)" And Right(mot, 5) = "samen" Then 

Resultat = " Indicatif aoriste actif, 1ère personne du pluriel" 

enlever = 5 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 5) = "sasqe" Then


Resultat = " Indicatif aoriste moyen, 2ème personne du pluriel" 

enlever = 5 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 5) = "santo" Then 

Resultat = " Indicatif aoriste moyen, 3ème personne du pluriel" 

enlever = 5 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 5) = "qhmen" Then 

Resultat = " Indicatif aoriste passif, 1ère personne du singulier" 

enlever = 5 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 5) = "qhsan" Then 

Resultat = " Indicatif aoriste passif, 3ème personne du pluriel" 

enlever = 5 

enleverg = 2 

ElseIf Right(mot, 5) = "somen" Then 

Resultat = " Indicatif futur actif, 1ère personne du pluriel" 

enlever = 5 

ElseIf Right(mot, 5) = "sousi" Then 

Resultat = " Indicatif futur actif, 3ème personne du pluriel" 

enlever = 5 

ElseIf Right(mot, 5) = "kamen" Then 

Resultat = " Indicatif parfait actif, 1ère personne du pluriel" 

enlever = 5 

enleverg = 2 

ElseIf Right(mot, 5) = "omeqa" Then 

Resultat = " Indicatif présent moyen-passif, 1ère personne du pluriel" 

enlever = 5 

ElseIf Right(mot, 5) = "ontai" Then 

Resultat = " Indicatif présent moyen-passif, 3ème personne du pluriel" 

enlever = 5 

ElseIf Right(mot, 5) = "somai" Then 

Resultat = " Indicatif futur moyen, 1ère personne du singulier" 

enlever = 5 

ElseIf Right(mot, 5) = "setai" Then 

Resultat = " Indicatif futur moyen, 3ème personne du singulier" 

enlever = 5 

ElseIf Right(mot, 5) = "sesqe" Then 


enlever = 5 

ElseIf Right(mot, 5) = "keite" Then 


enlever = 5 

enleverg = 5 

ElseIf Right(mot, 5) = "kesan" Then 


enlever = 5 

ElseIf Right(mot, 5) = "tatoj" Then 

Resultat = " Superlatif, nominatif masculin singulier" 

enlever = 5 

ElseIf Right(mot, 5) = "taton" Then 

Resultat = " Superlatif, accusatif masculin singulier" 

enlever = 5 

ElseIf Right(mot, 5) = "tatou" Then 

Resultat = " Superlatif, génitif masculin singulier" 

enlever = 5 

ElseIf Right(mot, 5) = "tatw|" Then 

Resultat = " Superlatif, datif masculin singulier" 

enlever = 5 

' Participe présent 

ElseIf Right(mot, 6) = "menw=|" Then 

Resultat = "Participe présent, datif masculin / neutre singulier" 

enlever = 6 

ElseIf Right(mot, 5) = "menoj" Then 

Resultat = "Participe présent, nominatif masculin singulier" 

enlever = 5 

ElseIf Right(mot, 5) = "menou" Or Right(mot, 6) = "menou=" Then 

Resultat = "Participe présent, génitif singulier" 

enlever = 5 

ElseIf Right(mot, 5) = "menon" Then 

Resultat = "Participe présent, accusatif masculin singulier" 

enlever = 5 

ElseIf Right(mot, 5) = "menoi" Then 

Resultat = "Participe présent, nominatif masculin pluriel" 

enlever = 5 

ElseIf Right(mot, 6) = "menouj" Or Right(mot, 7) = "menou\j" Then



ElseIf Right(mot, 6) = "menouj" Or Right(mot, 7) = "menou\j" Then 


ElseIf Right(mot, 5) = "menh" Or Right(mot, 6) = "me/nh" Then 

Resultat = "Participe présent, nominatif féminin singulier" 

ElseIf Right(mot, 5) = "menhn" Or Right(mot, 6) = "me/nhn" Then 

Resultat = "Participe présent, accusatif féminin singulier" 

ElseIf Right(mot, 6) = "menaij" Or Right(mot, 7) = "menai=j" Then 

Resultat = "Participe présent, datif féminin singulier" 

' fin du participe présent 

ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "omen" Then 

Resultat = " Indicatif imparfait actif, 1ère personne du pluriel" 

enlever = 4 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "ousi" Then 

Resultat = " Indicatif imparfait actif, 3ème personne du pluriel" 

enlever = 4 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "sate" Then 

Resultat = " Indicatif aoriste actif, 2ème personne du pluriel" 

enlever = 4 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "kein" Then 

Resultat = " Indicatif plus-que-parfait actif, 1ère personne du singulier" 

enlever = 4 

enleverg = 4 

ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "keij" Then 

Resultat = " Indicatif plus-que-parfait actif, 2ème personne du singulier" 

enlever = 4 

enleverg = 4 

ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "sato" Then 

Resultat = " Indicatif aoriste moyen, 3ème personne du singulier" 

enlever = 4 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "qhte" Then 

Resultat = " Indicatif aoriste passif, 2ème personne du pluriel" 

enlever = 4 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "meqa" Then 

Resultat = " Indicatif plus-que-parfait moyen-passif, 1ère personne du pluriel" 

enlever = 4 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "omhn" Then 

Resultat = " Indicatif imparfait moyen-passif, 1ère personne du singulier" 

enlever = 4 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "esqe" Then 

Resultat = " Indicatif imparfait moyen-passif, 2ème personne du pluriel" 

enlever = 4 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 4) = "onto" Then 

Resultat = " Indicatif imparfait moyen-passif, 3ème personne du pluriel" ' fin du 4 avec augment 

enlever = 4 

enleverg = 2 

ElseIf Right(mot, 4) = "omen" Then ' début du 4 sans augment 

Resultat = " Indicatif présent actif, 1ère personne du pluriel" 

enlever = 4 

ElseIf Right(mot, 4) = "ousi" Then 

Resultat = " Indicatif présent actif, 3ème personne du pluriel" 

enlever = 4 

ElseIf Right(mot, 4) = "e/tw" Then 

Resultat = " Impératif présent actif, 3ème personne du singulier" 

enlever = 4 

ElseIf Right(mot, 4) = "seij" Then 

Resultat = " Indicatif futur actif, 2ème personne du singulier" 

enlever = 4 

ElseIf Right(mot, 4) = "sete" Then 

Resultat = " Indicatif futur actif, 2ème personne du pluriel" 

enlever = 4 

ElseIf Right(mot, 4) = "kate" Then 

Resultat = " Indicatif parfait actif, 2ème personne du pluriel" 

enlever = 4 

enleverg = 2


ElseIf Right(mot, 4) = "kasi" Then 

Resultat = " Indicatif parfait actif, 3ème personne du pluriel" 

enlever = 4 

enleverg = 2 

ElseIf Right(mot, 4) = "omai" Then 

Resultat = " Indicatif moyen-passif, 1ère personne du singulier" 

enlever = 4 

ElseIf Right(mot, 4) = "etai" Then 

Resultat = " Indicatif présent moyen-passif, 3ème personne du singulier" 

enlever = 4 

ElseIf Right(mot, 4) = "esqe" Then 

Resultat = " Indicatif présent moyen-passif, 2ème personne du pluriel" 

enlever = 4 

ElseIf Right(mot, 4) = "meqa" Then 

Resultat = " Indicatif parfait moyen-passif, 1ère personne du pluriel" 

enlever = 4 

ElseIf Right(mot, 4) = "eroj" Then 

Resultat = "Comparatif de supériorité, nominatif masculin singulier" 

enlever = 4 

ElseIf Right(mot, 4) = "ntai" Then 

Resultat = " Indicatif parfait moyen-passif, 3ème personne du pluriel" ' fin du 4 sans augment 

enlever = 4 

ElseIf Right(mot, 4) = "ai=j" Then 

Resultat = " Datif féminin pluriel, 1ère déclinaison" ' début et fin de 1ère decl ê/ês, 4 

enlever = 4 

ElseIf mot = "ga/r" Then 

Resultat = " Conjonction : car, en effet" 

enlever = 4 

ElseIf mot = "kai/" Or mot = "kai\" Or mot = "kai" Then 

Resultat = " Conjonction ou adverbe. Conj : et, et en outre / Adv. : aussi, même" 

ElseIf Left(mot, 2) = "e)" And Right(mot, 3) = "ete" Then ' début du 3 avec augment 


enlever = 3 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 3) = "saj" Then 

Resultat = " Indicatif aoriste actif, 2ème personne du singulier" 

enlever = 3 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 3) = "san" Then 


enlever = 3 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 3) = "kei" Then 

Resultat = " Indicatif plus-que-parfait actif, 3ème personne du singulier" 

enlever = 3 

enleverg = 3 

ElseIf Left(mot, 2) = "e)" And Right(mot, 3) = "eto" Then 

Resultat = " Indicatif imparfait moyen-passif, 3ème personne du singulier" 

enlever = 3 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 3) = "qhn" Then 

Resultat = " Indicatif aoriste passif, 1ère personne du singulier" 

enlever = 3 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 3) = "qhj" Then 

Resultat = " Indicatif aoriste passif, 2ème personne du singulier" 

enlever = 3 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 3) = "mhn" Then 

Resultat = " Indicatif plus-que-parfait moyen-passif, 1ère personne du singulier" 'fin du 3 avec au 

gment 

enlever = 3 

enleverg = 2 

ElseIf Right(mot, 3) = "eij" Then ' début du 3 sans augment 

Resultat = " Indicatif présent actif, 2ème personne du singulier" 

enlever = 3 

ElseIf Right(mot, 3) = "ete" Then 

Resultat = " Indicatif présent actif, 2ème personne du pluriel" 

enlever = 3 

ElseIf Right(mot, 3) = "sei" Then 


enlever = 3 

ElseIf Right(mot, 3) = "kaj" Then 

Resultat = " Indicatif parfait actif, 2ème personne du singulier" 

enlever = 3 

enleverg = 2


ElseIf Right(mot, 3) = "sh|" Then 

Resultat = " Indicatif futur moyen, 2ème personne du singulier" 

enlever = 3 

ElseIf Right(mot, 3) = "mai" Then 

Resultat = " Indicatif parfait moyen-passif, 1ère personne du singulier" 

enlever = 3 

ElseIf Right(mot, 3) = "sai" Then 

Resultat = " Indicatif parfait moyen-passif, 2ème personne du singulier" 

enlever = 3 

ElseIf Right(mot, 3) = "tai" Then 

Resultat = " Indicatif parfait moyen-passif, 3ème personne du singulier" 

enlever = 3 

ElseIf Right(mot, 3) = "sqe" Then 

Resultat = " Indicatif parfait moyen-passif, 2ème personne du pluriel" ' fin du 3 sans augment 

enlever = 3 

ElseIf Right(mot, 3) = "ouj" Then ' 2ème decl logos, 3 

Resultat = " Accusatif masculin pluriel, 2ème déclinaison" 

enlever = 3 

ElseIf Right(mot, 3) = "oij" Then 

Resultat = " Datif masculin / neutre pluriel, 2ème déclinaison" ' fin 2eme decl logos, 3 

enlever = 3 

ElseIf Right(mot, 3) = "h/n" Then ' début 1ère decl fem, ê/ês, 3 

Resultat = " Accusatif féminin singulier, 1ère déclinaison" 

enlever = 3 

ElseIf Right(mot, 3) = "h=j" Then 

Resultat = " Génitif féminin singulier, 1ère déclinaison" 

enlever = 3 

ElseIf Right(mot, 3) = "h=|" Or Right(mot, 3) = "h|=" Then 

Resultat = " Datif féminin singulier, 1ère déclinaison" 

enlever = 3 

ElseIf Right(mot, 3) = "ai/" Then 

Resultat = " Nominatif/Vocatif féminin pluriel, 1ère déclinaison" 

enlever = 3 

ElseIf Right(mot, 3) = "a/j" Then 

Resultat = " Accusatif féminin pluriel, 1ère déclinaison" 

enlever = 3 

ElseIf Right(mot, 3) = "aij" Then 

Resultat = " Datif féminin pluriel, 1ère déclinaisaon" 

enlever = 3 

ElseIf mot = "gar" Then 

Resultat = " Conjonction : car, en effet" 

ElseIf Right(mot, 3) = "w=n" Then 

Resultat = " Génitif masculin/féminin/neutre pluriel" ' fin 1ère decl fem, ê, ês, 3 

enlever = 3 

ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "on" Then ' début du 2 avec augment 

Resultat = " Indicatif imparfait actif, 1ère personne du singulier" 

enlever = 2 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "ej" Then 

Resultat = " Indicatif imparfait actif, 2ème personne du singulier" 

enlever = 2 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "sa" Then 

Resultat = " Indicatif aoriste actif, 1ère personne du singulier" 

enlever = 2 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "se" Then 

Resultat = " Indicatif aoriste actif, 3ème personne du singulier" 

enlever = 2 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "ou" Then 

Resultat = " Indicatif imparfait moyen-passif, 2ème personne du singulier" 

enlever = 2 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "sw" Then 

Resultat = " Indicatif aoriste moyen, 2ème personne du singulier" 

enlever = 2 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "qh" Then 

Resultat = " Indicatif aoriste passif, 3ème personne du singulier" 

enlever = 2 

enleverg = 2 

ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "so" Then 

Resultat = " Indicatif plus-que-parfait moyen-passif, 2ème personne du singulier" 

enlever = 2 

enleverg = 2


ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "to" Then 

Resultat = " Indicatif plus-que-parfait moyen-passif, 3ème personne du singulier" ' fin du 2 avec a 

ugment 

enlever = 2 

enleverg = 2 

ElseIf Right(mot, 2) = "ei" Then ' début du 2 sans augment 


enlever = 2 

ElseIf Right(mot, 2) = "sw" Then 

Resultat = " Indicatif futur actif, 1ère personne du singulier" 

enlever = 2 

ElseIf Right(mot, 6) = "sontai" Then 


enlever = 6 

ElseIf mot = "te" Then 

Resultat = " Particule enclitique : et / précisément / alors" 

ElseIf mot = "ge" Then 

Resultat = " Particule enclitique : du moins, certes / précisément " 

ElseIf Right(mot, 2) = "ka" Then 

Resultat = " Indicatif parfait actif, 1ère personne du singulier" 

enlever = 2 

enleverg = 2 

ElseIf Right(mot, 2) = "=e" Then 

Resultat = " Impératif présent actif, 1ère personne du singulier" 

enlever = 2 

ElseIf Right(mot, 2) = "ke" Then 

Resultat = " Indicatif parfait actif, 3ème personne du singulier" 

enlever = 2 

enleverg = 2 

ElseIf Right(mot, 2) = "h|" Then 

Resultat = " Indicatif présent moyen-passif, 2ème personne du singulier, OU Datif masculin / fémini 

n singulier, 1ère déclinaison" 

enlever = 2 

ElseIf Right(mot, 2) = "oj" Then 

Resultat = " Nominatif masculin singulier, 2ème déclinaison" '----------| 

enlever = 2 

ElseIf Right(mot, 2) = "on" Then 

Resultat = " Accusatif masculin singulier, 2ème déclinaison OU Nominatif / Vocatif / Accusatif neut 

re singulier, 2ème déclinaison" 

enlever = 2 

ElseIf Right(mot, 2) = "ou" Or Right(mot, 3) = "ou=" Then 

Resultat = " Génitif masculin / neutre singulier, 1ère ou 2ème déclinaison" ' 2eme decl logos, 2 

enlever = 2 

ElseIf Right(mot, 2) = "w|" Then 

Resultat = " Datif masculin singulier, 2ème déclinaison" 

enlever = 2 

ElseIf Right(mot, 2) = "oi" Then 

Resultat = " Nominatif/Vocatif masculin pluriel, 2ème déclinaison" 

enlever = 2 

ElseIf Right(mot, 2) = "wn" Then 

Resultat = " Génitif masculin / neutre pluriel, 2ème déclinaison" '--------------| FIN DU 2 SANS AU 

GMENT POUR LES VB 

enlever = 2 

ElseIf Right(mot, 2) = "an" Then 

Resultat = " Accusatif féminin singulier, 1ère déclinaison" ' début 1ère decl fem a/âs, 2 

enlever = 2 

ElseIf Right(mot, 2) = "aj" Then 

Resultat = " Génitif féminin singulier, 1ère déclinaison OU Accusatif féminin pluriel, 1ère déclina 

ison, OU Nominatif masculin singulier, 1ère déclinaison" 

enlever = 2 

ElseIf Right(mot, 2) = "a|" Then 

Resultat = " Datif féminin singulier, 1ère déclinaison" 

enlever = 2 

ElseIf Right(mot, 2) = "ai" Then 

Resultat = " Nominatif / Vocatif féminin (ou masc.) pluriel, 1ère déclinaison" ' fin 1ère decl fem 

a/âs, 2 

enlever = 2 

ElseIf Right(mot, 2) = "hj" Then 

Resultat = " Génitif féminin singulier, 1ère déclinaison ou Nominatif masculin singulier, 1ère décl 

inaison" ' début et fin 1ère decl, a/ês, 2 

enlever = 2 

ElseIf Right(mot, 2) = "yw" Then 

Resultat = " Indicatif futur actif, 1ère personne du singulier " 

enlever = 2 

ElseIf Right(mot, 2) = "cw" Then 

Resultat = " Indicatif futur actif, 1ère personne du singulier "


enlever = 2 

ElseIf mot = "ou" Or mot = "ou)" Or mot = "ouk" Or mot = "ou)k" Then 

Resultat = "Particule négative : ne...pas" 

enlever = 2 

ElseIf Right(mot, 2) = "hn" Then 

Resultat = " Accusatif masculin singulier, 1ère déclinaison" 

enlever = 2 

ElseIf Right(mot, 2) = "e)" And Right(mot, 1) = "e" Then ' début et fin 

Resultat = " Indicatif imparfait actuf, 3ème personne du singulier" ' du 1 avec augment 

enlever = 2 

ElseIf Right(mot, 2) = "h/" Then 

Resultat = "Nominatif/Vocatif féminin singulier, 1ère déclinaison" ' 1ère decl type ê/ês, 2 

enlever = 2 

ElseIf Mid(mot, Len(mot), 1) = "w" Then 

Resultat = " Indicatif présent actif, 1ère personne du singulier" ' ***************************FIN 

DE L'INDICATIF********************* 

enlever = 1 

ElseIf Right(mot, 1) = "e" Then 

Resultat = " Vocatif masculin singulier, 2ème déclinaison" ' 2ème décl logos, 1 

enlever = 1 

ElseIf Right(mot, 1) = "a" Then ' début 1ère decl fem, a/âs, 1 

Resultat = " Nominatif / Vocatif féminin singulier, 1ère déclinaison OU Nominatif / Vocatif / Accus 

atif neutre pluriel, 2ème déclinaison OU Vocatif masculin singulier, 1ère déclinaison" ' fin 1ère d 

ecl fem, a/âs, 1 

enlever = 1 

Else 

Resultat = " Pas d'analyse" 

End If 

End Function

fctAnalyserLatin - 1 


ublic Function AnalyserLatin(mot, Resultat) As String 

NE PAS OUBLIER DE TRIER 

METTRE LES ELEMENTS LES + LONGS AU DÉPART 

right(mot) 8... 



bien sûr, tout est dans le désordre, mais je n'ai pas le choix 

ot = Trim(mot) 

f Right(mot, 1) = "." Then 

ot = Mid(mot, 1, Len(mot) - 1) 

nd If 

(Manque IPSE) 

penser à alléger le code en remplaçant pronom adjectif interrogatif par une variable 

f Right(mot, 9) = "ti erimus" Then 

esultat = "Indicatif futur antérieur passif, première personne du pluriel" 

lseIf Right(mot, 9) = "ti eritis" Then 

esultat = "Indicatif futur antérieur passif, deuxième personne du pluriel" 

lseIf Right(mot, 8) = "tus eris" Then 

esultat = "Indicatif futur antérieur passif, deuxième personne du singulier" 

lseIf Right(mot, 8) = "tus erit" Then 

esultat = "Indicatif futur antérieur passif, troisième personne du singulier" 

lseIf Right(mot, 8) = "ti erunt" Then 

esultat = "Indicatif futur antérieur passif, troisième personne du pluriel" 

lseIf Right(mot, 8) = "ti sumus" Then 

esultat = "Indicatif plus-que-parfait passif, première personne du pluriel" 

lseIf Right(mot, 8) = "ti estis" Then 

esultat = "Indicatif plus-que-parfait passif, deuxième personne du pluriel" 

lseIf Right(mot, 7) = "tus ero" Then 

esultat = "Indicatif futur antérieur passif, première personne du singulier" 

lseIf Right(mot, 7) = "tus est" Then 

esultat = "Indicatif plus-que-parfait passif, troisième personne du singulier" 

lseIf Right(mot, 7) = "ti sunt" Then 

esultat = "Indicatif plus-que-parfait passif, troisième personne du pluriel" 

lseIf Right(mot, 7) = "tus sum" Then 

esultat = "Indicatif plus-que-parfait passif, première personne du singulier" 

lseIf Right(mot, 7) = "verimus" Then 

esultat = "Indicatif futur antérieur actif, première personne du pluriel" 

lseIf Right(mot, 7) = "veritis" Then 

esultat = "Indicatif futur antérieur actif, deuxième personne du pluriel" 

lseIf Right(mot, 7) = "veramus" Then 

esultat = "Indicatif plus-que-parfait actif, première personne du pluriel" 

lseIf Right(mot, 7) = "veratis" Then 

esultat = "Indicatif plus-que-parfait actif, deuxième personne du pluriel" 

lseIf mot = "illius" Then 

esultat = " Pronom adjectif démonstratif, génitif masculin / féminin / neutre singulier : de celui 

là" 

lseIf mot = "quorum" Then 

esultat = " Pronom adjectif interrogatif, génitif masculin / neutre pluriel : desquels ?" 

lseIf mot = "quibus" Then 

esultat = " Pronom adjectif interrogatif ou relatif, datif ou ablatif m-f-n OU neutre pluriel : au 

quels, par lesquels ?" 

lseIf mot = "quarum" Then 

esultat = " Pronom adjectif interrogatif, génitif féminin pluriel : desquelles ?" 

lseIf Right(mot, 6) = "buntur" Then 

esultat = "Indicatif futur passif, troisième personne du pluriel" 

lseIf Right(mot, 6) = "verunt" Then 

esultat = "Indicatif futur passif, troisième personne du pluriel" 

lseIf Right(mot, 6) = "tus es" Then 

esultat = "Indicatif plus-que-parfait passif, deuxième personne du singulier" 

lseIf Right(mot, 6) = "bamini" Then 

esultat = "Indicatif imparfait actif, deuxième personne du pluriel" 

lseIf Right(mot, 6) = "bantur" Then 

esultat = "Indicatif imparfait actif, troisième personne du pluriel" 

lseIf Right(mot, 6) = "verant" Then 

esultat = "Indicatif futur actif, troisième personne du pluriel" 

lseIf Right(mot, 6) = "verunt" Then 

esultat = "Indicatif futur actif, troisième personne du pluriel" 

lseIf Right(mot, 6) = "verint" Then 

esultat = "Indicatif futur antérieur actif, troisième personne du pluriel" 

lseIf Right(mot, 5) = "vimus" Then 

esultat = "Indicatif parfait passif, première personne du pluriel" 

lseIf Right(mot, 5) = "vitis" Then 

esultat = "Indicatif parfait passif, deuxième personne du pluriel"


ElseIf Right(mot, 5) = "bamus" Then 

Resultat = "Indicatif imparfait actif, première personne du pluriel" 

ElseIf Right(mot, 5) = "batis" Then 

Resultat = "Indicatif imparfait actif, deuxième personne du pluriel" 

ElseIf Right(mot, 5) = "bimus" Then 

Resultat = "Indicatif futur actif, première personne du pluriel" 

ElseIf mot = "sumus" Then 

Resultat = "Verbe être, indicatif présent actif, première personne du pluriel" 

ElseIf mot = "estis" Then 

Resultat = "Verbe être, indicatif présent actif, deuxième personne du pluriel" 

ElseIf Right(mot, 5) = "bitis" Then 

Resultat = "Indicatif futur actif, deuxième personne du pluriel" 

ElseIf Right(mot, 5) = "visti" Then 

Resultat = "Indicatif parfait actif, deuxième personne du singulier" 

ElseIf Right(mot, 5) = "vimus" Then 

Resultat = "Indicatif parfait actif, première personne du pluriel" 

ElseIf Right(mot, 5) = "vitis" Then 

Resultat = "Indicatif parfait actif, deuxième personne du pluriel" 

ElseIf Right(mot, 5) = "veram" Then ' attention , cet enregistrement doitpasser en priorité 

Resultat = "Indicatif plus-que-parfait actif, première personne du singulier " 

ElseIf Right(mot, 5) = "veras" Then 

Resultat = "Indicatif plus-que-parfait actif, deuxième personne du singulier " 

ElseIf Right(mot, 5) = "verat" Then 

Resultat = "Indicatif plus-que-parfait actif, troisième personne du singulier " 

ElseIf Right(mot, 5) = "baris" Then 

Resultat = "Indicatif imparfait actif, deuxième personne du singulier" 

ElseIf Right(mot, 5) = "barit" Then 

Resultat = "Indicatif imparfait actif, troisième personne du singulier" 

ElseIf Right(mot, 5) = "bamur" Then 

Resultat = "Indicatif imparfait actif, première personne du pluriel" 

ElseIf Right(mot, 5) = "veris" Then 

Resultat = "Indicatif futur antérieur actif, deuxième personne du singulier" 

ElseIf Right(mot, 5) = "verit" Then 

Resultat = "Indicatif futur antérieur actif, troisième personne du singulier " 

ElseIf Right(mot, 5) = "visti" Then 

Resultat = "Indicatif parfait passif, deuxième personne du singulier" 

ElseIf Right(mot, 5) = "bimur" Then 

Resultat = "Indicatif futur passif, première personne du pluriel" 

ElseIf mot = "hujus" Then 

Resultat = " Pronom adjectif démonstratif, génitif masculin / féminin / neutre singulier : de celui 

-ci" 

ElseIf mot = "horum" Then 

Resultat = " Pronom adjectif démonstratif, génitif masculin / féminin / neutre singulier : de ceuxci" 

ElseIf mot = "harum" Then 

Resultat = " Pronom adjectif démonstratif, génitif féminin pluriel : de celles-ci" 

ElseIf mot = "illum" Then 

Resultat = " Pronom adjectif démonstratif, accusatif masculin singulier : celui-là" 

ElseIf mot = "illud" Then 

Resultat = " Pronom adjectif démonstratif, nominatif / accusatif neutre singulier" 

ElseIf mot = "eorum" Then 

Resultat = " Pronom adjectif démonstratif, génitif masculin pluriel : d'eux, à eux, le leur " 

ElseIf mot = "earum" Then 

Resultat = " Pronom adjectif démonstratif, génitif féminin pluriel : d'elles, à elles, le leur " 

ElseIf mot = "cujus" Then 

Resultat = " Pronom adjectif interrogatif, génitif M/F/N singulier : de qui, duquel ?" 

ElseIf Right(mot, 5) = "bimini" Then 

Resultat = "Indicatif futur passif, deuxième personne du pluriel" 

ElseIf Right(mot, 4) = "bant" Then 

Resultat = "Indicatif imparfait actif, troisième personne du pluriel" 

ElseIf mot = "quem" Then 

Resultat = " Pronom adjectif interrogatif ou relatif, accusatif masculin singulier : qui, lequel ?" 

ElseIf mot = "mihi" Then 

Resultat = " Pronom personnel, datif singulier : à moi (marque souvent l'appartenance)" 

ElseIf mot = "tibi" Then 

Resultat = " Pronom personnel, datif singulier : à toi" 

ElseIf mot = "sibi" Then 

Resultat = " Pronom personnel réfléchi, datif singulier : pour lui-même" 

ElseIf mot = "sese" Then 

Resultat = " Pronom personnel réfléchi, ablatif singulier : à lui-même" 

ElseIf mot = "hunc" Then 

Resultat = " Pronom adjectif démonstratif, accusatif masculin singulier : celui-ci" 

ElseIf mot = "huic" Then 

Resultat = " Pronom adjectif démonstratif, datif masculin / féminin / neutre singulier : celui-ci" 

ElseIf mot = "haec" Then 

Resultat = " Pronom adjectif démonstratif, nominatif-accusatif neutre pluriel"


ElseIf mot = "ille" Then 

Resultat = " Pronom adjectif démonstratif, nominatif masculin singulier : celui-là" 

ElseIf mot = "illi" Then 

Resultat = " Pronom adjectif démonstratif, datif masculin / féminin / neutre singulier : à celui-là 

, celle-là" 

ElseIf mot = "illo" Then 

Resultat = " Pronom adjectif démonstratif, ablatif masculin singulier : à, pour celui-là" 

ElseIf mot = "illa" Then 

Resultat = " Pronom adjectif démonstratif, nominatif féminin singulier : celle-là" 

ElseIf mot = "illa" Then 

Resultat = " Pronom adjectif démonstratif, accusatif féminin singulier : celle-là" 

ElseIf mot = "ejus" Then 

Resultat = " Pronom adjectif démonstratif, génitif masculin / féminin / neutre singulier : de lui ( 

le sien)" 

ElseIf mot = "quis" Then 

Resultat = " Pronom adjectif interrogatif, nominatif masculin singulier : qui, lequel ?" 

ElseIf mot = "quae" Then 

Resultat = " Pronom adjectif interrogatif ou relatif, nominatif féminin singulier : quelle, laquell 

e ? OU Nominatif féminin pluriel ou Nominatif - accusatif neutre pluriel" 

ElseIf mot = "quam" Then 

Resultat = " Pronom adjectif interrogatif ou relatif, accusatif féminin singulier : quelle, laquell 

e ?" 

ElseIf mot = "quid" Then 

Resultat = " Pronom adjectif interrogatif, nominatif / accusatif neutre singulier : qui, lequel ?" 

ElseIf mot = "quos" Then 

Resultat = " Pronom adjectif interrogatif, accusatif masculin pluriel : quels, lesquels ?" 

ElseIf mot = "quas" Then 

Resultat = " Pronom adjectif interrogatif, accusatif féminin singulier : lesquelles ?" 

ElseIf mot = "quod" Then 

Resultat = " Pronom relatif, nominatif ou accusatif neutre singulier : desquelles ?" 

ElseIf Right(mot, 4) = "bunt" Then 

Resultat = "Indicatif futur actif, troisième personne du pluriel" 

ElseIf Right(mot, 4) = "vero" Then ' attention , cet enregistrement doit passer en priorité 

Resultat = "Indicatif futur antérieur actif, première personne du singulier" 

ElseIf Right(mot, 4) = "mini" Then 

Resultat = "Indicatif présent passif, deuxième personne du pluriel" 

ElseIf Right(mot, 4) = "ibus" Then 

Resultat = "Datif, ablatif (masculin ou neutre) pluriel, 3ème déclinaison" 

ElseIf mot = "sunt" Then 

Resultat = "Verbe être, indicatif présent actif, troisième personne du pluriel" 

ElseIf Right(mot, 4) = "ntur" Then 

Resultat = "Indicatif présent passif, troisième personne du pluriel" 

ElseIf Right(mot, 4) = "arum" Then 

Resultat = "Génitif féminin pluriel, 1ère déclinaison" 

ElseIf Right(mot, 4) = "orum" Then 

Resultat = "Génitif (masculin ou neutre) pluriel, 2ème déclinaison" 

ElseIf Right(mot, 3) = "tur" Then 

Resultat = "Indicatif présent passif, troisième personne du singulier" 

ElseIf Right(mot, 3) = "bis" Then 

Resultat = "Indicatif futur actif, deuxième personne du singulier" 

ElseIf Right(mot, 3) = "bit" Then 

Resultat = "Indicatif futur actif, troisième personne du singulier" 

ElseIf Right(mot, 3) = "mus" Then 

Resultat = "Indicatif présent actif, première personne du pluriel" 

ElseIf Right(mot, 3) = "tis" Then 

Resultat = "Indicatif présent actif, deuxième personne du pluriel" 

ElseIf Right(mot, 3) = "are" Then 

Resultat = "Infinitif de la 1ère conjugaison" 

ElseIf Right(mot, 3) = "ere" Then 

Resultat = "Infinitif de la 2ème ou 3ème conjugaison" 

ElseIf Right(mot, 3) = "ire" Then 

Resultat = "Infinitif de la 4ème conjugaison" 

ElseIf Right(mot, 3) = "ant" Then 

Resultat = "Indicatif présent actif, troisième personne du pluriel" 

ElseIf Right(mot, 3) = "bam" Then 

Resultat = "Indicatif imparfait actif, première personne du singulier" 

ElseIf Right(mot, 3) = "bas" Then 

Resultat = "Indicatif imparfait actif, deuxième personne du singulier" 

ElseIf Right(mot, 3) = "unt" Then 


ElseIf Right(mot, 3) = "bat" Then 

Resultat = "Indicatif imparfait actif, troisième personne du singulier" 

ElseIf mot = "hic" Then 

Resultat = " Pronom adjectif démonstratif, nominatif masculin singulier : celui-ci" 

ElseIf mot = "hoc" Then


Resultat = " Pronom adjectif démonstratif, accusatif masculin / féminin / neutre singulier : celuici" 

ElseIf mot = "hoc" Then 








ElseIf mot = "eum" Then 

Resultat = " Pronom adjectif démonstratif, accusatif masculin singulier : lui" 

ElseIf mot = "eam" Then 

Resultat = " Pronom adjectif démonstratif, accusatif féminin singulier : elle" 

ElseIf mot = "eos" Then 

Resultat = " Pronom adjectif démonstratif, accusatif masculin pluriel : eux " 

ElseIf mot = "eae" Then 

Resultat = " Pronom adjectif démonstratif, nominatif féminin pluriel : elles " 

ElseIf mot = "eas" Then 

Resultat = " Pronom adjectif démonstratif, accusatif masculin pluriel : elles " 

ElseIf mot = "ego" Then 

Resultat = " Pronom personnel, nominatif singulier : moi" 

ElseIf mot = "eii" Or mot = "iis" Then 

Resultat = " Pronom adjectif démonstratif, datif, ablatif, masculin / féminin / neutre pluriel : eu 

x " 

ElseIf mot = "mei" Then 

Resultat = " Pronom personnel, génitif singulier : de moi, à moi" 

ElseIf mot = "tui" Then 

Resultat = " Pronom personnel, génitif singulier : de toi, à toi" 

ElseIf mot = "sui" Then 

Resultat = " Pronom personnel réfléchi, génitif singulier : à lui-même" 

ElseIf mot = "cui" Then 

Resultat = " Pronom adjectif interrogatif ou relatif, datif masculin / neutre singulier : à qui, au 

lequel ?" 

ElseIf mot = "quo" Then 

Resultat = " Pronom adjectif interrogatif ou relatif, ablatif masculin singulier : par qui, par leq 

uel ?" 

ElseIf mot = "qui" Then 

Resultat = " Pronom relatif, nominatif masculin singulier: qui" 

ElseIf mot = "qui" Then 

Resultat = " Pronom adjectif interrogatif, nominatif masculin pluriel : quels, lesquels ?" 

ElseIf mot = "qua" Then 

Resultat = " Pronom adjectif interrogatif ou relatif, ablatif féminin singulier : par quelle, par l 

aquelle ?" 

ElseIf Right(mot, 3) = "ris" Then 

Resultat = "Indicatif présent passif, deuxième personne du singulier" 

ElseIf Right(mot, 3) = "rit" Then 

Resultat = "Indicatif présent passif, trosième personne du singulier" 

ElseIf Right(mot, 3) = "mur" Then 

Resultat = "Indicatif présent passif, première personne du pluriel" 

ElseIf Right(mot, 3) = "vit" Then 

Resultat = "Indicatif parfait actif, troisième personne du singulier" 

ElseIf Right(mot, 3) = "beris" Then 

Resultat = "Indicatif futur passif, deuxième personne du singulier" 

ElseIf Right(mot, 3) = "bitur" Then 

Resultat = "Indicatif futur passif, troisième personne du singulier" 

ElseIf mot = "est" Then 

Resultat = "Verbe être, indicatif présent actif, troisième personne du singulier" 

ElseIf mot = "sum" Then 

Resultat = "Verbe être, indicatif présent actif, premier personne du singulier" 

ElseIf Right(mot, 3) = "bor" Then 

Resultat = "Indicatif imparfait actif, première personne du singulier" 

ElseIf Right(mot, 3) = "vit" Then 

Resultat = "Indicatif parfait passif, troisième personne du singulier" 

ElseIf Right(mot, 2) = "bo" Then 

Resultat = "Indicatif futur actif, première personne du singulier" 

ElseIf Right(mot, 2) = "vi" Then 

Resultat = "Indicatif parfait actif, première personne du singulier" 

ElseIf Right(mot, 2) = "or" Then 

Resultat = "Indicatif présent passif, première personne du singulier." 

ElseIf mot = "me" Then 

Resultat = " Pronom personnel, accusatif ou ablatif singulier : à moi, pour moi"


ElseIf mot = "hi" Then 

Resultat = " Pronom adjectif démonstratif, nominatif masculin pluriel : ceux-ci" 

ElseIf mot = "is" Then 

Resultat = " Pronom adjectif démonstratif, nominatif masculin singulier : lui" 

ElseIf mot = "tu" Then 

Resultat = " Pronom personnel, nominatif ou ablatif singulier : toi" 

ElseIf mot = "te" Then 

Resultat = " Pronom personnel, accusatif singulier : toi, te" 

ElseIf mot = "se" Then 

Resultat = " Pronom personnel réfléchi, nominatif ou accusatif (ou ablatif) singulier : lui-même" 

ElseIf mot = "ei" Then 

Resultat = " Pronom adjectif démonstratif, datif masculin / féminin / neutre singulier : lui OU nom 

inatif masculin pluriel" 

ElseIf mot = "eo" Then 

Resultat = " Pronom adjectif démonstratif, ablatif masculin / neutre singulier : lui" 

ElseIf mot = "ea" Then 

Resultat = " Pronom adjectif démonstratif, nominatif ou ablatif féminin singulier : elle OU Nominat 

if - accusatif neutre pluriel" 

ElseIf mot = "id" Then 

Resultat = " Pronom adjectif démonstratif, nominatif / accusatif neutre singulier : ce, cet" 

ElseIf mot = "ii" Then 

Resultat = " Pronom adjectif démonstratif, nominatif masculin pluriel : eux " 

ElseIf Right(mot, 2) = "bor" Then 

Resultat = "Indicatif futur passif, première personne du singulier" 

ElseIf Right(mot, 2) = "vi" Then 

Resultat = "Indicatif parfait passif, première personne du singulier" 

ElseIf Right(mot, 2) = "nt" Then 


ElseIf Right(mot, 2) = "am" Then 

Resultat = "Acusatif féminin singulier, 1ère déclinaison" 

ElseIf Right(mot, 2) = "ae" Then 

Resultat = "Génitif, datif féminin singulier, 1ère déclinaison / Nominatif, vocatif féminin pluriel 

" 

ElseIf Right(mot, 2) = "as" Then 

Resultat = "Acusatif féminin pluriel, 1ère déclinaison (ou Indicatif présent actif, deuxième person 

ne du singulier, 1ère conjugaison)" 

ElseIf Right(mot, 2) = "is" Then 

Resultat = "Datif, ablatif féminin pluriel, 1ère ou 2ème déclinaison OU Génitif neutre singulier, 3 

ème déclinaison" 

ElseIf Right(mot, 2) = "us" Then 

Resultat = "Nominatif masculin singulier, 2ème déclinaison" 

ElseIf Right(mot, 2) = "um" Then 

Resultat = "Accusatif masculin singulier, 2ème déclinaison OU Nom, Voc, Acc neutre singulier, 2ème 

déclinaison OU Génitif masculin singulier, 3ème déclinaison" 

ElseIf Right(mot, 2) = "os" Then 

Resultat = "Accusatif masculin pluriel, 2ème déclinaison" 

ElseIf mot = "es" Then 

Resultat = "Verbe être, indicatif présent actif, deuxième personne du singulier" 

ElseIf Right(mot, 2) = "em" Then 

Resultat = "Accusatif masculin singulier, 3ème déclinaison" 

ElseIf Right(mot, 2) = "es" Then 

Resultat = "Nominatif, Vocatif, Accusatif masculin pluriel, 3ème déclinaison" 

ElseIf Right(mot, 1) = "a" Then 

Resultat = "Nominatif, vocatif, ablatif féminin singulier, 1ère déclinaison OU Nom, Voc, Acc neutre 

pluriel, 2ème déclinaison" 

ElseIf Right(mot, 1) = "i" Then 

Resultat = "Génitif (masculin ou neutre) singulier, OU nominatif, vocatif masculin pluriel - 2ème d 

éclinaison OU Datif neutre singulier, 3ème déclinaison" 

ElseIf Right(mot, 1) = "e" Then 

Resultat = "Vocatif masculin singulier, 2ème déclinaison OU Ablatif neutre singulier, 3ème déclinai 

son" 

ElseIf Right(mot, 1) = "o" Then 

Resultat = "Datif, ablatif (masculin ou neutre) singulier, 2ème déclinaison OU Indicatif présent ac 

tif, première personne du singulier." 

ElseIf Right(mot, 1) = "s" Then 

Resultat = "Indicatif présent actif, deuxième personne du singulier" 

ElseIf Right(mot, 1) = "t" Then 

Resultat = "Indicatif présent actif, trosième personne du singulier" 

Else 

Resultat = "Pas d'analyse" 

End If 

End Function

fctAnalyseSeptante - 1 

Public Function AnalyseSeptante(mot) As String 

Dim septante$ 

Dim analyse$ 

Dim codemot$ 

Dim pourcodemot$ 

Dim origine$ 

Dim file$, ligne$, motr$, mott$ 

chercher = mot 


septante = App.Path & "\tools\septante.txt" 


Open septante For Input As #file 

Do 

Input #file, ligne 

If InStr(1, ligne, chercher, vbTextCompare) 0 Then 

' MsgBox ligne 

analyse = Trim(Mid(ligne, Len(mot) + 1, Len(ligne))) 

' MsgBox analyse, vbInformation, "Analyse complète" 

pourcodemot = InStrRev(analyse, " ", , vbTextCompare) 

pourcodemot = Val(pourcodemot) 

codemot = Mid(analyse, 1, pourcodemot) 

codemot = Trim(codemot) 

'MsgBox "Analyse morpho : " & codemot 

origine = Mid(analyse, Len(codemot) + 1, Len(analyse)) 

origine = Trim(origine) 

End If 

Loop While Not EOF(file) 

lose #file 

all AfficherAnalyseSeptante(mot, origine, codemot) 

nd Function

fctAnalyseVulgate - 1 

Public Function AnalyseVulgate(mot) 

Dim motr$, mott$ 

'interrogation internet Words 

'If frmBible.cboVersion.Text = "Vulgate" And frmBible.optunbound.Value = True Then 

'frmBrowser.cboAddress.Text = "http://lysy2.archives.nd.edu/cgi-bin/words.exe?" & mot 

'Exit Function 

'interrogation Jeanneau / Collatinus 

If frmBible.cboVersion.Text = "Vulgate" Then 

frmBrowser.cboAddress.Text = "http://collatinus.fltr.ucl.ac.be/jcoll.php?forme=m:" & mot 

frmBrowser.Caption = "Analyse Collatinus - Jeanneau" 

End If 

' *** autres possibilités 

' dictionnaire latinogallicum : http://colet.uchicago.edu/cgi-bin/search2e?headword=" & Mot & "&wor 

d=" & Mot & "&CONJUNCT=PHRASE&DISTANCE=3&PROXY=or+fewer&OUTPUT=conc&SYSTEM_DIR=%2Fprojects%2Fartflb 

%2Fdatabases%2Fartfl%2Fdicos%2Festienne%2Ffulltext%2FIMAGE%2F 

' recherche ancienne latin français : "http://dictionaries.travlang.com/LatinFrench/dict.cgi?query= 

" & mot & "& Max = 50" 

'If frmBible. Then 

' je tente de trouver une définition au mot 

' motr = Trim(frmBible.txtPassage.SelText) 

' motr = LCase(motr) 

' motr = Replace(motr, ".", "") 

' motr = Replace(motr, ":", "") 

' motr = Replace(motr, ";", "") 

' motr = Replace(motr, ",", "") 

' motr = Replace(motr, "!", "") 

' motr = Replace(motr, "?", "") 

' Call LatinFrancais(motr, mott) 

' je tente de l'analyser 

'Call AnalyserLatin(mot, Resultat) 

'mot = MsgBox(Resultat & vbCrLf & "Définition : " & mott) 

'End If 

' interrogation Unbound 

'If frmBible.optWeb.Value = True Then 

'mot = Replace(mot, "\", "") 

'mot = Replace(mot, "j", "s") 

'mot = Replace(mot, ")", "") 

'mot = Replace(mot, "(", "") 

'mot = Replace(mot, "|", "") 

'mot = Replace(mot, "=", "") 

'mot = Replace(mot, ".", "") 

'mot = Replace(mot, ";", "") 

'mot = Replace(mot, "$", "") 

'mot = Replace(mot, ":", "") 

'frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/cgi-bin/morphindex?lang=latin&lookup=" 

& mot 

'End If 

End Function

fctAnalyseWHStrong - 1 

Public Function AnalyseWHStrong(mot) 

e 

' le texte WH n'est pas adapté à Grenet, alors je mets dans le txtPassage du Grenet 

' mais je suis obligé, pour la recherche Strong ou Thayer, de revenir à l'écriture original 

' Déclarations 

Dim verif1$, verif2$, verif3$ 

' si l'option Strong est cochée... 

If frmBible.chkstrong = True Then 

verif1 = Replace(mot, "j", "v") 

mot = verif1 

verif2 = Replace(mot, "x", "c") 

mot = verif2 

verif3 = Replace(mot, "q", "y") 

mot = verif3 

Call AvantLireStrong(mot) 

Call LireStrongFrN(mot) 

Else 

verif1 = Replace(mot, "j", "v") 

mot = verif1 

verif2 = Replace(mot, "x", "c") 

mot = verif2 

verif3 = Replace(mot, "q", "y") 

mot = verif3 

Call AvantLireStrong(mot) 

Call LireThayer(mot, reference) 

Load frmResultatStrong 

frmResultatStrong.Show 

frmResultatStrong.txtStrong.Text = Mid(frmParse2.Text1.Text, Len(reference) + 1 

, Len(frmParse2.Text1.Text)) 

frmResultatStrong.Caption = "Thayer's Dictionnary of Greek Words" 

End If 

End Function

fctAutomatosBHS - 1 

Public Function AutomatosBHS(mot) 

If mot = "" Then Exit Function 

Dim ofile$ 

Dim lfile% 

Dim ligne$ 

nveaumot = mot 

ofile = App.Path & "\tools\temp2.txt" 



Do 


If InStr(1, ligne, "") 

strong = Mid(ligne, 2, repere1 - 2) 

Exit Do 

End If 


lose 

A partir du mot initial, j'ai trouvé le numéro strong 

je cherche donc ce qu'il signifie 

et je le mets toute la définition dans temp2 

f strong "" Then 

mot = strong 

Call LireStrongATFrN(mot) 

nd If 

-------------------------------------------- 

maintenant je lis temp2, et je regarde comment le mot a été traduit par Louis Segond 

file = App.Path & "\tools\temp2.txt" 



Do 


If InStr(1, ligne, "LSG -") 0 Then 

Resultat = ligne 

Exit Do 

End If 


lose 

MsgBox (resultat) 


rmAutomatos.lblStrong.Caption = strong 

epere = InStr(1, Resultat, "LSG -") 

esultat = Mid(Resultat, repere + 6, Len(Resultat)) 

epere2 = InStr(1, Resultat, ";") 

esultat = Mid(Resultat, 1, repere2 - 1) 

esultat = Replace(Resultat, ";", "") 

esultat = Replace(Resultat, "0", "") 





esultat = Replace(Resultat, "5", "")

fctAutomatosBHS - 2 

Resultat = Replace(Resultat, "6", "") 




frmAutomatos.lblResultat.Caption = Resultat 

frmAutomatos.RichTextBox1.ToolTipText = Mid(Resultat, 1, 20) & "..." 

frmAutomatos.lblanalyse.Visible = False 

frmAutomatos.Line5.Visible = False 

frmAutomatos.Label3.Visible = False 

frmAutomatos.lblMorpho.Visible = False 

End Function

fctAutomatosWH - 1 

Public Function AutomatosWH(mot) 


Dim ofile$ 

Dim lfile% 

Dim ligne$ 

nveaumot = mot 

'If Right(mot, 1) = "j" Then mot = Mid(mot, 1, Len(mot) - 1) + "v" 

'mot = Replace(mot, "x", "c") 

'mot = Replace(mot, "q", "y") 



mot = Replace(mot, "V ", "n ") 

mot2 = Replace(mot, "y", "§") 

mot3 = Replace(mot, "q", "y") 


Do 



If InStr(1, ligne, LCase(mot)) 0 Or _ 

InStr(1, ligne, LCase(mot2)) 0 Or _ 

InStr(1, ligne, LCase(mot3)) 0 Then 

repere1 = InStr(1, ligne, "{") 

strong = Mid(ligne, Len(mot) + 1, repere1) 

repere3 = InStr(1, strong, "{") 

strong = Mid(strong, 1, repere3 - 1) 

strong = Trim(strong) 


strong = Mid(strong, 1, 4) 

ElseIf InStr(1, strong, " ") 0 Then 

strong = Mid(strong, 1, InStr(1, strong, " ") - 1) 

End If 

complement = Trim(Mid(ligne, Len(mot) + Len(strong) + 2, Len(ligne))) 

If InStr(1, complement, " ") 0 Then 

tempstrong = Mid(complement, 1, InStr(1, complement, " ") - 1) 

complement = Mid(complement, InStr(1, complement, " ") + 1, Len(complement)) 

Exit Do 

End If 

End If 


lose 

strong = strong 

complement = complement 

A partir du mot initial, j'ai trouvé le numéro strong 

je cherche donc ce qu'il signifie 

et je le mets toute la définition dans temp2 

f strong "" Then 

mot = strong 

Call LireStrongFrN(strong) 

nd If 

-------------------------------------------- 

maintenant je lis temp2, et je regarde comment le mot a été traduit par Louis Segond 

file = App.Path & "\tools\temp2.txt" 



Do

fctAutomatosWH - 2 

Close 


If InStr(1, ligne, "LSG -") 0 Then 

Resultat = ligne 

Exit Do 

End If 



mot = Replace(mot, "1)", "") 

f tempstrong "" Then 

frmAutomatos.lblStrong.Caption = strong & ", temps : " & tempstrong 

Else 

frmAutomatos.lblStrong.Caption = strong 

nd If 

epere = InStr(1, Resultat, "LSG -") 

esultat = Mid(Resultat, repere + 6, Len(Resultat)) 

epere2 = InStr(1, Resultat, ";") 

esultat = Mid(Resultat, 1, repere2 - 1) 

esultat = Replace(Resultat, ";", "") 











rmAutomatos.lblResultat.Caption = Mid(Resultat, 1, 20) & "..." 

If Len(Resultat) > 30 Then 

Resultat = Mid(frmAutomatos.lblResultat.Caption, 1, 30) & "..." 

frmAutomatos.RichTextBox1.ToolTipText = Resultat 

End If 

rmAutomatos.lblanalyse.Visible = False 

omplement = Replace(complement, "0", "") 










veaucomplement = complement 

all LireComplement(complement) 

f complement = "" Then complement = nveaucomplement & "- ??" 

rmAutomatos.Line5.Visible = True 

rmAutomatos.Label3.Visible = True 

rmAutomatos.lblMorpho.Visible = True 

rmAutomatos.lblMorpho.Caption = complement 

f InStr(1, complement, "- ??") = 0 Then 

rmAutomatos.RichTextBox1.ToolTipText = Mid(Resultat, 1, 20) & "..." & "-" & complement 

nd If 

nd Function

fctAvantLireStrong - 1 


ublic Function AvantLireStrong(mot) 

im corrwh$, phrase$, lfile, premierespace, deuxiemeespace, numéro, nstrong$ 

orrwh = App.Path & "\tools\corrwh.txt" 


Open corrwh For Input As #lfile 

o 

nput #lfile, phrase 

If Left(phrase, Len(mot)) = mot Then Exit Do 



remierespace = InStr(1, phrase, " ", vbTextCompare) 

uméro = Trim(Mid(phrase, premierespace, (Len(phrase) + premierespace + deuxiemeespace) - 2)) 

euxiemeespace = InStr(1, numéro, " ", vbTextCompare) 

strong = Left(numéro, Val(deuxiemeespace)) 

ot = Trim(nstrong) 

nd Function

fctBhsLxxDefFichier - 1 

Public Function BhsLxxDefFichier(livre, chapitre, verset, passage, fichier, finverset) 

finverset = "" 

If livre = "Genèse" Then 

fichier = App.Path & "\modules\parallel\01.Genesis.par" 

passage = "Gen " & chapitre & ":" & verset 

End If 

End Function

fctConcordanceANF - 1 

Public Sub ConcordanceANF(recherche) 

ofile = App.Path & "\modules\ANF\ANF.txt" 

frmZetoGraphe.lstResultat.Visible = True 

frmZetoGraphe.lstResultat.Clear 




= 0 

Do 



premierespace = InStr(1, ligne, ":") 

espaceapres = InStr(premierespace, ligne, " ") 

passage = Left(ligne, espaceapres) 

frmZetoGraphe.lstResultat.AddItem (passage) 

'frmZetoGraphe.Text1.Text = frmZetoGraphe.Text1.Text & passage & vbCrLf 

'frmZetoGraphe.lsResultat.AddItem (passage) 

i = i + 1 

End If 


rr: 

lose 

frmZetoGraphe.lstResultat.List (0) 

rmZetoGraphe.Text1.Visible = False 

rmZetoGraphe.cboVersion.Clear 

rmZetoGraphe.cboVersion.Text = "ANF" 

rmZetoGraphe.lblResultat.Caption = i & " passages trouvés." 

rmZetoGraphe.txtRecherche.Font = "Times" 


rmZetoGraphe.Show 

nd Sub

fctConcordanceAPFG - 1 

Public Function ConcordanceAPFG(recherche) 

Dim ofile$, lfile% 

Dim ligne$, passage$ 

Dim i% 


ofile = App.Path & "\modules\APF\apfg.txt" 



= 0 

Do 

rr: 

lose 






frmZetoGraphe.Text1.Text = frmZetoGraphe.Text1.Text & passage & vbCrLf 


i = i + 1 

End If 






nd Function

fctConcordanceBHS - 1 

Public Function ConcordanceBHS(recherche) 



Dim i% 


ofile = App.Path & "\modules\BHSv\wtt.txt" 



= 0 

Do 

rr: 

lose 








i = i + 1 

End If 



rmZetoGraphe.txtRecherche.Font = "Bwhebb" 



nd Function

fctConcordanceHomere - 1 

Public Function ConcordanceHomere(recherche) 



Dim i% 


ofile = App.Path & "\modules\HHG\hhg.txt" 



= 0 

Do 

rr: 

lose 








i = i + 1 

End If 



rmZetoGraphe.txtRecherche.Font = "Grenet" 



nd Function

fctConcordanceJF - 1 

Public Function ConcordanceFJ(recherche) 



Dim i% 


ofile = App.Path & "\modules\JOS\jos.txt" 



= 0 

Do 

rr: 

lose 








i = i + 1 

End If 






nd Function

fctConcordanceLXX - 1 

Public Function ConcordanceLXX(recherche) 





Dim i% 


ofile = App.Path & "\modules\LXX\lxx.txt" 

recherche = Trim(recherche) 



= 0 

Do 

rr: 

lose 








i = i + 1 

End If 





rmZetoGraphe.cboVersion.Text = "LXX" 




nd Function

fctConcordanceTIS - 1 

Public Function ConcordanceTIS(recherche) 



Dim i% 


ofile = App.Path & "\modules\TIS\tis.txt" 



= 0 

Do 

rr: 

lose 








i = i + 1 

End If 






nd Function

fctConcordanceWH - 1 

Public Function ConcordanceWH(recherche) 



Dim i% 




ofile = App.Path & "\modules\WHpars\wh.txt" 



= 0 

Do 

rr: 

lose 








i = i + 1 

End If 





rmZetoGraphe.cboVersion.Text = "WH+" 




nd Function

fctCorrigerLectureSeptante - 1 

Public Sub CorrigerLectureSeptante(chercher) 

Dim ofil, lfil 


ofil = App.Path & "\tools\septante.txt" 

lfil = FreeFile + 3 

Open ofil For Input As #lfil 

Do 

Input #lfil, ligne 

If ligne = "" Then 

If ligne = chercher Then Exit Sub 

GoTo apres: 

Else 

'MsgBox (ligne) 

Dim endroit 

endroit = InStr(1, ligne, " ", vbTextCompare) 

ligne = Trim(LCase(Mid(ligne, 1, endroit))) 

frmBible.txtPassage.Font = "Grenet" 

If Right(ligne, 1) = "s" Then 

ligne = Mid(ligne, 1, Len(ligne) - 1) & "j" 

End If 

frmBible.txtPassage.Text = frmBible.txtPassage.Text & ligne & " " 

apres: 

Exit Sub 

End Sub 

End If 

Loop While Not EOF(lfil) 

Close #lfil

fctCorrigerWH - 1 

'Option Explicit 

Public Function CorrigerWH(texte) As String 

ref = frmBible.txtChapitre.Text & ":" & frmBible.txtverset.Text 

'texte = Trim(Mid(frmBible.txtPassage.Text, 1, Len(frmBible.txtPassage.Text))) 

texte = Mid(texte, Len(ref) + 1, Len(texte)) 

texte = Trim(texte) 

texte = Replace(texte, "}", "}" & vbCrLf, 1) 

'If frmBible.cboLivre.Text = "Jean" Then 

'remplacement = Mid(remplacement, 1, Len(remplacement)) 

'End If 

corrwh = App.Path & "\tools\corrwh.txt" 


Open corrwh For Output As #lfile 

rint #lfile, texte 

lose #lfile 

rmBible.txtPassage.Text = "" 

Open corrwh For Input As #lfile 

Do 


If ligne "" Then 


reduction = InStr(1, ligne, " ", vbTextCompare) 

passage = Left(ligne, reduction) 

frmBible.txtPassage.Text = frmBible.txtPassage.Text & passage 

If passage = "* " Then 

reduction = InStr(1, ligne, "]") 

If reduction = 0 Then 

reduction = InStr(3, ligne, " ") 

End If 

passage = Mid(ligne, 1, reduction) 

frmBible.txtPassage.Text = frmBible.txtPassage.Text & passage 

End If 

Else: GoTo suite: 

End If 

rmBible.txtPassage.Font = "Symbol" 

frmBible.txtPassage = frmBible.txtPassage & passage 

uite: 


lose 

exte = frmBible.txtPassage.Text 

exte = Replace(texte, "0", "") 










nd Function 

ublic Sub EnlevNombre() 

nd Sub

fctCreerPassage - 1 

Public Function CreerPassage(version, livre, chapitre, verset, chercher) As String 

If Val(chapitre) < 10 Then 

chapitre = "0" & chapitre 

End If 

If Val(verset) < 10 Then 

verset = "0" & verset 

End If 

'Gv. 01-01 

If version = "NT grec ancien" And _ 

livre = "Matthieu" Then 

chercher = "Mt. " & chapitre & "-" & verset & " " 

ElseIf version = "NT grec ancien" And _ 

livre = "Marc" Then 

chercher = "Mc. " & chapitre & "-" & verset & " " 


livre = "Luc" Then 

chercher = "Lc. " & chapitre & "-" & verset & " " 


livre = "Jean" Then 

chercher = "Gv. " & chapitre & "-" & verset & " " 


livre = "Actes" Then 

chercher = "At. " & chapitre & "-" & verset & " " 


livre = "Romains" Then 

chercher = "Rm. " & chapitre & "-" & verset & " " 


livre = "1 Corinthiens" Then 

chercher = "XCor. " & chapitre & "-" & verset & " " 



chercher = "X2Cor. " & chapitre & "-" & verset & " " 


livre = "Galates" Then 

chercher = "Gal. " & chapitre & "-" & verset & " " 


livre = "Ephésiens" Then 

chercher = "Ef. " & chapitre & "-" & verset & " " 


livre = "Philippiens" Then 

chercher = "Fil. " & chapitre & "-" & verset & " " 


livre = "Colossiens" Then 

chercher = "Col. " & chapitre & "-" & verset & " " 


livre = "1 Thessaloniciens" Then 

chercher = "XTs. " & chapitre & "-" & verset & " " 



chercher = "X2Ts. " & chapitre & "-" & verset & " " 


livre = "1 Timothée" Then 

chercher = "XTm. " & chapitre & "-" & verset & " " 



chercher = "X2Tm. " & chapitre & "-" & verset & " " 


livre = "Tite" Then 

chercher = "Tito " & chapitre & "-" & verset & " " 


livre = "Philémon" Then 

chercher = "Filem. " & chapitre & "-" & verset & " " 


livre = "Hébreux" Then 

chercher = "Ebr. " & chapitre & "-" & verset & " " 


livre = "Jacques" Then 

chercher = "Giac. " & chapitre & "-" & verset & " " 


livre = "1 Pierre" Then 

chercher = "X1Pt. " & chapitre & "-" & verset & " " 



chercher = "X2Pt. " & chapitre & "-" & verset & " "

fctCreerPassage - 2 


livre = "1 Jean" Then 

chercher = "X1Gv. " & chapitre & "-" & verset & " " 








livre = "Jude" Then 

chercher = "Gd. " & chapitre & "-" & verset & " " 


livre = "Révélation" Then 

chercher = "Ap. " & chapitre & "-" & verset & " " 

End If 

End Function

fctCreerPassageAutres - 1 

Public Function CreerPassageAutres(version, livre, chapitre, verset, chercher) As String 

If version = "Louis Segond" And _ 

livre = "Genèse" Then 

chercher = "Gen" & chapitre & verset 

ElseIf version = "Louis Segond" And _ 

livre = "Exode" Then 

chercher = "Exo" & chapitre & verset 


livre = "Lévitique" Then 

chercher = "Lev" & chapitre & verset 


livre = "Nombres" Then 

chercher = "Nom" & chapitre & verset 


livre = "Deutéronome" Then 

chercher = "Deu" & chapitre & verset 


livre = "Josué" Then 

chercher = "Jos" & chapitre & verset 


livre = "Juges" Then 

chercher = "Jug" & chapitre & verset 


livre = "Ruth" Then 

chercher = "Rut" & chapitre & verset 


livre = "1 Samuel" Then 

chercher = "Unsam" & chapitre & verset 


livre = "2 Samuel" Then 

chercher = "Deusam" & chapitre & verset 


livre = "1 Rois" Then 

chercher = "Unroi" & chapitre & verset 


livre = "2 Rois" Then 

chercher = "Deuroi" & chapitre & verset 


livre = "1 Chroniques" Then 

chercher = "Unchr" & chapitre & verset 


livre = "2 Chroniques" Then 

chercher = "Deuchr" & chapitre & verset 


livre = "Esdras" Then 

chercher = "Esd" & chapitre & verset 


livre = "Néhémie" Then 

chercher = "Neh" & chapitre & verset 


livre = "Esther" Then 

chercher = "Est" & chapitre & verset 


livre = "Job" Then 

chercher = "Job" & "-" & chapitre & "-" & verset & "-" 

ElseIf version = "Louis Segond" And _


livre = "Psaumes" Then 

chercher = "Psa" & "-" & chapitre & "-" & verset & "-" 


livre = "Proverbes" Then 

chercher = "Pro" & "-" & chapitre & "-" & verset & "-" 


livre = "Ecclésiaste" Then 

chercher = "Ecc" & "-" & chapitre & "-" & verset & "-" 


livre = "Cantique des cantiques" Then 

chercher = "Can" & "-" & chapitre & "-" & verset & "-" 


livre = "Esaïe" Then 

chercher = "Esa" & "-" & chapitre & "-" & verset & "-" 


livre = "Jérémie" Then 

chercher = "Jer" & "-" & chapitre & "-" & verset & "-" 


livre = "Lamentations" Then 

chercher = "Lam" & "-" & chapitre & "-" & verset & "-" 


livre = "Ezéchiel" Then 

chercher = "Eze" & "-" & chapitre & "-" & verset & "-" 


livre = "Daniel" Then 

chercher = "Dan" & "-" & chapitre & "-" & verset & "-" 


livre = "Osée" Then 

chercher = "Ose" & "-" & chapitre & "-" & verset & "-" 


livre = "Joël" Then 

chercher = "Joe" & "-" & chapitre & "-" & verset & "-" 


livre = "Amos" Then 

chercher = "Amo" & "-" & chapitre & "-" & verset & "-" 


livre = "Abdias" Then 

chercher = "Abd" & "-" & chapitre & "-" & verset & "-" 


livre = "Jonas" Then 

chercher = "Jon" & "-" & chapitre & "-" & verset & "-" 


livre = "Michée" Then 

chercher = "Mic" & "-" & chapitre & "-" & verset & "-" 


livre = "Habaquq" Then 

chercher = "Hab" & "-" & chapitre & "-" & verset & "-" 


livre = "Sophonie" Then 

chercher = "Sop" & "-" & chapitre & "-" & verset & "-" 


livre = "Aggée" Then 

chercher = "Agg" & "-" & chapitre & "-" & verset & "-" 


livre = "Nahoum" Then 

chercher = "Nah" & "-" & chapitre & "-" & verset & "-"



livre = "Zacharie" Then 

chercher = "Zac" & "-" & chapitre & "-" & verset & "-" 


livre = "Malachie" Then 

chercher = "Mal" & "-" & chapitre & "-" & verset & "-" 


livre = "Jonas" Then 

chercher = "Jon" & "-" & chapitre & "-" & verset & "-" 



chercher = "Mt" & chapitre & verset 



chercher = "Mc" & chapitre & verset 



chercher = "Lc" & chapitre & verset 



chercher = "Jn" & chapitre & verset 



chercher = "Ac" & chapitre & verset 



chercher = "Rm" & chapitre & verset 



chercher = "UnCo" & chapitre & verset 



chercher = "DeuxCo" & chapitre & verset 



chercher = "Gal" & chapitre & verset 



chercher = "Ep" & chapitre & verset 



chercher = "Ph" & chapitre & verset 



chercher = "Co" & chapitre & verset 



chercher = "Unthes" & chapitre & verset 



chercher = "Deuxthes" & chapitre & verset




chercher = "Unth" & chapitre & verset 



chercher = "Deuxth" & chapitre & verset 



chercher = "Tite" & chapitre & verset 



chercher = "Fil" & chapitre & verset 



chercher = "Heb" & chapitre & verset 



chercher = "Jac" & chapitre & verset 



chercher = "Unpi" & chapitre & verset 



chercher = "Deuxpi" & chapitre & verset 



chercher = "Unjn" & chapitre & verset 



chercher = "Deuxjn" & chapitre & verset 



chercher = "Troisjn" & chapitre & verset 



chercher = "Jude" & chapitre & verset 



chercher = "Ap" & chapitre & verset 

End If 

End Function

fctCreerPassagesgreek - 1 

Public Function CreerPassagesgreek(version, livre, chapitre, verset, chercher) 

If Val(chapitre) < 10 Then 


End If 

If Val(verset) < 10 Then 


End If 

'Gv. 01-01 

If version = "NT UBS" And _ 


chercher = "Mt. " & chapitre & "-" & verset & " " 

ElseIf version = "NT UBS" And _ 


chercher = "Mc. " & chapitre & "-" & verset & " " 



chercher = "Lc. " & chapitre & "-" & verset & " " 



chercher = "Jean " & chapitre & "-" & verset & " " 



chercher = "At. " & chapitre & "-" & verset & " " 



chercher = "Rm. " & chapitre & "-" & verset & " " 



chercher = "Unco " & chapitre & "-" & verset & " " 



chercher = "Deuxco " & chapitre & "-" & verset & " " 



chercher = "Gal. " & chapitre & "-" & verset & " " 



chercher = "Ef. " & chapitre & "-" & verset & " " 



chercher = "Fil. " & chapitre & "-" & verset & " " 



chercher = "Col. " & chapitre & "-" & verset & " " 



chercher = "Unthes " & chapitre & "-" & verset & " " 



chercher = "Deuxthes " & chapitre & "-" & verset & " " 



chercher = "Unth " & chapitre & "-" & verset & " " 



chercher = "Deuxth " & chapitre & "-" & verset & " " 



chercher = "Tito " & chapitre & "-" & verset & " " 



chercher = "XFil " & chapitre & "-" & verset & " " 



chercher = "Ebr. " & chapitre & "-" & verset & " " 



chercher = "Giac. " & chapitre & "-" & verset & " " 



chercher = "Unpi" & chapitre & "-" & verset & " " 



chercher = "Deuxpi" & chapitre & "-" & verset & " "

fctCreerPassagesgreek - 2 

'[1Jean 01-01 ] 



chercher = "Unjean " & chapitre & "-" & verset & " " 



chercher = "Deuxjean " & chapitre & "-" & verset & " " 



chercher = "Troisjean " & chapitre & "-" & verset & " " 



chercher = "Jude " & chapitre & "-" & verset & " " 



chercher = "Ap. " & chapitre & "-" & verset & " " 

End If 

End Function

fctCreerPassageVulgate - 1 

Public Function CreerPassageVulgate(version, livre, chapitre, verset, chercher) As String 

If version = "Vulgate" And _ 


chercher = "Mt" & chapitre & verset 

ElseIf version = "Vulgate" And _ 


chercher = "Mc" & chapitre & verset 



chercher = "Lc" & chapitre & verset 



chercher = "Jn" & chapitre & verset 



chercher = "Ac" & chapitre & verset 



chercher = "Rm" & chapitre & verset 



chercher = "UnCo" & chapitre & verset 



chercher = "DeuxCo" & chapitre & verset 



chercher = "Gal" & chapitre & verset 



chercher = "Ep" & chapitre & verset 



chercher = "Ph" & chapitre & verset 



chercher = "Col" & chapitre & verset 



chercher = "Unthes" & chapitre & verset 



chercher = "Deuxthes" & chapitre & verset 



chercher = "Unti" & chapitre & verset 



chercher = "Deuxti" & chapitre & verset

fctCreerPassageVulgate - 2 



chercher = "Tite" & chapitre & verset 



chercher = "Fil" & chapitre & verset 



chercher = "Heb" & chapitre & verset 



chercher = "Jac" & chapitre & verset 



chercher = "Unpi" & chapitre & verset 



chercher = "Deuxpi" & chapitre & verset 



chercher = "Unjn" & chapitre & verset 



chercher = "Deuxjn" & chapitre & verset 



chercher = "Troisjn" & chapitre & verset 



chercher = "Jude" & chapitre & verset 



chercher = "Ap" & chapitre & verset 

End If 

End Function

fctCreerPassageWHpars - 1 

Public Function CreerPassageWHpars(version, livre, chapitre, verset, chercher, fichier, chap) 

Dim passage$, ligne$, ligne2$, ligne3$ 

If version = "W/H & Strong" And _ 


'[1:1] 

chercher = "mat" & chapitre & "-" & verset 

fichier = fichier & "mt.txt" 

chap = "mat" 

ElseIf version = "W/H & Strong" And _ 


chercher = "marc" & chapitre & "-" & verset 

fichier = fichier & "mr.txt" 

chap = "mar" 



chercher = "luc" & chapitre & "-" & verset 

fichier = fichier & "lu.txt" 

chap = "luc" 



chercher = "jean" & chapitre & "-" & verset 

fichier = fichier & "joh.txt" 

chap = "jea" 



chercher = "actes" & chapitre & "-" & verset 

fichier = fichier & "ac.txt" 

chap = "act" 



chercher = "romains" & chapitre & "-" & verset 

fichier = fichier & "ro.txt" 

chap = "rom" 



chercher = "1corinthiens" & chapitre & "-" & verset 

fichier = fichier & "1co.txt" 

chap = "1co" 



chercher = "2corinthiens" & chapitre & "-" & verset 

fichier = fichier & "2co.txt" 

chap = "2co" 



chercher = "galates" & chapitre & "-" & verset 

fichier = fichier & "ga.txt" 

chap = "gal" 



chercher = "ephesiens" & chapitre & "-" & verset 

fichier = fichier & "eph.txt" 

chap = "eph" 



chercher = "philippiens" & chapitre & "-" & verset 

fichier = fichier & "php.txt" 

chap = "phi" 



chercher = "colossiens" & chapitre & "-" & verset 

fichier = fichier & "col.txt"


chap = "col" 



chercher = "1thessaloniciens" & chapitre & "-" & verset 

fichier = fichier & "1th.txt" 

chap = "1th" 



chercher = "2thessaloniciens" & chapitre & "-" & verset 

fichier = fichier & "2th.txt" 

chap = "2th" 



chercher = "1timothée" & chapitre & "-" & verset 

fichier = fichier & "1ti.txt" 

chap = "1ti" 



chercher = "2timothée" & chapitre & "-" & verset 

fichier = fichier & "2ti.txt" 

chap = "2ti" 



chercher = "tite" & chapitre & "-" & verset 

fichier = fichier & "tit.txt" 

chap = "tit" 



chercher = "philemon" & chapitre & "-" & verset 

fichier = fichier & "phm.txt" 

chap = "phi" 



chercher = "hebreux" & chapitre & "-" & verset 

fichier = fichier & "heb.txt" 

chap = "heb" 



chercher = "jacques" & chapitre & "-" & verset 

fichier = fichier & "jas.txt" 

chap = "jac" 



chercher = "1pierre" & chapitre & "-" & verset 

fichier = fichier & "1pe.txt" 

chap = "1pi" 



chercher = "2pierre" & chapitre & "-" & verset 

fichier = fichier & "2pe.txt" 

chap = "2pi" 



chercher = "1jean" & chapitre & "-" & verset 

fichier = fichier & "1jo.txt" 

chap = "1je" 





chap = "2je"






chap = "3je" 



chercher = "jude" & chapitre & "-" & verset 

fichier = fichier & "jude.txt" 

chap = "jud" 



chercher = "revelation" & chapitre & "-" & verset 

fichier = fichier & "re.txt" 

chap = "rev" 

End If 



ofile = App.Path & fichier 



On Error GoTo erreur: 


o 

lecture 


f Mid(ligne, 1, Len(chercher)) = chercher Then ' pour que le verset recherché soit exact 


frmBible.lbltampon.Text = frmBible.lbltampon.Text & Mid(ligne, Len(chercher) + 1, Len(ligne)) 

Do 


If Left(ligne, 3) = chap Then 'Left(ligne, 3 + Len(chapitre) + 1 + Len(verset)) = chap & ch 

pitre & "-" & Val(verset) + 1 Then 

GoTo apres: 

Else 

frmBible.lbltampon.Text = frmBible.lbltampon.Text & " " & ligne 

' MsgBox frmBible.lbltampon.Text, , "lbltampon" 

End If 

Loop 'While Left(ligne, Len(chercher)) "mat" & chapitre & "-" & Val(verset) + 1 

nd If 

oop While Not EOF(lfile) 'While Left(ligne, Len(chercher)) "mat" & chapitre & "-" & Val(verset) 

+ 1 

pres: 

MsgBox frmBible.lbltampon.Text 

rmBible.txtPassage.Text = Trim(frmBible.lbltampon.Text) 

lose #lfile 

rmBible.lblchapitre.Caption = frmBible.cboLivre.Text & " " & frmBible.txtChapitre & " : " & frmBib 

e.txtverset.Text 

rmBible.lblprecedent.Visible = True 

rmBible.lblsuivant.Visible = True 

rreur: 

im msg$ 

f err.Number = 76 Then 

rmBible.cboLivre = "Matthieu" 

rmBible.txtChapitre = "1" 

rmBible.txtverset = "1" 

msg = MsgBox("Le texte de Wescott & Hort contient le Nouveau Testament. Cette opération n'est pas 

ossible", vbInformation, "Erreur") 

xit Function 

nd If 

nd Function

fctDefFichierSeptante - 1 

Public Function DefFichierSeptante(livre, fichierseptante) 


fichierseptante = "01_Gen.mlxx" 

ElseIf livre = "Exode" Then 

fichierseptante = "03_Exod.mlxx" 

ElseIf livre = "Lévitique" Then 

fichierseptante = "04_Lev.mlxx" 

ElseIf livre = "Nombres" Then 

fichierseptante = "05_Num.mlxx" 

ElseIf livre = "Deutéronome" Then 

fichierseptante = "06_Deut.mlxx" 

ElseIf livre = "Josué" Then 

fichierseptante = "07_Josh.mlxx" 

ElseIf livre = "Juges" Then 

fichierseptante = "09_Judges.mlxx" 

ElseIf livre = "Ruth" Then 

fichierseptante = "11_Ruth.mlxx" 

ElseIf livre = "1 Samuel" Then 

fichierseptante = "12_1Sam.mlxx" 


fichierseptante = "13_2Sam.mlxx" 

ElseIf livre = "1 Rois" Then 

fichierseptante = "14_1Kings.mlxx" 


fichierseptante = "15_2Kings.mlxx" 


fichierseptante = "16_1Chron.mlxx" 


fichierseptante = "17_2Chron.mlxx" 

ElseIf livre = "Esdras" Then 

fichierseptante = "Esdras.mlxx" 

ElseIf livre = "Néhémie" Then 

fichierseptante = "Nehemie.mlxx" 

ElseIf livre = "Esther" Then 

fichierseptante = "20_Esther.mlxx" 

ElseIf livre = "Judith" Then 

fichierseptante = "21_Judith.mlxx" 

ElseIf livre = "Tobie" Then 

fichierseptante = "22_TobitBA.mlxx" 

ElseIf livre = "1 Maccabées" Then 

fichierseptante = "24_1Macc.mlxx" 







ElseIf livre = "Psaumes" Then 

fichierseptante = "Psaumes.mlxx" 

ElseIf livre = "Odes" Then 

fichierseptante = "30_Odes.mlxx" 

ElseIf livre = "Proverbes" Then 

fichierseptante = "31_Proverbs.mlxx" 

ElseIf livre = "Ecclésiaste" Then 

fichierseptante = "32_Qoheleth.mlxx" 

ElseIf livre = "Cantique des cantiques" Then 

fichierseptante = "33_Canticles.mlxx" 


fichierseptante = "34_Job.mlxx" 

ElseIf livre = "Sagesse" Then 

fichierseptante = "35_Wisdom.mlxx" 

ElseIf livre = "Siracides" Then 

fichierseptante = "36_Sirach.mlxx" 

ElseIf livre = "Psaumes de Salomon" Then 

fichierseptante = "37_PsSol.mlxx" 

ElseIf livre = "Osée" Then 

fichierseptante = "38_Hosea.mlxx" 

ElseIf livre = "Amos" Then 

fichierseptante = "40_Amos.mlxx" 

ElseIf livre = "Micah" Then 

fichierseptante = "39_Micah.mlxx" 

ElseIf livre = "Joël" Then 

fichierseptante = "41Joel.mlxx" 

ElseIf livre = "Jonas" Then 

fichierseptante = "42_Jonah.mlxx"

fctDefFichierSeptante - 2 

ElseIf livre = "Nahum" Then 

fichierseptante = "44_Nahum.mlxx" 

ElseIf livre = "Habbacuc" Then 

fichierseptante = "45_Habakkuk.mlxx" 

ElseIf livre = "Sophonie" Then 

fichierseptante = "46_Zeph.mlxx" 

ElseIf livre = "Aggée" Then 

fichierseptante = "47_Haggai.mlxx" 

ElseIf livre = "Zacharie" Then 

fichierseptante = "48_Zech.mlxx" 

ElseIf livre = "Malachie" Then 

fichierseptante = "49_Malachi.mlxx" 

ElseIf livre = "Isaïe" Then 

fichierseptante = "50_Isaiah.mlxx" 

ElseIf livre = "Jérémie" Then 

fichierseptante = "52_Jer.mlxx" 

ElseIf livre = "Baruch" Then 

fichierseptante = "54_Baruch.mlxx" 

ElseIf livre = "Lamentations" Then 

fichierseptante = "56_Lam.mlxx" 

ElseIf livre = "Epître de Jérémie" Then 

fichierseptante = "55_EpJer.mlxx" 

ElseIf livre = "Ezékiel" Then 

fichierseptante = "57_Ezek.mlxx" 

ElseIf livre = "Susanna" Then 

fichierseptante = "64_SusTh.mlxx" 

ElseIf livre = "Daniel" Then 

fichierseptante = "61_Daniel.mlxx" 

ElseIf livre = "Bel et Draco" Then 

fichierseptante = "59_BelOG.mlxx" 

' 

End If 

End Function

fctDefinirFrancais - 1 


ublic Function DefinirFrancais(motr, mott) As String 

im lfile As Long 'Lecture 

im ofile As String 'Fichier à ouvrir 

im Grec As String '1ère ligne 

im francais As String ' 2ème ligne 

im valeur ' valeur de renvoi de la fonction StrComp 

file = App.Path & "\tools\lexiquegr.txt" 



o 'début de boucle 

nput #lfile, Grec, francais 

aleur = StrComp(motr, francais, vbTextCompare) 

If valeur = 0 Then 

mott = Grec 

End If 

oop Until EOF(lfile) 

lose #lfile 

f mott = "" Then 

ott = "Pas de définition disponible" 

nd If 

nd Function

fctDefinirGrec - 1 


ublic Function DefinirGrec(motr, mott) As String 

im lfile As Long 'Lecture 

im ofile As String 'Fichier à ouvrir 

im Grec As String '1ère ligne 

im francais As String ' 2ème ligne 

im valeur ' valeur de renvoi de la fonction StrComp 

im ligne 

file = App.Path & "\tools\lexiquegr.txt" 


otr = Replace(motr, "c", "x") 


ott = "" 

o 'début de boucle 

ine Input #lfile, ligne 

igne = LCase(ligne) 

If Mid(ligne, 1, Len(motr)) = motr Then 

mott = Trim(Mid(ligne, Len(motr) + 1, Len(ligne))) 

Exit Do 

End If 

If LCase(motr) = LCase(Grec) Then _ 

mott = francais 

valeur = StrComp(motr, Grec, vbTextCompare) 

' If valeur = 0 And valeur = -1 Then _ 

'mott = francais 


lose #lfile 

ott = Trim(mott) 

ott = Replace(mott, Chr$(34), "") 

ott = Replace(mott, " ", "") 

ott = Mid(mott, 2, Len(mott)) 

f mott = "" Then 

ott = "Pas de définition disponible" 

nd If 

ott = Replace(mott, "*", ";") 

ott = Replace(mott, "~", ",") 

nd Function

fctDeflechirHebreu - 1 

Public Function DeflechirHebreu(recherche) 

If Right(recherche, 1) = "w" Then 

recherche = Mid(recherche, 1, Len(recherche) - 1) 

End If 

End Function

fctDeflechirMot - 1 


ublic Function DeflechirMot(motadeflechir, motdeflechi, Resultat, enlever, enleverg) As String 

im motr$, mott$, verbeenmi As Boolean, msg$ 

f motadeflechir = "" Then 

xit Function 

nd If 

f Len(motadeflechir) < 4 Then 

otdeflechi = motadeflechir 

nd If 

f motadeflechir = "eimi" Or _ 

otadeflechir = "ei" Or _ 

otadeflechir = "esti" Or _ 

otadeflechir = "esmen" Or _ 

otadeflechir = "este" Or _ 

otadeflechir = "hn" Or _ 

otadeflechir = "eisi" Then 


nd If 

f motadeflechir = "h" Or _ 

otadeflechir = "thn" Or _ 

otadeflechir = "thj" Or _ 

otadeflechir = "th" Or _ 

otadeflechir = "ai" Or _ 

otadeflechir = "tai" Or _ 

otadeflechir = "twn" Or _ 

otadeflechir = "taij" Or _ 

otadeflechir = "o" Or _ 

otadeflechir = "ton" Or _ 

otadeflechir = "tou" Or _ 

otadeflechir = "tw" Or _ 

otadeflechir = "oi" Or _ 

otadeflechir = "touj" Or _ 

otadeflechir = "toij" Or _ 

otadeflechir = "ta" Then 


nd If 

pour le PQP 

f InStr(1, Resultat, "plus-que-parfait", vbTextCompare) 0 And _ 

eft(motadeflechir, 2) = "e)" Then 

otdeflechi = Mid(motadeflechir, enleverg + 1, Len(motadeflechir) - (enlever + 4)) + "w" 

pour le parfait 

lseIf InStr(1, Resultat, "Indicatif parfait", vbTextCompare) 0 Then 


pour l'aoriste 

lseIf Right(motadeflechir, 2) = "sa" Or _ 

ight(motadeflechir, 3) = "saj" Or _ 

ight(motadeflechir, 2) = "se" Or _ 

ight(motadeflechir, 5) = "samen" Or _ 

ight(motadeflechir, 4) = "sete" Or _ 

ight(motadeflechir, 3) = "san" Then 

otdeflechi = Mid(motadeflechir, enleverg + 1, Len(motadeflechir)) 

motdeflechi = Mid(motdeflechi, 1, Len(motdeflechi) - (enlever)) + "w" 

pour l'imparfait 

lseIf InStr(1, Resultat, "Indicatif imparfait", vbTextCompare) 0 And Len(motadeflechir) > 2 The 


noms 2eme déclinaison 

lseIf InStr(1, Resultat, "2ème déclinaison", vbTextCompare) 0 Then 

otdeflechi = (Mid(motadeflechir, 1, Len(motadeflechir) - Val(enlever)) + "oj") 

verbes en -w réguliers : VOIE MOYENNE 

lseIf Right(motadeflechir, 3) = "mai" Or _ 

ight(motadeflechir, 3) = "sai" Or _ 

ight(motadeflechir, 3) = "tai" Or _ 

ight(motadeflechir, 3) = "sai" Then 

otdeflechi = (Mid(motadeflechir, 1, Len(motadeflechir) - Val(enlever)) + "w")

fctDeflechirMot - 2 

' nom 1ère déclinaison a/as 

ElseIf InStr(1, Resultat, "1ère déclinaison", vbTextCompare) 0 And _ 

Right(motadeflechir, 1) = "a" Or _ 

Right(motadeflechir, 2) = "aj" Or _ 

Right(motadeflechir, 2) = "a|" Or _ 

Right(motadeflechir, 2) = "ai" And motadeflechir "kai" Or _ 

Right(motadeflechir, 3) = "w=n" Or _ 

Right(motadeflechir, 2) = "wn" Or _ 

Right(motadeflechir, 3) = "aij" Then 

motdeflechi = (Mid(motadeflechir, 1, Len(motadeflechir) - Val(enlever)) + "a") 

' nom 1ère déclinaison h/hj 

ElseIf InStr(1, Resultat, "1ère déclinaison", vbTextCompare) 0 And _ 

Right(motadeflechir, 1) = "h" Or _ 

Right(motadeflechir, 2) = "hn" And motadeflechir "hn" Or _ 

Right(motadeflechir, 2) = "hj" Or _ 

Right(motadeflechir, 2) = "h|" Or _ 

Right(motadeflechir, 3) = "h=|" Or _ 

Right(motadeflechir, 2) = "h/" Or _ 

Right(motadeflechir, 3) = "h/n" Or _ 

Right(motadeflechir, 3) = "h=j" Or _ 

Right(motadeflechir, 3) = "ai/" Or _ 

Right(motadeflechir, 3) = "a/j" Or _ 

Right(motadeflechir, 4) = "ai=j" Then 

motdeflechi = (Mid(motadeflechir, 1, Len(motadeflechir) - Val(enlever)) + "h") 

' pour le présent des verbes réguliers en -w 

ElseIf InStr(1, Resultat, "Indicatif présent", vbTextCompare) 0 And verbeenmi = False And InStr( 

1, Resultat, "être", vbTextCompare) 7 Then 

motdeflechi = Mid(motadeflechir, 1, (Len(motadeflechir) - Val(enlever))) + "w" 

Else 

motdeflechi = motadeflechir 

End If 

End Function

fctDiaglott - 1 

Public Function Diaglott(livre, chapitre, verset) 

Dim aouvrir$, lfile, ligne$, livret$ 

Dim ligne2$, nlivre$ 


nlivre = "Matthew" 


nlivre = "Mark" 


nlivre = "Luke" 


nlivre = "John" 


nlivre = "Acts" 


nlivre = "Romans" 


nlivre = "1 Corinthians" 


nlivre = "2 Corinthians" 


nlivre = "Galatians" 


nlivre = "Ephesians" 


nlivre = "Phillippians" 


nlivre = "Colossians" 


nlivre = "1 Thessalonians" 


nlivre = "2 Thessalonians" 


nlivre = "1 Timothy" 


nlivre = "2 Timothy" 


nlivre = "Titus" 


nlivre = "Philemon" 


nlivre = "Hebrews" 


nlivre = "James" 


nlivre = "1 Peter" 


nlivre = "2 Peter" 


nlivre = "1 John" 


nlivre = "2 John"

fctDiaglott - 2 


nlivre = "3 John" 


nlivre = "Jude" 


nlivre = "Revelation" 

End If 

If nlivre "Jude" Then 

recherche = nlivre & " " & chapitre & ":" & verset & " " 

ElseIf nlivre = "Jude" Then 

recherche = nlivre & " " & verset & " " 

End If 

aouvrir = App.Path & "\modules\Diaglott\Diaglott.txt" 



Do 

Open aouvrir For Input As #lfile 



If Mid(ligne, 1, Len(recherche)) = recherche Then 

frmBible.txtPassage.Text = Mid(ligne, Len(recherche) + 1, Len(ligne)) 

Do 

Loop 

End If 


erreur: 

Close 


If InStr(1, ligne, "1:") 0 Or _ 

InStr(1, ligne, "2:") 0 Or _ 








InStr(1, ligne, "Jude") 0 Then 

Exit Do 

Else 

frmBible.txtPassage.Text = frmBible.txtPassage.Text & " " & ligne 

End If 


frmBible.txtPassage.Font = "Times" 

frmBible.lblchapitre = livre & " " & chapitre & ":" & verset 

frmBible.Caption = "The Emphatic Diaglott, Benjamin Wilson [1942]" 

End Function

fctDicoNomsCommunsetPropres - 1 

Public Function DicoNomsCommunsetPropres(mot) As String 

Dim diconc$, diconp$ 

Dim ofile 

Dim texte$ 

Dim result$, recherche$ 

diconc = App.Path & "modules\dictionnaires\dicosfr\diconc.txt" 

diconp = App.Path & "modules\dictionnaires\dicosfr\diconp.txt" 


result = "" 

recherche = mot & " /" 

Open diconc For Input As #lfile 

o 


If Mid(texte, 1, Len(recherche)) = recherche Then 

End If 

result = texte 


sgBox result 

nd Function

fctDoubleCliqueMP - 1 

Public Function DoubleCliqueMP(mot, livre) 

Dim Resultat As Variant, motadeflechir$, msg, motdeflechi$, enlever, enleverg, mott$, motr$, i As I 

nteger, ligne2$, code$, origine$, ssdebut$, msg2%, chercher$, nouveau$, un%, deux%, trois% 

Dim action, textes$, nombre%, thayer$, motorginal$ 

motoriginal = mot 

' NEG+ 

If frmBible.cboVersion.Text = "NEG+" Or frmBible.cboVersion.Text = "LSG+" Then 

Call LireStrongNEG(mot) 

Exit Function 

End If 

' Texte Massorétique 

If frmBible.cboVersion.Text = "TM" Then 

Load frmDicoHebreu 

valinstr = InStr(1, mot, "-", vbTextCompare) 

If valinstr 0 Then mot = Mid(mot, 1, valinstr - 1) 

If Right(mot, 1) = "w" Then mot = Mid(mot, 1, Len(mot) - 1) ' très très peu de mots hébreux com 

mençent par vav, voir DHAB, p.106 

frmDicoHebreu.Show 

frmDicoHebreu.txtHebreu.Text = mot 

Exit Function 

End If 

'-------------------------------------------------------------------------------------- 

'NA-26 

If frmBible.cboVersion.Text = "NA26+" Then 

Load frmLexiqueNT 

frmLexiqueNT.txtGrec.Text = mot 

frmLexiqueNT.Show 

frmLexiqueNT.MousePointer = 11 ' ici commence la recherche 

If Right(mot, 1) = "j" Then 

mot = Mid(mot, 1, Len(mot) - 1) & "s" 

End If 


Call LexiqueNT_Morph(mot) 

frmLexiqueNT.MousePointer = 0 ' là se termine la recherche 

motr = frmLexiqueNT.txtVientde.Text 

If motr "" Then 


Else 

mott = "Pas de définition" 

End If 

frmLexiqueNT.txtFrancais.Text = mott 

Exit Function 

End If 

'-------------------------------------------------------------------------------------- 

'Versions anglaises 

If frmBible.cboVersion.Text = "ASV" Or _ 

frmBible.cboVersion.Text = "KJV" Or _ 

frmBible.cboVersion.Text = "YLT" Or _ 

frmBible.cboVersion.Text = "WEB" Or _ 

frmBible.cboVersion.Text = "BBE" Or _ 

frmBible.cboVersion.Text = "JPS" Or _ 

frmBible.cboVersion.Text = "DR" Or _ 

frmBible.cboVersion.Text = "NET" Or _ 

frmBible.cboVersion.Text = "NET" Or _ 

frmBible.cboVersion.Text = "DIAGLOTT" Or _ 

frmBible.cboVersion.Text = "APF-E" Or _ 

frmBible.cboVersion.Text = "Lightfoot" Or _ 

frmBible.cboVersion.Text = "ANF" Or _ 

frmBible.cboVersion.Text = "WBST" Then 


frmDictionnaires.txtRecherche = mot 


frmDictionnaires.btnRechercher_Click 


Exit Function 

End If

fctDoubleCliqueMP - 2 

' SEPTANTE 

'If frmBible.cboVersion.Text = "Septante" Then 

'Call AnalyseSeptante(mot) 


'End If 

'WH & STRONG 

If frmBible.cboVersion.Text = "W/H & Strong" Then 

Call AnalyseWHStrong(mot) 

Exit Function 

End If 

' SEPTANTE 

'optspecialise = True 

'If optspecialise = True Then 

'Call DoubleCliqueSeptante 


'End If 

' OPTIONS INTERNET 

If frmBible.cboVersion.Text "Vulgate" Then 

mot = Replace(mot, "\", "") 

mot = Replace(mot, "c", "x") 

mot = Replace(mot, "j", "s") 

mot = Replace(mot, "/", "") 

mot = Replace(mot, ")", "") 

mot = Replace(mot, "(", "") 

mot = Replace(mot, "|", "") 

mot = Replace(mot, "=", "") 

mot = Replace(mot, ".", "") 

mot = Replace(mot, ";", "") 

mot = Replace(mot, "$", "") 

mot = Replace(mot, ":", "") 

langue = "latin" 

'frmBrowser.cboAddress.Text = "http://www.unboundbible.org/greek_search/index.cfm?RequestTimeout=50 

0&fuseaction=list&lang=French&word=" & mot 

End If 

erreur: 

Exit Function 

End Function

fctDoubleCliqueSeptante - 1 

Public Function DoubleCliqueSeptante() 



Dim ofile2 As String, LFile2 As Long 

Dim OFile3 As String, LFile3 As Long 

ofile = App.Path & "\tools\greeknt.txt" 

ofile2 = App.Path & "\tools\analysemorpho.txt" 

OFile3 = App.Path & "\tools\packard.txt" 


LFile2 = FreeFile + 1 


Dim erreur 

mot = UCase(mot) ' mise en majuscules, selon le format adéquat 

'MsgBox mot 

If Right(mot, 1) = "J" Then ' pb du s final 

mot = Mid(mot, 1, Len(mot) - 1) + "S" 

End If 

'MsgBox mot, , "mot à chercher dans greeknt" 

' trouvons le mot double-cliqué dans le fichier greeknt 

' ouverture du fichier greeknt, où se trouve le mot, son code et son origine 


Do 'début de boucle 


If Mid(ligne, 1, Len(mot)) = mot Then 

Open ofile2 For Output As #LFile2 

Write #LFile2, ligne 

Close #LFile2 

'frmParse.txtanalyse.Caption = frmParse.txtanalyse.Caption & vbCrLf & ligne 

End If 


Close #lfile 

Open ofile2 For Input As #LFile2 

nput #LFile2, ligne 

lose #LFile2 

MsgBox ligne, , "ligne" 

>> j'ai ma ligne qui a en elle l'analyse précise du mot 

je dois décortiquer cette ligne 

à tout hasard, je la mets dans un tampon 

rmBible.lbltampon.Text = ligne 

la ligne est composée comme suit: 

MOTFLECHIMOTORIGINE 

j'appelle ma fonction pour me donner le CODE et le MOTORIGINE 

all ExtraireCode(mot, ligne, code, origine, chercher) 

MsgBox mot, , "mot" 

MsgBox ligne, , "ligne" 

MsgBox code, , "code" 

MsgBox origine, , "origine" 

MsgBox chercher, , "chercher" 

maintenant que je l'ai, je consulte le fichier packard pour décrypter mon code 

Open OFile3 For Input As #LFile3 

o 

nput #LFile3, nouveau 

If nouveau = chercher Then 

Do 

Input #LFile3, nouveau 

Open ofile2 For Append As #LFile2 

Write #LFile2, nouveau 

Close #LFile2 

Loop Until nouveau = "" Or nouveau = vbCrLf 

'Else 

' Open OFile2 For Output As #LFile2 

' Write #LFile2, mot & vbCrLf & origine & "Pas d'analyse" 

' Close #LFile2 

End If 

sg2 = InStr(1, nouveau, chercher, vbTextCompare) 

oop Until EOF(LFile3)

fctDoubleCliqueSeptante - 2 

Close #LFile3 

msg = "" 

'On Error GoTo erreur: 

Open ofile2 For Input As #LFile2 

Do 

Input #LFile2, ligne 

'frmParse.txtanalyse.Caption = frmParse.txtanalyse.Caption & ligne & vbCrLf 

msg = msg & ligne & vbCrLf 

Loop While Not ligne = "" 

Close #LFile2 


If Right(mot, 1) = "." Then 


End If 

If Right(mot, 1) = "s" Then 

mot = Mid(mot, 1, Len(mot) - 1) + "j" 

frmParse.lblmot.Caption = mot 

End If 

Load frmParse 

frmParse.Show 

frmParse.lblmot = LCase(mot) 

If Right(origine, 1) = "S" Then 

origine = Mid(origine, 1, Len(origine) - 1) + "J" 

End If 

frmParse.lblorigine = LCase(origine) 

frmParse.txtAnalyse.Caption = msg 

'

fcteCatena - 1 

Public Function eCatena(livre, chapitre) 

'http://www.earlychristianwritings.com/e-catena/ 


nlivre = "Matthew" 


nlivre = "Mark" 


nlivre = "Luke" 


nlivre = "John" 


nlivre = "Acts" 


nlivre = "Romans" 


nlivre = "1Corinthians" 


nlivre = "2Corinthians" 


nlivre = "Galatians" 


nlivre = "Ephesians" 


nlivre = "Phillippians" 


nlivre = "Colossians" 


nlivre = "1Thessalonians" 


nlivre = "2Thessalonians" 


nlivre = "1Timothy" 


nlivre = "2Timothy" 


nlivre = "Titus" 


nlivre = "Philemon" 


nlivre = "Hebrews" 


nlivre = "James" 


nlivre = "1Peter" 


nlivre = "2Peter" 


nlivre = "1John" 


nlivre = "2John" 


nlivre = "3john" 


nlivre = "Jude" 


nlivre = "Revelation" 

End If 

nlivre = LCase(nlivre) 

frmBrowser.cboAddress.Text = "http://www.earlychristianwritings.com/e-catena/" & nlivre & chapitre 

& ".html" 

End Function

fctEpurerLSG - 1 

Public Function EpurerLSG(recherche) 


Dim texte As String 


Dim ofile, finligne 

' affectation variables 

lfile = App.Path & "\tools\corrigerneg.txt" 

texte = frmBible.txtPassage 

' on enlève la ponctuation dans le verset pour ne pas s'emmêler les pinceaux 

'texte = Replace(texte, ",", "") 

'texte = Replace(texte, ".", "") 

'texte = Replace(texte, ";", "") 

'texte = Replace(texte, "!", "") 

'texte = Replace(texte, "'", "") 

'on commence par la chaîne la plus longue 

'* ceci enlève le code de l'analyse du TEMPS du verbe et le met sur une ligne, tout seul 

' on remplace " (" par des retours charriot 

' on remplace ") " par des retours charriot 

' on remplace "> " par des retours charriot 

texte = Replace(texte, "(", " " & vbCrLf) 

texte = Replace(texte, ")", " " & vbCrLf) 

texte = Replace(texte, "> ", ">" & vbCrLf) 

texte = Replace(texte, ", ", "," & vbCrLf) 


Open lfile For Output As #ofile 

rint #ofile, texte 

lose 


le texte corrigeneg est maintenant prêt à être relu en tenant 

compte des < qui détermine le début du chiffre 

le but du jeu est de lire ce qu'il y avant 


Open lfile For Input As #ofile 

o 

Line Input #ofile, ligne 

If InStr(1, ligne, "

fctEpurerNEG - 1 

Public Sub EpurerNEG(recherche) 


Dim texte As String 


Dim ofile, finligne 

' affectation variables 


texte = frmBible.txtPassage 

' on enlève la ponctuation dans le verset pour ne pas s'emmêler les pinceaux 

'texte = Replace(texte, ",", "") 

'texte = Replace(texte, ".", "") 

'texte = Replace(texte, ";", "") 

'texte = Replace(texte, "!", "") 

'texte = Replace(texte, "'", "") 

'on commence par la chaîne la plus longue 

'* ceci enlève le code de l'analyse du TEMPS du verbe et le met sur une ligne, tout seul 

' on remplace " (" par des retours charriot 

' on remplace ") " par des retours charriot 

' on remplace "> " par des retours charriot 

texte = Replace(texte, "(", " " & vbCrLf) 

texte = Replace(texte, ")", " " & vbCrLf) 

texte = Replace(texte, "> ", ">" & vbCrLf) 

texte = Replace(texte, ", ", "," & vbCrLf) 


Open lfile For Output As #ofile 

rint #ofile, texte 

lose 


le texte corrigeneg est maintenant prêt à être relu en tenant 

compte des < qui détermine le début du chiffre 

le but du jeu est de lire ce qu'il y avant 



o 

Line Input #ofile, ligne 

If InStr(1, ligne, "

fctExtraireCode - 1 

Public Function ExtraireCode(mot, ligne, code, origine, chercher) As String 

Dim i%, avantcode$, ssdebut$ 

'j'enlève le début 

ssdebut = Mid(ligne, Len(mot) + 2, Len(ligne)) 

'

fctExtraireNumeroNote - 1 

Public Function ExtraireNumeroNote(mot, livre) 

Dim debut%, chiffre%, fichiernote$, texte$, recherche$ 

Dim premierenote$, fin$, notesuite, longueur, finnote 

Dim lfile 


fichiernote = App.Path & "\modules\DF\notes" + livre + ".rtf" 

debut = InStr(1, mot, "

fctFrancaisGrec - 1 

Public Function FrancaisGrec(recherche) 

End Function

fctFrancaisHebreu - 1 

Public Function FrancaisHebreu(recherche) 


Dim lexique$, lfile% 

Dim rech1%, rech2%, rech3%, motdeflechi$, analyse$ 

Dim partiehebreu$, partieprononciation$, partiefrancais$, partienote$ 

Dim trouve 

' Affactations 



' Consultation du lexique 

Open lexique For Input As #lfile 

Do 



eue 

' cela sert à la fois à la recherche sans la casse, 

' et à la répartition du résultat dans les différents 

' champs de la feuille DicoHebreu à partir du txtNotes 

' sachant que l'hébreu début la ligne et se termine à 1/ 

' où commence la prononciation 

rech1 = InStr(1, ligne, "1/", vbTextCompare) 

partiehebreu = Mid(ligne, 1, rech1 - 1) 

'analyse = MsgBox(partiehebreu, , "Mot hébreu") 

' notes 


' français 


partiefrancais = Mid(ligne, rech2 + 2, rech3 - (rech2 + 2)) 

'analyse = MsgBox(partiefrancais, , "Mot français") 

If frmDicoHebreu.chkCase.Value = 0 Then ' "Respecter la casse" n'est pas cochée 

' je me lance à la recherche d'une partie de la chaîne 

Do 

' cela concerne la première ligne ! 

'If InStr(1, partiehebreu, recherche, vbTextCompare) 0 Then 

'fmDicoHebreu.txtNotes.Text = ligne 

'Exit Do 

'End If 

' pour le reste... 



' ******** 

If InStr(1, partiefrancais, recherche, vbTextCompare) 0 Then 

' j'ai trouvé une partie de la recherche dans la partie héb 

frmDicoHebreu.txtNotes.Text = ligne 

GoTo trouve 

Exit Do 

Else 

' je n'ai pas trouvé, même une partie 

frmDicoHebreu.txtNotes.Text = "Pas de résultat !" 

End If 


ElseIf frmDicoHebreu.chkCase.Value = 1 Then ' il faut chercher le mot EXACT 

If Mid(ligne, rech2 + 2, Len(recherche) + 1) = recherche & "3" Then 


Exit Do 

Else 


End If

fctFrancaisHebreu - 2 

End If 


err: 

Close 

' Le résultat de la recherche est stocké dans txtNotes.text 

' pour commodité, on le restocke dans la variable ligne 

ligne = frmDicoHebreu.txtNotes.Text 

' J'ai trouvé mon mot hébreu, j'affecte les résultats dans les champs 

If ligne "Pas de résultat !" Then 

frmDicoHebreu.txtPrononciation.Text = Mid(ligne, rech1 + 2, rech2 - (rech1 + 2)) 

frmDicoHebreu.txtFrancais.Text = Mid(ligne, rech2 + 2, rech3 - (rech2 + 2)) 

frmDicoHebreu.txtFrancais.Text = Replace(frmDicoHebreu.txtFrancais.Text, "~", ",", 1) 

frmDicoHebreu.txtNotes.Text = Mid(ligne, rech3 + 2, Len(ligne)) 

frmDicoHebreu.txtNotes.Text = Replace(frmDicoHebreu.txtNotes.Text, "~", ",", 1) 

frmDicoHebreu.txtHebreu.Text = Mid(ligne, 1, rech1 - 1) 

Else 

analyse = MsgBox("Pas de résultat pour ce terme !" & vbCrLf & "Souhaitez-vous lancer une recher 

che étendue ? (Ne pas respecter la casse)", vbInformation + vbYesNo, "Aucune entrée dans le lexique 

") 

If analyse = vbYes Then 

frmDicoHebreu.chkCase.Value = 0 

frmDicoHebreu.txtFrancais.Text = recherche 

'frmDicoHebreu.Timer1.Enabled = True 

'frmDicoHebreu.mnuConsultation.Checked = True 


Call FrancaisHebreu(recherche) 

Else 


frmDicoHebreu.txtNotes.Text = "" 

frmDicoHebreu.txtFrancais.Text = recherche 


Exit Function 

End If 

End If 

Exit Function 

trouve: 


'partiehebreu = Mid(ligne, 1, rech1 - 1) 

' je dois redéfinir mes rech1/2/3 car ils ont été corrompus par la recherche sans la casse 










End Function

fctFrancaisLatin - 1 

Public Function FrancaisLatin(mot) 

Dim ofile, lfile, ligne 

ofile = App.Path & "\lex\fralat.raw" 


recherche = ": " & mot & "," 

': tour, 

recherche2 = ", " & mot & "," 

frmDicoLatFr.Text2.Text = "" 


Do 


repere = InStr(1, ligne, ":") 

'le mot s'y trouve exactement 


frmDicoLatFr.Text2.Text = Mid(ligne, 1, repere - 1) 

Exit Function 

End If 

'le mot peut être le deuxième sens du terme latin 

If InStr(1, ligne, recherche2) 0 Then 

frmDicoLatFr.Text2.Text = frmDicoLatFr.Text2.Text & ligne & vbCrLf 

End If 


lose 

nd Function

fctGrammaireAbel - 1 

Public Sub GrammaireAbel(recherche) 

If recherche = "nominatif" Then 

recherche = "98" 

ElseIf recherche = "vocatif" Then 


ElseIf recherche = "accusatif" Then 


ElseIf recherche = "datif" Then 


ElseIf recherche = "génitif" Then 


ElseIf recherche = "première déclinaison" Then 


ElseIf recherche = "deuxième déclinaison" Then 


ElseIf recherche = "troisième déclinaison" Then 


ElseIf recherche = "nom propre" Then 


ElseIf recherche = "adjectif" Then 


ElseIf recherche = "adverbe" Then 


ElseIf InStr(1, recherche, "comparaison") 0 Then 


ElseIf InStr(1, recherche, "nombre") 0 Then 


ElseIf InStr(1, recherche, "pronom") 0 Then 


ElseIf InStr(1, recherche, "verbe") 0 Then 


ElseIf InStr(1, recherche, "augment") 0 Then 


ElseIf InStr(1, recherche, "redoublement") 0 Then 


ElseIf recherche = "aoriste second" Then 


ElseIf recherche = "aoriste premier" Then 


ElseIf recherche = "futur" Then 


ElseIf recherche = "parfait" Then 


ElseIf recherche = "présent" Then 


ElseIf recherche = "imparfait" Then 


ElseIf recherche = "aoriste" Then 


ElseIf InStr(1, recherche, "plus") 0 And InStr(1, recherche, "parfait") 0 Then 


ElseIf InStr(1, recherche, "conjugaison") 0 And InStr(1, recherche, "périphrastique") 0 Then 


ElseIf InStr(1, recherche, "proposition") 0 And InStr(1, recherche, "complétive") 0 Then 


ElseIf InStr(1, recherche, "proposition") 0 And InStr(1, recherche, "subordonnée") 0 Then 


ElseIf InStr(1, recherche, "proposition") 0 And InStr(1, recherche, "interrogative") 0 Then 


ElseIf InStr(1, recherche, "proposition") 0 And InStr(1, recherche, "finale") 0 Then 


ElseIf InStr(1, recherche, "proposition") 0 And InStr(1, conditionnelle, "interrogative") 0 T 

hen 


ElseIf InStr(1, recherche, "proposition") 0 And InStr(1, recherche, "relative") 0 Then 


ElseIf InStr(1, recherche, "proposition") 0 And InStr(1, recherche, "adverbiale") 0 Or InStr( 

1, recherche, "circonstancielle") 0 Then 

recherche = "163"

fctGrammaireAbel - 2 

ElseIf InStr(1, recherche, "irrégulier") 0 Then 


ElseIf recherche = "article" Then 


ElseIf InStr(1, recherche, "article") 0 And InStr(1, recherche, "omission") 0 Then 


ElseIf recherche = "pronom" Then 


ElseIf recherche = "pronom personnel" Then 


ElseIf recherche = "pronom réfléchi" Then 


ElseIf recherche = "pronom démonstratif" Then 


ElseIf recherche = "pronom relatif" Then 


ElseIf recherche = "pronom interrogatif" Then 


ElseIf recherche = "pronom indéfini" Then 


ElseIf InStr(1, recherche, "degré") 0 Or InStr(1, recherche, "comparaison") 0 Then 


ElseIf recherche = "préposition" Then 


ElseIf recherche = "actif" Then 


ElseIf recherche = "moyen" Then 


ElseIf recherche = "passif" Then 


ElseIf recherche = "indicatif" Then 


ElseIf recherche = "subjonctif" Then 


ElseIf recherche = "impératif" Then 


ElseIf recherche = "optatif" Then 


ElseIf recherche = "infinitif" Then 


ElseIf recherche = "participe" Then 


ElseIf recherche = "particule" Then 


ElseIf InStr(1, recherche, "négation") 0 Then 




ElseIf recherche = "conjonction" Then 


ElseIf InStr(1, recherche, "coordination") 0 Then 


ElseIf InStr(1, recherche, "subordination") 0 Then 


ElseIf InStr(1, recherche, "style") 0 Then 


ElseIf InStr(1, recherche, "ordre") 0 And InStr(1, recherche, "mot") 0 Then 


ElseIf recherche = "rhétorique" Then 


ElseIf recherche = "koinê" Then 


ElseIf recherche = "esprit rude" Then 


ElseIf recherche = "sémitique" Then 


Else 

recherche = "" 

End If 

End Sub

fctGrammaireBoxus - 1 

Public Sub GrammaireBoxus(recherche) 























ElseIf recherche = "adjectif verbal" Then 












ElseIf recherche = "plus que parfait" Then 


ElseIf recherche = "futur du parfait" Then 


ElseIf InStr(1, recherche, "futur") 0 And InStr(1, recherche, "parfait") 0 Then 


Else 


End If 

End Sub

fctGrammaireBurnouf - 1 

Public Sub GrammaireBurnouf(recherche) 

























ElseIf recherche = "singulier" Then 


ElseIf recherche = "pluriel" Then 








ElseIf recherche = "adjectif numéral" Then 


ElseIf recherche = "adjectif démonstratif" Then 




















ElseIf recherche = "verbe" Then 


ElseIf recherche = "nom" Then 








ElseIf recherche = "verbe" Then

fctGrammaireBurnouf - 2 


Else 


End If 

End Sub

fctGrammaireBurton - 1 

Public Function GrammaireBurton(recherche) 

If InStr(1, recherche, "indicatif") 0 And InStr(1, recherche, "présent") 0 Then 


ElseIf InStr(1, recherche, "participe") 0 And InStr(1, recherche, "présent") 0 Then 


ElseIf InStr(1, recherche, "participe") 0 And InStr(1, recherche, "aoriste") 0 Then 


ElseIf InStr(1, recherche, "participe") 0 And InStr(1, recherche, "futur") 0 Then 


ElseIf InStr(1, recherche, "participe") 0 And InStr(1, recherche, "parfait") 0 Then 


ElseIf InStr(1, recherche, "négation") 0 And InStr(1, recherche, "verbe") 0 Then 
































Else 


End If 

End Function

fctGrammaireConybeare - 1 

Public Function GrammaireConybeare(recherche) 

If InStr(1, recherche, "nominatif") 0 And InStr(1, recherche, "vocatif") 0 Then 


ElseIf recherche = "nominatif" Then 


















'TYPES DE MOTS 













ElseIf recherche = "masculin" Or recherche = "féminin" Then 


ElseIf recherche = "singulier" Or recherche = "pluriel" Then 


ElseIf recherche = "conjonction" Then 
















Else 


End If 

End Function

fctGrammaireCox - 1 

Public Sub GrammaireCox(recherche) 


recherche = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0052:chapter=1:f 

orm=nom" 



orm=voc" 



orm=acc" 



orm=dat" 



orm=gen" 



orm=ind" 



orm=subj" 



orm=imperat" 



orm=opt" 



orm=infin" 



orm=part" 



orm=pres" 



orm=imperf" 



orm=fut" 



orm=aor" 



orm=perf" 



orm=plup" 



orm=futperf" 



orm=futperf" 



orm=act" 



orm=mid" 



orm=pass"

fctGrammaireCox - 2 

Else 


End If 

End Sub

fctGrammaireGildersleeve - 1 

Public Sub GrammaireGildersleeve(recherche) 

If recherche = "participe présent" Then 

recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea 

d%3D%23276" 

ElseIf recherche = "participe aoriste" Then 


d%3D%23286" 

ElseIf recherche = "participe parfait" Then 


d%3D%23295" 

ElseIf InStr(1, recherche, "accord") 0 And InStr(1, recherche, "adjectif") 0 Then 


d%3D%23427" 

ElseIf InStr(1, recherche, "position") 0 And InStr(1, recherche, "adjectif") 0 Then 


d%3D%23441" 

ElseIf InStr(1, recherche, "article") 0 And InStr(1, recherche, "omission") 0 Then 


d%3D%23529" 

ElseIf InStr(1, recherche, "position") 0 And InStr(1, recherche, "article") 0 Then 


d%3D%23524" 

' 



d%3D%23448" 

ElseIf recherche = "nominatif pour vocatif" Then 


d%3D%2312" 

ElseIf InStr(1, recherche, "nominatif") 0 And InStr(1, recherche, "vocatif") 0 Then 


d%3D%2312" 

ElseIf recherche = "nominatif" Then 


d%3D%233" 



d%3D%2314" 



d%3D%2395" 



d%3D%23424" 



d%3D%23423" 



d%3D%23306" 



d%3D%23314" 



d%3D%23347" 



d%3D%23333" 



d%3D%23267" 



d%3D%23274" 



d%3D%2327" 


recherche = "http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=hea

fctGrammaireGildersleeve - 2 

d%3D%23426" 



d%3D%2336" 

ElseIf recherche = "pluriel" Then 


d%3D%2340" 

ElseIf InStr(1, recherche, "copule") 0 Then 


d%3D%2340" 

ElseIf recherche = "duel" Then 


d%3D%23103" 

' 

'http://www.perseus.tufts.edu/cgi-bin/ptext?doc=Perseus%3Atext%3A1999.04.0074&query=head%3D%2355 

' 



d%3D%23163" 



d%3D%23179" 



d%3D%23225" 



d%3D%23207" 



d%3D%23196" 



d%3D%23204" 



d%3D%23238" 



d%3D%23238" 



d%3D%23124" 



d%3D%23130" 



d%3D%23141" 

' 

Else 


End If 

End Sub

fctGrammaireSmyth - 1 

Public Sub GrammaireSmyth(recherche) 



















































Else 


End If 

End Sub

fctGrammaireWallace - 1 

Public Sub GrammaireWallace(recherche) 

















































Else 


End If 

End Sub

fctGrecFrancais - 1 

Public Function GrecFrancais(recherche) 


Dim rech1%, rech2%, analyse$ 

Dim partiegrec$, partiefrancais$, partienote$ 

Dim trouve 


lexique = App.Path & "\tools\lexiquegr.dic" 




Do 

eue 







rech1 = InStr(1, ligne, "3/ ", vbTextCompare) 



' notes 

'rech3 = InStr(1, ligne, "3/", vbTextCompare) 

' français 

'rech2 = InStr(1, ligne, "2/", vbTextCompare) 

'partiefrancais = Mid(ligne, rech2 + 2, rech3 - (rech2 + 2)) 


If frmLexiqueNT.chkCase.Value = 0 Then ' "Respecter la casse" n'est pas cochée 


Do 



rech1 = InStr(1, ligne, "", vbTextCompare) 

partiegrec = Mid(ligne, 1, rech1 - 1) 

If InStr(1, partiegrec, recherche, vbTextCompare) 0 Then 


frmLexiqueNT.txtNotes.Text = ligne 

GoTo trouve 

Exit Do 

Else 


frmLexiqueNT.txtNotes.Text = "Pas de résultat !" 

End If 


ElseIf frmLexiqueNT.chkCase.Value = 1 Then ' il faut chercher le mot EXACT 

End If 


lose 

If Left(ligne, Len(recherche) + 2) = recherche & "" Then 

frmLexiqueNT.txtNotes.Text = ligne 

Exit Do 

Else 

frmLexiqueNT.txtNotes.Text = "Pas de résultat !" 

End If 

Le résultat de la recherche est stocké dans txtNotes.text 

pour commodité, on le restocke dans la variable ligne 

igne = frmLexiqueNT.txtNotes.Text

fctGrecFrancais - 2 

' J'ai trouvé mon mot grec, j'affecte les résultats dans les champs 


frmLexiqueNT.txtFrancais = Mid(ligne, Len(recherche) + 3, Len(ligne)) 

rech1 = InStr(1, ligne, "", vbTextCompare) 

frmLexiqueNT.txtGrec.Text = Mid(ligne, 1, rech1 - 1) 

frmLexiqueNT.txtFrancais.Text = Replace(frmLexiqueNT.txtFrancais.Text, "~", ",", 1) 

frmLexiqueNT.txtNotes.Text = "" 

End If 

frmLexiqueNT.Timer1.Enabled = False 

Exit Function 

trouve: 

ligne = LexiqueNT.txtNotes.Text 

rech1 = InStr(1, ligne, " ", vbTextCompare) 

frmLexiqueNT.txtGrec.Text = Mid(ligne, 1, rech1 - 1) 

frmLexiqueNT.txtFrancais.Text = Mid(ligne, rech + 1, Len(ligne)) 

frmLexiqueNT.txtFrancais.Text = Replace(frmLexiqueNT.txtFrancais.Text, "~", ",", 1) 


End Function

fctGrenetTOBw - 1 

Public Function GrenetTOBw(mot) 

mot = Replace(mot, "/", "=") 

mot = Replace(mot, "Å", "") 

mot = Replace(mot, "v", ")") 

mot = Replace(mot, "V", ")") 

mot = Replace(mot, ",", "/") 

mot = Replace(mot, "~", "(") 

mot = Replace(mot, "_", "") 

mot = Replace(mot, "+", "") 

mot = Replace(mot, "v", "") 

mot = Replace(mot, "[", "(") 

'mot = Replace(mot, "y", "ps") 

mot = Replace(mot, ".", "/") 


mot = Replace(mot, "j", "s") 

'mot = Replace(mot, "|", "") 


mot = Replace(mot, "C", "x") 

mot = Replace(mot, "`", "(") 

End Function

fctHebreuFrancais - 1 

Public Function HebreuFrancais(recherche) 



Dim rech1%, rech2%, rech3%, motdeflechi$, analyse$ 

Dim partiehebreu$, partieprononciation$, partiefrancais$, partienote$ 

Dim trouve 






Do 

eue 









partiehebreu = Mid(ligne, 1, rech1 - 1) 


' notes 


' français 




If frmDicoHebreu.chkCase.Value = 0 Then ' "Respecter la casse" n'est pas cochée 


Do 

' cela concerne la première ligne ! 

'If InStr(1, partiehebreu, recherche, vbTextCompare) 0 Then 

'fmDicoHebreu.txtNotes.Text = ligne 

'Exit Do 

'End If 



partiehebreu = Mid(ligne, 1, rech1 + 1) 

If InStr(1, partiehebreu, recherche, vbTextCompare) 0 Then 



GoTo trouve 

Exit Do 

Else 



End If 


ElseIf frmDicoHebreu.chkCase.Value = 1 Then ' il faut chercher le mot EXACT 

End If 

If Left(ligne, Len(recherche) + 1) = recherche & "1" Then 


Exit Do 

Else 


End If

fctHebreuFrancais - 2 


erreur: 

Close 

' Le résultat de la recherche est stocké dans txtNotes.text 

' pour commodité, on le restocke dans la variable ligne 


' J'ai trouvé mon mot hébreu, j'affecte les résultats dans les champs 







' à voir ; je pourrai aussi mettre, au lieu du mid, la recherche elle-même ? 

'frmDicoHebreu.txtHebreu.Text = Mid(ligne, 1, rech1 - 1) 

'Else 

'analyse = MsgBox("Pas de résultat pour ce terme !" & vbCrLf & "Souhaitez-vous lancer une reche 

rche étendue ? (Ne pas respecter la casse)", vbInformation + vbYesNo, "Aucune entrée dans le lexiqu 

e") 

'If analyse = vbYes Then 

'frmDicoHebreu.chkCase.Value = 0 

'frmDicoHebreu.txtHebreu.Text = recherche 

'frmDicoHebreu.Timer1.Enabled = True 

'frmDicoHebreu.mnuConsultation.Checked = True 


'Call HebreuFrancais(recherche) 

'Else 

'frmDicoHebreu.Timer1.Enabled = False 

'frmDicoHebreu.txtNotes.Text = "" 

'frmDicoHebreu.txtHebreu.Text = recherche 

'frmDicoHebreu.Timer1.Enabled = False 


'End If 

End If 

Exit Function 

trouve: 



' je dois redéfinir mes rech1/2/3 car ils ont été corrompus par la recherche sans la casse 










End Function

fctLatinFrancais - 1 

Public Function LatinFrancais(mot) 

Dim ofile, ofile2, lfile, ligne 

Dim repere% 


ofile = App.Path & "\lex\fralat.raw" 

ofile2 = App.Path & "\lex\LVD.raw" 


' 

recherche = mot & "," 

recherche2 = mot & ":" 

recherche3 = mot & " :" 

recherche4 = mot & " (" 


Do 


If Mid(ligne, 1, Len(recherche)) = recherche Or _ 

Mid(ligne, 1, Len(recherche2)) = recherche2 Or _ 


Mid(ligne, 1, Len(recherche4)) = recherche4 Then 

frmDicoLatFr.Text2.Text = ligne 

Exit Do 

End If 


lose 


Open ofile2 For Input As #lfile 

ot = "*" & mot 

rmDicoLatFr.txtWords.Text = "" 

Do 


If ligne = mot Then 

frmDicoLatFr.txtWords.Text = frmDicoLatFr.txtWords.Text & ligne 

Do 


If Mid(ligne, 1, 1) = "*" Then GoTo fini: 

frmDicoLatFr.txtWords.Text = frmDicoLatFr.txtWords.Text & vbCrLf & ligne 

Loop 

End If 


ini: 

lose 

maintenant, j'essaie de renseigner le français, si bien sûr il n'est pas renseigné 

If frmDicoLatFr.Text2.Text "" Then Exit Function 

repere2 = Mid(mot, 2, 1) 

exte = frmDicoLatFr.txtWords.Text 


ichier = App.Path & "\tools\temp.txt" 

Open fichier For Output As #lfile 


lose 



o 


If InStr(1, ligne, ",") 0 And InStr(1, ligne, "(") = 0 Then 

motlatin = Mid(ligne, 1, InStr(1, ligne, ",") - 1) 

GoTo unpeuplusloin: 

End If 


npeuplusloin: 

lose 


echerche = motlatin & "," 

echerche2 = motlatin & ":"

fctLatinFrancais - 2 

recherche3 = motlatin & " :" 

recherche4 = motlatin & " (" 


Do 


If Mid(ligne, 1, Len(recherche)) = recherche Or _ 



Mid(ligne, 1, Len(recherche4)) = recherche4 Then 

frmDicoLatFr.Text2.Text = ligne 

Exit Do 

End If 


lose 

f motlatin "" And frmDicoLatFr.Text2.Text = "" Then 

frmDicoLatFr.Text2.Text = motlatin & ": mot inconnu." 

nd If 

ANALYSE MORPHOLOGIQUE 



o 


on récupère la morphologie 

' les codes sont renseignés à cette adresse: http://users.erols.com/whitaker/wordsdoc.h 

m 

'tous les types de mots possibles 

If Left(ligne, 1) "*" And _ 

InStr(1, ligne, "-") 0 And _ 

InStr(1, ligne, ",") = 0 And _ 

InStr(1, ligne, ";") = 0 Then 

uite: 

If Mid(ligne, 1, 1) = "*" Or ligne = "" Then GoTo suite: 

Call AnalyseMorphoLatin(ligne) 

frmDicoLatFr.List1.AddItem (ligne) 

Do While Not EOF(lfile) 


If Left(ligne, 1) "*" And _ 

InStr(1, ligne, "-") 0 And _ 

InStr(1, ligne, ",") = 0 And _ 

InStr(1, ligne, ";") = 0 Then 

Call AnalyseMorphoLatin(ligne) 

frmDicoLatFr.List1.AddItem (ligne) 

Loop 

End If 


pres: 

lose 

nd Function 

Else 

GoTo suite: 

End If

fctLectureBhsLxx - 1 

Public Function LectureBhsLxx(fichier, passage, finverset) 

Dim lfile, ligne$, fichiertemp, LFile2, textefinal$, msg$, remplace$ 

frmBHSLXX.txtGauche.Text = "" 

frmBHSLXX.txtDroite.Text = "" 

fichiertemp = App.Path & "\modules\parallel\temp.txt" 




Open fichiertemp For Output As #LFile2 

Do 

tabulation) 


If Left(ligne, Len(passage)) = passage Then 

Do 

bulation, Len(ligne)) 


tabulation = InStr(1, ligne, " ") 

frmBHSLXX.txtGauche.Text = frmBHSLXX.txtGauche.Text & vbCrLf & Mid(ligne, 1 

frmBHSLXX.txtDroite.Text = frmBHSLXX.txtGauche.Text & vbCrLf & Mid(ligne, t 

Loop While Not ligne = finverset 

Print #LFile2, frmBHSLXX.txtGauche.Text 

'MsgBox (frmBHSLXX.txtGauche.Text) 

'MsgBox fichiertemp, , "fichiertemp" 

Exit Do 

End If 


lose 

emplace = Replace(frmBHSLXX.txtGauche.Text, " ", vbCrLf, 1) 

Open fichiertemp For Input As #LFile2 

lose 

Do 


'msg = MsgBox(ligne) 

Loop While Not EOF(LFile2) 

nd Function

fctLexiqueNTMorph - 1 

Public Function LexiqueNT_Morph(mot) 

Dim ofile$, lfile%, ligne$, rech1%, rech2%, rech3%, code$, msg$, vientde$, packard$, LFile2% 

ofile = App.Path & "\tools\greeknt.txt" 'pour la recherche de l'analyse du mot 

packard = App.Path & "\tools\packard.txt" 'pour le déchiffrement du code de l'analyse précitée 



'j'efface tout ce qui se trouve actuellement sur la feuille du Lexique 

frmLexiqueNT.txtGrec.Text = "" 

frmLexiqueNT.txtVientde.Text = "" 

frmLexiqueNT.txtFrancais.Text = "" 

frmLexiqueNT.txtAnalyse.Text = "" 

frmLexiqueNT.txtcode.Text = "" 


' recherche du code 


lose 

Do 


' les noms propres sont précédés d'un astérix 

ligne = Replace(ligne, "*", "", 1) 

If Left(ligne, Len(mot) + 1) = mot & "", vbTextCompare) 

If code "" Then 

code = Left(code, rech2 - 1) 

frmLexiqueNT.txtcode.Text = code ' affectation code 

code = Replace(code, " ", " ", 1) 



' recherche signification code packard 

Else 

Exit Function 

End If 

packard me dit ce que mon code signifie 

Open packard For Input As #LFile2 

Do 


If ligne = code Then 

Do 

If code = "X" Then 

frmLexiqueNT.txtAnalyse.Text = ligne

fctLexiqueNTMorph - 2 

f & ligne 

Close 

Exit Do 

End If 


If frmLexiqueNT.txtAnalyse.Text = "" Then 

frmLexiqueNT.txtAnalyse.Text = ligne 

Else 

frmLexiqueNT.txtAnalyse.Text = frmLexiqueNT.txtAnalyse.Text & vbCrL 

End If 

Loop While Not ligne = "" Or ligne = vbCrLf 

Exit Do 

End If 


End Function

fctLireANF - 1 

Public Function LireANF(livre, chapitre, verset) 

Dim cherche$, ofile$, lfile%, ligne$, recherhche$ 

ofile = App.Path & "\modules\ANF\anf.txt" 


If livre = "Justin - Apologie" Then 

chercher = "JAP" 

ElseIf livre = "Justin - Dialogue avec Tryphon" Then 

chercher = "DJT" 

ElseIf livre = "Justin - Discours avec les Grecs" Then 

chercher = "JDi" 

ElseIf livre = "Justin - Adresse aux Grecs" Then 

chercher = "JHG" 

ElseIf livre = "Justin - Sur le gouvernement de Dieu" Then 

chercher = "JSG" 

ElseIf livre = "Justin - Fragments sur la Résurrection" Then 

chercher = "FJR" 

ElseIf livre = "Irénée - Contre les Hérésies Livre 1" Then 

chercher = "IH1" 



'IH2 27:3 







ElseIf livre = "Tatien - Adresse aux Grecs" Then 

chercher = "TAG" 

ElseIf livre = "Théophile d'Antioche à Autolycus" Then 

chercher = "TAA" 

ElseIf livre = "Athénagore - Défense des Chrétiens" Then 

chercher = "PCA" 

ElseIf livre = "Athénagore - Sur la Résurrections des morts" Then 

chercher = "ARD" 

ElseIf livre = "Clément d'Alexandrie - Exhoration aux cieux" Then 

chercher = "CEH" 

ElseIf livre = "Clément d'Alexandrie - Pédagogue Livre 1" Then 

chercher = "CI1" 













ElseIf livre = "Clément d'Alexandrie - Pédagogue Livre 8" Then



ElseIf livre = "Clément d'Alexandrie - Stromates Livre 1" Then 

chercher = "CS1" 















ElseIf livre = "Tertullien - Apologie" Then 

chercher = "TAP" 

ElseIf livre = "Tertullien - Sur l'idolâtrie" Then 

chercher = "TID" 

ElseIf livre = "Tertullien - Sur les spectacles" Then 

chercher = "TSH" 

ElseIf livre = "Tertullien - Sur le chapelet" Then 

chercher = "TCH" 

ElseIf livre = "Tertullien - A Scapula" Then 

chercher = "TTS" 

ElseIf livre = "Tertullien - Ad Nationes" Then 

chercher = "TAD" 

ElseIf livre = "Tertullien - Réponse aux Juifs" Then 

chercher = "TAJ" 

ElseIf livre = "Tertullien - Le témoignage de l'âme" Then 

chercher = "TST" 

ElseIf livre = "Tertullien - Prescription contre les hérétiques" Then 

chercher = "TPH" 

ElseIf livre = "Tertullien - Contre Marcion Livre 1" Then 

chercher = "TM1" 









ElseIf livre = "Tertullien - Contre Hermogène" Then 

chercher = "TAH" 

ElseIf livre = "Tertullien - Contre les Valentiniens" Then 

chercher = "TAV" 

ElseIf livre = "Tertullien - Sur la chair du Christ" Then 

chercher = "TFC" 

ElseIf livre = "Tertullien - Sur la résurrection de la chair" Then 

chercher = "TRF" 

ElseIf livre = "Tertullien - Contre Praxeas" Then 

chercher = "TPR" 

ElseIf livre = "Tertullien - Scorpiace" Then 

chercher = "TSC" 

ElseIf livre = "Tertullien - Contre toutes les hérésies" Then 

chercher = "AAH" 

ElseIf livre = "Tertullien - Sur la repentance" Then 

chercher = "TOR" 

ElseIf livre = "Tertullien - Sur le baptême" Then 

chercher = "TBa" 

ElseIf livre = "Tertullien - Sur la prière" Then 

chercher = "TOP" 

ElseIf livre = "Tertullien - Ad martyras" Then 

chercher = "TAM" 

ElseIf livre = "Tertullien - Martyr de Perpétue et Félécie" Then 

chercher = "TPF" 

ElseIf livre = "Tertullien - Sur la patience" Then 

chercher = "TPA" 

ElseIf livre = "Tertullien - Sur le Pallium" Then 

chercher = "TPl" 

ElseIf livre = "Tertullien - Sur les ornements des femmes" Then


chercher = "TAW" 

ElseIf livre = "Tertullien - Sur le voile des vierges" Then 

chercher = "TVV" 

ElseIf livre = "Tertullien - A sa femme" Then 

chercher = "THW" 

ElseIf livre = "Tertullien - Exhortation à la chasteté" Then 

chercher = "TEC" 

ElseIf livre = "Tertullien - Sur la monogamie" Then 

chercher = "TOM" 

ElseIf livre = "Tertullien - Sur la modestie" Then 

chercher = "TMD" 

ElseIf livre = "Tertullien - Sur les fêtes" Then 

chercher = "TOF" 

ElseIf livre = "Tertullien - De fuga in persecutione" Then 

chercher = "TFP" 

ElseIf livre = "Munucius Felix - L'Octavius" Then 

chercher = "MFO" 

ElseIf livre = "Munucius Felix - Instructions de Commodianus" Then 

chercher = "MFC" 

ElseIf livre = "Origène - Prologue" Then 

chercher = "OPP" 

ElseIf livre = "Origène - De Principiis Livre 1" Then 

chercher = "OP1" 







ElseIf livre = "Origène - Lettres" Then 

chercher = "OLt" 

ElseIf livre = "Origène - Contre Celse" Then 

chercher = "OAC" 

ElseIf livre = "Origène - Réfutation de toutes les hérésies" Then 

chercher = "HRH" 

ElseIf livre = "Anonyme - Canon de Muratori" Then 

chercher = "TMC" 

ElseIf livre = "Hippolyte - Réfutation de toutes les hérésies" Then 

chercher = "HRH" 

End If 

recherche = chercher & " " & chapitre & ":" & verset & " " 


Do 


If Left(ligne, Len(recherche)) = recherche Then 


End If 


lose 

frmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",") 

rmBible.txtPassage.FontSize = 12 

rmBible.txtPassage.Font = "Times" 

rmBible.lblchapitre = livre & " " & chapitre & ":" & verset 

nd Function

fctLireASV - 1 

Public Sub LireASV(livre, chapitre, verset) 


ofile = App.Path & "\modules\ASV\asv.txt" 



chercher = "Gen" 


chercher = "Exo" 


chercher = "Lev" 


chercher = "Nom" 


chercher = "Deu" 


chercher = "Jos" 


chercher = "Jug" 


chercher = "Rut" 


chercher = "Samun" 


chercher = "Samde" 


chercher = "UnRo" 


chercher = "DeRo" 


chercher = "UnCr" 


chercher = "DeCr" 


chercher = "Esd" 


chercher = "Neh" 


chercher = "Est" 




chercher = "Psa" 


chercher = "Pro" 


chercher = "Ecc" 


chercher = "Can" 

ElseIf livre = "Esaïe" Then 

chercher = "Esa" 

ElseIf livre = "Jérémie" Then


chercher = "Jer" 


chercher = "Lam" 

ElseIf livre = "Ezéchiel" Then 

chercher = "Eze" 


chercher = "Dan" 


chercher = "Ose" 


chercher = "Joe" 


chercher = "Amo" 

ElseIf livre = "Abdias" Then 

chercher = "Oba" 


chercher = "Jon" 

ElseIf livre = "Michée" Then 

chercher = "Mic" 

ElseIf livre = "Habaquq" Then 

chercher = "Hab" 


chercher = "Sop" 


chercher = "Agg" 

ElseIf livre = "Nahoum" Then 

chercher = "Nah" 


chercher = "Zac" 


chercher = "Mal" 

ElseIf livre = "Matthieu" Then 

chercher = "Mat" 


chercher = "Mar" 




chercher = "Jea" 


chercher = "Act" 


chercher = "Rom" 


chercher = "UnCo" 


chercher = "DeCo" 


chercher = "Gal" 


chercher = "Eph"



chercher = "Php" 


chercher = "Col" 


chercher = "UnTh" 


chercher = "DeTh" 


chercher = "UnTi" 


chercher = "DeTi" 


chercher = "Tit" 


chercher = "Phi" 


chercher = "Heb" 


chercher = "Jac" 


chercher = "UnPi" 


chercher = "DePi" 


chercher = "UnJn" 


chercher = "DeJn" 


chercher = "TrJn" 




chercher = "Rev" 

End If 

recherche = chercher & "-" & chapitre & "-" & verset & "-" 


Do 




End If 


lose 

rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",") 




nd Sub

fctLireATFrN - 1 

Public Function LireStrongATFrN(mot) 


Dim cherche$, ofile, lfile, ligne$ 

ofile = App.Path & "\modules\Strong\shf.dat" 


If Left(mot, 1) = "0" And Len(mot) = 4 Then 

mot = "0" & mot 

GoTo bonmot: 

'0776 > 00776 

ElseIf Left(mot, 2) = "00" And Len(mot) = 4 Then 

mot = "00" & mot 

GoTo bonmot: 

'0076 > 00076 

ElseIf Left(mot, 3) = "000" And Len(mot) = 4 Then 

mot = "000" & mot 

GoTo bonmot: 

'0006 > 00006 

End If 

bonmot: 



Do 


If Left(ligne, Len(mot)) = mot Then 


'ligne = Mid(ligne, Len(mot), Len(ligne)) 

repere = InStr(1, ligne, " \") 

repere2 = InStr(repere + 1, ligne, "\n") 

ligne = Mid(ligne, repere, Len(ligne)) 

repere2 = InStr(2, ligne, "\n") 

mothebreu = Mid(ligne, 1, repere2) 

mothebreu = Replace(mothebreu, "\", "") 

mothebreu = Trim(mothebreu) 

Do 


If Left(ligne, 1) = "0" And Len(ligne) < 7 Then GoTo plusloin: 


Loop 

End If 


lusloin: 

lose 

01079 

' 1079 \Ggenethv\n genete {ghen-et-ay} 

vient d 'un dérivé présumé de \\1074\\; n f 

'LSG - naissance 1; 1 

1) naissance, depuis la naissance 

oad frmResultatStrong 

exte = frmParse2.Text1.Text 

trong = mot 

exte = Trim(texte) 

exte = Replace(texte, "\\", "") 

exte = Replace(texte, "#", "") 

exte = Replace(texte, "1a)", vbCrLf & "1a) ") 

exte = Replace(texte, "1b)", vbCrLf & "1b) ") 

exte = Replace(texte, "1c)", vbCrLf & "1c) ") 

exte = Replace(texte, "1d)", vbCrLf & "1d) ") 

exte = Replace(texte, "1e)", vbCrLf & "1e) ") 

exte = Replace(texte, "1f)", vbCrLf & "1f) ") 

exte = Replace(texte, "2a)", vbCrLf & "2a) ")

fctLireATFrN - 2 

texte = Replace(texte, "2b)", vbCrLf & "2b) ") 

texte = Replace(texte, "2c)", vbCrLf & "2c) ") 

texte = Replace(texte, "2d)", vbCrLf & "2d) ") 

texte = Replace(texte, "2e)", vbCrLf & "2e) ") 

texte = Replace(texte, "2f)", vbCrLf & "2f) ") 

texte = Replace(texte, "3a)", vbCrLf & "3a) ") 






texte = Replace(texte, "1)", vbCrLf & "1) ") 






texte = Replace(texte, " ", " ") 




mothebreu = Replace(mothebreu, "f", "j") 

mothebreu = Replace(mothebreu, "c", "f") 

mothebreu = Replace(mothebreu, ":", "'") 

mothebreu = Replace(mothebreu, ";", "'") 

mothebreu = Replace(mothebreu, "Ò", ".") 

mothebreu = Replace(mothebreu, "]", ".") 

mothebreu = Replace(mothebreu, "x", "c") 

mothebreu = Replace(mothebreu, "!", "~") 

mothebreu = Replace(mothebreu, "@", "!") 

mothebreu = Replace(mothebreu, "$", "#") 

mothebreu = Replace(mothebreu, "/", "o") 

mothebreu = Replace(mothebreu, ">", "/") 

mothebreu = Replace(mothebreu, "¿", "") 

'¿ 

frmResultatStrong.lblNStrong.Caption = "Strong : " & strong 

frmResultatStrong.Font = "Bwhebb" 

frmResultatStrong.FontSize = 16 

frmResultatStrong.lblMotH.Caption = Mid(mothebreu, 2, Len(mothebreu)) 

texte = Replace(texte, " ", "") 

frmResultatStrong.txtStrong.Text = texte 

If frmAutomatos.Visible = False Then 


End If 





Close 

End Function

fctLireBBE - 1 

Public Function LireBBE(livre, chapitre, verset) 


ofile = App.Path & "\modules\BBE\bbe.txt" 















































chercher = "Esa"




















































ElseIf livre = "Ephésiens" Then


chercher = "Eph" 



































End If 



Do 




End If 


lose 





nd Function

fctLireBBE - 4

fctLireBFC - 1 

Public Function LireBFC(livre, chapitre, verset) 


ofile = App.Path & "\modules\BFC\bfc.txt" 









chercher = "Num" 






chercher = "Jdg" 




chercher = "1Sa" 




chercher = "1Ki" 








chercher = "Ezr" 














chercher = "Sol" 


chercher = "Isa" 











chercher = "Hos" 














chercher = "Zep" 


chercher = "Hag" 




chercher = "Zec" 








chercher = "Luk" 


chercher = "Joh" 






chercher = "1Co" 






chercher = "Eph"







chercher = "1Th" 




chercher = "1Ti" 










chercher = "Jam" 


chercher = "1Pe" 




chercher = "1Jo" 






chercher = "Jud" 



End If 

recherche = chercher & " " & chapitre & "-" & verset & " " 


Do 




End If 


lose 





nd Function

fctLireBHS - 1 

Public Function LireBHS(livre, chapitre, verset) 

Dim fichier$, lfile%, passage$, ligne$, inverse$, texte$ 


fichier = App.Path & "\modules\bhs\bhs.txt" 


frmBible.txtPassage.FontSize = "14" 

' détermination du passage 


passage = "Gen" & "-" & chapitre & "-" & verset & "-" 


passage = "Exo" & "-" & chapitre & "-" & verset & "-" 


passage = "Lev" & "-" & chapitre & "-" & verset & "-" 


passage = "Nom" & "-" & chapitre & "-" & verset & "-" 


passage = "Deu" & "-" & chapitre & "-" & verset & "-" 


passage = "Jos" & "-" & chapitre & "-" & verset & "-" 


passage = "Jos" & "-" & chapitre & "-" & verset & "-" 


passage = "Jug" & "-" & chapitre & "-" & verset & "-" 


passage = "Rut" & "-" & chapitre & "-" & verset & "-" 


passage = "Samun" & "-" & chapitre & "-" & verset & "-" 


passage = "Samede" & "-" & chapitre & "-" & verset & "-" 


passage = "UnRo" & "-" & chapitre & "-" & verset & "-" 


passage = "DeRo" & "-" & chapitre & "-" & verset & "-" 


passage = "UnCh" & "-" & chapitre & "-" & verset & "-" 


passage = "DeCh" & "-" & chapitre & "-" & verset & "-" 


passage = "Esd" & "-" & chapitre & "-" & verset & "-" 


passage = "Neh" & "-" & chapitre & "-" & verset & "-" 


passage = "Est" & "-" & chapitre & "-" & verset & "-" 


passage = "Job" & "-" & chapitre & "-" & verset & "-" 


passage = "Psa" & "-" & chapitre & "-" & verset & "-" 


passage = "Pro" & "-" & chapitre & "-" & verset & "-" 


passage = "Ecc" & "-" & chapitre & "-" & verset & "-" 


passage = "Can" & "-" & chapitre & "-" & verset & "-" 


passage = "Esa" & "-" & chapitre & "-" & verset & "-" 


passage = "Jer" & "-" & chapitre & "-" & verset & "-" 


passage = "Lam" & "-" & chapitre & "-" & verset & "-" 


passage = "Eze" & "-" & chapitre & "-" & verset & "-" 


passage = "Dan" & "-" & chapitre & "-" & verset & "-" 


passage = "Ose" & "-" & chapitre & "-" & verset & "-" 


passage = "Joe" & "-" & chapitre & "-" & verset & "-" 


passage = "Amo" & "-" & chapitre & "-" & verset & "-" 


passage = "Oba" & "-" & chapitre & "-" & verset & "-" 


passage = "Jon" & "-" & chapitre & "-" & verset & "-"



passage = "Mic" & "-" & chapitre & "-" & verset & "-" 


passage = "Nah" & "-" & chapitre & "-" & verset & "-" 


passage = "Hab" & "-" & chapitre & "-" & verset & "-" 


passage = "Sop" & "-" & chapitre & "-" & verset & "-" 


passage = "Agg" & "-" & chapitre & "-" & verset & "-" 


passage = "Zac" & "-" & chapitre & "-" & verset & "-" 


passage = "Mal" & "-" & chapitre & "-" & verset & "-" 

Else 

passage = MsgBox("Vous n'avez pas sélectionné de livre !", vbExclamation, "Quel verset désirez-vous 

?") 

Exit Function 

End If 

' fin de la détermination du passage 

' recherche du verset (le passage) 


lose 

Do 


If Left(ligne, Len(passage)) = passage Then 

frmBible.txtPassage.Text = Mid(ligne, Len(passage) + 1, Len(ligne)) 

Exit Do 

End If 


lecture droite à gauche 

nverse = StrReverse(frmBible.txtPassage.Text) 

rmBible.txtPassage.Text = inverse 

translitération fichier d'origine > format police OLBHEB 

assage = frmBible.txtPassage.Text 

assage = Replace(passage, ".", " ", 1, , vbTextCompare) 

bien entendu, je commence par la chaîne de caractère la plus longue 

pour le remplacement, puis la plus petite 

Attention : le remplacement d'une lettre finale oblige à l'insertion 

d'un espace supplémentaire, pour faire coupure avec le mot suivant 

vav avec espace 

assage = Replace(passage, "v ", "w ", , , vbTextCompare) 

aleph avec espace 

assage = Replace(passage, "` ", "a ", , , vbTextCompare) 

assage = Replace(passage, " `", " a", , , vbTextCompare) 

tsadé final 

tsadé 

assage = Replace(passage, " &", " U", , , vbTextCompare) 

tsadé 

assage = Replace(passage, "&", "u", , , vbTextCompare) 

mem final 

assage = Replace(passage, " m", " M", , , vbTextCompare) 

kaf final 

assage = Replace(passage, " k", " K", , , vbTextCompare) 

pé final 

assage = Replace(passage, " p", " P", , , vbTextCompare) 

noun final 

assage = Replace(passage, " n", " N", , , vbTextCompare) 

ayin 

assage = Replace(passage, "j", "e", , , vbTextCompare) 

samekh 

assage = Replace(passage, "$", "o", , , vbTextCompare)


' tet 

passage = Replace(passage, "+", "j", , , vbTextCompare) 

' sof passouk (fin du verset...) 

passage = Replace(passage, ".", " :", , , vbTextCompare) 

' vav 

passage = Replace(passage, "v", "w", , , vbTextCompare) 

' aleph 

passage = Replace(passage, "`", "a", , , vbTextCompare) 

' tsadé non final 

passage = Replace(passage, "&", "u", , , vbTextCompare) 

frmBible.txtPassage.Text = ":" & passage 

frmBible.txtPassage.ToolTipText = "Attention, lecture de droite à gauche, et de bas en haut !" 

'frmBible.txtPassage.RightToLeft = True 

frmBible.txtPassage.Alignment = 1 

End Function

fctLireBHSStrongs - 1 

Public Function LireBHSStrong(livre, chapitre, verset) 

Dim fichier$, lfile%, passage$, ligne$, inverse$, texte$ 


fichier = App.Path & "\modules\bhs\olb.txt" 


frmBible.txtPassage.FontSize = "14" 

' détermination du passage 


passage = "Genesis" 


passage = "Exodus" 


passage = "Leviticus" 


passage = "Numbers" 


passage = "Deuteronomus" 


passage = "Joshua" 


passage = "Judges" 


passage = "Ruth" 


passage = "1 Samuel" 


passage = "1 Samuel" 


passage = "1 Kings" 


passage = "1 Kings" 


passage = "1 Chronicles" 


passage = "2 Chronicles" 


passage = "Ezra" 


passage = "Nehemia" 


passage = "Esther" 


passage = "Job" 


passage = "Psalms" 


passage = "Proverbs" 


passage = "Ecclesiastes" 


passage = "Song of Salomon" 


passage = "Isaiah " 


passage = "Jeremia" 


passage = "Lamentations" 


passage = "Ezekiel" 


passage = "Daniel" 


passage = "Hosea" 


passage = "Joel" 


passage = "Amos" 


passage = "Obadiah" 


passage = "Jonah" 


passage = "Micah "



passage = "Nahum" 


passage = "Habakkuk" 


passage = "Zephaniah" 


passage = "Haggai" 


passage = "Zechariah" 


passage = "Malachi" 

Else 

passage = MsgBox("Vous n'avez pas sélectionné de livre !", vbExclamation, "Quel verset désirez-vous 

?") 

Exit Function 

End If 

' fin de la détermination du passage 

'passage : Genesis 1 

'verset : instr : "(" & chapitre & ":" & verset & ")" 

passage = passage & " " & chapitre 

verset = "(" & chapitre & ":" & verset & ")" 




Do 


If ligne = passage Then 

If InStr(1, ligne, verset) 0 Then 

frmParse2.Text1.Text = ligne 

Exit Do 

Else 

Do 




Exit Do 

End If 

Loop 

End If 

End If 


pres: 

lose 


exte = Replace(texte, "


frmBible.txtPassage.Alignment = 1 

verset = frmBible.txtverset.Text 

frmBible.lblchapitre.Caption = livre & " " & chapitre & ":" & verset 

'frmBible.txtPassage.MultiLine = False 

'frmBible.txtPassage.ScrollBars = 2 

End Function

fctLireBHSUnicode - 1 

Public Function LireBHSUnicode(livre, chapitre, verset) 

Dim ofile, lfile, ligne, recherche, textefinal, ofile2, LFile2 

ofile = App.Path & "\modules\BHS\text.rtf" 

ofile2 = App.Path & "\modules\BHS\WLC.rtf" 


recherche = livre & "--" & chapitre & "-" & verset 


Do 


frmParse.txtBHS.Text = ligne 

If Mid(frmParse.txtBHS.Text, 1, Len(recherche)) = recherche Then 

frmParse2.Text1.TextRTF = ligne 

Exit Do 

'LFile2 = FreeFile + 1 

'Open ofile For Output As #LFile2 

'Write #LFile2, ligne 

End If 


lose 

oad frmParse2 

rmParse2.Show 




textefinal = ligne 

Close 

frmBible.txtPassage.Text = StrConv(textefinal, vbFromUnicode) 

Load frmParse 

frmParse2.Text1.Text = frmParse2.Text1.Text 

frmParse2.Show 

frmParse2.Show 

nd Function

fctLireBHSV - 1 

Public Function LireBHSV(livre, chapitre, verset) 

Dim cherche$, ofile$, ofile2$, lfile, LFile2, ligne$, recherhche$, textetrouve$ 

ofile = App.Path & "\modules\BHSv\wtt.txt" 



frmBible.txtPassage.RightToLeft = True 














































chercher = "Isa"


































End If 

recherche2 = chercher & " " & chapitre & ":" & verset 

' format de la recherche 'Gen 1:1 ' 


'frmBible.txtPassage.MultiLine = False 

'frmBible.txtPassage.ScrollBars = vbHorizontal 


Do 




toto = Replace(frmBible.txtPassage.Text, " ", vbCrLf) 

ofile2 = App.Path & "\tools\temp.txt" 



Print #LFile2, toto 

End If


Close 


' je configure l'affichage de la feuille principale 


frmBible.txtPassage.Font = "Bwhebb" 


End Function

fctlireCBC - 1 

Public Function LireCBC(mot) 

Dim fichier$, def$, lfile% 


fichier = App.Path & "\modules\CBC\cbc.txt" 

def = App.Path & "\modules\KJV\def.htm" 




Do 



End If 


uite: 

lose 


Do 

On err GoTo suite: 


frmParse2.Text1.Text = frmParse2.Text1.Text & vbCrLf & ligne 

Loop While Not ligne = "" Or ligne = vbCrLf 

file = FreeFile + 1 

rmParse2.Text1.Text = Replace(frmParse2.Text1.Text, "~", ",") 

f frmParse2.Text1.Text = "" Then 

rmParse2.Text1.Text = "" & UCase(mot) & "" & "" & "" & "Pas de définition pour ce mo 

." & "" 

nd If 

Open def For Output As #lfile 

rint #lfile, frmParse2.Text1.Text 

lose 


rmBrowser.WindowState = 0 

rmBrowser.cboAddress.Text = def 

rmBrowser.Show 

nd Function

fctLireCodeMorph - 1 

Public Function LireCodeMorph(code) 

If Mid(code, 1, 1) = "n" Then 

Call LireCodeMorphNom(code) 

Exit Function 

ElseIf Mid(code, 1, 1) = "v" Then 

Call LireCodeMorphVerbe(code) 

Exit Function 

ElseIf Mid(code, 1, 1) = "a" Then 

Call LireCodeMorphAdjectif(code) 

Exit Function 

ElseIf Mid(code, 1, 1) = "r" Then 

Call LireCodeMorphPronom(code) 

Exit Function 

ElseIf Mid(code, 1, 1) = "c" Then 

Call LireCodeMorphConjonction(code) 

Exit Function 

ElseIf Mid(code, 1, 1) = "t" Then 

Call LireCodeMorphIndeclinable(code) 

Exit Function 

ElseIf Mid(code, 1, 1) = "x" Then 

Call LireCodeMorphParticule(code) 

Exit Function 

ElseIf Mid(code, 1, 1) = "i" Then 

Call LireCodeMorphInterjection(code) 

Exit Function 

ElseIf Mid(code, 1, 1) = "p" Then 

Call LireCodeMorphPreposition(code) 

Exit Function 

ElseIf Mid(code, 1, 1) = "b" Then 

Call LireCodeMorphAdverbe(code) 

Exit Function 

ElseIf Mid(code, 1, 1) = "d" Then 

Call LireCodeMorphArticle(code) 

Exit Function 

End If 

End Function

fctLireCodeMorphAdjectif - 1 

Public Function LireCodeMorphAdjectif(code) 

ttype = "adjectif (a)" 

'les codes morpho de WH présentent une absence de ttype2 

'contrairement, apparemment, à ceux de NA27 

If Len(code) > 5 Then 

ttype2 = Mid(code, 2, 1) 

cas = Mid(code, 3, 1) 

genre = Mid(code, 4, 1) 

nombre = Mid(code, 5, 1) 

degre = Mid(code, 6, 1) 

ElseIf Len(code) = 5 Then 




degre = Mid(code, 5, 1) 

'il y a peut être d'autres cas... 

End If 

' TTYPE2 = TYPE D'ADJECTIF 

If ttype2 = "n" Then ttype2 = "normal (n)" 

If ttype2 = "s" Then ttype2 = "possessif (s)" 

If ttype2 = "d" Then ttype2 = "démonstratif (d)" 

If ttype2 = "q" Then ttype2 = "interrogatif (q)" 

If ttype2 = "i" Then ttype2 = "indéfini (i)" 

If ttype2 = "t" Then ttype2 = "intensif (t)" 

If ttype2 = "c" Then ttype2 = "cardinal (c)" 

If ttype2 = "o" Then ttype2 = "ordinal (o)" 

If ttype2 = "m" Then ttype2 = "nombre (m)" 

' CAS 

If cas = "n" Then cas = "nominatif (n)" 

If cas = "g" Then cas = "génitif (g)" 

If cas = "a" Then cas = "accusatif (a)" 

If cas = "d" Then cas = "datif (d)" 

If cas = "v" Then cas = "vocatif (v)" 

' GENRE 

If genre = "f" Then genre = "féminin (f)" 

If genre = "m" Then genre = "masculin (m)" 

If genre = "n" Then genre = "neutre (n)" 

'NOMBRE 

If nombre = "s" Then nombre = "singulier (s)" 

If nombre = "p" Then nombre = "pluriel (p)" 

'DEGRE 

If degre = "n" Then degre = "aucun (n)" 

If degre = "c" Then degre = "comparatif (c)" 

If degre = "s" Then degre = "superlatif (s)" 

' AFFECTATIONS 

'1) je renseigne la petite fenêtre Analyse Morphologique 

If ttype2 = "" Then ttype2 = " " 

frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3) & Mid(ttype2, 1, Len(tty 

pe2) - 3) & Mid(cas, 1, Len(cas) - 3) & Mid(genre, 1, Len(genre) - 3) & Mid(nombre, 1, Len(nombre) 

- 3) & Mid(degre, 1, Len(degre) - 3) 

'2) je renseigne les ComboBox de l'Assistant de recherche morphologique 


frmAssistant.cbo1.Text = ttype 

frmAssistant.cbo2.Text = ttype2 

frmAssistant.cbo3.Text = cas 

frmAssistant.cbo4.Text = genre 

frmAssistant.cbo5.Text = nombre 

If degre = "aucun (n)" Then degre = "" 

frmAssistant.cbo6.Text = degre 

End Function

fctLireCodeMorphAdverbe - 1 

Public Sub LireCodeMorphAdverbe(code) 

ttype = "adverbe (b)" 

'CAS 




If cas = "p" Then cas = "indéterminé (p)" 



frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3) 




frmAssistant.cbo2.Text = "" 





End Sub

fctLireCodeMorphArticle - 1 

Public Sub LireCodeMorphArticle(code) 

ttype = "article défini (d)" 




' CAS 






' GENRE 




'NOMBRE 





frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3) & Mid(cas, 1, Len(cas) - 

3) & Mid(genre, 1, Len(genre) - 3) & Mid(nombre, 1, Len(nombre) - 3) 









End Sub

fctLireCodeMorphConjonction - 1 

Public Function LireCodeMorphConjonction(code) 

ttype = "conjonction (c)" 


' CAS 

If cas = "c" Then cas = "coordination (c)" 

If cas = "s" Then cas = "subordination (s)" 



frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3) & "de " & Mid(cas, 1, Le 

n(cas) - 3) 









End Function

fctLireCodeMorphIndeclinable - 1 

Public Function LireCodeMorphIndeclinable(code) 

ttype = "indéclinable (t)" 












End Function

fctLireCodeMorphInterjection - 1 

Public Sub LireCodeMorphInterjection(code) 

ttype = "interjection (i)" 












End Sub

fctLireCodeMorphNom - 1 

Public Function LireCodeMorphNom(code) 

ttype = "nom (n)" 





' CAS 






' GENRE 




'NOMBRE 



' TYPE 

If ttype2 = "c" Then ttype2 = "(nom commun) (c)" 

If ttype2 = "p" Then ttype2 = "(nom propre) (p)" 




3) & Mid(genre, 1, Len(genre) - 3) & Mid(nombre, 1, Len(nombre) - 3) & Mid(ttype2, 1, Len(ttype2) 

- 3) 









End Function

fctLireCodeMorphParticule - 1 

Public Function LireCodeMorphParticule(code) 

ttype = "particule (x)" 












End Function

fctLireCodeMorphPreposition - 1 

Public Sub LireCodeMorphPreposition(code) 

ttype = "préposition (p)" 


'CAS 




If cas = "p" Then cas = "indéterminé (p)" 




3) 









End Sub

fctLireCodeMorphPronom - 1 

Public Function LireCodeMorphPronom(code) 

ttype = "pronom (r)" 





'TYPE 

If ttype2 = "p" Then ttype2 = "personnel (p)" 

If ttype2 = "r" Then ttype2 = "relatif (r)" 

If ttype2 = "d" Then ttype2 = "démonstratif (d)" 

If ttype2 = "q" Then ttype2 = "interrogatif (q)" 

If ttype2 = "i" Then ttype2 = "indéfini (i)" 

If ttype2 = "t" Then ttype2 = "intensif (t)" 

If ttype2 = "x" Then ttype2 = "réfléchi (x)" 

If ttype2 = "e" Then ttype2 = "réciproque (e)" 

' CAS 






' GENRE 




If genre = "-" Then genre = "commun (-)" 

'NOMBRE 





frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3) & Mid(ttype2, 1, Len(tty 

pe2) - 3) & Mid(cas, 1, Len(cas) - 3) & Mid(genre, 1, Len(genre) - 3) & Mid(nombre, 1, Len(nombre) 

- 3) 









End Function

fctLireCodeMorphVerbe - 1 

Public Function LireCodeMorphVerbe(code) 


type = "verbe (v)" 

soit le verbe est NORMAL 

f Len(code) = 6 Then 

Mode = Mid(code, 2, 1) 

temps = Mid(code, 3, 1) 

voix = Mid(code, 4, 1) 

personne = Mid(code, 5, 1) 


lse ' soit le verbe est PARTICIPE, dans ce cas il est plus long d'un caractère (le CAS) 

Mode = Mid(code, 2, 1) 

temps = Mid(code, 3, 1) 

voix = Mid(code, 4, 1) 




nd If 

MODE 

If Mode = "i" Then Mode = "indicatif (i)" 

If Mode = "s" Then Mode = "subjonctif (s)" 

If Mode = "o" Then Mode = "optatif (o)" 

If Mode = "m" Then Mode = "impératif (m)" 

If Mode = "n" Then Mode = "infinitif (n)" 

If Mode = "p" Then Mode = "participe (p)" 

If Mode = "r" Then Mode = "impératif (r)" 

TEMPS 

'If temps = "2f" Then temps = "futur second" 

'If temps = "2a" Then temps = "aoriste second" 

'If temps = "2l" Then temps = "pqp second" 

'If temps = "2r" Then temps = "parfait second" 

If temps = "p" Then temps = "présent (p)" 

If temps = "i" Then temps = "imparfait (i)" 

If temps = "f" Then temps = "futur (f)" 

If temps = "a" Then temps = "aoriste (a)" 

If temps = "x" Then temps = "parfait (x)" 

If temps = "y" Then temps = "plusqueparfait (y)" 

If temps = "z" Then temps = "futur du parfait (z)" 

VOIX 

If voix = "a" Then voix = "actif (a)" 

If voix = "m" Then voix = "moyen (m)" 

If voix = "p" Then voix = "passif (p)" 

If voix = "e" Then voix = "moyen ou passif (e)" 

CAS (pour les participes) 






GENRE (pour les participe) 




PERSONNE 

If personne = "1" Then personne = "1ère personne (1)" 

If personne = "2" Then personne = "2ème personne (2)" 

If personne = "3" Then personne = "3ème personne (3)" 

NOMBRE 



AFFECTATIONS 

1) je renseigne la petite fenêtre Analyse Morphologique 

VERBES

fctLireCodeMorphVerbe - 2 

If Len(code) = 6 Then 

frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3) & Mid(Mode, 1, Len(Mode) 

- 3) & Mid(temps, 1, Len(temps) - 3) & Mid(voix, 1, Len(voix) - 3) & Mid(personne, 1, Len(personne 

) - 3) & Mid(nombre, 1, Len(nombre) - 3) 


frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, " 

", " ") 


'PARTICIPES 


- 3) & Mid(temps, 1, Len(temps) - 3) & Mid(voix, 1, Len(voix) - 3) & Mid(cas, 1, Len(cas) - 3) & M 

id(genre, 1, Len(genre) - 3) & Mid(nombre, 1, Len(nombre) - 3) 


", " ") 

'INFINITIFS qui n'ont que quatre caractères : ex. Verbe Infinitif Aaoriste Actif (vnaa) 



- 3) & Mid(temps, 1, Len(temps) - 3) & Mid(voix, 1, Len(voix) - 3) 


", " ") 

End If 



If Len(code) = 6 Then 


frmAssistant.cbo2.Text = Mode 

frmAssistant.cbo3.Text = temps 

frmAssistant.cbo4.Text = voix 

frmAssistant.cbo5.Text = personne 


Else 


frmAssistant.cbo2.Text = Mode 

frmAssistant.cbo3.Text = temps 

frmAssistant.cbo4.Text = voix 




frmAssistant.cbo7.Visible = True 

End If 

Exit Function 

apres: 

'msg = MsgBox("Une erreur s'est produite : " & err.Number, vbExclamation, "Erreur") 

End Function

fctLireComplement - 1 

Public Function LireComplement(complement) 

Dim ofile$ 

Dim lfile% 

Dim ligne$ 

Dim Resultat$ 

complement = Replace(complement, "{", "") 

complement = Replace(complement, "}", "") 

ofile = App.Path & "\lex\Robinson.dat" 



Do 


If ligne = complement Then 


Resultat = LCase(ligne) 

Exit Do 

End If 


lose 

PLUSIEURS MOTS 

esultat = Replace(Resultat, "conjunctive particle", "particule conjonctive") 

esultat = Replace(Resultat, "proper noun", "nom propre") 

esultat = Replace(Resultat, "personal pronoun", "pronom personnel") 

esultat = Replace(Resultat, "relative pronoun", "pronom relatif") 

esultat = Replace(Resultat, "demonstrative pronoun", "pronom démonstratif") 

esultat = Replace(Resultat, "reflexive pronoun", "pronom réfléchi") 

esultat = Replace(Resultat, "personal adjective", "adjectif personnel") 

esultat = Replace(Resultat, "relative adjective", "adjectif relatif") 

esultat = Replace(Resultat, "demonstrative adjective", "adjectif démonstratif") 

esultat = Replace(Resultat, "reflexive adjective", "adjectif réfléchi") 

esultat = Replace(Resultat, "definite article", "article défini") 

esultat = Replace(Resultat, "indefinite article", "article indéfini") 

TYPE DE MOTS 

esultat = Replace(Resultat, "adjective", "adjectif") 

esultat = Replace(Resultat, "noun", "nom") 

esultat = Replace(Resultat, "verb", "verbe") 

esultat = Replace(Resultat, "pronoun", "pronom") 

esultat = Replace(Resultat, "adverb", "adverbe") 

esultat = Replace(Resultat, "preposition", "préposition") 

esultat = Replace(Resultat, "participle", "participe") 

DECLINAISONS DES NOMS 

esultat = Replace(Resultat, "nominative", "nominatif") 

esultat = Replace(Resultat, "accusative", "accusatif") 

esultat = Replace(Resultat, "dative", "datif") 

esultat = Replace(Resultat, "genitive", "genitif") 

esultat = Replace(Resultat, "vocative", "vocatif") 

GENRES 

esultat = Replace(Resultat, "masculine", "masculin") 

esultat = Replace(Resultat, "feminine", "feminin") 

esultat = Replace(Resultat, "neuter", "neutre") 

NOMBRE 

esultat = Replace(Resultat, "singular", "singulier") 

esultat = Replace(Resultat, "plural", "pluriel") 

VOIX 

esultat = Replace(Resultat, "middle or passive", "moyen ou passif") 

esultat = Replace(Resultat, "active", "actif") 

esultat = Replace(Resultat, "passive", "passif") 

esultat = Replace(Resultat, "middle", "moyen") 

esultat = Replace(Resultat, "deponent", "déponent") 

TYPES DE PRONOM 

esultat = Replace(Resultat, "relative", "relatif") 

esultat = Replace(Resultat, "demonstrative", "demonstratif") 

esultat = Replace(Resultat, "reflexive", "réfléchi")

fctLireComplement - 2 

Resultat = Replace(Resultat, "personal", "personnel") 

Resultat = Replace(Resultat, "interrogative", "interrogatif") 

' NOMBRE DES CONJUGAISONS 

Resultat = Replace(Resultat, "first person", "1ère pers.") 

Resultat = Replace(Resultat, "second person", "2ème pers.") 

Resultat = Replace(Resultat, "third person", "3ème pers.") 

' TEMPS DES VERBES 

Resultat = Replace(Resultat, "present", "présent") 

Resultat = Replace(Resultat, "aorist", "aoriste") 

Resultat = Replace(Resultat, "future", "futur") 

Resultat = Replace(Resultat, "perfect", "parfait") 

Resultat = Replace(Resultat, "pluperfect", "p-q-p") 

' MODES DES VERBES 

Resultat = Replace(Resultat, "indicative", "indicatif") 

Resultat = Replace(Resultat, "imperative", "imperatif") 

Resultat = Replace(Resultat, "subjonctive", "subjonctif") 

Resultat = Replace(Resultat, "infinitive", "infinitif") 

'DEGRE 

Resultat = Replace(Resultat, "comparative", "comparatif") 

Resultat = Replace(Resultat, "superlative", "superlatif") 

'Autre 

Resultat = Replace(Resultat, "particle", "particule") 

Resultat = Replace(Resultat, "conjunction", "conjonction ") 

Resultat = Replace(Resultat, "indefinite", "indéfini") 

Resultat = Replace(Resultat, "attic form", "(forme attique)") 

Resultat = Replace(Resultat, "contracted", "contracte") 

Resultat = Replace(Resultat, "inpure", "impropre") 

Resultat = Replace(Resultat, "irregular", "irrégulière") 

Resultat = Replace(Resultat, " or ", " ou ") 

Resultat = Replace(Resultat, "form", "forme") 

Resultat = Replace(Resultat, "negative", "négatif") 

Resultat = Replace(Resultat, "indeclinable", "indéclinable") 

Resultat = Replace(Resultat, "definite", "défini") 

Resultat = Replace(Resultat, "indefinite", "indéfini") 

Resultat = Replace(Resultat, "article", "article") 

complement = Resultat 

End Function

fctLireCRP - 1 

Public Function LireCRP(livre, chapitre, verset) 

Dim ofile$, lfile%, ligne$ 

'verset = "1" 

ofile = App.Path & "\modules\CRP\Crp.txt" 




Do 


set) + 2, Len(ligne)) 

If ligne = livre Then 

'j'ai trouvé mon livre; je cherche maintenant mon chapitre 

Do 


If ligne = "Chapitre " & chapitre Then 

'j'ai trouvé mon chapitre, je cherche mon verset 

Do 


If Left(ligne, Len(verset)) = verset Then 

frmBible.txtPassage.Text = frmBible.txtPassage.Text & Mid(ligne, Len(ve 

Do 


If Left(ligne, 1) = "1" Or Left(ligne, 1) = "2" Or Left(ligne, 

) = "3" _ 

Or Left(ligne, 1) = "4" Or Left(ligne, 1) = "5" Or Left(lig 

e, 1) = "6" _ 


e, 1) = "9" Then 

GoTo apres: 

Else 

frmBible.txtPassage.Text = frmBible.txtPassage.Text & ligne 

End If 

Loop 

End If 

Loop 

End If 

Loop 

pres: 

End If 


rr: 

lose 




nd Function

fctLireDarby - 1 

Public Function LireDarby(livre, chapitre, verset) 


ofile = App.Path & "\modules\Darby\darby.txt" 




































































































chercher = "Eph"




































End If 



Do 




End If 


lose 





nd Function

fctLireDR - 1 

Public Function LireDR(livre, chapitre, verset) 


ofile = App.Path & "\modules\DR\dr.txt" 

















































chercher = "Jer"

fctLireDR - 2 


















































chercher = "Eph"

fctLireDR - 3 



































End If 



Do 




End If 


lose 





nd Function

fctLireDR - 4

fctLireFillion - 1 

Public Function LireFillion(livre, chapitre, verset) 


ofile = App.Path & "\modules\Fillion\Fillion.txt" 



chercher = "Gn" 


chercher = "Ex" 


chercher = "Lv" 


chercher = "Nb" 


chercher = "Dt" 




chercher = "Jg" 


chercher = "Rt" 


chercher = "I S" 


chercher = "II S" 


chercher = "I R" 


chercher = "II R" 


chercher = "I Ch" 


chercher = "II Ch" 




chercher = "Ne" 


chercher = "Tb" 


chercher = "Jdt" 




chercher = "I M" 


chercher = "II M" 


chercher = "Jb" 


chercher = "Ps" 

ElseIf livre = "Proverbes" Then


chercher = "Pr" 


chercher = "Qo" 


chercher = "Ct" 


chercher = "Sg" 

ElseIf livre = "Ecclésiastique" Then 

chercher = "Si" 


chercher = "Is" 


chercher = "Jr" 


chercher = "Lm" 


chercher = "Ba" 


chercher = "Ez" 


chercher = "Dn" 


chercher = "Os" 


chercher = "Jl" 


chercher = "Am" 


chercher = "Ab" 




chercher = "Mi" 


chercher = "Na" 


chercher = "Ha" 


chercher = "So" 


chercher = "Ag" 


chercher = "Za" 


chercher = "Ml" 


chercher = "Mt" 


chercher = "Mc" 


chercher = "Lc"



chercher = "Jn" 






chercher = "I Co" 


chercher = "II Co" 










chercher = "I Th" 


chercher = "II Th" 


chercher = "I Ti" 


chercher = "II Ti" 




chercher = "Philem" 


chercher = "Hébr" 




chercher = "I Pet" 


chercher = "II Pet" 


chercher = "I Jn" 


chercher = "II Jn" 


chercher = "III Jn" 




chercher = "Apoc" 

End If 

'Hébr 4,1. 

recherche = chercher & " " & chapitre & "," & verset & ". "



Do 



frmBible.txtPassage.Text = Trim(Mid(ligne, Len(recherche), Len(ligne))) 

End If 


lose 




nd Function

fctLireFlaviusJosephe - 1 

Public Function LireFJ(livre, chapitre, verset) 



If frmBible.cboVersion.Text = "Flavius Josèphe" Then 


frmBible.txtPassage.Font = "Bwgrkn" 

Else 



End If 

If frmBible.cboVersion.Text = "Flavius Josèphe" Then 

ofile = App.Path & "\modules\JOS\jos.txt" 

Else 

ofile = App.Path & "\modules\JOS\joe.txt" 

End If 


If livre = "Antiquités judaïques" Then 

chercher = "Ant" 

ElseIf livre = "Guerre des Juifs" Then 

chercher = "Jwr" 

ElseIf livre = "Vie de FJ" Then 

chercher = "Lif" 

ElseIf livre = "Contre Apion" Then 

chercher = "Apn" 

End If 

recherche = Trim(chercher & " " & chapitre & ":" & verset & " ") 


Do 




Do 


If Mid(ligne, 1, Len(chercher)) = chercher Then Exit Function 


Loop 

End If 


lose 


nd Function

fctLireHomere - 1 

Public Function LireHomere(livre, chapitre, verset) 


ofile = App.Path & "\modules\HHG\hhg.txt" 


If livre = "Iliade" Then 

chercher = "ILI" 

ElseIf livre = "Odyssée" Then 

chercher = "ODY" 

End If 



Do 




End If 


lose 



rmBible.txtPassage.Font = "SPIonic" 


nd Function

fctLireJerusalem - 1 

Public Function LireJerusalem(livre, chapitre, verset) 


ofile = App.Path & "\modules\JER\jer.txt" 




































































































chercher = "Eph"




































End If 



Do 




End If 


lose 





nd Function

fctLireKJV - 1 

Public Function LireKJV(livre, chapitre, verset) 


ofile = App.Path & "\modules\KJV\kjv.txt" 

















































chercher = "Jer"



















































chercher = "Eph"




































End If 



Do 




End If 


lose 





nd Function

fctLireKJVD - 1 

Public Function LireKJVD(mot) 

Dim fichier$, def$, lfile% 


fichier = App.Path & "\modules\KJV\kjvd.dat" 

def = App.Path & "\modules\KJV\def.htm" 




lose 

Do 



End If 


Loop 

Do 




Exit Do 

file = FreeFile + 1 

rmParse2.Text1.Text = Replace(frmParse2.Text1.Text, "~", ",") 

f frmParse2.Text1.Text = "" Then 

rmParse2.Text1.Text = "" & UCase(mot) & "" & "" & "" & "Pas de définition pour ce mo 

." & "" 

nd If 

Open def For Output As #lfile 

rite #lfile, frmParse2.Text1.Text 

lose 


rmBrowser.WindowState = 0 

rmBrowser.cboAddress.Text = def 

rmBrowser.Show 

nd Function

fctLireLSG - 1 

Public Function LireLSG(livre, chapitre, verset) 


ofile = App.Path & "\modules\lsg1901\lsg.txt" 




































































































chercher = "Eph"




































End If 



Do 




End If 


lose 





nd Function

fctLireLSGStrong - 1 

Public Function LireLSGStrong(livre, chapitre, verset) 


ofile = App.Path & "\modules\LSG\lsg.txt" 















































chercher = "Isa"




















































ElseIf livre = "Ephésiens" Then





































End If 



Do 




End If 


lose 





purerLSG (recherche) 

nd Function

fctLireLSGStrong - 4

fctLireLSGStrong2 - 1 

Public Function LireLSGStrong2(livre, chapitre, verset) 


fichier = App.Path & "\modules\LSG\lsgstrongs.txt" 


If livre = "Révélation" Then livre = "Apocalypse" 

passage = livre & " " & chapitre 

verset = verset & " " 

'Genèse 1 

'1 Au commencement , Dieu créa (8804) les cieux et la 

terre . 




Do 


If ligne = passage Then 



Exit Do 

Else 

Do 



frmParse2.Text1.Text = Trim(ligne) 

frmParse2.Text1.Text = Mid(ligne, Len(verset) + 1, Len(ligne)) 

Exit Do 

End If 

Loop 

End If 

End If 


pres: 

lose 


exte = Replace(texte, ")", ")" & vbCrLf) 

exte = Replace(texte, ">", ">" & vbCrLf) 

ichier = App.Path & "\tools\temp2.txt" 


Open fichier For Output As #lfile 


lose 


exte = "" 


o 



If Left(ligne, 1) = "(" Or Left(ligne, 1) = "

fctLireLSGStrong2 - 2 

texte = Replace(texte, "~", ",") 

texte = Replace(texte, "=", ":") 

texte = Replace(texte, "@", "!") 


texte = Replace(texte, " ,", ",") 

'texte = Replace(texte, " -", "-") 

'frmBible.lblchapitre.Caption = chapitre 

frmBible.txtPassage.Text = texte 




End Function

fctLireLXX - 1 

Public Function LireLXX(livre, chapitre, verset) 

Dim cherche$, ofile$, lfile%, ligne$, recherhche$, espace%, texte$ 


















































































End If 



Do 



texte = texte & Mid(ligne, Len(recherche) + 1, Len(ligne)) 

End If 


lose 

file = App.Path & "\modules\WHpars\morphwh.txt" 



exte = Replace(texte, ") ", ")" & vbCrLf) 


lose 


Do



espace = InStr(1, ligne, " ") 

If ligne "" Then frmBible.txtPassage.Text = frmBible.txtPassage.Text & Mid(ligne, 1, esp 

ace - 1) & " " 


Close 

'frmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",") 

'frmBible.txtPassage.FontSize = 14 

'frmBible.txtPassage.Font = "Times" 


End Function

fctLireMRT - 1 

Public Function LireMRT(livre, chapitre, verset) 


'verset = "1" 

ofile = App.Path & "\modules\MRT\mrt.txt" 




Do 





Do 




Do 




Do 



) = "3" _ 


e, 1) = "6" _ 


e, 1) = "9" Then 

GoTo apres: 

Else 


End If 

Loop 

End If 

Loop 

End If 

Loop 

pres: 

End If 


rr: 

lose 




nd Function

fctLireNA26 - 1 

Public Function LireNA26(livre, chapitre, verset) 


ofile = App.Path & "\modules\NA26\na26.txt" 
















































ElseIf livre = "2 Jean" Then









End If 

chapitre = Val(chapitre) 

verset = Val(verset) 

If chapitre < 10 Then 


End If 

If verset < 10 Then 


End If 

recherche = chercher & "-" & chapitre & "-" & verset & " " 


Do 




Exit Do 

End If 


lose 

rmBible.txtPassage.Text = LCase(frmBible.txtPassage.Text) 

rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",", 1) 

rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "s ", "j ", 1) 

rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "s,", "j,", 1) 

rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "s.", "j.", 1) 

rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "s:", "j:", 1) 


rmBible.txtPassage.Font = "Grenet" 


nd Function


Public Function LireNA27(livre, chapitre, verset) 


ofile = App.Path & "\modules\NA27\na27p.txt" 




































































































chercher = "Eph"




































End If 



Do 




End If 


lose 






lose 

Open ofile For Input As #lfile


Do 




ace - 1) & " " 


Close 

'frmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",") 

'frmBible.txtPassage.FontSize = 14 

'frmBible.txtPassage.Font = "Times" 


'EpurerWH (recherche) 

frmParse2.Text1.Text = recherche 

End Function

fctLireNEG - 1 

Public Function LireNEG(livre, chapitre, verset) 


ofile = App.Path & "\modules\NEG\neg.txt" 




































































































chercher = "Eph"




































End If 



Do 




End If 


lose 





purerNEG (recherche) 

nd Function

fctLireNET - 1 

Public Function LireNET(livre, chapitre, verset) 


If frmBible.cboVersion.Text = "NET" Then 

ofile = App.Path & "\modules\NET\net.txt" 

ElseIf frmBible.cboVersion.Text = "JPS" Then 

ofile = App.Path & "\modules\JPS\jps.txt" 

End If 

'ofile = App.Path & "\modules\NET\net.txt" 











































chercher = "Ecc"




















































ElseIf livre = "2 Corinthiens" Then









































End If 



Do 




End If 


lose 



rmBible.txtPassage.Font = "Times"



'EpurerNEG (recherche) 

End Function

fctLireNTDF - 1 

Public Function LireNTDF(livre, chapitre, verset) 

Dim aouvrir$, recherche$, ligne$ 

Dim lfile 

If livre = "Révélation" Then 

livre = "Apocalypse" 


livre = "Lamentations de Jérémie" 


livre = "Nahum" 


livre = "Habakuk" 

End If 

' affectation variable 

aouvrir = App.Path & "\modules\DF\" & livre & ".txt" 

recherche = chapitre & "-" & verset & " " 





Do 




frmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",", 1) 

End If 


Close 

nd Function

fctLireOST - 1 

Public Function LireOST(livre, chapitre, verset) 


'verset = "1" 

ofile = App.Path & "\modules\OST\ost.txt" 




Do 





Do 




Do 




Do 



) = "3" _ 


e, 1) = "6" _ 


e, 1) = "9" Then 

GoTo apres: 

Else 


End If 

Loop 

End If 

Loop 

End If 

Loop 

pres: 

End If 


rr: 

lose 




nd Function

fctLirePereGrecs - 1 

Public Function LirePeresGrecs(livre, chapitre, verset) 


ofile = App.Path & "\modules\APF\apfg.txt" 


If livre = "1ère de Clément" Then 

chercher = "1Cl" 

ElseIf livre = "2ème de Clément" Then 


ElseIf livre = "Epître de Barnabé" Then 

chercher = "Brn" 

ElseIf livre = "Lettre à Diognète" Then 

chercher = "Dio" 

ElseIf livre = "Ignace - 1ère Ephésiens" Then 

chercher = "IEp" 

ElseIf livre = "Ignace - 2ème Ephésiens" Then 

chercher = "IIEp" 

ElseIf livre = "Ignace - aux Magnésiens" Then 

chercher = "IMg" 

ElseIf livre = "Ignace - aux Tralliens" Then 

chercher = "ITr" 

ElseIf livre = "Ignace - aux Romains" Then 

chercher = "IRo" 

ElseIf livre = "Ignace - aux Philadelphiens" Then 

chercher = "IPh" 

ElseIf livre = "Ignace - aux Smyrniotes" Then 

chercher = "ISm" 

ElseIf livre = "Ignace - à Polycarpe" Then 

chercher = "IPo" 

ElseIf livre = "Polycarpe - aux Philippiens" Then 

chercher = "Pol" 

ElseIf livre = "Martyr de Polycarpe" Then 

chercher = "MPo" 

ElseIf livre = "La Didachè" Then 

chercher = "Did" 

ElseIf livre = "Hermas - Vision 1" Then 

chercher = "HV1" 









ElseIf livre = "Hermas - Précepte 1" Then 

chercher = "HMA" 


chercher = "HMB" 


chercher = "HMC"

fctLirePereGrecs - 2 


chercher = "HMD" 


chercher = "HME" 


chercher = "HMF" 


chercher = "HMG" 


chercher = "HMH" 


chercher = "HMI" 


chercher = "HMJ" 


chercher = "HMK" 


chercher = "HML" 

ElseIf livre = "Hermas - Similitudes 1" Then 

chercher = "HSA" 


chercher = "HSB" 


chercher = "HSC" 


chercher = "HSD" 


chercher = "HSE" 


chercher = "HSF" 


chercher = "HSG" 


chercher = "HSH" 


chercher = "HSI" 


chercher = "HSJ" 

End If 



Do 




Do 

On Error GoTo suite: 


If Mid(ligne, 1, 3) = chercher Then Exit Do 


Loop 

End If 


uite: 

lose 



rmBible.txtPassage.Font = "Bwgrkn" 


nd Function

fctLirePeresEn - 1 

Public Function LirePeresEn(livre, chapitre, verset) 


If frmBible.cboVersion.Text = "Lightfoot" Then 

ofile = App.Path & "\modules\APF\Lightfoot.txt" 

Else 

ofile = App.Path & "\modules\APF\ape.txt" 

End If 












































ElseIf livre = "Hermas - Précepte 2" Then

fctLirePeresEn - 2 



chercher = "HMC" 


chercher = "HMD" 





































End If 



Do 




Do 





Loop 

End If 


uite: 

lose 





nd Function

fctLirePeresEn - 3

fctLirePeresFr - 1 

Public Function LirePeresFr(livre, chapitre, verset) 


ofile = App.Path & "\modules\APF\apff.txt" 















































chercher = "HMC" 


chercher = "HMD"

fctLirePeresFr - 2 





































End If 



Do 




Do 





Loop 

End If 


uite: 

lose 





nd Function

fctLireRWP - 1 

Public Function LireRWP(livre, chapitre, verset) As String 

Dim repertoire, fichier, fichier2 

Dim lfile 



repertoire = "mat" 

fichier2 = "MT" 

End If 

fichier = App.Path & "\modules\RWP\" & repertoire & "\" & fichier2 & chapitre & ".RWP" 


Do 


If Left(ligne, Len(chapitre) + Len(verset) + 4) = chapitre & "~" & verset Then 

Do 


'frmTSK.Text.Text = frmTSK.Text.Text & ligne 

If ligne = "" Or ligne = vbCrLf Then 

Exit Do 

End If 

Loop 

End If 


lose lfile 

Load frmTSK 

frmTSK. Show 1 

nd Function

fctLireScrivener - 1 

Public Function LireScrivener(livre, chapitre, verset) 


ofile = App.Path & "\modules\Scrivener\scrivener.txt" 















































chercher = "UnJn"

fctLireScrivener - 2 









Else: livre = "Matthieu" 


frmBible.cboLivre.Text = "Matthieu" 

End If 



Do 




Exit Do 

End If 


lose 

frmBible.txtPassage.Text = LCase(frmBible.txtPassage.Text) 

rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "c", "x", 1) 


rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "V", "j", 1) 

rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "V,", "j,", 1) 

rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "V.", "j.", 1) 




nd Function

fctLireSeptante - 1 

Public Function LireSeptante(livre, chapitre, verset, fichier, chercher) 

Dim ofile 

Dim ligne$, remplacer$ 

Dim LFile2 

Dim nveau$ 



nveau = App.Path & "\tools\septante.txt" 


Open nveau For Output As #lfile 

rite #lfile, "" 

lose #lfile 

' définition du passage à rechercher 




chercher = "Exod" 






chercher = "Josh" 


chercher = "Deut" 


chercher = "JudgB" 




chercher = "1Sam/K" 


chercher = "2Sam/K" 


chercher = "1/3Kgs" 






chercher = "1Chr" 


chercher = "2Chr" 


chercher = "2Esdr" 




chercher = "Esth" 


chercher = "Jdt" 


chercher = "TobBA" 


chercher = "1Mac" 








chercher = "Ps" 

ElseIf livre = "Odes" Then 

chercher = "Od" 


chercher = "Prov" 


chercher = "Qoh"



chercher = "Cant" 




chercher = "Wis" 

ElseIf livre = "Siracides" Then 

chercher = "Sir" 

ElseIf livre = "Psaumes de Salomon" Then 

chercher = "PsSol" 





ElseIf livre = "Micah" Then 



chercher = "Joel" 


chercher = "Jonah" 



ElseIf livre = "Habbacuc" Then 



chercher = "Zeph" 




chercher = "Zech" 



ElseIf livre = "Isaïe" Then 





chercher = "Bar" 



ElseIf livre = "Epître de Jérémie" Then 

chercher = "EpJer" 

ElseIf livre = "Ezékiel" Then 

chercher = "Ezek" 

ElseIf livre = "Susanna" Then 

chercher = "SusTh" 



ElseIf livre = "Bel et Draco" Then 

chercher = "Bel" 

End If 

'On Error GoTo erreur: 

If Len(fichier) < 35 Then 

fichier = App.Path & fichier 

End If 



o 


If ligne = chercher & " " & chapitre & "-" & verset Then 

Do While Not ligne = chercher & " " & chapitre & "-" & Val(verset) + 1 

Loop 



Open nveau For Append As #LFile2 

Write #LFile2, ligne 

Close #LFile2


End If 


Close #lfile 

'remplacer = Replace(frmParse2.Text1.Text, vbCrLf, " ") 

'remplacer = Replace(frmParse2.Text1.Text, " ", "") 

'frmBible.txtPassage.Text = remplacer 

Open nveau For Input As #LFile2 

Do 


frmBible.txtPassage.Text = frmBible.txtPassage.Text & ligne & vbCrLf 


lose #LFile2 

rmBible.txtPassage.Text = frmParse2.Text1.Text 

rmBible.lblchapitre.Caption = frmBible.cboLivre.Text & " " & frmBible.txtChapitre & " : " & frmBib 

e.txtverset.Text 

all CorrigerLectureSeptante(chercher) 

Open nveau For Output As #LFile2 

Write #LFile2, frmParse2.Text1.Text 

Close #LFile2 

xit Function 

rreur: 

sgBox "Une erreur s'est produite...", vbInformation, "Bible Parser : Erreur" 

rmBible.cboVersion.Text = "Septante" 

rmBible.cboLivre.Text = "Genèse" 

rmBible.txtChapitre.Text = "1" 

rmBible.txtverset.Text = "1" 


nd Function

fctLireStephanos - 1 

Public Function LireStephanos(livre, chapitre, verset) 


ofile = App.Path & "\modules\TR1550\stephanos.txt" 















































chercher = "UnJn"

fctLireStephanos - 2 









Else: livre = "Matthieu" 


frmBible.cboLivre.Text = "Matthieu" 

End If 



Do 




Exit Do 

End If 


lose 

frmBible.txtPassage.Text = LCase(frmBible.txtPassage.Text) 

rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "c", "x", 1) 


rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "V", "j", 1) 

rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "V,", "j,", 1) 

rmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "V.", "j.", 1) 




nd Function

fctLireStrong - 1 

Public Function LireStrong(mot) As String 




ofile = App.Path & "\modules\StrongGr\strgr.txt" 


Dim chercher$, reference$ 

If Len(mot) = 1 Then 

chercher = "$$T000000" & mot 

ElseIf Len(mot) = 2 Then 






End If 

reference = chercher 


o 

nput #lfile, ligne 

f ligne = reference Then ' pour que le verset recherché soit exact 



Do 


If Left(ligne, 2) = "$$" Then 

GoTo apres: 

Else 

frmParse2.Text1.Text = frmParse2.Text1.Text & " " & vbCrLf & ligne 

'MsgBox ligne 

' MsgBox frmParse2.text1.Text, , "lbltampon" 

End If 

Loop 'While Left(ligne, Len(chercher)) "mat" & chapitre & "-" & Val(verset) + 1 

nd If 

oop While Not EOF(lfile) 'While Left(ligne, Len(chercher)) "mat" & chapitre & "-" & Val(verset) 

+ 1 

pres: 

MsgBox frmParse2.Text1.Text 

mot = frmParse2.Text1.Text 

lose #lfile 

nd Function

fctLireStrongC - 1 

Public Function LireStrongC(mot) 

Dim ofile 


Dim lfile 



Dim premierRepere As Integer 

Dim secondrepere As Integer 

Dim nstrong As String 


o 

ine Input #ofile, ligne 

If InStr(1, ligne, mot & "

fctLireStrongFr - 1 

Public Function LireStrongFr(mot) 


If frmBible.cboLivre.Text = "Matthieu" Or _ 

frmBible.cboLivre.Text = "Marc" Or _ 

frmBible.cboLivre.Text = "Luc" Or _ 

frmBible.cboLivre.Text = "Jean" Or _ 

frmBible.cboLivre.Text = "Actes" Or _ 

frmBible.cboLivre.Text = "Romains" Or _ 

frmBible.cboLivre.Text = "1 Corinthiens" Then 

GoTo suite: 

'Else 

'Call LireStrongFrAT(mot) 


End If 

If frmBible.cboLivre.Text = "2 Corinthiens" Or _ 

frmBible.cboLivre.Text = "Galates" Or _ 

frmBible.cboLivre.Text = "Ephésiens" Or _ 

frmBible.cboLivre.Text = "Philippiens" Or _ 

frmBible.cboLivre.Text = "Colossiens" Or _ 

frmBible.cboLivre.Text = "1 Thessaloniciens" Or _ 


frmBible.cboLivre.Text = "1 Timothée" Then 

GoTo suite: 

'Else 



End If 

If frmBible.cboLivre.Text = "2 Timothée" Or _ 

frmBible.cboLivre.Text = "Tite" Or _ 

frmBible.cboLivre.Text = "Philémon" Or _ 

frmBible.cboLivre.Text = "Hébreux" Or _ 

frmBible.cboLivre.Text = "Jacques" Or _ 

frmBible.cboLivre.Text = "1 Pierre" Or _ 

frmBible.cboLivre.Text = "2 Pierre" Then 

GoTo suite: 

'Else 



End If 

If frmBible.cboLivre.Text = "1 Jean" Or _ 

frmBible.cboLivre.Text = "2 Jean" Or _ 


frmBible.cboLivre.Text = "Jude" Or _ 

frmBible.cboLivre.Text = "Révélation" Then 

GoTo suite: 

Else 

Call LireStrongFrAT(mot) 

Exit Function 

End If 

suite: 

ofile = App.Path & "\modules\Strong\ntfr.txt" 


If Val(mot) < 10 Then 

mot = "0000" & mot 

ElseIf Val(mot) > 10 And Val(mot) < 99 Then 

mot = "000" & mot 


mot = "00" & mot 


mot = "0" & mot


End If 



Do 

rr: 

pres: 

lose 







If Mid(ligne, 1, 1) = "0" Then 

GoTo apres: 

End If 


Loop 

End If 



commenc = 2 * Len(mot) + 1 

exte = Trim(Mid(frmParse2.Text1.Text, Len(mot) + 1, Len(frmParse2.Text1.Text))) 

space = InStr(1, texte, " ") 

exte = Mid(texte, espace + 1, Len(texte)) 

epere = InStr(1, texte, "\~") 

trong = mot 

f repere 0 Then 

mot = Trim(Mid(texte, 1, repere - 1)) 

texte = Mid(texte, Len(mot) + 1, Len(texte)) 

repere2 = InStr(1, texte, "\~ ") 

mot = Mid(texte, 1, repere2) 

mot = Trim(mot) 



If Right(mot, 1) = "v" Then mot = Mid(mot, 1, Len(mot) - 1) & "j" 

mot = Replace(mot, "y", "q") 


mot = Replace(mot, "Ioa", "Iwa") 

mot = Replace(mot, "pho", "fw") 

mot = Replace(mot, "-", "") 

If Left(mot, 3) = "Ies" And mot "Iessai" Then mot = Replace(mot, "Ies", "Ihs") 

lse 

espace = InStr(1, texte, " ") 

mot = Trim(Mid(texte, 1, espace)) 

mot = Replace(mot, "ch", "x") 

mot = Replace(mot, "Ch", "x") 

mot = Replace(mot, "Ioa", "Iwa") 

mot = Replace(mot, "pho", "fw") 

mot = Replace(mot, "ph", "f") 

mot = Replace(mot, "Ph", "f") 

mot = Replace(mot, "-", "") 

mot = Replace(mot, "s ", "j") 

mot = Replace(mot, "y", "q") 


If Left(mot, 3) = "Ies" And mot "Iessai" Then mot = Replace(mot, "Ies", "Ihs") 

nd If 

If Right(mot, 1) = "s" Then mot = Mid(mot, 1, Len(mot) - 1) & "j" 

If Right(mot, 1) = "o" Then mot = Mid(mot, 1, Len(mot) - 1) & "w" 

If Left(mot, 1) = "h" Then mot = Mid(mot, 2, Len(mot))


texte = Trim(texte) 

texte = Replace(texte, "\~", vbCrLf & "\~") 

texte = Replace(texte, "\&", vbCrLf & "\&") 
























texte = Replace(texte, "\\", "") 

texte = Replace(texte, "\", "") 

texte = Replace(texte, "#", "") 

texte = Replace(texte, "~", "") 







frmResultatStrong.lblmot.Caption = mot 



End Function

fctLireStrongFrAT - 1 

Public Function LireStrongFrAT(mot) 


ofile = App.Path & "\modules\Strong\aten.txt" 


If Left(mot, 1) = "0" Then mot = Mid(mot, 2, Len(mot)) 

mot = "SH" & mot 



Do 

rr: 

pres: 

lose 




'frmParse2.Text1.Text = frmParse2.Text1.Text & ligne 



If Mid(ligne, 1, 2) = "SH" And Len(ligne) < 6 Then 

GoTo apres: 

End If 


Loop 

End If 




End If 





Close 

rmResultatStrong.txtStrong.Text = frmParse2.Text1.Text 

rmResultatStrong.txtStrong.Text = Replace(frmResultatStrong.txtStrong.Text, " ", vbCrLf) 

rmResultatStrong.txtStrong.Text = Replace(frmResultatStrong.txtStrong.Text, " ", vbCrLf) 

rmResultatStrong.Show 

nd Function

fctLireStrongFrN - 1 

Public Function LireStrongFrN(mot) 

'ancien Strong Petrakian : LireStrongFrN 


If frmBible.cboLivre.Text = "Matthieu" Or _ 

frmBible.cboLivre.Text = "Marc" Or _ 

frmBible.cboLivre.Text = "Luc" Or _ 

frmBible.cboLivre.Text = "Jean" Or _ 

frmBible.cboLivre.Text = "Actes" Or _ 

frmBible.cboLivre.Text = "Romains" Or _ 

frmBible.cboLivre.Text = "1 Corinthiens" Then 

GoTo suite: 

'Else 



End If 

If frmBible.cboLivre.Text = "2 Corinthiens" Or _ 

frmBible.cboLivre.Text = "Galates" Or _ 

frmBible.cboLivre.Text = "Ephésiens" Or _ 

frmBible.cboLivre.Text = "Philippiens" Or _ 

frmBible.cboLivre.Text = "Colossiens" Or _ 



frmBible.cboLivre.Text = "1 Timothée" Then 

GoTo suite: 

'Else 



End If 

If frmBible.cboLivre.Text = "2 Timothée" Or _ 

frmBible.cboLivre.Text = "Tite" Or _ 

frmBible.cboLivre.Text = "Philémon" Or _ 

frmBible.cboLivre.Text = "Hébreux" Or _ 

frmBible.cboLivre.Text = "Jacques" Or _ 

frmBible.cboLivre.Text = "1 Pierre" Or _ 

frmBible.cboLivre.Text = "2 Pierre" Then 

GoTo suite: 

'Else 



End If 

If frmBible.cboLivre.Text = "1 Jean" Or _ 



frmBible.cboLivre.Text = "Jude" Or _ 

frmBible.cboLivre.Text = "Révélation" Then 

GoTo suite: 

Else 

Call LireStrongATFrN(mot) 

Exit Function 

End If 

suite: 

ofile = App.Path & "\modules\Strong\sgf.dat" 


If Val(mot) < 10 Then 

mot = "0000" & mot 

GoTo bonmot: 

ElseIf Val(mot) < 99 Then 

mot = "000" & mot


GoTo bonmot: 


mot = "00" & mot 

GoTo bonmot: 


mot = "0" & mot 

GoTo bonmot: 

End If 

bonmot: 



Do 




'ligne = Mid(ligne, Len(mot), Len(ligne)) 

repere = InStr(1, ligne, " \") 

repere2 = InStr(repere + 1, ligne, "\n") 

ligne = Mid(ligne, repere, Len(ligne)) 

repere2 = InStr(2, ligne, "\n") 

motgrec = Mid(ligne, 1, repere2) 

motgrec = Replace(motgrec, "\", "") 

motgrec = Trim(motgrec) 

Do 


If Left(ligne, 1) = "0" And Len(ligne) < 7 Then GoTo plusloin: 


Loop 

End If 


lusloin: 

lose 

01079 

' 1079 \Ggenethv\n genete {ghen-et-ay} 

vient d 'un dérivé présumé de \\1074\\; n f 

'LSG - naissance 1; 1 

1) naissance, depuis la naissance 



trong = mot 


exte = Replace(texte, "\\", "") 

exte = Replace(texte, "#", "") 


















exte = Replace(texte, "3f)", vbCrLf & "3f) ")









'texte = Replace(texte, "\\", "") 

'texte = Replace(texte, "\", "") 

'texte = Replace(texte, "#", "") 

'texte = Replace(texte, "~", "") 

'texte = Replace(texte, " ", " ") 

'texte = Replace(texte, " ", " ") 




ofile = App.Path & "\tools\temp.txt" 



rint #lfile, motgrec 

lose 



nput #lfile, motgrec 

lose 

guillemet = Chr$(34) 

If Left(motgrec, 1) = guillemet Then motgrec = Mid(motgrec, 2, Len(motgrec)) 

If Right(motgrec, 2) = guillemet & guillement Then motgrec = Mid(motgrec, 1, Len(motgrec) - 2) 

If Right(motgrec, 1) = guillemet Then motgrec = Mid(motgrec, 1, Len(motgrec) - 1) 

f motgrec "" Then 

motgrec = Mid(motgrec, 2, Len(motgrec) - 1) 

motgrec = Replace(motgrec, "j", "~") 

motgrec = Replace(motgrec, "J", "~,") 

otgrec = Replace(motgrec, "~i", "i~") 

otgrec = Replace(motgrec, "~o", "o~") 

otgrec = Replace(motgrec, "i~,o", "~io,") 

otgrec = Replace(motgrec, "!", "v") 

motgrec = Replace(motgrec, "a{", "{a") 

motgrec = Replace(motgrec, "o{", "{o") 

motgrec = Replace(motgrec, "i{", "{i") 

motgrec = Replace(motgrec, "u{", "{u") 

motgrec = Replace(motgrec, "w{", "{w") 

motgrec = Replace(motgrec, "h{", "{h") 

motgrec = Replace(motgrec, "a}", "}a") 

motgrec = Replace(motgrec, "o}", "}o") 

motgrec = Replace(motgrec, "i}", "}i") 

motgrec = Replace(motgrec, "u}", "}u") 

motgrec = Replace(motgrec, "w}", "}w") 

motgrec = Replace(motgrec, "h}", "}h") 

motgrec = Replace(motgrec, "a[", "[a") 

motgrec = Replace(motgrec, "o[", "[o") 

motgrec = Replace(motgrec, "i[", "[i") 

motgrec = Replace(motgrec, "u[", "[u") 

motgrec = Replace(motgrec, "w[", "[w") 

motgrec = Replace(motgrec, "h[", "[w") 

motgrec = Replace(motgrec, "a]", "]a") 

motgrec = Replace(motgrec, "o]", "]o") 

motgrec = Replace(motgrec, "i]", "]i") 

motgrec = Replace(motgrec, "u]", "]u") 

motgrec = Replace(motgrec, "w]", "]w") 

motgrec = Replace(motgrec, "h]", "]h") 

motgrec = Replace(motgrec, "a~", "~a") 

motgrec = Replace(motgrec, "o~", "~o") 

'motgrec = Replace(motgrec, "i~", "~i") 

motgrec = Replace(motgrec, "e~", "~e")


motgrec = Replace(motgrec, "w~", "~w") 

motgrec = Replace(motgrec, "h~", "~h") 

motgrec = Replace(motgrec, "~h,", "h~") 

motgrec = Replace(motgrec, "~o,", "~o") 

motgrec = Replace(motgrec, Chr$(34), "j") 

motgrec = Replace(motgrec, "v", ",") 

motgrec = Replace(motgrec, "'", "/") 

'motgrec = Replace(motgrec, "j", "~") 

'motgrec = Replace(motgrec, "j", "~") 

End If 


frmResultatStrong.Font = "Bwgrkn" 

frmResultatStrong.FontSize = 14 

frmResultatStrong.lblmot.Caption = motgrec 

texte = Replace(texte, " ", "") 




End If 





Close 

End Function

fctLireStrongHebreuEn - 1 

Public Function LireStrongHebreuEn(mot) 


mot = "0" & mot 


mot = "00" & mot 


mot = "000" & mot 


mot = "0000" & mot 

End If 

Dim ofile$, lfile%, ligne$, secondeligne$, mothebreu$, espace%, repere% 

ofile = App.Path & "\modules\Strong\Stronghebrew.dat" 


recherche = "\" & mot & "\" 

frmResultatStrong.txtStrong.Text = "" 



Do 


If ligne = recherche Then 

frmResultatStrong.txtStrong.Text = frmResultatStrong.txtStrong.Text & ligne 

Do 


If Left(ligne, 2) = "$$" Then Exit Do 

frmResultatStrong.txtStrong.Text = frmResultatStrong.txtStrong.Text & ligne 

Loop 

End If 


lose 

repere = InStr(1, secondeligne, " ") 

espace = InStr(repere + 1, secondeligne, " ") 

mothebreu = Mid(secondeligne, repere + 1, espace - 1) 

exte = Trim(frmResultatStrong.txtStrong.Text) 

exte = Replace(texte, "~", ",") 

epere = InStr(1, texte, " ") 

rmResultatStrong.txtStrong.Text = texte 

mot = Mid(texte, 1, repere - 1) 

rmResultatStrong.txtStrong.Text = Mid(texte, Len(recherche) + 1 + Len(mot) + 1, Len(texte)) 

f Left(mot, 1) = "0" Then mot = Mid(mot, 2, Len(mot)) 

echerche = Replace(recherche, "\", "") 

rmResultatStrong.lblNStrong = "Strong : " & recherche & " [cliquez ici -> déf. en français]*" 

rmResultatStrong.Show 

nd Function

fctLireStrongLSG2 - 1 

Public Sub LireStrongLSG2(mot) 

Dim ofile, lfile, ligne, strong, trouve 

If Right(mot, 1) = "," Then mot = Mid(mot, 1, Len(mot) - 1) 

If Right(mot, 1) = ":" Then mot = Mid(mot, 1, Len(mot) - 1) 

If Right(mot, 1) = "!" Then mot = Mid(mot, 1, Len(mot) - 1) 

'If Right(mot, 1) = "-" Then mot = Mid(mot, 1, Len(mot) - 1) 

If Right(mot, 1) = ";" Then mot = Mid(mot, 1, Len(mot) - 1) 

If Right(mot, 1) = "." Then mot = Mid(mot, 1, Len(mot) - 1) 

If Left(mot, 1) = "-" Then mot = Mid(mot, 2, Len(mot)) 

'If Right(mot, 1) = "," Then mot = Mid(mot, 1, Len(mot) - 1) 




trong = "" 

Do 


If InStr(1, ligne, mot) 0 Then 

trouve = ligne 

repere = InStr(1, ligne, "

fctLireStrongNEG - 1 

Public Function LireStrongNEG(mot) 

Dim ofile 


Dim lfile 



Dim premierRepere As Integer 

Dim secondrepere As Integer 

Dim nstrong As String 


o 

ine Input #ofile, ligne 

If InStr(1, ligne, mot & "

fctLireThayer - 1 

Public Function LireThayer(mot, reference) As String 

mot = Replace(mot, "0", "O") 

'If Len(mot) = 4 Then 

'mot = "g" & mot 

'End If 




ofile = App.Path & "\modules\Thayer\thayer.txt" 


Dim chercher$ 

ligne = "" 


chercher = "OOOO" & mot 


chercher = "OOO" & mot 


chercher = "OO" & mot 


chercher = "O" & mot 

End If 

reference = chercher 


Do 


If ligne = reference Then ' pour que le verset recherché soit exact 





If Left(ligne, 1) = "O" Then 

GoTo apres: 

Else 

'If IsNumeric(ligne) = True Then 

'frmParse2.Text1.Text = frmParse2.Text1.Text & ligne 

'Else 

frmParse2.Text1.Text = frmParse2.Text1.Text & " " & vbCrLf & ligne 

'MsgBox ligne 

'End If 

Loop 

End If 

End If 


pres: 

lose #lfile 

nd Function

fctLireTIS - 1 

Public Function LireTIS(livre, chapitre, verset) 


ofile = App.Path & "\modules\TIS\tis.txt" 















































chercher = "1Jo"

fctLireTIS - 2 









End If 



Do 




Exit Do 

End If 


lose 



rmBible.txtPassage.Font = "Bwgrkn" 


nd Function

fctLireTMN - 1 

Public Function LireTMN(livre, chapitre, verset) 


ofile = App.Path & "\modules\TMN\TMN.txt" 





n 

Do 


' j'ai trouvé le livre 


Do 



'j'ai trouvé le chapitre 

If Left(ligne, 8) = "chapitre" And _ 

Mid(ligne, 9, Len(chapitre) + 1 + Len(verset)) = chapitre & ">" & verset Th 

frmParse2.Text1.Text = frmParse2.Text1.Text & Mid(ligne, 9 + Len(chapitre) 

Len(verset), Len(ligne)) 

GoTo suite: 

Else 



If InStr(1, ligne, verset & " ") 0 Then 

frmParse2.Text1.Text = Mid(ligne, InStr(1, ligne, verset & " ") 

Len(ligne)) 

GoTo suite: 

End If 

Loop 

uite: 


Loop 

Loop 

End If 


If InStr(1, ligne, "1 ") = 0 And _ 

InStr(1, ligne, "2 ") = 0 And _ 







InStr(1, ligne, "9 ") = 0 Then 


Else 

repere = InStr(1, ligne, "1 ") 

If repere 0 Then ligne = Mid(ligne, 1, repere - 2) 


















Exit Do 

End If

fctLireTMN - 2 

End If 


apres: 

Close 


texte = frmParse2.Text1.Text 











frmBible.txtPassage.Text = texte 

'ofile = App.Path & "\tools\temp.txt" 

'lfile = FreeFile 

'Open ofile For Output As #lfile 

'Print #lfile, frmParse2.Text.Text 

'Close 

'lfile = FreeFile 

'Open ofile For Input As #lfile 

'frmBible.txtPassage.Text = "" 

' Do 

' On Error GoTo suite: 

' Input #lfile, ligne 

' If InStr(1, ligne, verset) 0 Then 

' debut = InStr(1, ligne, " " & verset) 

' 'versetsuivant = " " & Str(Val(verset) + 1) 

' fin = InStr(1, ligne, Str(Val(verset) + 1)) 

' If fin = 0 Then fin = InStr(1, ligne, "fin du chapitre") - 1 

' frmBible.txtPassage.Text = Mid(ligne, debut + 3, (fin - debut) - 2) 

' Exit Do 

' 

'End If 

'Loop While Not EOF(lfile) 

'suite: 

'Close 





End Function

fctLireTOB - 1 

Public Function LireTOB(livre, chapitre, verset) 


ofile = App.Path & "\modules\TOB\tob.txt" 




































































































chercher = "Eph"




































End If 



Do 




End If 


lose 





nd Function

fctLireTSK - 1 

Public Function LireTSK(livre, chapitre, verset) As String 





Dim fichier$, chercherverset$, texte$ 

If livre = "1 Corinthiens" Then 

fichier = "essaico.txt" 

End If 

ofile = App.Path & "\modules\dictionnaires\tsk\" & fichier 

'chercherverset = Trim(chapitre) & "v" & Trim(verset) 

If Val(chapitre) < "10" Then 


End If 

If Val(verset) < "10" Then 


End If 

chercherverset = Trim(chapitre) & ":" & Trim(verset) & ":00" 



o 


If ligne = chercherverset Then 

' pour que le verset recherché soit exact 

Do 

Loop 

End If 


lose #lfile 

rreur: 

xit Function 


If IsEmpty(ligne) = True Then 

'If Len(ligne) = "" Then 

GoTo apres: 

Else 


End If 

pres: 


lose #lfile 

Load frmTSK 

frmTSK.Show 

frmTSK.lblpassage = livre & " " & chapitre & " : " & verset & " - références " 

frmTSK.Text.Text = texte 

nd Function

fctLireVulgate - 1 

Public Function LireVulgate(livre, chapitre, verset) 


ofile = App.Path & "\modules\Vg\vulgate.txt" 




































































































chercher = "Eph"




































End If 



Do 




End If 


lose 





nd Function

fctLireWEB - 1 

Public Function LireWEB(livre, chapitre, verset) 


ofile = App.Path & "\modules\WEB\web.txt" 

















































chercher = "Jer"



















































chercher = "Eph"




































End If 



Do 




End If 


lose 





nd Function

fctLireWebster - 1 

Public Function LireWebster(livre, chapitre, verset) 


ofile = App.Path & "\modules\Webster\webster.txt" 

















































chercher = "Jer"



















































chercher = "Eph"




































End If 



Do 




End If 


lose 





nd Function

fctLireWebster - 4

fctLireWestcottHortParsed - 1 

Public Function LireWestcottHortParsed(livre, chapitre, verset) 

Dim ofile$ 

Dim lfile% 

Dim ligne$ 

ofile = App.Path & "\modules\WHpars\whpar.whp" 


ref = chapitre & ":" & verset 



Do 


If LCase(ligne) = LCase(livre) Then 

'j'ai trouvé le livre 



'j'ai trouvé le chapitre et le verset 

If InStr(1, ligne, ref & " ") 0 Then 


Do 


'c'est le verset suivant 

If InStr(1, ligne, ":") 0 Then GoTo fin: 


Loop 

End If 

Loop 

End If 


in: 

lose 

exte = Trim(frmParse2.Text1.Text) 

le texte est maintenant trouvé 

il faut mettre d'un côté le texte : txtpassage 

de l'autre les codes, dans le tampon 

all CorrigerWH(texte) 

exte = Replace(texte, "v ", "V ") 

exte = Replace(texte, "y", "q") 

exte = Replace(texte, "§", "y") 

MsgBox (texte) 

rmBible.txtPassage.Text = texte 

rmBible.txtPassage.Font = "Symbol" 



nd Function

fctLireWHPlus - 1 

Public Function LireWHPlus(livre, chapitre, verset) 


ofile = App.Path & "\modules\WHpars\whm.txt" 














































ElseIf livre = "Esaïe" Then




















































chercher = "Gal"






































End If 



Do 




End If 


lose 






lose



Do 




ce - 1) & " " 


Close 





EpurerWH (recherche) 

nd Function

fctLireWTM - 1 

Public Function LireWTM(livre, chapitre, verset, mot) 

















































chercher = "Jer"
































End If 

recherche2 = chercher & " " & chapitre & ":" & verset 

'étape 1 : mettre le verset dans un fichier 

ofile = App.Path & "\modules\BHSv\wtm.txt" 



rmParse2.Text.Text = "" 

Do 

)) 

lose 


If Mid(ligne, 1, Len(recherche2)) = recherche2 Then 

frmParse2.Text.Text = frmParse2.Text.Text & Mid(ligne, Len(recherche) + 1, Len(lign 

Do 


If InStr(1, ligne, " ") 0 Then Exit Do 

frmParse2.Text.Text = frmParse2.Text.Text & ligne 

Loop 

'Exit Do 

End If 


rmParse2.Text.Text = Replace(frmParse2.Text.Text, ") ", ")" & vbCrLf) 

file = App.Path & "\modules\BHSv\corrbhs.txt" 


Open ofile For Output As #lfile


Print #lfile, frmParse2.Text.Text 

Close 

' étape 2 : lire e 



nd Function

fctLireYLT - 1 

Public Function LireYLT(livre, chapitre, verset) 


ofile = App.Path & "\modules\YLT\ylt.txt" 

















































chercher = "Jer"



















































chercher = "Eph"




































End If 



Do 




End If 


lose 





nd Function

fctMorphContextuelle - 1 

Public Function MorphContextuelle(mot, code, vientde) 

ancienmot = mot 

Dim ofile$, lfile%, ligne$, premierespace%, deuxiemeespace%, parenthese%, nouvelespace% 




o 



premiereespace = InStr(1, ligne, " ") 

deuxiemeespace = InStr(premiereespace, ligne, " ") 

parenthese = InStr(1, ligne, "(") 

vientde = Trim(Mid(ligne, premiereespace, Len(ligne))) 

nouvelespace = InStr(1, vientde, " ") 

vientde = Left(vientde, nouvelespace - 1) 

'petit tour de passe passe... 

code = StrReverse(ligne) 

espace = InStr(1, code, "(") 

code = Mid(code, 1, espace) 

code = StrReverse(code) 

code = Mid(code, 2, Len(code) - 1) 

Exit Do 

End If 


lose 

f Right(code, 1) = ")" Then code = Mid(code, 1, Len(code) - 1) 

efinir = vientde 

efinir = Replace(definir, "/", "=") 

efinir = Replace(definir, "\", "|") 

efinir = Replace(definir, "v", ")") 

efinir = Replace(definir, "~", "(") 

efinir = Replace(definir, ".", "\") 

efinir = Replace(definir, "_", "(=") 

efinir = Replace(definir, "+", ")=") 

efinir = Replace(definir, "[", "(/") 

efinir = Replace(definir, "]", "(\") 

efinir = Replace(definir, ";", ")/") 

efinir = Replace(definir, "'", ")\") 

efinir = Replace(definir, ",", "/") 

je renseigne la définition du mot grec 

otr = definir 

je dois maintenant retransformer le fort Bwgrkn en Grenet/SPIonic 

otr = Replace(motr, "-", ")") 

otr = Replace(motr, "`", "(") 

otr = Replace(motr, "V", ")") 

f Mid(motr, 1, 2) = ")A" Then mot = "a)" & Mid(mot, 3, Len(mot)) 

f Mid(motr, 1, 2) = ")E" Then mot = "e)" & Mid(mot, 3, Len(mot)) 

all DefinirGrec(motr, mott) 

oad frmAnalyseMorphologique 

rmAnalyseMorphologique.lblDefinition.Caption = mott 

je m'occupe à décrypter le code morphologique 

rmAnalyseMorphologique.lblmot.Caption = ancienmot 

rmAnalyseMorphologique.lblvientde.Caption = vientde 

rmAnalyseMorphologique.lblanalyse2.Caption = code 

all LireCodeMorph(code) 

Load frmRechercheMorphologique

fctMorphContextuelle - 2 

'frmAnalyseMorphologique.lblanalyse.Caption = Replace(frmAnalyseMorphologique.lblanalyse.Caption, " 

1s", "1ère personne du singulier") 


2s", "2ème personne du singulier") 




1p", "1ère personne du pluriel") 


2p", "2ème personne du pluriel") 



'Unload frmRechercheMorphologique 

'frmAnalyseMorphologique.Show 

End Function

fctMorphLXX - 1 

Public Function MorphLXX(mot) 

Dim ofile$, lfile%, ligne$, vientde$, code$, premierespace%, deuxiemeespace%, parenthese%, nouveles 

pace%, definir$ 




o 









code = Mid(ligne, parenthese + 1, Len(ligne) - 1) 

Exit Do 

End If 


lose 





efinir = Replace(definir, "`", "(") 












otr = definir 





rmAnalyseMorphologique.lblmot.Caption = mot 








rmAnalyseMorphologique.Show 

nd Function

fctMorphNA27Plus - 1 

Public Function MorphNA27Plus(mot) 

ancienmot = mot 


pace% 




o 















Exit Do 

End If 


lose 
















otr = definir 

je dois maintenant retransformer le fort Bwgrkn en Grenet/SPIonic 

otr = Replace(motr, "-", ")") 

otr = Replace(motr, "`", "(") 

otr = Replace(motr, "V", ")") 

f Mid(motr, 1, 2) = ")A" Then mot = "a)" & Mid(mot, 3, Len(mot)) 

f Mid(motr, 1, 2) = ")E" Then mot = "e)" & Mid(mot, 3, Len(mot)) 





rmAnalyseMorphologique.lblmot.Caption = ancienmot 




Load frmRechercheMorphologique

fctMorphNA27Plus - 2 















End Function

fctMorphWHPlus - 1 

Public Function MorphWHPlus(mot) 


pace%, definir$ 




o 









code = Mid(ligne, parenthese + 1, Len(ligne) - 1) 

Exit Do 

End If 


lose 





efinir = Replace(definir, "`", "(") 











otr = definir 








frmAnalyseMorphologique.lblanalyse.Caption = frmRechercheMorphologique.cboType.Text & " " & frmRec 

ercheMorphologique.cboTempsCas.Text & " " & frmRechercheMorphologique.cboGenre.Text & " " & frmRec 

ercheMorphologique.cboNombre.Text & " " & frmRechercheMorphologique.cboPersonne.Text 


s", "1ère personne du singulier") 


s", "2ème personne du singulier") 


s", "3ème personne du singulier") 


p", "1ère personne du pluriel") 


p", "2ème personne du pluriel") 


p", "3ème personne du pluriel") 

Unload frmRechercheMorphologique

fctMorphWHPlus - 2 

frmAnalyseMorphologique.lblDefinition.Caption = mott 


End Function

fctRechercheLemmatiqueLXX - 1 

Public Function RechercheLemmatiqueLXX(mot) 


pace% 




o 















Exit Do 

End If 


lose 

maintenant je recherche vraiment toutes les formes du mots 

echerche = vientde & " " & "(" 

file = App.Path & "\modules\LXX\lxx.txt" 



oad frmZetoGraphe 


= 0 

o 



deuxpoints = InStr(1, ligne, ":") 

espace = InStr(deuxpoints, ligne, " ") 

frmZetoGraphe.Text1.Text = frmZetoGraphe.Text1.Text & vbCrLf & Mid(ligne, 1, espace) 

i = i + 1 

End If 




rmZetoGraphe.Text1.Text = Mid(frmZetoGraphe.Text1.Text, 3, Len(frmZetoGraphe.Text1.Text)) 

nd Function

fctRechercheLemmatiqueNA27 - 1 

Public Function RechercheLemmatiqueNA27(mot) 


pace% 




o 















Exit Do 

End If 


lose 

maintenant je recherche vraiment toutes les formes du mots 

echerche = vientde & " " & "(" 

file = App.Path & "\modules\NA27\na27p.txt" 



oad frmZetoGraphe 


= 0 

o 



deuxpoints = InStr(1, ligne, ":") 

espace = InStr(deuxpoints, ligne, " ") 

frmZetoGraphe.Text1.Text = frmZetoGraphe.Text1.Text & vbCrLf & Mid(ligne, 1, espace) 

i = i + 1 

End If 




rmZetoGraphe.Text1.Text = Mid(frmZetoGraphe.Text1.Text, 3, Len(frmZetoGraphe.Text1.Text)) 

nd Function

fctRechercheMorphAPFG - 1 

Public Function RechercheMorphAPFG(mot) 


pace% 



ofile2 = App.Path & "\tools\temp.txt" 

mot = mot & " " 


o 



LFile2 = FreeFile 


ligne = Replace(ligne, ") ", ")" & vbCrLf) 

Print #LFile2, ligne 

Exit Do 

'Close 

End If 


lose 



o 

ine Input #lfile, ligne 














Exit Do 

End If 


lose 
















otr = definir

fctRechercheMorphAPFG - 2 


Load frmAnalyseMorphologique 

frmAnalyseMorphologique.lblDefinition.Caption = mott 

' je m'occupe à décrypter le code morphologique 

frmAnalyseMorphologique.lblmot.Caption = mot 

frmAnalyseMorphologique.lblvientde.Caption = vientde 

frmAnalyseMorphologique.lblanalyse2.Caption = code 

Call LireCodeMorph(code) 

'Load frmRechercheMorphologique 















End Function

fctRechercheMorphologique - 1 

Public Function RechercheMorphologique(recherche, nveaucode) 

Dim ofile$, lfile%, ligne$, verset$, premierespace$, marge$, i% 

If frmBible.cboVersion.Text = "WH+" Then 


ElseIf frmBible.cboVersion.Text = "NA27" Then 

ofile = App.Path & "\modules\NA27\na27p.txt" 

ElseIf frmBible.cboVersion.Text = "LXX" Then 


End If 


'frmRechercheMorphologique.lstPassages.Clear 

frmAssistant.lstPassages.Clear 

i = 0 

'If frmRechercheMorphologique.Option1.Value = True Then GoTo formeexacte: 

'If frmRechercheMorphologique.Option2.Value = True Then GoTo touteforme: 

If ofile "" Then Open ofile For Input As #lfile 


Do 

rr: 

lose 



marge = InStr(1, ligne, recherche) 

premierespace = InStr(1, ligne, " ") 

' deuxiemeespace = InStr(premierespace, ligne, " ") 

verset = Mid(ligne, 1, premierespace) 

i = i + 1 

frmAssistant.lstPassages.AddItem (verset) 

'frmRechercheMorphologique.lstPassages.AddItem (verset) 

'frmRechercheMorphologique.lstFormes.AddItem (Mid(ligne, marge - 20, 20)) 

End If 


f i = 0 Then 

rmAssistant.lblOcc.Caption = "0 passages" 

rmAssistant.Label1.Caption = "" 

lseIf i = 1 Then 

rmAssistant.lblOcc.Caption = "Une seule occurrence." 

frmAssistant.lstPassages.Selected(1) = True 


lse 

rmAssistant.lblOcc.Caption = i & " passages." 

frmAssistant.lstPassages.Selected(1) = True 


nd If 

formeexacte: 

recherche = frmRechercheMorphologique.txtMot.Text 




'Do 

'Line Input #lfile, ligne 

'If InStr(1, ligne, recherche) 0 Then 

'marge = InStr(1, ligne, recherche) 

'premierespace = InStr(1, ligne, " ") 

'deuxiemeespace = InStr(premierespace, ligne, " ") 

'verset = Mid(ligne, 1, premierespace) 

'i = i + 1 

'frmRechercheMorphologique.lstPassages.AddItem (verset)

fctRechercheMorphologique - 2 

' End If 

' Loop While Not EOF(lfile) 


'err: 

'Close 

'If i = 0 Then 

'frmRechercheMorphologique.lblOcc.Caption = "Ce mot n'apparaît pas à cette forme !" 

'ElseIf i = 1 Then 

'frmRechercheMorphologique.lblOcc.Caption = "Une seule occurrence." 

'Else 

'frmRechercheMorphologique.lblOcc.Caption = i & " passages." 

'End If 

'touteforme: 

'recherche = frmAnalyseMorphologique.lblvientde.Caption & " (" & nveaucode & ")" 

'ofile = App.Path & "\modules\WHpars\whm.txt" 

'Open ofile For Input As #lfile 

'On Error GoTo err: 

' Do 

' Line Input #lfile, ligne 

' If InStr(1, ligne, recherche) 0 Then 

'marge = InStr(1, ligne, recherche) 

'premierespace = InStr(1, ligne, " ") 

'deuxiemeespace = InStr(premierespace, ligne, " ") 

'verset = Mid(ligne, 1, premierespace) 

'i = i + 1 

'frmRechercheMorphologique.lstPassages.AddItem (verset) 


'End If 

'Loop While Not EOF(lfile) 

'err: 

'Close 

'If i = 0 Then 

'frmRechercheMorphologique.lblOcc.Caption = "Ce mot n'apparaît pas à cette forme !" 

'ElseIf i = 1 Then 

'frmRechercheMorphologique.lblOcc.Caption = "Une seule occurrence." 

'Else 

'frmRechercheMorphologique.lblOcc.Caption = i & " passages." 

'End If 

End Function

fctRechercherATSBD - 1 

Public Function RechercherATSBD(mot) 


ofile = App.Path & "\modules\dictionnaires\ATSBD.txt" 



recherche = UCase(recherche) 

frmDictionnaires.txtResultat.Text = "" 



Do 

":" & vbCrLf 


If ligne = recherche Then 

frmDictionnaires.txtResultat.Text = frmDictionnaires.txtResultat.Text & recherche & 

Do 


If Len(ligne) < 30 And ligne "" And ligne recherche Then Exit Do 

frmDictionnaires.txtResultat.Text = frmDictionnaires.txtResultat.Text & 

ligne 

Loop 

End If 


rr: 

lose 

nd Function

fctRechercherNuttall - 1 

Public Function RechercherNuttall(mot) 


ofile = App.Path & "\modules\dictionnaires\nuttall.txt" 



recherche = UCase(recherche) 




Do 


If Mid(ligne, 1, Len(recherche) + 1) = recherche & "," Then 

frmDictionnaires.txtResultat.Text = frmDictionnaires.txtResultat.Text & " " & ligne 

Do 


If ligne = "" Then Exit Do 


ligne 

Loop 

End If 


rr: 

lose 

nd Function

fctRechercherWace - 1 

Public Function RechercherWace(mot) 


ofile = App.Path & "\modules\dictionnaires\wace.txt" 



recherche = " " & recherche & "," 




Do 



frmDictionnaires.txtResultat.Text = frmDictionnaires.txtResultat.Text & " " & ligne 

Do 


If Len(ligne) < 35 And ligne "" Then Exit Do 


ligne 

Loop 

End If 


rr: 

lose 

rmDictionnaires.txtResultat.Text = Replace(frmDictionnaires.txtResultat.Text, " ", " ") 

rmDictionnaires.txtResultat.Text = Replace(frmDictionnaires.txtResultat.Text, " ", "") 

" " 

nd Function

fctRechercherWebster - 1 

Public Function RechercherWebster(mot) 

Dim ofile$, lfile%, ligne$, fichier$ 


If Left(mot, 1) = "a" Then 

fichier = "a.txt" 

ElseIf Left(mot, 1) = "b" Then 

fichier = "b.txt" 

ElseIf Left(mot, 1) = "c" Then 

fichier = "c.txt" 

ElseIf Left(mot, 1) = "d" Then 

fichier = "d.txt" 

ElseIf Left(mot, 1) = "e" Then 

fichier = "e.txt" 

ElseIf Left(mot, 1) = "f" Then 

fichier = "f.txt" 

ElseIf Left(mot, 1) = "g" Then 

fichier = "g.txt" 

ElseIf Left(mot, 1) = "h" Then 

fichier = "h.txt" 

ElseIf Left(mot, 1) = "i" Then 

fichier = "i.txt" 

ElseIf Left(mot, 1) = "j" Then 

fichier = "j.txt" 

ElseIf Left(mot, 1) = "k" Then 

fichier = "k.txt" 

ElseIf Left(mot, 1) = "l" Then 

fichier = "l.txt" 

ElseIf Left(mot, 1) = "m" Then 

fichier = "m.txt" 

ElseIf Left(mot, 1) = "n" Then 

fichier = "n.txt" 

ElseIf Left(mot, 1) = "o" Then 

fichier = "o.txt" 

ElseIf Left(mot, 1) = "p" Then 

fichier = "p.txt" 

ElseIf Left(mot, 1) = "q" Then 

fichier = "q.txt" 

ElseIf Left(mot, 1) = "r" Then 

fichier = "r.txt" 

ElseIf Left(mot, 1) = "s" Then 

fichier = "s.txt" 

ElseIf Left(mot, 1) = "t" Then 

fichier = "t.txt" 

ElseIf Left(mot, 1) = "u" Then 

fichier = "u.txt" 

ElseIf Left(mot, 1) = "v" Then 

fichier = "v.txt" 

ElseIf Left(mot, 1) = "w" Then 

fichier = "w.txt" 

ElseIf Left(mot, 1) = "x" Then 

fichier = "x.txt" 

ElseIf Left(mot, 1) = "y" Then 

fichier = "y.txt" 

ElseIf Left(mot, 1) = "z" Then 

fichier = "z.txt" 

End If 

ofile = App.Path & "\modules\dictionnaires\WBST\" & fichier 


mot = UCase(Mid(mot, 1, 1)) & Mid(mot, 2, Len(mot)) 


'recherche = UCase(recherche) 




Do 


If Mid(ligne, 1, Len(recherche) + 1) = recherche & " " Then 

frmDictionnaires.txtResultat.Text = frmDictionnaires.txtResultat.Text & ligne

fctRechercherWebster - 2 

même mot 

Do 


If Mid(ligne, 1, Len(recherche) + 1) = recherche & " " Then 

'le webster peut présenter plusieurs entrées pour les différents sens d'un 

frmDictionnaires.txtResultat.Text = frmDictionnaires.txtResultat.Text & vbC 

rLf & vbCrLf & " " & ligne 

Else 

Exit Do 

End If 

Loop 

'Do 

'Line Input #lfile, ligne 

'If ligne = "" Then Exit Do 

'frmDictionnaires.txtresultat.Text = frmDictionnaires.txtresultat.Text 

& ligne 

'Loop 

End If 


err: 

Close 

End Function

fctStrongBHSPlus - 1 

Public Sub StrongBHSPlus(mot) 

Dim ofile, lfile, ligne, strong, trouve 




trong = "" 

Do 



trouve = ligne 

repere = InStr(1, ligne, ">") 

strong = Mid(ligne, 2, repere - 2) 

Exit Do 

End If 


lose 

ot = strong 

all LireStrongATFrN(mot) 

nd Sub

fctVersetNBS - 1 

Public Function VersetNBS(livre, chapitre, verset) 

Dim aouvrir$, recherche$, ligne$ 

Dim lfile 

If livre = "Révélation" Then 

livre = "Apocalypse" 


livre = "Lamentations de Jérémie" 


livre = "Nahum" 


livre = "Habakuk" 

End If 

' affectation variable 

aouvrir = App.Path & "\modules\NBS\" & livre & ".txt" 

recherche = chapitre & "-" & verset & " " 




Do 

hen Exit Do 




frmBible.txtPassage.Text = Replace(frmBible.txtPassage.Text, "~", ",", 1) 

Do 


If Mid(ligne, 2, 1) = "-" Or Mid(ligne, 3, 1) = "-" Or Mid(ligne, 4, 1) = "-" T 

frmBible.txtPassage.Text = frmBible.txtPassage.Text & vbCrLf & ligne 

Loop 

End If 





Close 

End Function

Microsoft Visual Basic - Encyclopaedia Gentium Boni

Create successful ePaper yourself

Delete template?

Save as template?