判断输入的是否为字母或汉字？

Question

问题如上所提，请大家帮帮忙！
是用什么语句的，比如判断是否为数字为IsNumeric（）
那字母？
汉字呢？

Answer 1

char="汉"
If ASC(char)<0 Then
  msgbox "汉字"
End If

Answer 2

TO楼上，并不是所有的汉字的ASC值都是小于0的

Answer 3

而且我是判断在文本中输入的是不是汉字的问题比如处理数字：IsNumeric(txtFields(3).Text) = False
那汉字是这样吗？If ASC(txtFields(3).Text)<0 Then
  msgbox "汉字"
End If

Answer 4

试试用字节长度来判断，找相关的函数比如LenB()。

Answer 5

是不是字母可以判断字母的ASCII码值的范围。
大写字母从65---90
小写字母从97---122汉字的ascii码小于0

Answer 6

http://expert.csdn.net/Expert/topic/1773/1773003.xml?temp=.9290583http://expert.csdn.net/Expert/topic/1768/1768594.xml?temp=.9145471看看我的帖子可否满足你的要求~~~

Answer 7

担搁汉字的判断我也知道是ascii<0，但是如何判断连续的（比如三个汉字）是否为汉字呢？

Answer 8

检测string长度方法（用于解决判断是否汉字也OK）
Lenb(StrConv("汉字",vbFromUnicode))    返回4
len("汉字")   返回2
这样可以比较它们是否相等来判断是否包含汉字

Answer 9

--------------------------------------------------------------------------------
有谁想和我们一起在上海发展和出人头地的，欢迎参加。需优秀程序员，我在上海10年，
有10年IT公司的经验（市场和一定的技术），自己的公司经过大起大落，现在又回到了起跑线，
不过有良好的客户资源和一定的资金优势，我有信心，欢迎有志之士加盟。
诚心成就一番事业，可入股（技术和产品等）。
[email protected]  www.widersun.com

Answer 10

致dailwy(小二)：请寄上一份资料，我想看看[email protected]

Answer 11

CString str = "abc122中国" ;if ( BYTE(str[i])&0x80 )
{
汉字的一部分
}
else if ( str[i] >='A" && str[i] <='z" )
{
字母
}
else if ( str[i] >='0' && str[i] <='9" )
{
数字
}

Answer 12

wormoapple(再给我一个苹果...)的方法很好
我试过了，管用
Dim str As String
Dim i As Integer
Dim j As Integerstr = "汉字"
i = LenB(StrConv(str, vbFromUnicode))
j = Len(str)
If i = j Then
    MsgBox "字母"
ElseIf i = 2 * j Then
    MsgBox "汉字"
Else
    MsgBox "汉字和字母组合"
End If

Answer 13

select case keyascii
   case  13,27,8
   case  <0
        '汉字
   case else
       select case chr(keyascii)
           case 0 to 9'数字
           case a to z ,A TO Z
           case "*","+",....
           case else
                '....
       end select 
end select

Answer 14

不是吧
汉字的码是两个字节，且前面一个字节必须大于0x80H
        If (zz > &H80) Then                         '大于0x80H表示是汉字
            Temp_count = zz
            Temp_count = Temp_count * 256
            Get #1, , zz      '读低位
            Biao_count = Biao_count + 1
            Temp_count = Temp_count + zz
            If (Temp_count <> 0) Then
                Rec_data = Rec_data & Chr(Temp_count)
            End If
        Else                                    '未大于0x80H表示是ASCII码
            If (zz <> 0) Then
                kk = Chr(zz)
                Rec_data = Rec_data & kk
            End If
        End If