高职考技能提升教程004期 字符串查找与替换 高考信息技术必备 刘金玉编程

高职考技能提升教程 字符串查找与替换

查找

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