Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireATFrN - 1
Public Function LireStrongATFrN(mot)
If mot = "" Then Exit Function
Dim cherche$, ofile, lfile, ligne$
ofile = App.Path & "\modules\Strong\shf.dat"
lfile = FreeFile
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:
frmParse2.Text1.Text = ""
Open ofile For Input As #lfile
Do
Line Input #lfile, ligne
If Left(ligne, Len(mot)) = mot Then
Line Input #lfile, ligne
'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
Line Input #lfile, ligne
If Left(ligne, 1) = "0" And Len(ligne) < 7 Then GoTo plusloin:
frmParse2.Text1.Text = frmParse2.Text1.Text & ligne
Loop
End If
Loop While Not EOF(lfile)
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) ")