23 Декабрь 2008

Как в строчке заменить искомое слово на нужное?

Строки |  Таги: ,

Как в строчке заменить искомое слово на нужное?

Option Explicit

Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text, Text3.Text, Text2.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = Replace(Text1.Text, Text2.Text, Text3.Text)
End Sub

Private Sub Form_Load()
Text1.Text = _
        "Строка в которой ищем текст, для замены с помощью Replace"
Text2.Text = "в"
Text3.Text = "на"
End Sub

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



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

Я не робот.