Question

vb 的查找并替换功能

最近做一些文本的某些文本的替换做的好累，要机械般地重复查找替换上百次，我想VB可不可以这样子？一次性将文本的好几处需要替换的地方恩一个按钮就完成。

text1为需要进行修改的文本
查找text2的内容并换为text3的内容
查找text4的内容并换为text5的内容
查找text6的内容并换为text7的内容
查找text8的内容并换为text9的内容
查找text10的内容并换为text11的内容
查找text12的内容并换为text13的内容
查找text14的内容并换为text15的内容

Answer 1

VB使用Replace在字符串中查找指定字符串并替换为另一字符串的功能。

Replace函数

描述

返回一个字符串，该字符串中指定的子字符串已被替换成另一子字符串，并且替换发生的次数也是指定的。

说明

Replace函数的返回值是一个字符串，但是，其中从start所指定的位置开始，到expression字符串的结尾处的一段子字符串已经发生过替换动作。并不是原字符串从头到尾的一个复制。

实例代码：将'vb 的查找并替换功能'中'并'替换为'和'：

Private Sub Command1_Click()
    Dim s As String
    Dim s1 As String
    s = "vb 的查找并替换功能"
    s1 = "并"
    s = Replace$(s, s1, "和")
    Debug.Print s
End Sub

Answer 2

dim s As String
s = text1.text
s= Replace$(s, text2.text, text3.Text)
s= Replace$(s, text4.text, text5.Text)

s= Replace$(s, text6.text, text7.Text)

s= Replace$(s, text8.text, text9.Text)

s= Replace$(s, text10.text, text11.Text)

s= Replace$(s, text12.text, text13.Text)

s= Replace$(s, text14.text, text15.Text)

text1.text = s
msgbox"替换成功!"

Answer 3

Replace函数
描述
返回一个字符串，该字符串中指定的子字符串已被替换成另一子字符串，并且替换发生的次数也是指定的。
语法
Replace(expression, find, replacewith[, start[, count[, compare]]])
Replace函数语法有如下几部分：
部分描述expression必需的。字符串表达式，包含要替换的子字符串。find必需的。要搜索到的子字符串。replacewith必需的。用来替换的子字符串。start可选的。在表达式中子字符串搜索的开始位置。如果忽略，假定从1开始。count可选的。子字符串进行替换的次数。如果忽略，缺省值是 –1，它表明进行所有可能的替换。compare可选的。数字值，表示判别子字符串时所用的比较方式。关于其值，请参阅“设置值”部分。

设置值
compare参数的设置值如下：
常数值描述vbUseCompareOption–1使用Option Compare语句的设置值来执行比较。vbBinaryCompare0执行二进制比较。vbTextCompare1执行文字比较。vbDatabaseCompare2仅用于Microsoft Access。基于您的数据库的信息执行比较。

返回值
Replace的返回值如下：
如果Replace返回值expression长度为零零长度字符串("")。expression为Null一个错误。find长度为零expression的复本。replacewith长度为零expression的复本，其中删除了所有出现的find 的字符串。start > Len(expression)长度为零的字符串。count is 0expression.的复本。

说明
Replace函数的返回值是一个字符串，但是，其中从start所指定的位置开始，到expression字符串的结尾处的一段子字符串已经发生过替换动作。并不是原字符串从头到尾的一个复制。