vb怎么定义一个字符串(字符串查找与替换)

今天学习了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)窗体

vb怎么定义一个字符串(字符串查找与替换)(1)

(2)代码

vb怎么定义一个字符串(字符串查找与替换)(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)效果详见视频

,

免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。