神马品牌网网络游戏防破解:查找VB字符串并替换的问题，一定给分
来源：百度文库 编辑：神马品牌网 时间：2024/05/17 05:52:47
头昏了，大家来帮帮我！
把字符串
<ABCD>(#str1)</ABCD>(#strA)<EEE>(#strB)</EEE>
替换为
<ABCD>HEHE</ABCD>HAHA<EEE>HEIHEI</EEE>
在VB6中怎么实现？
(#)出现的次数不一定，根据(#)里的内容在数据库中查找相应数据，然后把查找出来的数据替换掉(#)里的内容，包括括号和#。
比如数据库里定义的(#str1)为HEHE,(#strA)为HAHA,而(#strB)没有定义，程序运行后要自动把数据库里定义过的替换了，最后结果为：
<ABCD>HEHE</ABCD>HAHA<EEE>(#strB)</EEE>
把字符串
<ABCD>(#str1)</ABCD>(#strA)<EEE>(#strB)</EEE>
替换为
<ABCD>HEHE</ABCD>HAHA<EEE>HEIHEI</EEE>
在VB6中怎么实现？
(#)出现的次数不一定，根据(#)里的内容在数据库中查找相应数据，然后把查找出来的数据替换掉(#)里的内容，包括括号和#。
比如数据库里定义的(#str1)为HEHE,(#strA)为HAHA,而(#strB)没有定义，程序运行后要自动把数据库里定义过的替换了，最后结果为：
<ABCD>HEHE</ABCD>HAHA<EEE>(#strB)</EEE>
Dim a As String
a = "<ABCD>(#str1)</ABCD>(#strA)<EEE>(#strB)</EEE>"
a = Replace(Replace(Replace(a, "(#str1)", "HEHE"), "(#strA)", "HAHA"), "(#strB)", "HEIHEI")
MsgBox a
s2 = replace(s1,"(#str1)","HEHE")
s2 = replace(s2,"(#strA)","HAHA")
s2 = replace(s2,"(#strB)","HEIHEI")