Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmGrecHebreu - 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\grechebreu.txt"
file = FreeFile
trong = LCase(txtStrong.Text)
rmTSK.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
strong = Replace(strong, "x", "ch")
strong = Replace(strong, "q", "th")
strong = Replace(strong, "f", "ph")
strong = Replace(strong, "w", "o")
strong = Replace(strong, "y", "ps")
strong = Replace(strong, "j", "s")
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