Question

vb中replace函数想把 （高分）

文本60
名称200
密码6
分类编号
分类编号
名称200
分类编号
名称200
名称200

把这里的所有“名称” 换成 aaa，把所有的“分类编号” 换成 bbb，怎么做？
最好用通配 正则表达式。

Answer 1

replace()函数，是针对字符串类型的，有三个必选的参数；
replace(s1,s2,s3)
s1 ---- 被处理的字符串
s2 ---- 被替换的原子字符串
s3 ---- 用来替换原子字符串的新子字符串
例如：
s1 = "名称200"
s2 = "名称"
s3 = "aaa"
s = Replace(s1, s2, s3)
Print s
显示的是 aaa200
用大白话来说，上面执行的功能就是，将文字 “aaa” 替换字符串 “名称200” 中所有的文字 “名称”。
或者说：将字符串 “名称200” 中所有的文字 “名称”用“aaa”来替换。

Answer 2

没太明白你的意思。文本60 名称200 都是什么？

replace(A$,"名称","aaa")
replace(A$,"分类编号","bbb")

Answer 3

replace函数

http://pan.baidu.com/s/1bn29aGn

----------------

正则表达式

Private Sub Command1_Click()
Dim a, b, c As String
a = Text1.Text
b = Text2.Text
c = Text3.Text
Text1.Text = RegEx(a, b, c)
End Sub

Function RegEx(a, b, c) As String
    With CreateObject("VBSCRIPT.REGEXP")
        .Pattern = b
        .Global = True
        RegEx = .Replace(a, c)
    End With
End Function