也可以使用正则表达式实现哦
Dim s As String = "打瞌睡+我很困|BH303(1)+BH105(2)+BH188(3)"
Dim mh As System.Text.RegularExpressions.Match = System.Text.RegularExpressions.Regex.Match(s,"[A-Za-z0-9]{4,6}\([0-9]{1,2}\)")
Do While True
If mh.Tostring()="" Then
Exit Do
End If
output.show(System.Text.RegularExpressions.Regex.Match(mh.Tostring(),"[A-Za-z0-9]{4,6}").ToSTring() & " " & System.Text.RegularExpressions.Regex.Match(mh.Tostring,"\([0-9]{1,2}\)").ToSTring().trim("(").trim(")"))
mh=mh.NextMatch
Loop