主题：求助：复杂的字符拆分代码

参考代码

Dim str As String = "P1234567890123456781T987654321Q0005000"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "T[0-9]+|P[0-9]+|Q[0-9]+")
If mc.count = 3 Then
    For i As Integer = 0 To mc.count-1
        Dim v = mc(i).value
        If v.startswith("P") Then
            msgbox("产品" & v.Substring(1))
        ElseIf v.startswith("T") Then
            msgbox("批次" & v.Substring(1))
        ElseIf v.startswith("Q") Then
            msgbox("数量" & v.Substring(1))
        End If
    Next
End If