[分享]：最近关于字符处理的问题很多,写了几个:

aeo

其实xd-api应该可以应付,大家尽量用api
不用的 下面.

写了和api相同的几个函数  vlisp下用

2. 
   
3. ;相当xdrx_txtsrch
   
4. ;出现的位置
   
5. ;(str-search "12341234123456""12")-->(1 5 9)
   
6. (defun str-search(fa-str str / a len li no)
   
7. (setq len(strlen str)a 0)
   
8. (while(setq no(vl-string-search str fa-str a))
   
9.        (setq li(cons no li) a(+ len no))
   
10. )(mapcar '1+ (reverse li))
    
11. )
    
12. 
    
13. 
    
14. ;相当xdrx_string_tok
    
15. ;how为t时,去掉分割的字符 ,how为nil是保留
    
16. ;(str-cut "1234534""67" t)-->("1234534")
    
17. ;(str-cut "1234534""3" t)-->("12" "45" "4")
    
18. ;(str-cut "1234534""3" nil)-->("12" "3" "45" "3" "4")
    
19. ;(str-cut "ab  12  3 4534" " " t)-->("ab" "12" "3" "4534")
    
20. 
    
21. (defun str-cut (fa-str str how / len li no)
    
22.   (setq  len (strlen str)
    
23.   )
    
24.   (while (setq no (vl-string-search str fa-str))
    
25.     (if (/= no 0)
    
26.       (setq li (cons (substr fa-str 1 no) li))
    
27.     )
    
28.     (setq li (cons (substr fa-str (1+ no) len) li)
    
29.           fa-str (substr fa-str (+ no len 1))
    
30.     )
    
31.   )
    
32.   (if (/= "" fa-str)
    
33.     (setq li (cons fa-str li))
    
34.   )
    
35.   (if how
    
36.     (vl-remove str (reverse li))
    
37.     (reverse li)
    
38.   )
    
39. )
    
40. 
    
41. 
    
42. ;相当xdrx_string_replace  
    
43. ;文字替换
    
44. ;(STR-REPLACE "123456123456" "34""abc")-->"12abc5612abc56"
    
45. (defun str-replace(str old new)
    
46.   (while(vl-string-search old str)(setq str(vl-string-subst new old str)))
    
47.   str
    
48. )
    
49. 
    

<br /> ;相当xdrx_txtsrch<br /> ;出现的位置<br /> ;(str-search "12341234123456""12")-->(1 5 9)<br /> (defun str-search(fa-str str / a len li no)<br /> (setq len(strlen str)a 0)<br /> (while(setq no(vl-string-search str fa-str a))<br />        (setq li(cons no li) a(+ len no))<br /> )(mapcar '1+ (reverse li))<br /> )<br /> <br /> <br /> ;相当xdrx_string_tok <br /> ;how为t时,去掉分割的字符 ,how为nil是保留<br /> ;(str-cut "1234534""67" t)-->("1234534")<br /> ;(str-cut "1234534""3" t)-->("12" "45" "4")<br /> ;(str-cut "1234534""3" nil)-->("12" "3" "45" "3" "4")<br /> ;(str-cut "ab  12  3 4534" " " t)-->("ab" "12" "3" "4534")<br /> <br /> (defun str-cut (fa-str str how / len li no)<br />   (setq  len (strlen str)<br />   )<br />   (while (setq no (vl-string-search str fa-str))<br />     (if (/= no 0)<br />       (setq li (cons (substr fa-str 1 no) li))<br />     )<br />     (setq li (cons (substr fa-str (1+ no) len) li)<br />           fa-str (substr fa-str (+ no len 1))<br />     )<br />   )<br />   (if (/= "" fa-str)<br />     (setq li (cons fa-str li))<br />   )<br />   (if how<br />     (vl-remove str (reverse li))<br />     (reverse li)<br />   )<br /> )<br /> <br /> <br /> ;相当xdrx_string_replace  <br /> ;文字替换<br /> ;(STR-REPLACE "123456123456" "34""abc")-->"12abc5612abc56"<br /> (defun str-replace(str old new)<br />   (while(vl-string-search old str)(setq str(vl-string-subst new old str)))<br />   str<br /> )<br /> <br />

比如:
yytt的问题
(str-cut "WF2 496.96 497.90 0.94" " " t) -->("WF2" "496.96" "497.90" "0.94")

有问题,大家请说话.

eachy

2. 
   
3. (defun string_parse (str delimiter / post strlst)
   
4.   (setq strlst '())
   
5.   (while (vl-string-search delimiter str)
   
6.     (setq post (vl-string-search delimiter str))
   
7.     (setq strlst (append strlst (list (substr str 1 post))))
   
8.     (setq str (substr str (+ post 2)))
   
9.   )
   
10.   (vl-remove "" (append strlst (list str)))
    
11. )

<br /> (defun string_parse (str delimiter / post strlst)<br />   (setq strlst '())<br />   (while (vl-string-search delimiter str)<br />     (setq post (vl-string-search delimiter str))<br />     (setq strlst (append strlst (list (substr str 1 post))))<br />     (setq str (substr str (+ post 2)))<br />   )<br />   (vl-remove "" (append strlst (list str)))<br /> )

aeo

最初由 eachy 发布

(defun string_parse (str delimiter / post strlst)
  (setq strlst '())
  (while (vl-string-search delimiter str)
    (setq post (vl-string-search delimiter str))
    (setq strlst (append st... [/B]

其实功能是不同的.一个字符分!
(STRING_PARSE "123123123""23")-->("1" "31" "31" "3")
而(str-cut  "123123123""23"t)-->("1" "1" "1").



再来:

2. 
   
3. ;补足小数,最后位为数字或点.
   
4. ;(EXTENDSTR1 "34"3)-->"34.000"
   
5. ;(EXTENDSTR1 "34.1"3)-->"34.100"
   
6. ;(EXTENDSTR1 "34.1a"3)-->"34.1a"
   
7. (defun extendstr1(str len / no num)
   
8. (if(wcmatch str "*#,*#`.")
   
9.    (progn
   
10.     (setq no(vl-string-search "." str))
    
11.     (if no(setq num(- len(- (strlen str) no 1)))
    
12.           (setq num len str(strcat str"."))
    
13.      )
    
14.     (if(> num 0)(repeat num(setq str(strcat str "0"))))
    
15. ))
    
16. str
    
17. )
    

<br /> ;补足小数,最后位为数字或点.<br /> ;(EXTENDSTR1 "34"3)-->"34.000"<br /> ;(EXTENDSTR1 "34.1"3)-->"34.100"<br /> ;(EXTENDSTR1 "34.1a"3)-->"34.1a"<br /> (defun extendstr1(str len / no num)<br /> (if(wcmatch str "*#,*#`.")<br />    (progn<br />     (setq no(vl-string-search "." str))<br />     (if no(setq num(- len(- (strlen str) no 1)))<br />           (setq num len str(strcat str"."))<br />      )<br />     (if(> num 0)(repeat num(setq str(strcat str "0"))))<br /> ))<br /> str<br /> )<br />