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

llsheng_73

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

1. (defun strsplit(str splits / i a l)  (while(<""str)
   
2.     (if(vl-remove'nil(mapcar'(lambda(x)(vl-string-search x str))splits))
   
3.       (setq i(car(vl-sort(vl-remove'nil(mapcar'(lambda(x)(if(setq l(vl-string-search x str))(cons l x)))splits))
   
4.                          '(lambda(s1 s2)(<(car s1)(car s2)))))
   
5.             a(cons(substr str 1(car i))a)
   
6.             str(substr str(+(car i)(strlen(cdr i))1)))
   
7.       (setq a(cons str a)str"")))
   
8.   (reverse a))
   
9. (defun tt(str)(apply'append(mapcar'(lambda(x / a b c)
   
10.                                      (setq a(STRSPLIT x'("*"))c(if(cadr a)(atoi(cadr a)))a(car a)b nil)
    
11.                                      (if(> c 0)(repeat c(setq b(cons a b)))(list a)))
    
12.                                   (STRSPLIT str'("+")))))
    
13. (defun c:tt(/ str)(if(>(setq str(getstring"\n测试："))"")(tt str)))

(defun strsplit(str splits / i a l)  (while(<""str)<br />     (if(vl-remove'nil(mapcar'(lambda(x)(vl-string-search x str))splits))<br />       (setq i(car(vl-sort(vl-remove'nil(mapcar'(lambda(x)(if(setq l(vl-string-search x str))(cons l x)))splits))<br />                          '(lambda(s1 s2)(<(car s1)(car s2)))))<br />             a(cons(substr str 1(car i))a)<br />             str(substr str(+(car i)(strlen(cdr i))1)))<br />       (setq a(cons str a)str"")))<br />   (reverse a))<br /> (defun tt(str)(apply'append(mapcar'(lambda(x / a b c)<br />                                      (setq a(STRSPLIT x'("*"))c(if(cadr a)(atoi(cadr a)))a(car a)b nil)<br />                                      (if(> c 0)(repeat c(setq b(cons a b)))(list a)))<br />                                   (STRSPLIT str'("+")))))<br /> (defun c:tt(/ str)(if(>(setq str(getstring"\n测试："))"")(tt str)))

(tt"A+B*2+C+D*E+F*3")==>("A" "B" "B" "C" "D" "F" "F" "F")

琴剑江山_10184

llsheng_73 发表于 2015-11-26 19:24

73哥出手就是不一样了，学习了

lxdz443

琴剑江山_10184的程序还没完全理解呢，73哥的程序和看天书一样了。