[求助]：判断字符是否相连

dhxf

(defun ch1 (a b /  l1 kk k idx nn)
  (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 (+ kk nn)
      )
      (setq idx (1+ idx))
    )
  )
(reverse  l1)
)
;;;;;;
(ch1 "一" "低压配电一二一一一系统图(一)")
得到((8 "一") (12 "一") (14 "一") (16 "一") (25 "一"))
"一一一"是相连的，想要得到结果为
((8　"一")(12 "一一一")(25 "一"))
怎么写语句或者给思路

cy956

有规律就好办。
比如你可以用(StrParse Str "一一一") 分解，再分细，
也可以针对你的规律自己写函数。
从程序的角度，用公用函数是增加写程序的效率，
即使牺牲一点运行的效率也问题不大。

2. 
   
3. 
   
4. (defun strParse        (Str Delimiter / SearchStr StringLen return n char)
   
5. ;;;(StrParse Str Delimiter)  ;Str字符串  Delimiter分隔符
   
6. ;;;将具有分隔符的字符串解析为列表,Delimiter可以多字符
   
7.   (setq SearchStr Str return '()
   
8.         StringLen (strlen SearchStr)
   
9.         strlen-d(strlen Delimiter))
   
10.   (while (> StringLen 0)
    
11.     (setq n 1
    
12.           char (substr SearchStr 1 strlen-d))
    
13.     (while (and (/= char Delimiter) (/= char ""))
    
14.       (setq n (1+ n) char (substr SearchStr n strlen-d))
    
15.     )
    
16.     (setq return (cons (substr SearchStr 1 (1- n)) return)
    
17.           SearchStr (substr SearchStr (+ n strlen-d) StringLen)
    
18.           StringLen (strlen SearchStr))
    
19.   )(reverse return)
    
20. )
    

<br /> <br /> (defun strParse        (Str Delimiter / SearchStr StringLen return n char)<br /> ;;;(StrParse Str Delimiter)  ;Str字符串  Delimiter分隔符<br /> ;;;将具有分隔符的字符串解析为列表,Delimiter可以多字符<br />   (setq SearchStr Str return '()<br />         StringLen (strlen SearchStr)<br />         strlen-d(strlen Delimiter))<br />   (while (> StringLen 0)<br />     (setq n 1<br />           char (substr SearchStr 1 strlen-d))<br />     (while (and (/= char Delimiter) (/= char ""))<br />       (setq n (1+ n) char (substr SearchStr n strlen-d))<br />     )<br />     (setq return (cons (substr SearchStr 1 (1- n)) return)<br />           SearchStr (substr SearchStr (+ n strlen-d) StringLen)<br />           StringLen (strlen SearchStr))<br />   )(reverse return)<br /> )<br />

dhxf

是不是可以
(setq l1 (ch1 "一" "低压配电一二一一一系统图(一)")
     l2 (mapcar 'car l1)
         l3 (mapcar '(lambda (x) (strlen x)) (mapcar 'cadr l1))
)
通过表l2,l3进行计算那

zml84

(ch1 "一" "低压配电一二一一一系统图(一)")
得到((8 "一") (12 "一") (14 "一") (16 "一") (25 "一"))

对结果表进一步分析，即可得到。
思路如下：从后往前遍历，如果是前一个加2，则舍弃即可。

2. 
   
3. (defun TT (LST)
   
4.     (setq LST_NEW '()
   
5.           I          (car (last LST))
   
6.           STR          (cadr (last LST))
   
7.     )
   
8.     (foreach N (cdr (reverse LST))
   
9.         (if (= (car N) (- I (length (vl-string->list (cadr N)))))
   
10.             (setq I   (car N)
    
11.                   STR (strcat (cadr N) STR)
    
12.             )
    
13.             (setq LST_NEW (cons (list I STR) LST_NEW)
    
14.                   I          (car N)
    
15.                   STR          (cadr N)
    
16.             )
    
17.         )
    
18.     )
    
19.     (if (/= STR "")
    
20.         (setq LST_NEW (cons (list I STR) LST_NEW))
    
21.     )
    
22.     ;;返回
    
23.     LST_NEW
    
24. )
    

<br /> (defun TT (LST)<br />     (setq LST_NEW '()<br />           I          (car (last LST))<br />           STR          (cadr (last LST))<br />     )<br />     (foreach N (cdr (reverse LST))<br />         (if (= (car N) (- I (length (vl-string->list (cadr N)))))<br />             (setq I   (car N)<br />                   STR (strcat (cadr N) STR)<br />             )<br />             (setq LST_NEW (cons (list I STR) LST_NEW)<br />                   I          (car N)<br />                   STR          (cadr N)<br />             )<br />         )<br />     )<br />     (if (/= STR "")<br />         (setq LST_NEW (cons (list I STR) LST_NEW))<br />     )<br />     ;;返回<br />     LST_NEW<br /> )<br />

[php]
_$ (tt '((8 "一") (12 "一") (14 "一") (16 "一") (25 "一")))
((8 "一") (12 "一一一") (25 "一"))
_$ (tt '((8 "一") (12 "二") (14 "三") (16 "四") (25 "五")))
((8 "一") (12 "二三四") (25 "五"))
_$ (tt '((8 "一") (12 "二") (14 "33") (16 "四") (25 "五")))
((8 "一") (12 "二33四") (25 "五"))
_$
[/php]

dhxf

谢谢，要的就是这个效果．
再谢谢．