用法
评论
建议
取 消
确 定
(defun string:numberp (str) "确定字符串是否为数字" (numberp (vl-catch-all-apply (quote read) (list (cond ((= "." (substr str 1 1)) (strcat "0" str)) ((and (= "-." (substr str 1 2)) (> (strlen str) 2)) (strcat "-0" (substr str 2))) ((and (= "+." (substr str 1 2)) (> (strlen str) 2)) (strcat "+0" (substr str 2))) (t str))))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新