Office中国论坛/Access中国论坛

标题: [求助]如何判断字符为汉字、字母、数字 [打印本页]

作者: gzh97730 时间: 2006-1-17 05:27
标题: [求助]如何判断字符为汉字、字母、数字
如题.

在网上找到一个答案.

' 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值是负的，求正解。

作者: 一点通 时间: 2006-1-17 06:10
以前还未试过这样的判别,现做了一个不知对否,不知还有没有更好的方法

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
[attach]15416[/attach]

作者: sybai 时间: 2007-3-1 00:21
我也有问题假如一字符串 11位数字如何判断前面4位都是字母后面7位都是数字

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

作者: hi-wzj 时间: 2007-3-1 01:11
循环截出每一字符然后判断。

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

作者: hi-wzj 时间: 2007-3-1 01:14
判断字符是否为数字或字母，也可用asc函数读出字符的ANSI值，然后根据值区段来判断。

作者: sybai 时间: 2007-3-1 01:40
多谢指点~！

作者: linag516 时间: 2009-4-23 11:21

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)