格式一:
Dim data As String = "(10ml:5mg)"Dim reg As new System.Text.RegularExpressions.Regex("[0-9a-zA-Z]+")Dim mc As object = reg.Matches(data)msgbox(mc.count)msgbox(mc(0).value)msgbox(mc(1).value)