字符串的截取

Question

请教下，如何截取××××（××）**,左右都是不定长的，我需要取（）中的数据，怎么办啊？ 

Answer 1

mid(strTest,instr(strTest,"（")+1,instr(strTest,"）")-instr(strTest,"（")-1)

Answer 2

Private Sub Form_Load()
Dim int1 As Integer, int2 As Integer
Dim str As String
str = "aaa(bbb)ccc"
int1 = InStr(str, "(")
int2 = InStr(str, ")")
str = Mid(str, int1 + 1, int2 - int1 - 1)
MsgBox strEnd Sub

Answer 3

例子Dim str As String
str = "12232334（9990333）4ab333334534534534c"
MsgBox Mid(str, InStr(str, "（") + 1, InStr(str, "）") - InStr(str, "（") - 1)