写正则处理,如
Dim str1 As String = "1111{2222},,,(A)(B)(C)sdsd sdsdsds"Dim str2 As String = "(?<=\().+?(?=\))"Dim mc = System.Text.RegularExpressions.Regex.Matches(str1,str2)For i As Integer = 0 To mc.count-1 msgbox(mc(i).value)Next