| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3425 人关注过本帖
标题:如何区分字符型的数字和汉字?
只看楼主 加入收藏
a1999zqw
Rank: 1
等 级:新手上路
帖 子:186
专家分:0
注 册:2009-4-3
结帖率:78.95%
收藏
 问题点数:0 回复次数:7 
如何区分字符型的数字和汉字?
比如aa等于
'00'
或'0'
或'01'
或'5'
或'12'
或'99'
或'452'
或'一’
或'第二'

if aa=数字
? 数字
eles
? 汉字
endi
搜索更多相关主题的帖子: 字符 数字 汉字 
2010-01-20 14:19
中国龙王
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:484
专家分:283
注 册:2006-5-17
收藏
得分:0 
用TYPE()返回类型值就好搞了

不要为了打发无聊而做无聊的事!不要在虚幻的世界里做虚幻的事!
2010-01-20 15:47
cnfarer
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:179
帖 子:3330
专家分:21157
注 册:2010-1-19
收藏
得分:0 
你的意思是指一个字符串中包含的是不是全是数字吗?
如果是这样,好像没有直接的判断方法,应该写一个判断函数或过程来处理。下面给个例子,只判断是不是数字组成的字符串。你可以用类似的方法来判断是不是汉字,是不是字母等。
aa="23409834598"
?ISDIGITSTRING(AA)
aa="asldkjf"
?ISDIGITSTRING(AA)
FUNCTION isdigitstring
    LPARAMETERS sstr
    FOR i = 1 to LEN(sstr)
        IF ISDIGIT(SUBSTR(sstr,i,1))
            LOOP
        ELSE
            RETURN .F.
        ENDIF
    ENDFOR
    RETURN .T.
ENDFUNC

★★★★★为人民服务★★★★★
2010-01-20 16:08
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
aa='0'&&可以是其他的字符串
?iif(len(chrtran(aa,'0123456789',''))=0,'数字字符','其他字符')

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2010-01-21 19:35
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
aa='0'&&可以是其他的字符串
?iif(len(chrtran(aa,'0123456789',''))=0,'数字字符',iif(len(chrtran(upper(aa),'ABCDEFGHIJKLMNOPQRSTUVWXYZ',''))=0,'字母','其他字符'))

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2010-01-21 19:38
zaochen
Rank: 2
等 级:论坛游民
帖 子:18
专家分:40
注 册:2010-1-15
收藏
得分:0 
带引号的都是字符
2010-01-22 10:00
zyc344718100
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2010-3-5
收藏
得分:0 
用“”就好了呀!
2010-03-08 18:45
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
用ASC()判断,返回值大于127的是双字节汉字

坚守VFP最后的阵地
2014-03-20 15:48
快速回复:如何区分字符型的数字和汉字?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.034508 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved