Dim Str1 As String = forms("代码编辑器").Controls("TextBox1").Value
Dim Str2 As String = forms("替换和查找").Controls("TextBox1").Value
Dim str3 As String = forms("替换和查找").Controls("TextBox2").Value
三个TexTbox控件,我想在STR2中给出一个字符串,找到STR1相对应的字符串,并利用STR3给出的字符串替换掉.
说到底就是代码编辑器中的查找和替换按钮中那个东西.怎么做?
str2 = str2.replace(str1,str3)
forms("替换和查找").Controls("TextBox2").Value = Str2
全部替换掉?这个我会,我要的是字符串,
举例STR1一句forms("窗口1").OPEN(),我在Dim Str2 As String = forms("替换和查找").Controls("TextBox1").Value中输入"OPEN",在Dim str3 As String = forms("替换和查找").Controls("TextBox2").Value输入CLOSE,按替换,将OPEN替换成CLOSE.
Dim c1,c2 As WinForm.TextBox
c1 = Forms("代码编辑器").controls("textbox1")
c2 = e.Form.controls("textbox1")
Dim t1,t2,t3 As String
t1=c1.value
t2=c2.value
t3 =iif(t2 = "","请输入要查找的字符!",iif(Instr(t1,t2) = 0,"没有找到!",""))
If t3 = "" Then
c1.Select()
c1.SelectionStart = Instr(t1,t2)-1
c1.SelectionLength = Len(t2)
Else
MessageBox.Show(t3, "提示",MessageBoxButtons.ok, MessageBoxIcon.Question)
End If
这段代码为什么异窗口不行,本窗口可以显示
老大帮忙看看,怎么在本窗口可以,但是异窗口不行呢?
If forms("代码编辑器").Opened
Dim t1,t2 As String
t1=Forms("代码编辑器").Controls("TextBox1").text
t2=Forms("替换和查找").Controls("TextBox1").text
Forms("代码编辑器").Controls("TextBox1").Select()
If t2 <> "" Then
If Instr(t1,t2) <> 0 Then
Forms("代码编辑器").Controls("TextBox1").SelectionStart = Instr(t1,t2)-1
Forms("代码编辑器").Controls("TextBox1").SelectionLength = Len(t2)
Else
MessageBox.Show("没有找到!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)
End If
Else
MessageBox.Show("请输入要查找的字符!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)
End If
End If
这样也不行