读文件时汉字怎么变成乱码了

gare1000

读文件时汉字怎么变成乱码了
程序如下： ;得到画法数据.
(defun C:GetDrawData ( / List1 f1 f a) ;( / DrawData1)
(setq f1 "d:/ls/DrawData.txt")
(setq f (open f1 "r"))
(while (setq a (read-line f))
(setq a (strcat "(" a ")"))
(setq a (read a))
(print a) (setq list1 (cons a list1))

)
(print list1 ) ) 文件 d:/ls/DrawData.txt 中的数据是用VB.net的StreamWrite对象用默认编码写的： "托架1" 1000 235 200 "托架" 765 可程序运行结果切是如下： "鎵樻灦1" 1000 235 200 "鎵樻灦" 765 那位帮忙分析下错误原因，谢谢！

spring

还要加上一句


(close f)


不过乱码应该是你文件的问题,重新找个文件试试

雪山飞狐_lzh

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=20721

wangzh

遇到了同样的问题，看到解决了，谢谢！真是一个好地方！


如果文本文件保存时，编码选择Unicode，程序不用指定默认，汉字也可以正常显示。