首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2012-12-15 
VB 关于字串符处理的问题~我需要处理类似下面这样的一组字串符:木剑^ffc0db(炼器+4)^ffc0db(灌注+1)^ffc0d

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 ……


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

热点排行