记事本的替换代码(vb)

如题,记事本替换代码怎么写包括全部替换VB编程
2025-02-26 14:09:07
推荐回答(1个)
回答1:

在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