查看单个帖子
旧 2009-04-22, 02:42 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 【转帖】读文件时汉字怎么变成乱码了

读文件时汉字怎么变成乱码了
www.dimcax.com
读文件时汉字怎么变成乱码了读文件时汉字怎么变成乱码了
程序如下:
;得到画法数据.
(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
还要加上一句
(close f)
不过乱码应该是你文件的问题,重新找个文件试试
唉,无耐的望着天,叹叹气把头摇.
/bbs/dispbbs.asp?boardid=3&id=22079&page=4
【嘟嘟oοо○快让开拉】
╭══╮
╭╯θθ ║
╰⊙═⊙╯。oо○否则...!!!
c#读取文本文件汉字乱码遇到了同样的问题,看到解决了,谢谢!真是一个好地方!
如果文本文件保存时,编码选择unicode,程序不用指定默认,汉字也可以正常显示。
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)