在FORM1中,加入1个按钮,和1个文本框,
在FORM2中,加入两个按钮,和两个文本框,
Command1=查找下一个替换
Command2=全部替换
Form1.Text1.Text=需要替换的文本
Form1.Text1.Text=被替换字串
Form1.Text1.Text=替换字串
FORM2中的代码:
Private Sub Command1_Click()
If InStr(Form1.Text1.Text, Form2.Text1.Text) <> 0 Then Form1.Text1.Text = Mid(Form1.Text1.Text, 1, InStr(Form1.Text1.Text, Form2.Text1.Text) - 1) & Form2.Text2.Text & Mid(Form1.Text1.Text, InStr(Form1.Text1.Text, Form2.Text1.Text) + Len(Form2.Text1.Text), Len(Form1.Text1.Text))
End Sub
Private Sub Command2_Click()
Form1.Text1.Text = Replace(Form1.Text1.Text, Form2.Text1.Text, Form2.Text2.Text)
End Sub