主题：字符串提取

Dim str As String = "张三三0016ecb78091"

If str <> "" Then

    Dim n As Integer = str.Length - 1

    Dim ID As String = ""

    Dim Name As String = ""

    For i = 0 To n

        If str.Chars(i) Like "[0-9]" Then

            ID = ID & str.Chars(i)

        ElseIf str.Chars(i) Like "[a-x]" Then

            ID = ID & str.Chars(i)

        Else

            Name = Name & str.Chars(i)

        End If

    Next

    ID = ID.Trim

    Name = Name.Trim

    Output.Show(Name)

    Output.Show(ID)

End If

这个办法笨一点，但是好懂，且不受字符数和顺序的限制！自动分拣