[LISP函数]：按shx文字的规律将字串分解,反序

cy956

贴两个str的函数。

2. 
   
3. (defun str2strb(str / IN IN1 LS ST1 STRB)  ;;;按shx文字的规律将字串分解为字串表
   
4.   (setq in 1 strb'()
   
5.         ls (strlen str))
   
6.   (while (<= in ls)
   
7.     (setq st1 (substr str in 1))
   
8.     (cond
   
9.       ((= "%" st1)
   
10.         (if (= "%%" (setq st1 (substr str in 2)))
    
11.           (cond
    
12.             ((wcmatch (setq st1 (substr str in)) "%%[d p c % D P C]*")
    
13.               (setq strb(append strb (list (substr str in 3)))in(+ 3 in)))
    
14.             ((member (setq st1 (substr str in 3)) '("%%o" "%%u""%%O" "%%U"));;;上下划线忽略
    
15.               (setq in(+ 3 in)))
    
16.             ((wcmatch (setq st1 (substr str in)) "%%141*%%142*");;;上标上
    
17.               (setq in1(cy_txt_sea_t st1 "%%142")
    
18.                     strb(append strb (list (substr str in (+ in1 4))))
    
19.                     in(+ in1 4 in))
    
20.             )
    
21.             ((wcmatch (setq st1 (substr str in)) "%%143*%%144*")
    
22.               (setq in1(cy_txt_sea_t st1 "%%144")
    
23.                     strb(append strb (list (substr str in (+ in1 4))))
    
24.                     in(+ in1 4 in))
    
25.             )
    
26.             ((wcmatch (setq st1 (substr str in)) "%%147*%%148*")
    
27.               (setq in1(cy_txt_sea_t st1 "%%148")
    
28.                     strb(append strb (list (substr str in (+ in1 4))))
    
29.                     in(+ in1 4 in))
    
30.             )
    
31.             ((wcmatch (setq st1 (substr str in)) "%%149*%%150*")
    
32.               (setq in1(cy_txt_sea_t st1 "%%150")
    
33.                     strb(append strb (list (substr str in (+ in1 4))))
    
34.                     in(+ in1 4 in))
    
35.             )
    
36.             ((wcmatch (setq st1 (substr str in)) "%%145*%%146*%%144*")
    
37.               (setq in1(cy_txt_sea_t st1 "%%144")
    
38.                     strb(append strb (list (substr str in (+ in1 4))))
    
39.                     in(+ in1 4 in))
    
40.             )
    
41.             (t (setq strb(append strb (list(substr str in 5)))in(+ 5 in)))
    
42.           )
    
43.         )
    
44.       )
    
45.       ((> (ascii (setq st1 (substr str in 1))) 128)
    
46.         (setq strb(append strb (list (substr str in 2)))in(+ 2 in))
    
47.       )
    
48.       (t (setq strb(append strb (list(substr str in 1)))in(+ 1 in)))
    
49.     )
    
50.   )strb
    
51. )
    
52. ;;;%%×××是因为我用的字体中使用了该位的形
    
53. 
    
54. 
    
55. (defun str_fx(str / strb)    ;;;按shx文字的规律将字串反序
    
56.   (setq strb(reverse (str2strb str)))
    
57.   (apply 'strcat strb)
    
58. )
    

<br /> (defun str2strb(str / IN IN1 LS ST1 STRB)  ;;;按shx文字的规律将字串分解为字串表<br />   (setq in 1 strb'()<br />         ls (strlen str))<br />   (while (<= in ls)<br />     (setq st1 (substr str in 1))<br />     (cond<br />       ((= "%" st1)<br />         (if (= "%%" (setq st1 (substr str in 2)))<br />           (cond<br />             ((wcmatch (setq st1 (substr str in)) "%%[d p c % D P C]*")<br />               (setq strb(append strb (list (substr str in 3)))in(+ 3 in)))<br />             ((member (setq st1 (substr str in 3)) '("%%o" "%%u""%%O" "%%U"));;;上下划线忽略<br />               (setq in(+ 3 in)))<br />             ((wcmatch (setq st1 (substr str in)) "%%141*%%142*");;;上标上<br />               (setq in1(cy_txt_sea_t st1 "%%142")<br />                     strb(append strb (list (substr str in (+ in1 4))))<br />                     in(+ in1 4 in))<br />             )<br />             ((wcmatch (setq st1 (substr str in)) "%%143*%%144*")<br />               (setq in1(cy_txt_sea_t st1 "%%144")<br />                     strb(append strb (list (substr str in (+ in1 4))))<br />                     in(+ in1 4 in))<br />             )<br />             ((wcmatch (setq st1 (substr str in)) "%%147*%%148*")<br />               (setq in1(cy_txt_sea_t st1 "%%148")<br />                     strb(append strb (list (substr str in (+ in1 4))))<br />                     in(+ in1 4 in))<br />             )<br />             ((wcmatch (setq st1 (substr str in)) "%%149*%%150*")<br />               (setq in1(cy_txt_sea_t st1 "%%150")<br />                     strb(append strb (list (substr str in (+ in1 4))))<br />                     in(+ in1 4 in))<br />             )<br />             ((wcmatch (setq st1 (substr str in)) "%%145*%%146*%%144*")<br />               (setq in1(cy_txt_sea_t st1 "%%144")<br />                     strb(append strb (list (substr str in (+ in1 4))))<br />                     in(+ in1 4 in))<br />             )<br />             (t (setq strb(append strb (list(substr str in 5)))in(+ 5 in)))<br />           )<br />         )<br />       )<br />       ((> (ascii (setq st1 (substr str in 1))) 128)<br />         (setq strb(append strb (list (substr str in 2)))in(+ 2 in))<br />       )<br />       (t (setq strb(append strb (list(substr str in 1)))in(+ 1 in)))<br />     )<br />   )strb<br /> )<br /> ;;;%%×××是因为我用的字体中使用了该位的形<br /> <br /> <br /> (defun str_fx(str / strb)    ;;;按shx文字的规律将字串反序<br />   (setq strb(reverse (str2strb str)))<br />   (apply 'strcat strb)<br /> )<br />

ww822

有什么用呢？

e2002

文字分解程序中的一个重要函数,最好加上Unicode的正负号,角度,直径以及欧元符号支持...

cy956

这只是一个str的内部函数。功能？
－－比如打断字串，既要考虑汉字双字节的问题，
也要考虑到％％×××符号的问题，否则，
用字节数硬打断，不免打出几个％％号来。