[编程申请]：XD救急！！

zhaosujun

我有这样的一段文字AAACCCC.
A代表文字、字母或空格
C代表数字
请求编一LSP程序选择AAACCC文字后只提取数字CCCC！
A、C的个数是不定的！万分感谢！

lsjjm

试试：
(setq a "ASD 12592324")
(setq b (cadr (eval (read (strcat "'(" a ")")))))
返回：12592324。

ll_j

看看这里：
http://www.xdcad.net/forum/showt ... d=200459#post200459
http://www.xdcad.net/forum/showt ... d=189854#post189854

daziran

若单独解决此问题,可有如下代码:

2. 
   
3. (defun selenu (str / len i s)
   
4.   (setq len (strlen str))
   
5.   (setq i len)
   
6.   (while (and (>= (ascii (substr str i)) 48)
   
7.               (<= (ascii (substr str i)) 57)
   
8.          )
   
9.     (setq s (substr str i))
   
10.     (setq i (1- i))
    
11.   )
    
12.   s
    
13. )
    

<br /> (defun selenu (str / len i s)<br />   (setq len (strlen str))<br />   (setq i len)<br />   (while (and (>= (ascii (substr str i)) 48)<br />               (<= (ascii (substr str i)) 57)<br />          )<br />     (setq s (substr str i))<br />     (setq i (1- i))<br />   )<br />   s<br /> )<br />

zhang8755

我这个小函数支持将传入的参数str中前五个字符和后四个字符取出保存，再将其中的数字加一返回，希望对你有所帮助
(defun ghadd (str / strq strq2 strh strh2 strl num1)
(if (wcmatch str "~#*")
    (progn
      (setq strq (substr str 1 1))
      (setq str (substr str 2))
    )
    (setq strq "")
  )
  (if (wcmatch str "~#*")
    (progn
      (setq strq2 (substr str 1 1))
      (setq str (substr str 2))
      (setq strq (strcat strq strq2))
    )
  )
  (if (wcmatch str "~#*")
    (progn
      (setq strq2 (substr str 1 1))
      (setq str (substr str 2))
      (setq strq (strcat strq strq2))
    )
  )
  (if (wcmatch str "~#*")
    (progn
      (setq strq2 (substr str 1 1))
      (setq str (substr str 2))
      (setq strq (strcat strq strq2))
    )
  )
  (if (wcmatch str "~#*")
    (progn
      (setq strq2 (substr str 1 1))
      (setq str (substr str 2))
      (setq strq (strcat strq strq2))
    )
  )
  (if (wcmatch str "*@,*.")
    (progn
      (setq strl (strlen str))
      (setq strh (substr str strl 1))
      (setq str (substr str 1 (1- strl)))
    )
    (setq strh "")
  )
  (if (wcmatch str "*@,*.")
    (progn
      (setq strl (strlen str))
      (setq strh2 (substr str strl 1))
      (setq str (substr str 1 (1- strl)))
      (setq strh (strcat strh2 strh))
    )
  )
  (if (wcmatch str "*@,*.")
    (progn
      (setq strl (strlen str))
      (setq strh2 (substr str strl 1))
      (setq str (substr str 1 (1- strl)))
      (setq strh (strcat strh2 strh))
    )
  )
  (if (wcmatch str "*@,*.")
    (progn
      (setq strl (strlen str))
      (setq strh2 (substr str strl 1))
      (setq str (substr str 1 (1- strl)))
      (setq strh (strcat strh2 strh))
    )
  )
  (if (setq num1 (atoi str))
    (progn
      (setq num1 (+ num num1))
      (setq str (itoa num1))
    )
  )
  (setq str (strcat strq str strh))
  )
数字的前后也可无字母，但最多前五后四，你若需要更多字符，可多重复下面的代码

  (if (wcmatch str "~#*")
    (progn
      (setq strq2 (substr str 1 1))
      (setq str (substr str 2))
      (setq strq (strcat strq strq2))
    )
  )

zhaosujun

虽然是个老问题，没想到还有怎么多好心人帮助，谢谢大家了！