[求助]

phoenixdjq

我从本站下载了一个函数，但是在我的电脑上不能用．哪位大侠能帮我看看是怎么回事呀？在此谢过了．

http://www.mjtd.com/function/list.asp?id=170&ordertype=byletter

以上是程序的网址；

以下是程序；

(defun strIsNum (str / ascList n len return char)
(setq ascList (stoal str))
(setq n 0)
(setq return T)
(setq len (length ascList))
(while (and return (< n len))
(setq char (nth n ascList))
(if(or
(and (>= char 48); 0
(<= char 57)
); 9
(= char 46); .
) ;_ end of or
(setq return T)
(setq return nil)
) ;_ end of if
(setq n (1+ n))
) ;_ end of while
return
) ;_ end of defun 

alin

You missed the other function stoal

http://www.mjtd.com/function/list.asp?id=169&ordertype=byletter

phoenixdjq

I see :)

Thank you very much!