主题：数字+英文的　款号自动分析[已解決]

呵呵，我再来个不用正则表达式的：

Dim nms() As String = {"08476R","MAR480","00039ER","00076EN","00940SE","08835E","GJP123"}
For Each nm As String In nms
    Dim v As String = nm.SubString(nm.Length -2)
    If Char.IsLetter(v.Chars(0)) AndAlso Char.IsLetter(v.Chars(1)) Then
        If v.Chars(0) = "e" Then
            output.show(nm & ":exp")
        ElseIf v.Chars(0) = "s" Then
            output.show(nm & "str")
        End If
    ElseIf Char.IsDigit(v.Chars(0)) AndAlso Char.IsLetter(v.Chars(1))  Then
        output.show(nm & ":atm")
    ElseIf Char.IsLetter(nm.Chars(0)) AndAlso Char.IsLetter(nm.Chars(1)) AndAlso  Char.IsLetter(nm.Chars(2))  Then
        output.show(nm & ":atm")
    End If
Next

当然你可以，这里告诉你的是判断的方法，有了方法，你怎么写都行。

呵呵，估计这样你就理解了：

Dim nm As String = "08476R"
Dim v As String = nm.SubString(nm.Length -2)
If Char.IsLetter(v.Chars(0)) AndAlso Char.IsLetter(v.Chars(1)) Then
    If v.Chars(0) = "e" Then
        output.show(nm & ":exp")
    ElseIf v.Chars(0) = "s" Then
        output.show(nm & "str")
    End If
ElseIf Char.IsDigit(v.Chars(0)) AndAlso Char.IsLetter(v.Chars(1))  Then
    output.show(nm & ":atm")
ElseIf Char.IsLetter(nm.Chars(0)) AndAlso Char.IsLetter(nm.Chars(1)) AndAlso  Char.IsLetter(nm.Chars(2))  Then
    output.show(nm & ":atm")
End If

我原来那样写，只是为了让你一次可以验证各种情况，结果适得其反。