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

taner

[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]

狂刀

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

taner

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

yshf

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

taner

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

2. 
   
3.   [FONT=courier new]
   
4. (defun th2-text-nump (txt / k len n num tmp)
   
5.   (setq len (strlen txt)
   
6.         n 1
   
7.         k 2
   
8.   )
   
9.   (if (= (substr txt 1 1) "-")
   
10.     (while (<= k len)
    
11.       (setq tmp (substr txt k 1))
    
12.       (if (vl-string-search tmp "1234567890.")
    
13.         (setq num t
    
14.               k (1+ k)
    
15.         )
    
16.         (setq num nil
    
17.               k (1+ len)
    
18.         )
    
19.       )
    
20.     )
    
21.     (while (<= n len)
    
22.       (setq tmp (substr txt n 1))
    
23.       (if (vl-string-search tmp "1234567890.")
    
24.         (setq num t
    
25.               n (1+ n)
    
26.         )
    
27.         (setq num nil
    
28.               n (1+ len)
    
29.         )
    
30.       )
    
31.     )
    
32.   )
    
33.   num
    
34. )
    
35. (defun th3-text-nump (string)
    
36.   (numberp (read string))
    
37. )
    
38.   [/FONT]
    

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

brainstorm

(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

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

taner

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

1. 
   
2.   [FONT=courier new]
   
3. test
   
4. 命令: (CD-STR-IF ".123")
   
5. T
   
6. 命令: (CD-STR-IF "1.1a23")
   
7. nil
   
8. 命令: (CD-STR-IF "-.123")
   
9. nil
   
10. 命令: (CD-STR-IF "-123")
    
11. nil
    
12. 命令: (CD-STR-IF "+123")
    
13. T
    
14.   [/FONT]
    

复制代码

它山之石

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

ljm621028

非常不错的东西

hawnn

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

MoldTL

学习了，谢谢分享