[求助]：如何返回汉字的ASCII码？

netbee

我用Ascii函数提取汉字的acsii码时，发现只要拼音一样的返回值就一样
不知用什么方法能真正返回双字节汉字的ascii码？

1. 
   
2. _$ (ascii "A")
   
3. 65
   
4. _$ (ascii "中")
   
5. 214
   
6. _$ (ascii "国")
   
7. 185
   
8. _$ (ascii "种")
   
9. 214
   
10. _$        
    
11. _$ (ascii "忠")
    
12. 214
    
13. _$ (ascii "果")
    
14. 185
    

复制代码

wujimmy

(setq strmid "中国")
(setq  i% 1)
(repeat (strlen strmid)
   (princ(ascii (substr strmid i% 1)))
   (setq i% (1+ i%))
  )

netbee

不错！已经可以了

1. 
   
2. _$ (ascii(substr "我" 1 1))
   
3. 206
   
4. _$ (ascii(substr "我" 2 1))
   
5. 210
   
6. _$ (strcat(chr 206)(chr 210))
   
7. "我"
   

复制代码

狂刀

netbee，有时候你真让我大吃一惊：）
(vl-string->list "我")  -> (206 210)

netbee

唉！看来还得再啃啃VLISP部份呀！！！

2. 
   
3.   [FONT=courier new]
   
4. _$ (vl-string->list "我是一个中国人")
   
5. (206 210 202 199 210 187 184 246 214 208 185 250 200 203)
   
6. _$ (vl-list->string '(206 210 202 199 210 187 184 246 214 208 185 250 200 203))
   
7. "我是一个中国人"
   
8.   [/FONT]
   

<br />   [FONT=courier new]<br /> _$ (vl-string->list "我是一个中国人")<br /> (206 210 202 199 210 187 184 246 214 208 185 250 200 203)<br /> _$ (vl-list->string '(206 210 202 199 210 187 184 246 214 208 185 250 200 203))<br /> "我是一个中国人"<br />   [/FONT]<br />