有什么办法去判断一个字符串内的东西是字母还是数字？

citykunan · 发表于 2004-6-15 11:55:00

有什么办法去判断一个字符串内的东西是字母还是数字？

例如果是"100"，"1"，"12"则返回t,是"a","bcd","李"就返回nil。谢谢

wb0815 · 发表于 2004-6-15 13:13:00

asc 码

wzh · 发表于 2004-6-15 13:30:00

(type (read "100"))返回INT

(type (read "bcd"))返回SYM

meflying · 发表于 2004-6-15 13:41:00

突然发现个问题，(setq a (type "0.a"))->0

(type a)->SYM

(type 0)->INT

0既可以作为整数也可以作为符号？

citykunan · 发表于 2004-6-15 13:47:00

0要作为整数，我编了一个，不知能不能用WCMATCH命令简化？ ;判断字符串中有没有不是阿拉伯数字的字符
(defun check_string (stri / len len_cha i )
(setq len (strlen stri))
(setq len_cha len)
(repeat len
(setq i (substr stri len_cha 1))
(if (AND (/= i "1") (/= i "2") (/= i "3") (/= i "4") (/= i "5") (/= i "6") (/= i "7") (/= i "8") (/= i "9") (/= i "0"))
(setq feedback 1) ;feedback在主程序中设为局部变量。

)
(setq len_cha (- len_cha 1))
)
)

meflying · 发表于 2004-6-15 13:59:00

3楼的不是已经可以了吗？

我说的问题和你的没有什么关系，是从你的问题引出的一个问题而已

citykunan · 发表于 2004-6-15 14:36:00

sorry,没看清。谢谢。

wzh · 发表于 2004-6-15 14:38:00

我没有明白飞哥的意思，0怎么作为符号呢？不光是0，任何一个阿拉伯数字和字符或字符串放在一起都会返回SYM。

meflying · 发表于 2004-6-15 16:40:00

仔细看一下，我的第一行运行后，返回是0，就是说a的值是0，而没有把0和别的符号放在一起

wzh · 发表于 2004-6-15 17:05:00

奇怪，怎么我运行(setq a (type "0.a"))后返回STR？

账号		自动登录	找回密码
密码			注册