[求助]：如何实现文字截取转换并计算?

loner

如何在全部文字中选定带"S="前缀的字符,如何截取"S=17.78"和"S总=17.78"这两种字符中,数字部分的内容,并转换成实数相加呢?请各位高手出手一下!,

zml84

1、关于对象筛选

1. 
   
2. (ssget "X"(list (cons 0 "*TEXT") (cons 1 "S=*")))
   

复制代码

更多关于SSGET函数的解释见：http://okok.org/lisp/lisp212.htm
2、关于截取
函数定义：

2. 
   
3. (defun JQ (STR)
   
4.     (substr STR
   
5.             (+ (vl-string-search "=" STR)2)
   
6.             (- (strlen STR) (vl-string-search "=" STR))
   
7.     )
   
8. )
   

<br /> (defun JQ (STR)<br />     (substr STR<br />             (+ (vl-string-search "=" STR)2)<br />             (- (strlen STR) (vl-string-search "=" STR))<br />     )<br /> )<br />

测试：
[PHP]
_$ (JQ "S=17.78")
_1_$
"17.78"
_$ (JQ "S总=17.78")
"17.78"
_$
[/PHP]

qiaqiadeng

程序的目的是将文字str中的数字依次放在表numlist中，可以针对任意情况
(defun dyq-get-number (str) ;获得文字中的数字
  (setq num (strlen str))
  (setq i 1)
  (setq numlist '())
  (setq        key1 0
        key2 0
  )
  (repeat num
    (setq stri (ascii (substr str i 1))) ;转成ascii码
    (if        (and (= key2 0)
             (or (= stri 46) (and (>= stri 48) (<= stri 57)))
        ) ;如果是数字,并且是第一次碰到
      (setq key1 i ;起始
            key2 i
      )
    )
    (if        (and (> key2 0)
             (or (= stri 46) (and (>= stri 48) (<= stri 57)))
        ) ;如果是数字,并且不是第一次碰到
      (setq key2 i) ;起始
    )
    (if        (and (> key2 0)
             (and (/= stri 46) (or (< stri 48) (> stri 57)))
        ) ;如果不是数字了
      (setq numlist (cons (atof (substr str key1 (- key2 key1 -1))) numlist) ;将数字存起来
            key2    0
      ) ;起始
    )
    (setq i (+ i 1))
  )
  (if (> key2 0)
    (setq numlist (cons (atof (substr str key1 (- key2 key1 -1))) numlist))
  ) ;将数字存起来
  (reverse numlist)
)