Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireStrongFr - 1
Public Function LireStrongFr(mot)
Dim cherche$, ofile, lfile, ligne$
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)
'Exit Function
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 = "2 Thessaloniciens" Or _
frmBible.cboLivre.Text = "1 Timothée" Then
GoTo suite:
'Else
'Call LireStrongFrAT(mot)
'Exit Function
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
'Call LireStrongFrAT(mot)
'Exit Function
End If
If frmBible.cboLivre.Text = "1 Jean" Or _
frmBible.cboLivre.Text = "2 Jean" Or _
frmBible.cboLivre.Text = "3 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"
lfile = FreeFile
If Val(mot) < 10 Then
mot = "0000" & mot
ElseIf Val(mot) > 10 And Val(mot) < 99 Then
mot = "000" & mot
ElseIf Val(mot) > 100 And Val(mot) < 999 Then
mot = "00" & mot
ElseIf Val(mot) > 1000 And Val(mot) < 9999 Then
mot = "0" & mot