VBA 获取字符串

Question

有这么一段字符串， 测试(test) ，现在想截取test出来，如何截取？ps:字符串有可能是其他的，比如：这是一个电饭锅(dianfan)总之是获取括号之内的字符。

Answer 1

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

Answer 2

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

Answer 3

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