补齐字符串前导零+拆分字符串

kucha007

分享两个关于字符串的函数：

1. ;补齐字符串前导零,强制满足位数
   
2. ;作者不知道是谁了，也是明经上看到的
   
3. (defun K:AddZero4STR (STR Len)
   
4.   (repeat (- Len (strlen STR))
   
5.     (setq STR (strcat "0" STR))
   
6.   )
   
7.   STR
   
8. )
   

;补齐字符串前导零,强制满足位数<br /> ;作者不知道是谁了，也是明经上看到的<br /> (defun K:AddZero4STR (STR Len) <br />   (repeat (- Len (strlen STR)) <br />     (setq STR (strcat "0" STR))<br />   )<br />   STR<br /> )<br />

1. ;根据特殊符号分解文字为序号+内容两部分 by kucha
   
2. ;Nam为序号识别的位数，如果在这个位数内找到特殊符号(" " "." "," "-" "_" "、")就拆分字符串。
   
3. ;如果特殊符号出现多个或多次，则第一个符号之前的是序号，最后一个符号之后的是内容
   
4. 
   
5. (defun K:StepSTRSplit (Nam STR / ExpSTR NumSTR DeLst StepNum NewLst)
   
6.   (progn
   
7.     ;将字符串拆分成单字符列表
   
8.     (defun K:ExplodeSTR (STR / Lst NewLst)
   
9.       (setq Lst (vl-string->list STR))
   
10.       (while
    
11.         (if (< (car Lst) 129) ;字符是否为单字节
    
12.           (setq NewLst (cons (chr (car Lst)) NewLst)
    
13.                 Lst    (cdr Lst)
    
14.           );单字节为数字、字母、符号(ASCII表)
    
15.           (setq NewLst (cons (strcat (chr (car Lst)) (chr (cadr Lst))) NewLst)
    
16.                 Lst    (cddr Lst)
    
17.           );双字节为汉字
    
18.         )
    
19.       )
    
20.       (reverse NewLst)
    
21.     )
    
22.     ;取出列表的前n项
    
23.     (defun K:TakeFirstN (Lst Nam / NewLst)
    
24.       (setq Nam (min Nam (length Lst)))
    
25.       (repeat Nam
    
26.         (setq NewLst (cons
    
27.                       (nth (setq Nam (1- Nam)) Lst)
    
28.                       NewLst
    
29.                     )
    
30.         )
    
31.       )
    
32.       NewLst
    
33.     )
    
34.     ;判断字符串是否只包含数字字符
    
35.     (defun K:IsValidNumSTR (STR / Lst Flag)
    
36.       (setq Lst (vl-STRing->list STR))
    
37.       (setq Flag T)
    
38.       (while (and Flag Lst)
    
39.         (if
    
40.           (and
    
41.             (>= (car Lst) 48)
    
42.             (<= (car Lst) 57)
    
43.           )
    
44.           (setq Lst (cdr Lst))
    
45.           (setq Flag nil)
    
46.         )
    
47.       )
    
48.       Flag
    
49.     )
    
50.   )
    
51.   (setq ExpSTR (K:ExplodeSTR STR))
    
52.   (setq NumSTR (K:TakeFirstN ExpSTR Nam))
    
53.   (if
    
54.     (and
    
55.       (setq DeLst (vl-remove-if-not  '(lambda (x) (member x '(" " "." "," "-" "_" "、"))) NumSTR))
    
56.       (setq StepNum (apply 'strcat (K:TakeFirstN NumSTR (- (length NumSTR)(length (member (car DeLst) NumSTR))))))
    
57.       (K:IsValidNumSTR StepNum)
    
58.     )
    
59.     (progn
    
60.       (repeat
    
61.         (- (min Nam (length NumSTR))
    
62.           (vl-position (last DeLst)(reverse NumSTR))
    
63.         )
    
64.         (setq ExpSTR (cdr ExpSTR))
    
65.       )
    
66.       (setq NewLst (list  StepNum(apply 'strcat ExpSTR) ))
    
67.     )
    
68.     (setq NewLst (list "" STR))
    
69.   )
    
70.   NewLst
    
71. )
    

;根据特殊符号分解文字为序号+内容两部分 by kucha<br /> ;Nam为序号识别的位数，如果在这个位数内找到特殊符号(" " "." "," "-" "_" "、")就拆分字符串。<br /> ;如果特殊符号出现多个或多次，则第一个符号之前的是序号，最后一个符号之后的是内容<br /> <br /> (defun K:StepSTRSplit (Nam STR / ExpSTR NumSTR DeLst StepNum NewLst)<br />   (progn<br />     ;将字符串拆分成单字符列表<br />     (defun K:ExplodeSTR (STR / Lst NewLst) <br />       (setq Lst (vl-string->list STR))<br />       (while <br />         (if (< (car Lst) 129) ;字符是否为单字节<br />           (setq NewLst (cons (chr (car Lst)) NewLst)<br />                 Lst    (cdr Lst)<br />           );单字节为数字、字母、符号(ASCII表)<br />           (setq NewLst (cons (strcat (chr (car Lst)) (chr (cadr Lst))) NewLst)<br />                 Lst    (cddr Lst)<br />           );双字节为汉字<br />         )<br />       )<br />       (reverse NewLst)<br />     )<br />     ;取出列表的前n项<br />     (defun K:TakeFirstN (Lst Nam / NewLst)<br />       (setq Nam (min Nam (length Lst)))<br />       (repeat Nam <br />         (setq NewLst (cons <br />                       (nth (setq Nam (1- Nam)) Lst)<br />                       NewLst<br />                     )<br />         )<br />       )<br />       NewLst<br />     )<br />     ;判断字符串是否只包含数字字符<br />     (defun K:IsValidNumSTR (STR / Lst Flag) <br />       (setq Lst (vl-STRing->list STR))<br />       (setq Flag T)<br />       (while (and Flag Lst)<br />         (if <br />           (and <br />             (>= (car Lst) 48)<br />             (<= (car Lst) 57)<br />           )<br />           (setq Lst (cdr Lst))<br />           (setq Flag nil)<br />         )<br />       )<br />       Flag<br />     )<br />   )<br />   (setq ExpSTR (K:ExplodeSTR STR))<br />   (setq NumSTR (K:TakeFirstN ExpSTR Nam))<br />   (if <br />     (and<br />       (setq DeLst (vl-remove-if-not  '(lambda (x) (member x '(" " "." "," "-" "_" "、"))) NumSTR))<br />       (setq StepNum (apply 'strcat (K:TakeFirstN NumSTR (- (length NumSTR)(length (member (car DeLst) NumSTR))))))<br />       (K:IsValidNumSTR StepNum)<br />     )<br />     (progn<br />       (repeat <br />         (- (min Nam (length NumSTR))<br />           (vl-position (last DeLst)(reverse NumSTR))<br />         )<br />         (setq ExpSTR (cdr ExpSTR))<br />       )<br />       (setq NewLst (list  StepNum(apply 'strcat ExpSTR) ))<br />     )<br />     (setq NewLst (list "" STR))<br />   )<br />   NewLst<br /> )<br />

bai2000

是不是可以用这个画“250*600”的混凝土梁截面？

dokey

加前导零，代码简洁，不错