Question

VB 怎么对Text内容 进行 替换 查找 操作

如下图 Text1 + Text2 + Text3怎么对 Text3 内容 进行 一键 查找（一个个查找） 替换（一个个替换） 全部替换 操作对VB 不熟 做的很辛苦 求 代码--非常感谢

Answer 1

　　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
），然后才能操作。

Answer 2

字符串函数：

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行
'*****************************************************************************

Answer 3

在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的最后一个可选参数的作用是相同的,就不另行说明了.

Answer 4

可以利用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

Answer 5

查找定位用 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

追问

非常 感谢 已经 明白了