[LISP函数]：判斷是否爲數字還是字符串

taner · 发表于 2005-12-13 22:56:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[PHP]
;;; ******* text_num_p - function ************
;;; this function must be passed a string
;;; then it returns t if the string would
;;; be a valid number or nil if it would not
(defun text-nump (string /          ; passed to function
      cnt          ; temporary counter
      cc          ; current charcter to be tested
      allnum    ; t = number,  nil = not number
      numdec    ; number of decmials found
      test    ; test varaible
      )
  (setq cnt 1
allnum t
  )
  (setq cc (substr string cnt 1))    ; loop to test each charcter
  (while (and
   cc
   allnum
   )          ; test to see what current
         ; charcter is
(setq test (cond
   ((and
      (= cnt 1)
      (= cc "-")
   )
   )
   ((= cc "1"))
   ((= cc "2"))
   ((= cc "3"))
   ((= cc "4"))
   ((= cc "5"))
   ((= cc "6"))
   ((= cc "7"))
   ((= cc "8"))
   ((= cc "9"))
   ((= cc "0"))
   ((= cc ".")
   "dec"
   )
   (t
   nil
   )
         )          ; end cond

)          ; end setq
         ; test to see if current
         ; charcter is
         ; part of a valid number
(cond
   ((= test nil)
(setq allnum nil)
   )
   ((and
   (= numdec nil)
   (= test "dec")
   )
(setq numdec 1)
   )
   ((and
   (= numdec 1)
   (= test "dec")
   )
(setq allnum nil)
   )
)          ; end cond
         ; get next charcter
(setq cnt (1+ cnt))
(setq cc (substr string cnt 1))
(if (= cc "")
   (setq cc nil)
)
  )          ; end while
  (eval allnum)          ; returnc t or nil

)
;;; end text_num_p function[/PHP]

狂刀 · 发表于 2005-12-14 13:58:25

(if (distof str)
T
nil)
字符串是数值返回Ｔ

taner · 发表于 2005-12-15 08:23:45

(defun Is-String (arg) (equal (type arg) 'str))

yshf · 发表于 2006-4-12 16:45:33

(if (= (read str) (atof str)) T nil)
字符串是数值返回Ｔ

taner · 发表于 2007-7-3 14:37:30

一楼与以下几个是有点不同的。
一楼是判断某字符串是由数字组成与否。(下面与一楼相同）

[FONT=courier new]
(defun th2-text-nump (txt / k len n num tmp)
(setq len (strlen txt)
n 1
k 2
)
(if (= (substr txt 1 1) "-")
(while (<= k len)
(setq tmp (substr txt k 1))
(if (vl-string-search tmp "1234567890.")
(setq num t
k (1+ k)
)
(setq num nil
k (1+ len)
)
)
)
(while (<= n len)
(setq tmp (substr txt n 1))
(if (vl-string-search tmp "1234567890.")
(setq num t
n (1+ n)
)
(setq num nil
n (1+ len)
)
)
)
)
num
)
(defun th3-text-nump (string)
(numberp (read string))
)
[/FONT]

brainstorm · 发表于 2007-12-4 09:37:39

(defun zgx-singlestr-if-num (str lst)
(if (or
      (wcmatch str "#")
      (member str lst)
)
t
nil
)
)
;;;---判断整个单词是否为数字，lst ( "+" ".") 需要当作数字处理的符号----------
(defun zgx-wholestr-if-num (str lst / yes)
(setq yes t)
(while (and
         (/= "" str)
         yes
   )
(if (zgx-singlestr-if-num (zgx-substr str 1 1) lst)
      (setq str (zgx-substr str 2 1))
      (setq yes nil)
)
)
yes
)

wwwchard · 发表于 2008-1-23 06:07:19

不用这么复杂
(defun CD-STR-IF(str)(if(not (wcmatch str "*@*,*-*,#*'.*")) T nil))
_$ (CD-STR-if "12345")
T
_$ (CD-STR-if "12345a")
nil

taner · 发表于 2008-1-29 07:55:58

最初由 wwwchard 发布
[B]不用这么复杂
(defun CD-STR-IF(str)(if(not (wcmatch str "*@*,*-*,#*'.*")) T nil))
_$ (CD-STR-if "12345")
T
_$ (CD-STR-if "12345a")
nil [/B]

[FONT=courier new]
test
命令: (CD-STR-IF ".123")
T
命令: (CD-STR-IF "1.1a23")
nil
命令: (CD-STR-IF "-.123")
nil
命令: (CD-STR-IF "-123")
nil
命令: (CD-STR-IF "+123")
T
[/FONT]

复制代码

它山之石 · 发表于 2008-2-1 09:40:44

(ssget '((0 . "TEXT") (1 . "~*[~`--9]*")) )

ljm621028 · 发表于 2008-2-9 18:10:30

非常不错的东西

hawnn · 发表于 2009-4-30 21:00:08

我的函数,很简单的
(type (read $***))
不用像上面这么麻烦的吧

MoldTL · 发表于 2013-5-1 13:46:24

学习了，谢谢分享

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

[LISP函数]：判斷是否爲數字還是字符串

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子