[求助]请问怎么判断文字内容是否是整数?
<p>请问怎么判断文字内容是否是整数?</p><p>比如:</p><p>"1" 是</p><p>"2.2" 不是</p><p>"说明:" 不是</p> 我知道怎么做了,呵呵 <p>把我给说糊涂了</p><p>什么意思啊,你又明白了什么啊,说说吧</p><p></p> <p>个人认为直接用type函数好像还是不能满足版主的要求,比如</p><p>(type "2")->str</p><p>版主希望得到的结果应该是int吧</p><p>但提供了一个很好的思路,我第一次用这个函数。。。呵呵</p> <p>(type (read "2"))</p><p>(type (read "2.2"))</p> <p>牛逼了~呵呵</p><p></p> 牛逼了~哈哈 caoyin发表于2010-1-25 13:19:00static/image/common/back.gif(type (read \"2\"))(type (read \"2.2\"))
<p>正解</p> <p><font face="Verdana">如果</font></p>
<p>(setq S nil)</p>
<p>則</p>
<p><font face="Verdana">(type (read S))</font></p>
<p>會產生錯誤</p><font face="Verdana">
<p> </p>
<p>最好多加個判斷式, 為你寫好的源碼如下: <br/>(defun isInt(s)<br/> (if (and s <br/> (= (type (read s)) 'INT)<br/> )<br/> 'T<br/> nil<br/> ) <br/>)</p>
<p> </p>
<p>;;在AutoCAD2010通過測試<br/>;;(isInt (setq s nil)) RETURN nil<br/>;;(isInt "123") RETURN 'T<br/>;;(isInt "12.3") RETURN nil<br/>;;(isInt "ABC") RETURN nil</font></p>
页:
[1]
2