求助：复杂的字符拆分代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.name = "条码编号" Then
    Dim str As String = e.NewValue
    If str > "" Then
        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
                    e.DataRow("产品编号") = v.Substring(1)
                ElseIf v.startswith("T") Then
                    e.DataRow("批次编号") = v.Substring(1)
                ElseIf v.startswith("Q") Then
                    e.DataRow("数量") = v.Substring(1)
                End If
            Next
        Else
            e.DataRow("产品编号") = Nothing
            e.DataRow("批次编号") = Nothing
            e.DataRow("数量") = Nothing
        End If
    Else
        e.DataRow("产品编号") = Nothing
        e.DataRow("批次编号") = Nothing
        e.DataRow("数量") = Nothing
    End If
End If

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