[求助]：字符串中字符列表

dhxf

(defun ch1 (a b)
(setq l1 '() k (strlen b) kk (strlen a))
(repeat k
(if (setq nn (vl-string-search a b))
    (setq l1 (cons (list nn a) l1)
          b (substr b (+ nn kk 1))
          )
          )
          )
         (reverse l1)
          )
;;;;;;;;
希望得到效果(ch1 "1" "12121")
得到((0 "1") (2 "1") (4 "1"))
哪位帮忙改改．
圣诞快乐

Underway

2. 
   
3. (defun ch1 (a b)
   
4.   (setq l1 '()
   
5.         k  (strlen b)
   
6.         kk (strlen a)
   
7.        idx  0
   
8.   )
   
9.   (while (< idx k)
   
10.     (if (setq nn (vl-string-search a b idx))
    
11.       (setq l1 (cons (list nn a) l1)
    
12.            idx (+ idx kk nn)
    
13.       )
    
14.     )
    
15.   )
    
16.   (reverse l1)
    
17. )
    

<br /> (defun ch1 (a b)<br />   (setq l1 '()<br />         k  (strlen b)<br />         kk (strlen a)<br />        idx  0<br />   )<br />   (while (< idx k)<br />     (if (setq nn (vl-string-search a b idx))<br />       (setq l1 (cons (list nn a) l1)<br />            idx (+ idx kk nn)<br />       )<br />     )<br />   )<br />   (reverse l1)<br /> )<br />

dhxf

改了一下
(defun ch1 (a b)
  (setq l1 '()
        k  (strlen b)
        kk (strlen a)
       idx  0
  )
  (while (< idx k)
    (if (setq nn (vl-string-search a b idx))
      (setq l1 (cons (list nn a) l1)
           idx (+ idx kk nn)
      )
　　(setq idx (1+ idx)) ;;;;;;;;add
    )
  )
  (reverse l1)
)
;;;谢谢　圣诞快乐
还是有点问题：
(ch1 "一" "配电一二一一一系统图(一)") 结果不对

carrot1983

因为汉字的一个字是两个字节，也就是说，
只要判断是汉字时，再重新考虑就行。。
以下代码刚写，调试后没发现问题，可以试用一下。有问题可以回贴哦。。。
[php]
;;;功能：取得相应字符的位置
;;;命令：(cjw-stringposition pattern string)
;;;说明：
;;;1）参数 pattern 为字符串，包含要搜索的子串。
;;;2）参数 string 为字符串，在其中搜索 pattern。
;;;返回：（位置 . 相应字符）合成的表
;;;carrot1983 2007-12-25
(defun cjw-stringposition (pattern string / i l1 lst1 lst2 m n s str)
  (setq l1 (vl-string->list string))
  (setq i 0)
  (setq lst1 nil)
  (while (nth i l1)
    (setq m (list (nth i l1)))
    (if        (>= (car m) 129)
      (progn
        (setq m (list (nth i l1) (nth (+ i 1) l1)))
        (setq i (+ i 1))
      )
    )
    (setq str (vl-list->string m))
    (setq lst1 (cons str lst1))
    (setq i (+ i 1))
  )
  (setq lst1 (reverse lst1))
  (setq n 0)
  (setq lst2 nil)
  (repeat (length lst1)
    (setq s (nth n lst1))
    (if        (= s pattern)
      (setq lst2 (cons (cons n s) lst2))
    )
    (setq n (1+ n))
  )
  (setq lst2 (reverse lst2))
)
[/php]

_$ (cjw-stringposition  "1" "12121")
((0 . "1") (2 . "1") (4 . "1"))
_$ (cjw-stringposition "一" "配电一二一一一系统图(一)")
((2 . "一") (4 . "一") (5 . "一") (6 . "一") (11 . "一"))[/COLOR]

dhxf

找到了
3楼的idx (+ idx kk nn)该为idx (+ kk nn)即可