关于字符串过滤的问题请教大家。

lxdz443

下面的程序要求是输入“50”程序返回“50”，输入“50+4”返回“50” “4”，输入“50*4”返回“50” “50” “50” “50” ，现在程序只可以实现里面的二种情况，第三种情况怎么也实现不出来，有什么别的方法来提取输入的字符串里面的"单数字“ ”+“ ”*“ 后运行不同的程序。里面的乘号分解用了院长的程序，在这里谢谢院长。

1. (defun c:tt()
   
2.   (vl-load-com)
   
3.         (setq auto_text "50*4")
   
4.         (if (not (wcmatch auto_text "*'**"))
   
5.      (abc2)
   
6.     (if (wcmatch auto_text "*+*")
   
7.      (abc2)
   
8.      (if (wcmatch auto_text "***")
   
9. 
   
10.      (abc1)
    
11.          )
    
12. )
    
13. )
    
14. )
    
15. 
    
16. 
    
17. 
    
18. 
    
19.   (defun abc1 ( )
    
20. 
    
21.           (setq nn (vl-string-search "*" auto_text)
    
22.         t1 (substr auto_text 1 nn)
    
23.         t2 (substr auto_text (+ nn 2))
    
24.   )
    
25.   (if (and (distof t1) (setq n (atoi t2)))
    
26.     (progn
    
27.       (setq t3 "")
    
28.       (repeat (1- n)(setq t3 (strcat t3 t1 "+")))
    
29.       (setq auto_text (strcat t3 t1))
    
30. 
    
31.     )
    
32.   )
    
33.     (abc2)
    
34. )
    
35. 
    
36. 
    
37. 
    
38. (defun abc2 ( )
    
39. 
    
40.         (setq auto_textlen (strlen auto_text))
    
41.         (setq text_t "")
    
42.         (setq auto_ss nil)
    
43.         (while (> auto_textlen 0)
    
44.           (setq txet_c (substr auto_text 1 1))
    
45.                   (if (/= txet_c "+")
    
46.                                 (setq text_t (strcat text_t txet_c))
    
47.                                 (if (/= text_t"")
    
48.                                 (progn
    
49.                                         (setq auto_ss (cons text_t auto_ss))
    
50.                                         (setq text_t ""))))
    
51.                   (setq auto_text (substr auto_text 2 (- (strlen auto_text) 1)))
    
52.                   (if (and (< auto_textlen 2) (/= text_t""))
    
53.                         (progn
    
54.                            (setq auto_ss (cons text_t auto_ss))
    
55.                            (setq text_t "")))
    
56.         (setq auto_textlen (1- auto_textlen)))
    
57.         (setq auto_ss (reverse auto_ss))
    
58.   )
    

(defun c:tt()<br />   (vl-load-com)<br />         (setq auto_text "50*4")<br />         (if (not (wcmatch auto_text "*'**"))<br />      (abc2)<br />     (if (wcmatch auto_text "*+*")<br />      (abc2)<br />      (if (wcmatch auto_text "***")<br /> <br />      (abc1)<br />          )<br /> )<br /> )<br /> ) <br /> <br /> <br /> <br /> <br />   (defun abc1 ( )<br /> <br />           (setq nn (vl-string-search "*" auto_text)<br />         t1 (substr auto_text 1 nn)<br />         t2 (substr auto_text (+ nn 2))<br />   )<br />   (if (and (distof t1) (setq n (atoi t2)))<br />     (progn<br />       (setq t3 "")<br />       (repeat (1- n)(setq t3 (strcat t3 t1 "+")))<br />       (setq auto_text (strcat t3 t1))<br /> <br />     )<br />   )<br />     (abc2)<br /> )<br /> <br /> <br /> <br /> (defun abc2 ( )<br /> <br />         (setq auto_textlen (strlen auto_text))<br />         (setq text_t "")<br />         (setq auto_ss nil)<br />         (while (> auto_textlen 0)<br />           (setq txet_c (substr auto_text 1 1))<br />                   (if (/= txet_c "+")<br />                                 (setq text_t (strcat text_t txet_c))<br />                                 (if (/= text_t"")<br />                                 (progn<br />                                         (setq auto_ss (cons text_t auto_ss))<br />                                         (setq text_t ""))))<br />                   (setq auto_text (substr auto_text 2 (- (strlen auto_text) 1)))<br />                   (if (and (< auto_textlen 2) (/= text_t""))<br />                         (progn<br />                            (setq auto_ss (cons text_t auto_ss))<br />                            (setq text_t "")))<br />         (setq auto_textlen (1- auto_textlen)))<br />         (setq auto_ss (reverse auto_ss))<br />   )<br />

bori

你可以试试把字符串转换成字符代码表来搜索判别。
vl-string->list

ivde

2. 
   
3. (defun abc2 (str / lst nlst)
   
4.   (if (and (wcmatch str "*+*")
   
5.            (setq str (vl-string-translate "+" " " str))
   
6.            (setq lst (read (strcat "(" str ")")))
   
7.            (= (length lst) 2)
   
8.            (vl-every 'numberp lst)
   
9.       )
   
10.     (progn
    
11.       (repeat (fix (cadr lst))
    
12.         (setq nlst (cons (car lst) nlst))
    
13.       )
    
14.     )
    
15.   )
    
16.   (mapcar 'vl-princ-to-string nlst)
    
17. )

<br /> (defun abc2 (str / lst nlst)<br />   (if (and (wcmatch str "*+*")<br />            (setq str (vl-string-translate "+" " " str))<br />            (setq lst (read (strcat "(" str ")")))<br />            (= (length lst) 2)<br />            (vl-every 'numberp lst)<br />       )<br />     (progn<br />       (repeat (fix (cadr lst))<br />         (setq nlst (cons (car lst) nlst))<br />       )<br />     )<br />   )<br />   (mapcar 'vl-princ-to-string nlst)<br /> )

琴剑江山_10184

不知道是不是要这样的效果

lxdz443

谢谢大家，就是“琴剑江山_10184”演示的效果，再次谢谢“琴剑江山_10184”。

lxdz443

请教“琴剑江山_10184”  (t (setq text str))这行该怎么理解？

lxdz443

琴剑江山_10184 发表于 2015-11-23 11:50
不知道是不是要这样的效果

请教“琴剑江山_10184”  (t (setq text str))这行该怎么理解？

wzg356

lxdz443 发表于 2015-11-24 08:44
请教“琴剑江山_10184”  (t (setq text str))这行该怎么理解？

cond的退出条件，放在最后，也就是前面几种条件都不符合，则执行(setq text str)

ymcui

谢谢,可以学习学习.

yoyoho

感谢 琴剑江山_10184 分享程序!!!!!