Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireStrongFrAT - 1
Public Function LireStrongFrAT(mot)
Dim cherche$, ofile, lfile, ligne$
ofile = App.Path & "\modules\Strong\aten.txt"
lfile = FreeFile
If Left(mot, 1) = "0" Then mot = Mid(mot, 2, Len(mot))
mot = "SH" & mot
frmParse2.Text1.Text = ""
Open ofile For Input As #lfile
Do
rr:
pres:
lose
On Error GoTo err:
Line Input #lfile, ligne
If Left(ligne, Len(mot)) = mot Then
'frmParse2.Text1.Text = frmParse2.Text1.Text & ligne
Do While Not EOF(lfile)
Line Input #lfile, ligne
If Mid(ligne, 1, 2) = "SH" And Len(ligne) < 6 Then
GoTo apres:
End If
frmParse2.Text1.Text = frmParse2.Text1.Text & ligne
Loop
End If
Loop While Not EOF(lfile)
If frmAutomatos.Visible = False Then
frmResultatStrong.Show
End If
ofile = App.Path & "\tools\temp2.txt"
lfile = FreeFile
Open ofile For Output As #lfile
Print #lfile, texte
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