Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireStrongHebreuEn - 1
Public Function LireStrongHebreuEn(mot)
If Len(mot) = 4 Then
mot = "0" & mot
ElseIf Len(mot) = 3 Then
mot = "00" & mot
ElseIf Len(mot) = 2 Then
mot = "000" & mot
ElseIf Len(mot) = 1 Then
mot = "0000" & mot
End If
Dim ofile$, lfile%, ligne$, secondeligne$, mothebreu$, espace%, repere%
ofile = App.Path & "\modules\Strong\Stronghebrew.dat"
lfile = FreeFile
recherche = "\" & mot & "\"
frmResultatStrong.txtStrong.Text = ""
Open ofile For Input As #lfile
oad frmResultatStrong
Do
Input #lfile, ligne
If ligne = recherche Then
frmResultatStrong.txtStrong.Text = frmResultatStrong.txtStrong.Text & ligne
Do
Line Input #lfile, ligne
If Left(ligne, 2) = "$$" Then Exit Do
frmResultatStrong.txtStrong.Text = frmResultatStrong.txtStrong.Text & ligne
Loop
End If
Loop While Not EOF(lfile)
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