Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmHebreuGrec - 1
Option Explicit
ublic numéro As Boolean
rivate Sub Command1_Click()
im ofile$, lfile, strong$, texte$, toto, i, texterev$
im premiereespace, deuxiemeespace
trong = ""
xtResultat.Text = ""
file = App.Path & "\modules\gh\hebreugrec.txt"
file = FreeFile
trong = LCase(txtStrong.Text)
rmTSK.Text.Text = ""
f numéro = False Then
If Len(strong) = 1 Then
strong = "OOOO" & strong
End If
If Len(strong) = 2 Then
strong = "OOO" & strong
End If
If Len(strong) = 3 Then
strong = "OO" & strong
End If
If Len(strong) = 4 Then
strong = "O" & strong
End If
nd If
f numéro = False Then
lse
Open ofile For Input As #lfile
Do
Input #lfile, texte
If texte = strong Then
Do
Loop
End If
Loop While Not EOF(lfile)
Close
Open ofile For Input As #lfile
Do
Input #lfile, texte
Input #lfile, texte
If Left(texte, 1) = "O" Then Exit Do
txtResultat.Text = txtResultat.Text & vbCrLf & texte
If Left(texte, Len(strong)) = strong Then
txtResultat.Text = txtResultat.Text & vbCrLf & texte
If Left(texte, 1) = "O" Then Exit Do
' Do
' Input #lfile, texte
' txtResultat.Text = txtResultat.Text & vbCrLf & texte
'Loop
End If
Loop While Not EOF(lfile)