[求助]如何判断字符为汉字、字母、数字

gzh97730

如题.

在网上找到一个答案.

   ' If c > "~" Then
   '  MsgBox "汉字"
   ' ElseIf IsNumeric(c) Then
   '  MsgBox "数字"
   ' ElseIf (c >= "A" And c <= "Z") Or (c >= "a" And c <= "z") Then
   '  MsgBox "英文"
   ' End If
我试了一下好象不行。

? "3">"~"
True

我倒！

不过好像汉字的asc值是负的，求正解。

一点通

以前还未试过这样的判别,现做了一个不知对否,不知还有没有更好的方法

Private Sub 文本0_BeforeUpdate(Cancel As Integer)
If IsNumeric(Me.文本0) Then
     MsgBox "数字"
    ElseIf (Me.文本0 >= "A" And Me.文本0 <= "Z") Or (Me.文本0 >= "a" And Me.文本0 <= "z") Then
     MsgBox "英文字母"
    ElseIf Me.文本0 > "~" Then
     MsgBox "汉字"
    Else
     MsgBox "~!@#$%^&*()_+|符号"
    End If
End Sub

sybai

我也有问题 假如 一字符串 11位数字   如何判断前面4位都是字母 后面7位都是数字

例如 CCLU1234567     假如前面4位不是全字母 后面7位不是全数字  提示出错

hi-wzj

循环截出每一字符然后判断。

当然最好是在输入的时候就通过掩码来控制，减少后期大量的代码来判断。

hi-wzj

判断字符是否为数字或字母，也可用asc函数读出字符的ANSI值，然后根据值区段来判断。

sybai

多谢指点~！

linag516