gare1000 发表于 2004-5-19 14:09:00

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

读文件时汉字怎么变成乱码了<BR>程序如下：



;得到画法数据.<BR>(defun C:GetDrawData ( / List1 f1 f a) ;(       / DrawData1)<BR>       (setq f1 "d:/ls/DrawData.txt")<BR>       (setq f (open f1 "r"))<BR>       (while (setq a (read-line f))        <BR>                       (setq a (strcat "(" a ")"))<BR>                       (setq a (read a))<BR>                       (print a)


                       (setq list1 (cons a list1))<BR>                       <BR>       )<BR>       (print list1 )


        )


文件 d:/ls/DrawData.txt 中的数据是用VB.net的StreamWrite对象用默认编码写的：


"托架1" 1000 235 200 "托架" 765


可程序运行结果切是如下：


"鎵樻灦1" 1000 235 200 "鎵樻灦" 765





那位帮忙分析下错误原因，谢谢！

spring 发表于 2004-5-28 20:21:00

还要加上一句


(close f)


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

雪山飞狐_lzh 发表于 2004-5-29 16:27:00

<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=20721" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=20721</A>

wangzh 发表于 2005-3-29 17:02:00

c#读取文本文件汉字乱码

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


如果文本文件保存时，编码选择Unicode，程序不用指定默认，汉字也可以正常显示。
页: [1]
查看完整版本: 读文件时汉字怎么变成乱码了