vb6.0 字符串替换 请教高手

Question

在vb6.0中,例如字符串：ffff[fff/@ggg]ffff
需要将/@ 和 ] 之间的字符替换为空，而[]中的字体更换颜色并加上链接

因为本人对正则表达了解太少，希望高手的帮助解决

Answer 1

Dim str As String
Dim str1 As String
Dim str2 As String
Dim str3 As String
Dim i, j, k As Integer
str1 = "/@"
str2 = "]"
str = "ffff[fff/@ggg]ffff "
i = InStr(2, str, str1)
j = InStr(1, str, str2)
str3 = Mid(str, i, j - i)
Text2.Text = Replace(str, str3, "网址")
注：替换成功，网址部分的连接你得自己加了

Answer 2

不太清楚正则

Answer 3

还要加链接？
不懂你说什么