Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmHebreuGrec - 2
End If
Close
ofile = App.Path & "\tools\corrwh.txt"
lfile = FreeFile + 1
Open ofile For Output As #lfile
rint #lfile, txtResultat.Text
lose
xtResultat.Text = ""
Open ofile For Input As #lfile
o
Input #lfile, texte
i = i + 1
If texte "" Then
premiereespace = InStr(1, texte, " ", vbTextCompare)
texte = Trim(Mid(texte, premiereespace, Len(texte)))
deuxiemeespace = InStr(1, texte, " ", vbTextCompare)
'texte = Mid(texte, deuxiemeespace, Len(texte))
End If
If texte "" Then
txtResultat.Text = txtResultat.Text & vbCrLf & i - 1 & ") " & texte
'frmTSK.Text.Text = frmTSK.Text.Text & vbCrLf & i - 1 & "-" & StrReverse(texte)
'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "a", "")
'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "e", "")
'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "i", "")
'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "o", "")
'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "u", "")
'frmTSK.Text.Text = Replace(frmTSK.Text.Text, "v", "b")
End If
oop While Not EOF(lfile)
MsgBox strong
MsgBox numéro
nd Sub
rivate Sub Command2_Click()
nload Me
nd Sub
rivate Sub txtStrong_KeyPress(KeyAscii As Integer)
f KeyAscii < 47 Or KeyAscii > 57 Then
uméro = True
nd If
nd Sub