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

vbcb 2003-05-14 10:06:20
问题如上所提,请大家帮帮忙!
是用什么语句的,比如判断是否为数字为IsNumeric()
那字母?
汉字呢?
...全文
543 22 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
22 条回复
切换为时间正序
请发表友善的回复…
发表回复
vbcb 2003-05-15
  • 打赏
  • 举报
回复
担搁汉字的判断我也知道是ascii<0,但是如何判断连续的(比如三个汉字)是否为汉字呢?
TimLee✿ 2003-05-15
  • 打赏
  • 举报
回复
http://expert.csdn.net/Expert/topic/1773/1773003.xml?temp=.9290583

http://expert.csdn.net/Expert/topic/1768/1768594.xml?temp=.9145471

看看我的帖子可否满足你的要求~~~
lihonggen0 2003-05-15
  • 打赏
  • 举报
回复
汉字的ascii码小于0
vbcb 2003-05-15
  • 打赏
  • 举报
回复
上面大家所说的好象只能判断第一人是否为汉字,我想知道是判断所有的输入是否为汉字
谢谢大家的帮助。
monglihong 2003-05-15
  • 打赏
  • 举报
回复
不是吧
汉字的码是两个字节,且前面一个字节必须大于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
lanWay 2003-05-15
  • 打赏
  • 举报
回复
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
Daniel0318 2003-05-15
  • 打赏
  • 举报
回复
wormoapple(再给我一个苹果...)的方法很好
我试过了,管用


Dim str As String
Dim i As Integer
Dim j As Integer

str = "汉字"
i = LenB(StrConv(str, vbFromUnicode))
j = Len(str)
If i = j Then
MsgBox "字母"
ElseIf i = 2 * j Then
MsgBox "汉字"
Else
MsgBox "汉字和字母组合"
End If
xt_jat 2003-05-15
  • 打赏
  • 举报
回复
CString str = "abc122中国" ;

if ( BYTE(str[i])&0x80 )
{
汉字的一部分
}
else if ( str[i] >='A" && str[i] <='z" )
{
字母
}
else if ( str[i] >='0' && str[i] <='9" )
{
数字
}
wxy001 2003-05-15
  • 打赏
  • 举报
回复
汉字的ascii码小于0
vbcb 2003-05-15
  • 打赏
  • 举报
回复
我是在问问题,你们不必来做广告吧
qingming81 2003-05-15
  • 打赏
  • 举报
回复
致dailwy(小二):请寄上一份资料,我想看看!

qingming_81@sina.com
dailwy 2003-05-15
  • 打赏
  • 举报
回复
--------------------------------------------------------------------------------
有谁想和我们一起在上海发展和出人头地的,欢迎参加。需优秀程序员,我在上海10年,
有10年IT公司的经验(市场和一定的技术),自己的公司经过大起大落,现在又回到了起跑线,
不过有良好的客户资源和一定的资金优势,我有信心,欢迎有志之士加盟。
诚心成就一番事业,可入股(技术和产品等)。
dale@widersun.com www.widersun.com
vbcb 2003-05-15
  • 打赏
  • 举报
回复
如何循环?
DaiLM 2003-05-15
  • 打赏
  • 举报
回复
用循环作,判断字符串中的每个字符
flitteryj 2003-05-15
  • 打赏
  • 举报
回复
你做个循环一个个判呗
wormoapple 2003-05-15
  • 打赏
  • 举报
回复
检测string长度方法(用于解决判断是否汉字也OK)
Lenb(StrConv("汉字",vbFromUnicode)) 返回4
len("汉字") 返回2
这样可以比较它们是否相等来判断是否包含汉字
chenyu5188 2003-05-14
  • 打赏
  • 举报
回复
是不是字母可以判断字母的ASCII码值的范围。
大写字母从65---90
小写字母从97---122

汉字的ascii码小于0
会飞的魔术师 2003-05-14
  • 打赏
  • 举报
回复
试试用字节长度来判断,找相关的函数比如LenB()。
vbcb 2003-05-14
  • 打赏
  • 举报
回复
而且我是判断在文本中输入的是不是汉字的问题

比如处理数字:IsNumeric(txtFields(3).Text) = False
那汉字是这样吗?If ASC(txtFields(3).Text)<0 Then
msgbox "汉字"
End If
vbcb 2003-05-14
  • 打赏
  • 举报
回复
那字母呢?
加载更多回复(2)

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