Замена фрагмента текстового поля
2009-12-15 07:00 Александр
Замена фрагмента текстового поля
в text1 – фраза с ошибкой
в text2 – слово с ошибкой
в text3 – правильное слово
в text4 – выводится результат
Text4.Text = ""
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, Len(Text2.Text)) = Text2.Text Then
Text4.Text = Text4.Text + Text3.Text
i = [...]