Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireLSGStrong2 - 1
Public Function LireLSGStrong2(livre, chapitre, verset)
Dim cherche$, ofile$, lfile%, ligne$, recherhche$
fichier = App.Path & "\modules\LSG\lsgstrongs.txt"
lfile = FreeFile
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 .
' recherche du verset (le passage)
Open fichier For Input As #lfile
On Error GoTo apres:
Do
Line Input #lfile, ligne
If ligne = passage Then
If InStr(1, ligne, verset) 0 Then
frmParse2.Text1.Text = ligne
Exit Do
Else
Do
Line Input #lfile, ligne
If InStr(1, ligne, verset) 0 Then
frmParse2.Text1.Text = Trim(ligne)
frmParse2.Text1.Text = Mid(ligne, Len(verset) + 1, Len(ligne))
Exit Do
End If
Loop
End If
End If
Loop While Not EOF(lfile)
pres:
lose
exte = frmParse2.Text1.Text
exte = Replace(texte, ")", ")" & vbCrLf)
exte = Replace(texte, ">", ">" & vbCrLf)
ichier = App.Path & "\tools\temp2.txt"
file = FreeFile
Open fichier For Output As #lfile
rint #lfile, texte
lose
file = FreeFile
exte = ""
Open fichier For Input As #lfile
o
Line Input #lfile, ligne
ligne = Trim(ligne)
If Left(ligne, 1) = "(" Or Left(ligne, 1) = "