'Dim str As String = "老村长125ml*30快乐小酒" Dim str As String = "五粮液浓香型52°500ML" Dim reg As new System.Text.RegularExpressions.Regex("[0-9.]+[a-zA-Z]+\*[0-9]+|[0-9.]+°[0-9.]+[a-zA-Z]+") Dim mc As object = reg.Matches(str) msgbox(mc(0).value) Dim ary() As String = mc(0).value.split(new Char(){"*", "°"}) msgbox(ary(0)) msgbox(ary(1))