从后向前搜索字符串

黄翔

讨论下与vl-string-search类似.但是从后向前搜索.
表示搜索的开始位置从后向前搜索,缺省值为 0。
(vl-string-search-Reverse Pattern string start-pos)

Pattern      |[STR]                |包含要搜索的子串
String        |[STRL]              |在其中搜索 pattern     
Start-pos    |[INT]               |表示搜索的开始位置从后向前搜索,缺省值为 0。


(vl-string-search-Reverse "foo" "pfooyey on foo you" 0) => 11
(vl-string-search-Reverse "foo" "pfooyey on foo you" 3) => 11
(vl-string-search-Reverse "foo" "pfooyey on foo you" 4) => 11
(vl-string-search-Reverse "foo" "pfooyey on foo you" 5) => 1
怎么写比较好.

黄翔

1. (defun vl-string-search-Reverse (Pattern string start-pos / pos pos_lst start-posTrue x)
   
2.   (setq pos_lst nil pos 0)
   
3.   (while (setq pos (vl-string-search pattern string pos))  
   
4.     (setq pos_lst (cons pos pos_lst))
   
5.     (setq pos (1+ pos))  
   
6.   )   
   
7.   (if(null start-pos)(setq start-pos 0))  
   
8.   (setq start-posTrue (- (strlen string) start-pos (strlen pattern) ))  
   
9.   (setq pos_lst (vl-remove-if '(lambda(x) (< start-posTrue x)) pos_lst))
   
10.   (car pos_lst)  
    
11. )

(defun vl-string-search-Reverse (Pattern string start-pos / pos pos_lst start-posTrue x)<br />   (setq pos_lst nil pos 0)<br />   (while (setq pos (vl-string-search pattern string pos))  <br />     (setq pos_lst (cons pos pos_lst))<br />     (setq pos (1+ pos))  <br />   )    <br />   (if(null start-pos)(setq start-pos 0))  <br />   (setq start-posTrue (- (strlen string) start-pos (strlen pattern) ))  <br />   (setq pos_lst (vl-remove-if '(lambda(x) (< start-posTrue x)) pos_lst))<br />   (car pos_lst)  <br /> )

自贡黄明儒

只能从左向右搜索吧，能从后向前搜索？lisp的设计都便于掌握，不会搞得那么复杂。

kozmosovia

从前往后搜，每次搜到了就把前面的干掉，看最后还剩的字符串长度，反算一下就知道结果了。
或者以搜索字符为分隔符分隔字符串为表，计算最后一项的字符串长度，反算。