[求助]请问怎么判断文字内容是否是整数？

santalin

请问怎么判断文字内容是否是整数？

比如：

"1"             是

"2.2"         不是

"说明："    不是

santalin

我知道怎么做了，呵呵

hnjzzbb

把我给说糊涂了

什么意思啊，你又明白了什么啊，说说吧

danberlove

个人认为直接用type函数好像还是不能满足版主的要求，比如

(type "2")->str

版主希望得到的结果应该是int吧

但提供了一个很好的思路，我第一次用这个函数。。。呵呵

caoyin

(type (read "2"))

(type (read "2.2"))

danberlove

牛逼了~呵呵

danberlove

牛逼了~哈哈

santalin

caoyin发表于2010-1-25 13:19:00(type (read \"2\")) (type (read \"2.2\"))

正解

pizg

如果

(setq S nil)

則

(type (read S))

會產生錯誤

 

最好多加個判斷式, 為你寫好的源碼如下: 
(defun isInt(s)
  (if (and s
    (= (type (read s)) 'INT)
      )
    'T
    nil
  ) 
)

 

;;在AutoCAD2010通過測試
;;(isInt (setq s nil))  RETURN  nil
;;(isInt "123")   RETURN  'T
;;(isInt "12.3")  RETURN  nil
;;(isInt "ABC")  RETURN  nil