VB 关于字串符处理的有关问题

VB 关于字串符处理的问题~
我需要处理类似下面这样的一组字串符:
木剑^ffc0db（炼器＋4）^ffc0db（灌注＋1）^ffc0db\r^ffffff
怎么检测到^符号之后,从^符号起删除7个字符？就是希望处理完之后是这样：
木剑（炼器＋4）（灌注＋1）\r
------最佳解决方案--------------------
要看你处理文档的数量。

如果量很大，可以采用正则表达式来处理。

否则，遍历搜索即可：

Dim strTmp As String, i As Long, p As Long

strTmp = "木剑^ffc0db（炼器＋4）^ffc0db（灌注＋1）^ffc0db\r^ffffff"
p = InStr(1, strTmp, "^")

Do While p
    strTmp = Left(strTmp, p - 1) & Mid(strTmp, p + 7)
    p = InStr(p, strTmp, "^")
Loop

Debug.Print strTmp
------其他解决方案--------------------
发错版面了，应发技术版，另外分数也太少了：)
------其他解决方案--------------------

引用:

发错版面了，应发技术版，另外分数也太少了：)

没分了
------其他解决方案--------------------
量大也不要紧，如果^符号起是固定的7个字符就好办。用split分割也许要快点。


------其他解决方案--------------------

引用:

要看你处理文档的数量。

如果量很大，可以采用正则表达式来处理。

否则，遍历搜索即可：

Dim strTmp As String, i As Long, p As Long

strTmp = "木剑^ffc0db（炼器＋4）^ffc0db（灌注＋1）^ffc0db\r^ffffff"
p = InStr(1, strTmp, "^")

Do ……

你是在新浪爱问上看的吧,昨晚我写出来了,跟你写的一样