很久没有写代码，这个程序没有思路了，文本中数字提取并求和

doremidai

很久没有写代码，最近想写个“文本中数字提取并求和”的短程序，没有思路了，各位i老大帮帮忙。

下面的代码只能计算文本后面的文字，如何提取文本中部逗号前的文字，和过滤带括号的文本不参与计算？

2. (print "文本数字求和(型如:N=23,N23.12,N=23.12,M=50.5,多行文字先炸开,不支持负数),命令:txtsum")
   
3. (defun c:txtsum(/ all endno aa bb cc wz tha tsum i)
   
4.   (if (null xzz) (setq xzz 0))
   
5.   (setq ALL (ssget(list (cons 0 "text"))))
   
6.   (if all (SETQ nn (SSLENGTH ALL)))
   
7.   (setq endno 0)
   
8.   (setq tsum 0 i 0)
   
9.   (WHILE (and  (< endno nn) all)   
   
10.     (setq aa (ssname all endno))
    
11.     (setq bb (entget aa))
    
12.     (setq cc(cdr(assoc 1 bb)))
    
13.     (setq wz(rdata cc))
    
14.     (setq tha(substr cc (+ wz 1) ( - (strlen cc) wz -1)))
    
15.     (if (= tha "") (setq tha "0"))
    
16.     (setq tsum(+ tsum (atof tha)))
    
17.     (setq i(1+ i))
    
18.     (print (strcat (itoa i) ":文本 <" cc ">---数字 <" tha ">"))
    
19.     (setq endno (+ endno 1))
    
20.   )
    
21.   (print (strcat "共" (itoa i) "个文本，和=" (rtos tsum)))
    
22.   (print)
    
23. )
    
24. ;;;
    
25. (defun rdata(str / len i aa)
    
26.   (if (> (strlen str) 0)
    
27.     (progn
    
28.            (setq i (strlen str))
    
29.            (setq aa(substr str (strlen str) 1))
    
30.      (while (and (or (and (>= aa "0") (<= aa "9"))
    
31.          (= aa ".")      
    
32.            )
    
33.            (>= i 1)
    
34.       )
    
35.             (setq i(1- i))
    
36.                   (if (>= i 1) (setq aa(substr str i 1)))
    
37.            )      
    
38.     )
    
39.   )
    
40.   (setq i i)
    
41. )

(print "文本数字求和(型如:N=23,N23.12,N=23.12,M=50.5,多行文字先炸开,不支持负数),命令:txtsum")<br /> (defun c:txtsum(/ all endno aa bb cc wz tha tsum i)<br />   (if (null xzz) (setq xzz 0))<br />   (setq ALL (ssget(list (cons 0 "text"))))<br />   (if all (SETQ nn (SSLENGTH ALL)))<br />   (setq endno 0)<br />   (setq tsum 0 i 0)<br />   (WHILE (and  (< endno nn) all)    <br />     (setq aa (ssname all endno))<br />     (setq bb (entget aa))<br />     (setq cc(cdr(assoc 1 bb)))<br />     (setq wz(rdata cc))<br />     (setq tha(substr cc (+ wz 1) ( - (strlen cc) wz -1)))<br />     (if (= tha "") (setq tha "0"))<br />     (setq tsum(+ tsum (atof tha))) <br />     (setq i(1+ i))<br />     (print (strcat (itoa i) ":文本 <" cc ">---数字 <" tha ">"))<br />     (setq endno (+ endno 1))<br />   )<br />   (print (strcat "共" (itoa i) "个文本，和=" (rtos tsum)))<br />   (print)<br /> )<br /> ;;;<br /> (defun rdata(str / len i aa)<br />   (if (> (strlen str) 0)<br />     (progn<br />            (setq i (strlen str))<br />            (setq aa(substr str (strlen str) 1))<br />      (while (and (or (and (>= aa "0") (<= aa "9"))<br />          (= aa ".")      <br />            )<br />            (>= i 1)<br />       )<br />             (setq i(1- i))<br />                   (if (>= i 1) (setq aa(substr str i 1)))<br />            )      <br />     )<br />   )<br />   (setq i i)<br /> )

cie0588

