[TB-LISP函数]：获取文本中数字区段的定位

tengteb

1.   ;获取文本中数字区段的定位((s1 e1) (s2 e2) ...)
   
2. (defun TBC:GetNums-i (txt / isNum a b c i p n lst)
   
3.   (defun isNum (ch)
   
4.     (and (<= 48 ch) (<= ch 57))
   
5.   ) ;defun
   
6.   (setq        i 0
   
7.         n (strlen txt)
   
8.         b (isNum (vl-string-elt txt i))
   
9.   )
   
10.   (while (< i n)
    
11.     (if        (< (1+ i) n)
    
12.       (setq c (isNum (vl-string-elt txt (1+ i))))
    
13.       (setq c nil)
    
14.     ) ;if
    
15.     (if        b
    
16.       (progn
    
17.         (and (not a) (setq p i))
    
18.         (and (not c) (setq lst (cons (list p i) lst)))
    
19.       ) ;progn
    
20.     ) ;if
    
21.     (setq i (1+ i)
    
22.           a b
    
23.           b c
    
24.     )
    
25.   ) ;while
    
26.   (reverse lst)
    
27. ) ;defun
    

  ;获取文本中数字区段的定位((s1 e1) (s2 e2) ...)<br /> (defun TBC:GetNums-i (txt / isNum a b c i p n lst)<br />   (defun isNum (ch)<br />     (and (<= 48 ch) (<= ch 57))<br />   ) ;defun<br />   (setq        i 0<br />         n (strlen txt)<br />         b (isNum (vl-string-elt txt i))<br />   )<br />   (while (< i n)<br />     (if        (< (1+ i) n)<br />       (setq c (isNum (vl-string-elt txt (1+ i))))<br />       (setq c nil)<br />     ) ;if<br />     (if        b<br />       (progn<br />         (and (not a) (setq p i))<br />         (and (not c) (setq lst (cons (list p i) lst)))<br />       ) ;progn<br />     ) ;if<br />     (setq i (1+ i)<br />           a b<br />           b c<br />     )<br />   ) ;while<br />   (reverse lst)<br /> ) ;defun<br />

huangpc27

没有注释，看不懂

sicky111

不错的函数。