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

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);"祖//国//万"

hubeiwdlue

yjwht 发表于 2025-2-26 19:55
(vl-remove "" (reverse (cons string strlst))); 删除空字符串，两个分隔符之间无字符时出现空字符串！
...

谢谢您提的建议，确实可以不要，默认就是到字符串末尾。上面那个函数是我从论坛收集得，我的理解，这个函数常用的一个场景是按行读取txt文本文档，按字符按空格分开成表，可能有多个空格，清理一下空格，可以防止出现空字符串导致出问题。如果不读取文本，不清理也没问题。

Aaron95

感谢楼主分享，去试试了

yjwht

刚领会一点。第一段代码的功能是将一个字符串按照指定的分隔键分割成一个字符串列表，并去除列表中的空字符串，如下：
(wdl_str->lst "apple,banana,orange" ",")
("apple" "banana" "orange")

yjwht

(vl-remove "" (reverse (cons string strlst))); 删除空字符串，两个分隔符之间无字符时出现空字符串！
提点小建议，删除框内部分更精简些：

magicheno

感谢大佬分享