vb的查找并替换功能怎么用？

Replace函数\x0d\x0a描述\x0d\x0a返回一个字符串，该瞎御蠢字符串中指定的子字符串已被替换成另一子字符串，并且替换发生的次数也是指定的。\x0d\x0a语法\x0d\x0aReplace(expression, find, replacewith[, start[, count[, compare]]])\x0d\x0aReplace函数语法有如下几部分：\x0d\x0a部分描述expression必需的。字符串表达式，包含要替换的子字符串。find必需的。要搜索到的子字符串。replacewith必需的。用来替换的子字符串。start可选的。在表达式中子字符串搜索的开始位置。如果忽略，假定从1开始。count可选的。子字符串进行替换的次数。如果忽略，缺省值是 _1，它表明进行所有可能的替换。compare可选的。数字值，表示判别子字符串时所用的比较方式。关于其值，请参阅“设置值”部分。\x0d\x0a\x0d\x0a设置值\x0d\x0acompare参数的设置值如下：\x0d\x0a常数值描述vbUseCompareOption_1使用Option Compare语句的设置值来执行比较。vbBinaryCompare0执行二进制比较。vbTextCompare1执行文字比较。vbDatabaseCompare2仅磨陪用于Microsoft Access。基于您的数据库的信息执行比较。\x0d\x0a\x0d\x0a返回值\x0d\x0aReplace的返回值如下：\x0d\x0a如果Replace返回值expression长度为零零长度字符串("")。expression为Null一个错误。find长度为零expression的复本。replacewith长度为零expression的复本，其中删除了所有出现的find 的字符串。start >Len(expression)长拆裤度为零的字符串。count is 0expression.的复本。\x0d\x0a\x0d\x0a说明\x0d\x0aReplace函数的返回值是一个字符串，但是，其中从start所指定的位置开始，到expression字符串的结尾处的一段子字符串已经发生过替换动作。并不是原字符串从头到尾的一个复制。

Private Sub cmdExit_Click()

End

End Sub

Private Sub cmdFind_Click()

Dim StrCz As String, StrTh As String, I As Integer, J As Integer, K As Integer

StrCz = InputBox("你察携桐要查找什么？", "查找", "上海市"隐贺)

StrTh = InputBox("你要将查找到的字符替换成什么？", "替换", "南京市")

On Error Resume Next

I = 0

Do

DoEvents

Txtpape.SetFocus

Txtpaper.SelStart = InStr(IntKs + 1, Txtpaper, StrCz) - 1

If Err = 380 Then

MsgBox "查找完毕！", vbOKOnly, "查找完毕"

Exit Sub

End If

IntKs = Txtpaper.SelStart + Len(StrCz)

Txtpaper.SelLength = Len(StrCz)

I = I + 1

lblFinded = "已经找到" &I &"处"

K = MsgBox("找到第" &I &"处“" &StrCz &"”，是否替换？", vbYesNo, "找到第" &I &"处“" &StrCz &"”")

If K = 6 Then

Clipboard.Clear

Clipboard.SetText StrTh

Txtpaper.SelText = Clipboard.GetText

J=j+1

lblReplaced="您替换了" &J &"次！"

End If

Loop

End Sub

Private Sub Form_Load()

cmdExit.Caption = "退 出"

cmdFind.Caption = "查找替换"

Txtpaper = "上海市青少年计算机应用 *** 作竞赛是一项经上海市教委批准，由上海市青少年科技教育中心主办的加分竞赛活动?旨在培养青少年的软件 *** 作和应用能力，适应当今社会科技、信败坦息的飞速发展，激发青少年学生学习计算机的兴趣，早日成为二十一世纪的全能人才。"

End Sub

更多VB代码请关注我的博客：http://hi.baidu.com/zgmg/blog/item/1384db03008e9884d53f7c35.html

---