视频讲解
文字讲解:
高职考技能提升教程 字符串查找与替换
查找
Instr(参数1,参数2,参数3,参数4)
参数1:默认从左向右查找,这个参数表示开始查找的位置,默认是从1开始的
参数2:代表源字符串
参数3:代表要查找的字符串
参数4:代表要查找的方式,这里我们使用vbbinarycompare
Vbbinarycompare方式返回的是字符串找到的位置,如果没有找到就返回0
Textbox控件的选择功能
Text1.SetFocus ‘设置焦点
Text1.SelStart = pos – 1 ‘注意这里是光标开始的位置
Text1.SelLength = Len(Text2.Text) ‘从光标出开始向后选择几个字符长度
Replace函数
替换函数
Replace(源字符串,要查找的字符串,要替换成哪个字符串)
返回结果:返回源字符串被替换后的字符串
课堂总结
1、instr函数 查找
2、replece函数 替换
软件设计界面:
源代码分享:
Private Sub Command1_Click(Index As Integer)
'注意要写代码注释
If Command1(Index).Caption = "查找" Then
Dim pos&
pos = InStr(1, Text1.Text, Text2.Text, vbBinaryCompare)
Text1.SetFocus '设置焦点
Text1.SelStart = pos - 1
Text1.SelLength = Len(Text2.Text)
ElseIf Command1(Index).Caption = "替换" Then
Text1.Text = Replace(Text1.Text, Text2.Text, Text3.Text)
End If
End Sub
更多视频教程,可以到“西瓜视频”搜索“ 刘金玉 ”。