按字符串长度分割字符串

菜卷鱼

(splen str len mark)
len 表示需要分割的长度
mark 是需要分割的长度大于1，刚好碰到双字节汉字时，加1位或者减1位

比如说 str= "hi,你好"

如果直接用strlen长度取4的时候， 会取到 "hi, ?    乱码了
碰到这种情况的时候 ，
如果mark = nil ，则会多取一位取到 hi,你  
(splen str 4 nil) 的执行结果是 ("hi,你" "好")
如果mark = t  , 则会少取一位取到 hi,
(splen str 4 nil) 的执行结果是 ("hi," "你好")

(splen str 2 nil)
返回("hi" ",你" "好")
(splen str 2 t)
返回("hi" "," "你" "好")

1. (defun splen (str len mark / ad l1 s1 sp g1)  (if (not (> len 1))
   
2.     (setq ad 1 len 1)
   
3.     (if        mark
   
4.       (setq ad -1)
   
5.       (setq ad 1)
   
6.     )
   
7.   )
   
8.   (setq l1 (strlen str))
   
9.   (while (> l1 len)
   
10.     (setq s1 len)
    
11.     (setq g1 (substr str 1 s1))
    
12.     (setq ns (strcat g1 "*"))
    
13.     (if        (and
    
14.         (wcmatch ns "*`*")  ;;;;如果取到的字符是汉字的半个字符，跟*合并之后*号会被吸收掉，检测一下是否被吸收
    
15.         (wcmatch str ns))
    
16.       (setq sp (cons g1 sp))
    
17.       (progn
    
18.         (setq s1 (+ len ad))
    
19.         (setq g1 (substr str 1 s1))
    
20.         (setq sp (cons g1 sp))
    
21.       )
    
22.     )
    
23.     (setq str (vl-string-subst "" g1 str))
    
24.     (setq l1 (strlen str))
    
25.   )
    
26.   (if (/= str "")
    
27.     (setq sp (Cons str sp))
    
28.   )
    
29.   (reverse sp)
    
30. )

(defun splen (str len mark / ad l1 s1 sp g1)  (if (not (> len 1))<br />     (setq ad 1 len 1)<br />     (if        mark<br />       (setq ad -1)<br />       (setq ad 1)<br />     )<br />   )<br />   (setq l1 (strlen str))<br />   (while (> l1 len)<br />     (setq s1 len)<br />     (setq g1 (substr str 1 s1))<br />     (setq ns (strcat g1 "*"))<br />     (if        (and <br />         (wcmatch ns "*`*")  ;;;;如果取到的字符是汉字的半个字符，跟*合并之后*号会被吸收掉，检测一下是否被吸收<br />         (wcmatch str ns))<br />       (setq sp (cons g1 sp))<br />       (progn<br />         (setq s1 (+ len ad))<br />         (setq g1 (substr str 1 s1))<br />         (setq sp (cons g1 sp))<br />       )<br />     )<br />     (setq str (vl-string-subst "" g1 str))<br />     (setq l1 (strlen str))<br />   )<br />   (if (/= str "")<br />     (setq sp (Cons str sp))<br />   )<br />   (reverse sp)<br /> )

zxh92

6666666666666