字符的全角与半角 bb-qq

1291500406

1. (defun BB-str-ToSBC (str)
   
2.   (vl-list->string
   
3.     (apply 'append
   
4.       (mapcar
   
5.         '
   
6.         (lambda
   
7.           (x)
   
8.           (cond
   
9.             ((= x 32)'(161 161))
   
10.             ((<= 33 x 125)(list 163 (+ x 128)))
    
11.             ((= x 126)(list 161 171))
    
12.             (t (list x))
    
13.           )
    
14.         )
    
15.         (vl-string->list str)
    
16.       )
    
17.     )
    
18.   )
    
19. )
    
20. (BB-str-ToSBC  "我爱你I LOVE YOU i love you 1314520")
    
21. ;"我爱你Ｉ　ＬＯＶＥ　ＹＯＵ　ｉ　ｌｏｖｅ　ｙｏｕ　１３１４５２０"
    

(defun BB-str-ToSBC (str)<br />   (vl-list->string<br />     (apply 'append<br />       (mapcar<br />         '<br />         (lambda<br />           (x)<br />           (cond<br />             ((= x 32)'(161 161))<br />             ((<= 33 x 125)(list 163 (+ x 128)))<br />             ((= x 126)(list 161 171))<br />             (t (list x))<br />           )<br />         )<br />         (vl-string->list str)<br />       )<br />     )<br />   )<br /> )<br /> (BB-str-ToSBC  "我爱你I LOVE YOU i love you 1314520")<br /> ;"我爱你Ｉ　ＬＯＶＥ　ＹＯＵ　ｉ　ｌｏｖｅ　ｙｏｕ　１３１４５２０"<br />

1. (defun BB-str-ToDBC (str / lst c)
   
2.   (setq lst(vl-string->list str ))
   
3.   (setq c 0)
   
4.   (vl-list->string
   
5.     (vl-remove nil
   
6.     (mapcar
   
7.         '
   
8.         (lambda
   
9.           (a )
   
10.           (setq lst (cdr lst))
    
11.             (cond
    
12.               ((and(= a 161)(= (car lst) 161) )(setq c 1)32)
    
13.               ((and(= a 163)(<= 161 (car lst) 253)) (setq c 1)(- (car lst) 128))
    
14.               ((and(= a 161) (= (car lst) 171) )(setq c 1)126)
    
15.               (t   
    
16.                 (IF (zerop c)
    
17.                   (progn   
    
18.                     (setq c 0)
    
19.                     a
    
20.                   )
    
21.                   (progn
    
22.                     (setq c 0)
    
23.                     nil
    
24.                   )
    
25.                 )  
    
26.               )  
    
27.             )
    
28.         )
    
29.         lst
    
30.       )
    
31.       )
    
32.   )
    
33. )
    
34. (BB-str-ToDBC  "我爱你Ｉ　ＬＯＶＥ　ＹＯＵ　ｉ　ｌｏｖｅ　ｙｏｕ　１３１４５２０")
    
35. ;"我爱你I LOVE YOU i love you 1314520"
    

(defun BB-str-ToDBC (str / lst c)<br />   (setq lst(vl-string->list str ))<br />   (setq c 0)<br />   (vl-list->string<br />     (vl-remove nil<br />     (mapcar<br />         '<br />         (lambda<br />           (a )<br />           (setq lst (cdr lst))<br />             (cond<br />               ((and(= a 161)(= (car lst) 161) )(setq c 1)32)<br />               ((and(= a 163)(<= 161 (car lst) 253)) (setq c 1)(- (car lst) 128))<br />               ((and(= a 161) (= (car lst) 171) )(setq c 1)126)<br />               (t    <br />                 (IF (zerop c) <br />                   (progn   <br />                     (setq c 0) <br />                     a<br />                   ) <br />                   (progn <br />                     (setq c 0) <br />                     nil<br />                   ) <br />                 )  <br />               )  <br />             )<br />         )<br />         lst<br />       )<br />       )<br />   )<br /> )<br /> (BB-str-ToDBC  "我爱你Ｉ　ＬＯＶＥ　ＹＯＵ　ｉ　ｌｏｖｅ　ｙｏｕ　１３１４５２０")<br /> ;"我爱你I LOVE YOU i love you 1314520"<br />

Grgogo

:D啥作用啊，大佬