分享一个字符串左剪切和右剪切的函数

hubeiwdlue

2. (defun wdl_str->lst (string strkey / po strlst xlen)
   
3.   (setq xlen (1+ (strlen strkey)))
   
4.   (while (setq po (vl-string-search strkey string))
   
5.     (setq strlst (cons (substr string 1 po) strlst))
   
6.     (setq string (substr string (+ po xlen)))
   
7.   )
   
8.   (vl-remove "" (reverse (cons string strlst)))
   
9. )
   
10. ;剪切字符串保留左侧部分字符串
    
11. ;srting，被剪切字符串，dstr,剪切字符，flag控制参数，t返回值不删除dstr本身，nil返回值删除dstr本身
    
12. (defun str-left-trim(string dstr flag / newstr1 newstr2 strlst strlst1)
    
13.   (setq strlst (wdl_str->lst string dstr))
    
14.   (setq strlst1 (reverse(cdr(reverse strlst))))
    
15.   (setq newstr1 (apply 'strcat (mapcar '(lambda (x) (strcat x dstr)) strlst1)))
    
16.   (setq newstr2 (substr newstr1 1 (- (strlen newstr1) (strlen dstr))))
    
17.   (if flag
    
18.     newstr1
    
19.     newstr2
    
20.   )
    
21. )
    
22. ;剪切字符串保留右侧部分字符串
    
23. ;srting，被剪切字符串，dstr,剪切字符，flag控制参数，t返回值不删除dstr本身，nil返回值删除dstr本身
    
24. (defun str-right-trim(string dstr flag / newstr1 newstr2 strlst strlst1)
    
25.   (setq strlst (wdl_str->lst string dstr))
    
26.   (setq strlst1 (cdr strlst))
    
27.   (setq newstr1 (apply 'strcat (mapcar '(lambda (x) (strcat dstr x)) strlst1)))
    
28.   (setq newstr2 (substr newstr1 (1+ (strlen dstr)) (strlen newstr1)))
    
29.   (if flag
    
30.     newstr1
    
31.     newstr2
    
32.   )
    
33. )
    
34. (str-left-trim "祖//国//万//岁" "//" t);"祖//国//万//"
    
35. (str-left-trim "祖//国//万//岁" "//" nil);"祖//国//万"

(defun wdl_str->lst (string strkey / po strlst xlen)<br />   (setq xlen (1+ (strlen strkey)))<br />   (while (setq po (vl-string-search strkey string))<br />     (setq strlst (cons (substr string 1 po) strlst))<br />     (setq string (substr string (+ po xlen)))<br />   )<br />   (vl-remove "" (reverse (cons string strlst)))<br /> )<br /> ;剪切字符串保留左侧部分字符串<br /> ;srting，被剪切字符串，dstr,剪切字符，flag控制参数，t返回值不删除dstr本身，nil返回值删除dstr本身<br /> (defun str-left-trim(string dstr flag / newstr1 newstr2 strlst strlst1)<br />   (setq strlst (wdl_str->lst string dstr))<br />   (setq strlst1 (reverse(cdr(reverse strlst))))<br />   (setq newstr1 (apply 'strcat (mapcar '(lambda (x) (strcat x dstr)) strlst1)))<br />   (setq newstr2 (substr newstr1 1 (- (strlen newstr1) (strlen dstr))))<br />   (if flag <br />     newstr1<br />     newstr2<br />   )<br /> )<br /> ;剪切字符串保留右侧部分字符串<br /> ;srting，被剪切字符串，dstr,剪切字符，flag控制参数，t返回值不删除dstr本身，nil返回值删除dstr本身<br /> (defun str-right-trim(string dstr flag / newstr1 newstr2 strlst strlst1)<br />   (setq strlst (wdl_str->lst string dstr))<br />   (setq strlst1 (cdr strlst))<br />   (setq newstr1 (apply 'strcat (mapcar '(lambda (x) (strcat dstr x)) strlst1)))<br />   (setq newstr2 (substr newstr1 (1+ (strlen dstr)) (strlen newstr1)))<br />   (if flag <br />     newstr1<br />     newstr2<br />   )<br /> )<br /> (str-left-trim "祖//国//万//岁" "//" t);"祖//国//万//"<br /> (str-left-trim "祖//国//万//岁" "//" nil);"祖//国//万"