返回字符串的拼音首字母，支持GBK及UTF-8编码

vectra

17年以来的新贴都不见了，有留档的我再发下恢复一下。原贴发表于 2017-1-2 19:48

已知问题：
1、不能处理多音字

1. (defun pingyin (str / asc lst rt)
   
2.   (setq lst (vl-string->list str))
   
3.   (while lst
   
4.     (setq asc (+ (* (car lst) 256) (cadr lst) -65536)
   
5.     lst (cddr lst)
   
6.     )
   
7. 
   
8.     (setq rt (cons
   
9.          (cond
   
10.      ((<= -20319 asc -20284) "A")
    
11.      ((<= -20283 asc -19776) "B")
    
12.      ((<= -19775 asc -19219) "C")
    
13.      ((<= -19218 asc -18711) "D")
    
14.      ((<= -18710 asc -18527) "E")
    
15.      ((<= -18526 asc -18240) "F")
    
16.      ((<= -18239 asc -17923) "G")
    
17.      ((<= -17922 asc -17418) "H")
    
18.      ((<= -17922 asc -17418) "I")
    
19.      ((<= -17417 asc -16475) "J")
    
20.      ((<= -16474 asc -16213) "K")
    
21.      ((<= -16212 asc -15641) "L")
    
22.      ((<= -15640 asc -15166) "M")
    
23.      ((<= -15165 asc -14923) "N")
    
24.      ((<= -14922 asc -14915) "O")
    
25.      ((<= -14914 asc -14631) "P")
    
26.      ((<= -14630 asc -14150) "Q")
    
27.      ((<= -14149 asc -14091) "R")
    
28.      ((<= -14090 asc -13319) "S")
    
29.      ((<= -13318 asc -12839) "T")
    
30.      ((<= -12838 asc -12557) "W")
    
31.      ((<= -12556 asc -11848) "X")
    
32.      ((<= -11847 asc -11056) "Y")
    
33.      ((<= -11055 asc -10247) "Z")
    
34.      (t nil)
    
35.          )
    
36.          rt
    
37.        )
    
38.     )
    
39.   )
    
40.   (reverse rt)
    
41. )

(defun pingyin (str / asc lst rt)<br />   (setq lst (vl-string->list str))<br />   (while lst<br />     (setq asc (+ (* (car lst) 256) (cadr lst) -65536)<br />     lst (cddr lst)<br />     )<br /> <br />     (setq rt (cons<br />          (cond<br />      ((<= -20319 asc -20284) "A")<br />      ((<= -20283 asc -19776) "B")<br />      ((<= -19775 asc -19219) "C")<br />      ((<= -19218 asc -18711) "D")<br />      ((<= -18710 asc -18527) "E")<br />      ((<= -18526 asc -18240) "F")<br />      ((<= -18239 asc -17923) "G")<br />      ((<= -17922 asc -17418) "H")<br />      ((<= -17922 asc -17418) "I")<br />      ((<= -17417 asc -16475) "J")<br />      ((<= -16474 asc -16213) "K")<br />      ((<= -16212 asc -15641) "L")<br />      ((<= -15640 asc -15166) "M")<br />      ((<= -15165 asc -14923) "N")<br />      ((<= -14922 asc -14915) "O")<br />      ((<= -14914 asc -14631) "P")<br />      ((<= -14630 asc -14150) "Q")<br />      ((<= -14149 asc -14091) "R")<br />      ((<= -14090 asc -13319) "S")<br />      ((<= -13318 asc -12839) "T")<br />      ((<= -12838 asc -12557) "W")<br />      ((<= -12556 asc -11848) "X")<br />      ((<= -11847 asc -11056) "Y")<br />      ((<= -11055 asc -10247) "Z")<br />      (t nil)<br />          )<br />          rt<br />        )<br />     )<br />   )<br />   (reverse rt)<br /> )

演示：
_$ (pingyin "二次开发")
("E" "C" "K" "F")

13648893846

str也分享出来才能用吧

vectra

13648893846 发表于 2017-9-22 16:01
str也分享出来才能用吧

str是函数的参数 接受纯中文字符

happyboy75

happyboy75

不错 支持一下

zq19890201

虽然还有几行代码看不懂但是还是学习了很多东东