VBA 获取字符串解决方法

2012-12-17

VBA 获取字符串有这么一段字符串，测试(test) ，现在想截取test出来，如何截取？ps:字符串有可能是其他的，比

VBA 获取字符串
有这么一段字符串，测试(test) ，现在想截取test出来，如何截取？

ps:字符串有可能是其他的，比如：这是一个电饭锅(dianfan)

总之是获取括号之内的字符。
[最优解释]

Dim strText$, strRlt$
Dim i&

strText = "这是一个电饭锅(dianfan)"
i = InStrRev(strText, "(") + 1
strRlt = Mid$(strText, i, InStrRev(strText, ")") - i)
MsgBox strText & vbCrLf & strRlt, 64

strText = "abc(def)ghi(jk)"
i = InStrRev(strText, "(") + 1
strRlt = Mid$(strText, i, InStrRev(strText, ")") - i)
MsgBox strText & vbCrLf & strRlt, 64

[其他解释]
有可能会出现这种情况， abc(def)ghi(jk) ，想获取最后一个括号里的内容
[其他解释]

引用:

Visual Basic code?123456789101112Dim strText$, strRlt$Dim i& strText = "这是一个电饭锅(dianfan)"i = InStrRev(strText, "(") + 1strRlt = Mid$(strText, i, InStrRev(strText, ")") - i)MsgBox strT……

在网上找到这样的方法了，我是写ER脚本，用的也是MID函数和InStr函数

热点排行