15 Декабрь 2009

Замена фрагмента текстового поля

TextBox |  Таги: , ,

Замена фрагмента текстового поля

в 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 = i + Len(Text2.Text) - 1
      GoTo 1
   End If
   Text4.Text = Text4.Text + Mid(Text1.Text, i, 1)
 1
Next i

Запись опубликована on 15.12.2009 at 9:00 и размещена в рубрике: TextBox. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.