1、可以使用文本框的SelLength、SelStart、SelText 属性及字符串查找函数InStr()来实现。
2、工具：vb6。
3、具体实现代码如下：
Option Explicit
Private Sub Command1_Click()
Dim Search, Where ' 声明变量。
' 获取需要查找的字符串。
Search = Text1.Text
Where = InStr(Text3.Text, Search) ' 在文本中查找字符串。
If Where Then ' 如果找到，
Text3.SetFocus
Text3.SelStart = Where - 1 ' 设置选定的起始位置并
Text3.SelLength = Len(Search) ' 设置选定的长度。
Else
MsgBox "String not found." ' 给出通知。
End If
End Sub
Private Sub Command2_Click()
If Text3.SelText <> "" Then
Text3.SelText = Text2.Text
End If
End Sub
4、注意：被查找的文本框需要先获得焦点（Text3.SetFocus
），然后才能操作。
字符串函数：
Replace("abcdefg","ab","ba") '(结果=bacdefg)将"ab"替换成"ba"
'*****************************************************************************
len("abcdefg") '(结果=7)返回字符串的字符数
'*****************************************************************************
left("abcdefg",2) '(结果=ab)返回字符串左边2个字符
'*****************************************************************************
Right("abcdefg",2) '(结果=fg)返回字符串右边2个字符
'*****************************************************************************
Split(Split("abcdefg", "a")(1), "c")(0) '(结果=b)返回字符串中"a"到"c"之间的字符串
'*****************************************************************************
mid("abcdefg",3,2) '(结果=cd)取字符串"abcdefg"左边第三个字符起两个字符
'*****************************************************************************
Ltrim(" abcdefg") '(结果=abcdefg)去掉字符串左边空格
'*****************************************************************************
Rtrim("abcdefg ") '(结果=abcdefg)去掉字符串右边空格
'*****************************************************************************
Space(2) '(结果= )产生2个空格
'*****************************************************************************
String(5, "A") '(结果=AAAAA)产生5个A，也可这样写：String(5, 65)
'*****************************************************************************
UBound(Split("abcdefg", "b")) '(结果=1)判断字符串"b"在字符串"abcdefg"中出现的次数
'*****************************************************************************
InStr(2, "abcadefg", "a") '(结果=4)返回字符串"a"在字符串"abcadefg"中第二次出现的位置
'*****************************************************************************
String(2,"abcdefg") '(结果=aa)"abcdefg"中首字符组成的2个相同的字符
'*****************************************************************************
Trim(" abcabcdefg ") '(结果=abcdefg)去掉字符串两边的空格
'*****************************************************************************
InStrRev("abcdefcg", "c") '(结果=7)判断"c"最后出现在位置
'*****************************************************************************
Right("abcdefg", Len("abcdefg") - 1) '(结果=bcdefg)删除左边1个字符
'*****************************************************************************
Left("abcdefg", Len("abcdefg") - 1) '(结果=abcdef)删除右边1个字符
'*****************************************************************************
InStr("abcdefg", "a") '(结果：大于0)判断"abcdefg"中是否有a存在，大于0则存在，反之则存在
'*****************************************************************************
IsNumeric("0123456abc") '(结果=True)判断"0123456abc"是否为数字，返回True为数字，返回False为其它
'*****************************************************************************
lcase("AbCdeCg") '(结果=abcdefg)将字符串中的大写字母转小写
'*****************************************************************************
ucase("AbCdeCg") '(结果=ABCDEFG)将字符串中的小写字母转大写
'*****************************************************************************
strreverse("abcdefg") '(结果=gfedcba)将字符串前后颠倒
'*****************************************************************************
Dim a() As String
a = Split("a|b|c", "|") '(结果 a(1) = c a(2) = d a(3) = c)返回一组数组，以"|"为分割符
'*****************************************************************************
UBound(Split(Text1.Text, vbCrLf)) + 1 '返回Text1.Text总行数
'*****************************************************************************
Split(Text1.Text, vbCrLf)(n-1) '取Text1.Text第n行
'*****************************************************************************
在VB中,查找一个字符串是否出现在另一个字符串中,可以使用InStr函数,如果它返回一个大于0的值,则表示找到了相应的字符串.Instr函数有两种用法,一种是指定开始查找位置的,一种则不带.
不带查找位置:
InStr("Pack a String.", "a") '返回值:2
意为"Pack a String."中第2个字符就是找查找的字符串"a"的开始位置.
指定开始查找位置:
Instr(3,"pack a string","a") '返回值:6
意为在"pack a string"中从第3个字符开始查找,"pack a string"中第6个字符就是要查找的字符"a".
这在需要从一个字符串找多次查找特定字符串时很好用,比如,从一长段文字中,找出所有的"name",就可以写一个循环:
Dim iFind As Integer
Do
iFind = InStr(iFind + 1, "my name is abc,you name is def", "name")
If iFind > 0 Then Print iFind
Loop While iFind > 0
另外Instr还可以有第四个参数,用于指定查找时,字符串的比较规则,使用常量vbTextCompare可以忽略字符串间大小写的差别,使用0则必需大小写一致才会匹配成功.
对字符串的替换则使用Replace函数,它最少需要三个参数:将被处理的字符串,要被替换的内容,将被替换成的内容,如:
'将所有的"name"替换为"Name"
Dim strText As String
strText = "my name is abc,you name is def"
strText = Replace(strText, "name", "Name")
这个函数还有另外三个可选参数,用于指定替换的开始位置,如果前面InStr函数中的iFind的作用,但它是Replace函数的第四个参数.
Replace的第5个参数用于指定替换操作的执行次数,一个字符串可能有多个"name",如果只需要替换第一个"name",则可以将第五个参数设置为1;如果需要替换前5个"name",则将它设置为5;默认是全部替换.
最后可选一个参数和Instr的最后一个可选参数的作用是相同的,就不另行说明了.
可以利用VB提供的：Instr()、Left()、Right()、Mid()、Replace()等字符串函数。
结合文本框的SelStart，SelLength、SelText等属性。
就可以实现你的操作功能。
假设：text1.text = "1234ABCD5678hijk"
例如1：
text1.text =Replace(text1.text,"5678","1234")
结果：把text1.text中的“5678”替换成“1234”。
例如2：查找“ABCD” ---- 其实找到的话，要选中这个字符串
那么首先要获得text1.text中的“ABCD”的位置，即处于第几个字符，然后获得“ABCD”的长度；
i = Instr(1,text1.text,"ABCD")
L = Len("ABCD")
text1.setfoucs
text1.selstart=i-1
text1.sellength = L
查找定位用 Instr，替换有现成的函数 Replace
代码如下
Dim mnStartPos As Long '记录下次查找的开始位置
Private Sub cmdFind_Click() '查找按钮
'查找匹配文本，如果找到则选择该文本
'mnStartPos 查找开始位置，开始为0，查找到更新为文本之后，没有找到则恢复为初始状态0
Dim nPos As Long
'
nPos = InStr(IIf(mnStartPos > 0, mnStartPos, 1), Text3.Text, Text1.Text)
If nPos > 0 Then '有匹配的则选择该文本
mnStartPos = nPos + Len(Text1.Text)
Text3.SelStart = nPos - 1
Text3.SelLength = Len(Text1.Text)
Text3.SetFocus
Else
mnStartPos = 0
End If
End Sub
Private Sub cmdReplace_Click() '替换按钮
'替换文本（逐个替换）
'mnStartPos 查找开始位置，开始为0，查找并替换后到更新为文本之后，没有找到则恢复为初始状态0
Dim nPos As Long
'
nPos = InStr(IIf(mnStartPos > 0, mnStartPos, 1), Text3.Text, Text1.Text)
If nPos > 0 Then '有匹配的则选择替换该文本
Text3.Text = Replace(Text3.Text, Text1.Text, Text2.Text, , 1) '如果要一次全部替换，去掉后面的2个参数
mnStartPos = nPos + Len(Text2.Text)
Else
mnStartPos = 0
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024