学习VB编程第69天 字符串查找与替换

今天学习了VB提升教程4期，学习的主要内容是字符串查找与替换。零基础学VB课程已经结束，但是感觉还是没有太大进步，而且目前也没有确定后续该学什么语言，干脆就继续再学一段时间VB吧反正计划的三个月时间还没有学满呢。

1.查找思路：通过字符串的比较来确定是否属于查找的内容，确定后通过设置焦点和光标开始位置，以及查找字符的长度达到定位选择的效果。

2补充知识：

Instr(参数1，参数2，参数3，参数4)参数1表示默认从左往右查找开始的位置，默认从1开始查找，参数2代表原字符串，参数3代表要查找的字符串，参数4代表要查找的方式，我们使用vbBinaryCompare方式，返回的是字符串找到的位置，如果没有找到字符串则返回0。

Text1.SetFocus 设置焦点

Text1.SelStart = find - 1 光标开始的位置

Text1.SelLength = Len(Text2.Text) 从光标处开始向后选择几个字符长度

3.替换函数：replace（原字符串底稿，要查找的字符串，替换进去的字符串）

4.做一个查找替换文本的小工具。

（1）窗体

（2）代码

Private Sub Command1_Click()

find = InStr(1, Text1.Text, Text2.Text, vbBinaryCompare)

Text1.SetFocus

Text1.SelStart = find - 1

Text1.SelLength = Len(Text2.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = Replace(Text1.Text, Text2.Text, Text3.Text)

End Sub

（3）效果详见视频