1. (defun c:tt ()
   
2.   (princ "\n选择含数字的对象:")
   
3. ;;;对象选择集
   
4.   (setq ss (ssget '((0 . "TEXT"))))
   
5. ;;;将对象选择集转为图元名列表
   
6.   (setq  ename-lst (vl-remove-if-not
   
7.         '(lambda (x) (equal (type x) 'ename))
   
8.         (mapcar 'cadr (ssnamex SS))
   
9.       )
   
10.   )
    
11. ;;;过滤掉图元（字符串）中不含","的图元
    
12.   (setq  ename-lst-1
    
13.    (vl-remove-if-not
    
14.      '(lambda (x)
    
15.         (vl-string-search "," (cdr (assoc 1 (entget x))))
    
16.       )
    
17.      ename-lst
    
18.    )
    
19.   )
    
20. ;;;获取","前数值列表
    
21.   (setq  number-lst
    
22.    (mapcar '(lambda (y)
    
23.         (atof (vl-list->string
    
24.           (vl-remove-if-not
    
25.             '(lambda (x)
    
26.          (and (> x 45) (< x 58))
    
27.              )
    
28.             (vl-string->list
    
29.         (substr  (cdr (assoc 1 (entget y)))
    
30.           1
    
31.           (vl-string-search
    
32.             ","
    
33.             (cdr (assoc 1 (entget y)))
    
34.           )
    
35.         )
    
36.             )
    
37.           )
    
38.         )
    
39.         )
    
40.       )
    
41.      ename-lst-1
    
42.    )
    
43.   )
    
44. ;;;求和
    
45.   (setq num (apply '+ number-lst))
    
46. )

(defun c:tt ()<br />   (princ "\n选择含数字的对象:")<br /> ;;;对象选择集<br />   (setq ss (ssget '((0 . "TEXT"))))<br /> ;;;将对象选择集转为图元名列表<br />   (setq  ename-lst (vl-remove-if-not<br />         '(lambda (x) (equal (type x) 'ename))<br />         (mapcar 'cadr (ssnamex SS))<br />       )<br />   )<br /> ;;;过滤掉图元（字符串）中不含","的图元<br />   (setq  ename-lst-1<br />    (vl-remove-if-not<br />      '(lambda (x)<br />         (vl-string-search "," (cdr (assoc 1 (entget x))))<br />       )<br />      ename-lst<br />    )<br />   )<br /> ;;;获取","前数值列表<br />   (setq  number-lst<br />    (mapcar '(lambda (y)<br />         (atof (vl-list->string<br />           (vl-remove-if-not<br />             '(lambda (x)<br />          (and (> x 45) (< x 58))<br />              )<br />             (vl-string->list<br />         (substr  (cdr (assoc 1 (entget y)))<br />           1<br />           (vl-string-search<br />             ","<br />             (cdr (assoc 1 (entget y)))<br />           )<br />         )<br />             )<br />           )<br />         )<br />         )<br />       )<br />      ename-lst-1<br />    )<br />   )<br /> ;;;求和<br />   (setq num (apply '+ number-lst))<br /> )

夏生生

对于提取括号前的数字代码如下

2. ;;;判断字符串是否为实数
   
3. (defun Number? (string /)
   
4.   (if (or (= "." str)
   
5.     (and (distof string)
   
6.          (atof string)
   
7.          (= (distof string) (atof string))
   
8.     )
   
9.       )
   
10.     string
    
11.   )
    
12. )
    
13. ;;;从尾部查找数字
    
14. (defun serch_number_e (string / n st str)
    
15.   (setq st "")
    
16.   (if (null (Number? string))
    
17.     (while (and  (setq n (strlen string))
    
18.     (Number? (setq str (substr string n)))
    
19.      )
    
20.       (setq st (strcat str st))
    
21.       (setq string (substr string 1 (1- n)))
    
22.     )
    
23.     (setq st string)
    
24.   )
    
25.   st
    
26. )
    
27. (SETQ STR "N=52774.123,M=12345.43")
    
28. (serch_number_e(SUBSTR STR 1 (VL-STRING-SEARCH "," STR)))
    
29. ;;-->"52774.123"
    
30. (serch_number_e STR)
    
31. ;;-->"12345.43"

;;;判断字符串是否为实数<br /> (defun Number? (string /)<br />   (if (or (= "." str)<br />     (and (distof string)<br />          (atof string)<br />          (= (distof string) (atof string))<br />     )<br />       )<br />     string<br />   )<br /> )<br /> ;;;从尾部查找数字<br /> (defun serch_number_e (string / n st str)<br />   (setq st "")<br />   (if (null (Number? string))<br />     (while (and  (setq n (strlen string))<br />     (Number? (setq str (substr string n)))<br />      )<br />       (setq st (strcat str st))<br />       (setq string (substr string 1 (1- n)))<br />     )<br />     (setq st string)<br />   )<br />   st<br /> )<br /> (SETQ STR "N=52774.123,M=12345.43")<br /> (serch_number_e(SUBSTR STR 1 (VL-STRING-SEARCH "," STR)))<br /> ;;-->"52774.123"<br /> (serch_number_e STR)<br /> ;;-->"12345.43"

doremidai

感谢cie0588，解决问题。
把过滤的字符串改了一下就可以满足把数字也计算的要求了。

434939575

今天碰到了，特来学习学习。感谢各位朋友！