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