（xd::string:tailcut）字符串尾部按指定长度截断，尾部添加指定字符串

XDSoft

1. (defun xd::string:tailcut (str len str1 / ch i len1 temp tf)
   
2.   (setq i 0
   
3.         tf t
   
4.         len1  (- len (strlen str1))
   
5.         temp ""
   
6.   )
   
7.   (while (and
   
8.            tf
   
9.            (/= "" (setq ch (xdrx_string_mid str (setq i (1+ i))
   
10.                                             1
    
11.                            )
    
12.                   )
    
13.            )
    
14.          )
    
15.     (if (< i len1)
    
16.       (progn
    
17.         (setq temp (xdrx_string_left str i))
    
18.       )
    
19.       (progn
    
20.         (setq temp (strcat temp str1)
    
21.               tf nil
    
22.         )
    
23.       )
    
24.     )
    
25.     (if (> (ascii (substr ch 1 1)) 128)
    
26.       (setq len1 (1- len1))
    
27.     )
    
28.   )
    
29.   (if (< (strlen temp) len)
    
30.     (setq temp (strcat temp (substr str1 1 1)))
    
31.   )
    
32.   temp
    
33. )
    

(defun xd::string:tailcut (str len str1 / ch i len1 temp tf)<br />   (setq i 0<br />         tf t<br />         len1  (- len (strlen str1))<br />         temp ""<br />   )<br />   (while (and<br />            tf<br />            (/= "" (setq ch (xdrx_string_mid str (setq i (1+ i))<br />                                             1<br />                            )<br />                   )<br />            )<br />          )<br />     (if (< i len1)<br />       (progn<br />         (setq temp (xdrx_string_left str i))<br />       )<br />       (progn<br />         (setq temp (strcat temp str1)<br />               tf nil<br />         )<br />       )<br />     )<br />     (if (> (ascii (substr ch 1 1)) 128)<br />       (setq len1 (1- len1))<br />     )<br />   )<br />   (if (< (strlen temp) len)<br />     (setq temp (strcat temp (substr str1 1 1)))<br />   )<br />   temp<br /> )<br />

sh_h

赞一个，谢谢老大分享！

wzjck01

赞一个，谢谢老大分享！