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