求助一个关于字符串表的问题

我的我啊

有一个表像这样'("****" "*****" "**H**" "*****" "***H**" "***")
希望得到这样-> '(("****" "*****" )("*****" ) ("***"))
也就是以H为关键字分割表。

Andyhon

对映关系如何呢!?

ll_j

1. (defun tt(lst str)
   
2.   (setq l1 nil l2 nil)
   
3.   (repeat (length lst)
   
4.     (setq l0(car lst)
   
5.           lst(cdr lst)
   
6.     )
   
7.     (if (wcmatch l0 (strcat "*" str "*"))
   
8.       (if l1
   
9.         (setq l2 (cons (reverse l1) l2)
   
10.               l1 nil
    
11.         )
    
12.       )
    
13.       (setq l1 (cons l0 l1))
    
14.     )
    
15.   )
    
16.   (if l1 (setq l2 (cons l1 l2)))
    
17.   (reverse l2)
    
18. )

(defun tt(lst str)<br />   (setq l1 nil l2 nil)<br />   (repeat (length lst)<br />     (setq l0(car lst)<br />           lst(cdr lst)<br />     )<br />     (if (wcmatch l0 (strcat "*" str "*"))<br />       (if l1<br />         (setq l2 (cons (reverse l1) l2)<br />               l1 nil<br />         )<br />       )<br />       (setq l1 (cons l0 l1))<br />     )<br />   )<br />   (if l1 (setq l2 (cons l1 l2)))<br />   (reverse l2)<br /> )

好久不写了，只能整点最简单的方法了。

我的我啊

ll_j 发表于 2014-9-24 11:33
好久不写了，只能整点最简单的方法了。

成了！好评！

自贡黄明儒

我也整一下跟楼主要求差不多的

2. ;;(setq lst '("aaaa" "bbb" "aHjjj" "nHii" "nHii" "aaaa" "bbb" "aHjjj" "nHii" "cc" "bccb"))
   
3. ;;=>(("aaaa" "bbb") ("aHjjj" "nHii" "nHii") ("aaaa" "bbb") ("aHjjj" "nHii") ("cc" "bccb"))
   
4. (defun w1 (LST / FLAG FLAG1 L L1 SCOR)  
   
5.   (while (and
   
6.            (setq L (car lst))
   
7.            (setq lst (cdr lst))
   
8.          )
   
9.     (cond ((vl-string-search "H" L) (setq Flag1 T))
   
10.           (T (setq Flag1 nil))
    
11.     )
    
12.     (cond ((not (equal Flag1 Flag)) (setq scor (cons (reverse L1) scor)) (setq L1 nil)))
    
13.     (setq L1 (cons L L1))
    
14.     (setq Flag Flag1)
    
15.   )
    
16.   (setq L1 (cons L L1))  
    
17.   (reverse (cons (reverse L1) scor))
    
18. )

;;(setq lst '("aaaa" "bbb" "aHjjj" "nHii" "nHii" "aaaa" "bbb" "aHjjj" "nHii" "cc" "bccb"))<br /> ;;=>(("aaaa" "bbb") ("aHjjj" "nHii" "nHii") ("aaaa" "bbb") ("aHjjj" "nHii") ("cc" "bccb"))<br /> (defun w1 (LST / FLAG FLAG1 L L1 SCOR)  <br />   (while (and<br />            (setq L (car lst))<br />            (setq lst (cdr lst))<br />          )<br />     (cond ((vl-string-search "H" L) (setq Flag1 T))<br />           (T (setq Flag1 nil))<br />     )<br />     (cond ((not (equal Flag1 Flag)) (setq scor (cons (reverse L1) scor)) (setq L1 nil)))<br />     (setq L1 (cons L L1))<br />     (setq Flag Flag1)<br />   )<br />   (setq L1 (cons L L1))  <br />   (reverse (cons (reverse L1) scor))<br /> )