以下是引用狐狸爸爸在2013-10-17 16:21:00的发言:
呵呵,估计这样你就理解了:
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
我原来那样写,只是为了让你一次可以验证各种情况,结果适得其反。
这样浅白些,明解了,两个情況都能达到结果.
有老師指引就是好,自己脑根不灵光..
还有就是认错了BIN 成了小甜甜
上班看网页不能太夠所以用了瞬眼.
看錯了
还是感谢BIN老師和狐爸.