功能函数回收站 之 字符串处理

伪书虫86

这两天学习下正则表达式，综合几位前辈的代码，自己也整了一个，这玩意儿处理字符串来那真是分分钟的事
（正则传送门 http://bbs.mjtd.com/thread-170508-1-1.html）
从此可以抛弃其它的方法了，虽然仅仅只有一个，还是收集的别人的，也忘了是哪位前辈的了，在此谢过了：）
虽然自己不需要了，直接删了又觉得可惜，故想到在此开一帖，专门留着回收大伙儿已经不需要的但功能还不错的函数。

先来一个（忘了是哪位的大师的了）

2. ;;  按照一定的长度，将字符串进行分割成表（支持汉字双字节）
   
3. ;;  参数str：要处理的字符串
   
4. ;;      MaxLen：分割成表的字符串最大长度
   
5. ;;  返回： 分割为字符串最大长度为MaxLen的表
   
6. (defun DD-STR-DividedByLength(str MaxLen / alist pf strc strlist)
   
7.   (setq  alist (vl-string->list str)
   
8.     pf    0
   
9.     strc  ""
   
10.   )
    
11.   (while alist
    
12.     (if  (< pf MaxLen)
    
13.       (progn (setq pf (1+ pf))
    
14.         (if (< (car alist) 129)  ;car返回表中的第一个元素
    
15.           (setq strc  (strcat strc (chr (car alist)))
    
16.             alist (cdr alist)  ;返回去掉了第一个元素的表
    
17.           )
    
18.           (setq strc  (strcat strc (chr (car alist)) (chr (cadr alist)))
    
19.             ;cadr返回表的第二个元素
    
20.             alist (cddr alist)  ;cddr返回去掉了前两个元素的表
    
21.           )
    
22.         )
    
23.       )
    
24.       (progn
    
25.         (setq strlist (cons strc strlist)
    
26.           pf      0
    
27.           strc    ""
    
28.         )
    
29.       )
    
30.     )
    
31.     (if  (not alist)
    
32.       (setq strlist (cons strc strlist))
    
33.     )          ;将最后不够最大长度的字符串加进表中
    
34.   )
    
35.   (reverse strlist)
    
36. )

;;  按照一定的长度，将字符串进行分割成表（支持汉字双字节）<br /> ;;  参数str：要处理的字符串<br /> ;;      MaxLen：分割成表的字符串最大长度<br /> ;;  返回： 分割为字符串最大长度为MaxLen的表<br /> (defun DD-STR-DividedByLength(str MaxLen / alist pf strc strlist)<br />   (setq  alist (vl-string->list str)<br />     pf    0<br />     strc  ""<br />   )<br />   (while alist<br />     (if  (< pf MaxLen)<br />       (progn (setq pf (1+ pf))<br />         (if (< (car alist) 129)  ;car返回表中的第一个元素<br />           (setq strc  (strcat strc (chr (car alist)))<br />             alist (cdr alist)  ;返回去掉了第一个元素的表<br />           )<br />           (setq strc  (strcat strc (chr (car alist)) (chr (cadr alist)))<br />             ;cadr返回表的第二个元素<br />             alist (cddr alist)  ;cddr返回去掉了前两个元素的表<br />           )<br />         )<br />       )<br />       (progn<br />         (setq strlist (cons strc strlist)<br />           pf      0<br />           strc    ""<br />         )<br />       )<br />     )<br />     (if  (not alist)<br />       (setq strlist (cons strc strlist))<br />     )          ;将最后不够最大长度的字符串加进表中<br />   )<br />   (reverse strlist)<br /> )

菜卷鱼

不顶的话很快就沉了

知行ooo李肖坪

学习一下，谢谢…………