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

gare1000 · 发表于 2004-5-19 12:03:00

程序如下：
;得到画法数据.
(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那位帮忙分析下错误原因，谢谢！

meflying · 发表于 2004-5-19 12:11:00

你的程序不能正确运行...注意函数和参数的用法...括号的第一项是函数名,后面如果有,是参数,(princ (a)),其中princ是函数,(a)是参数,但这个(a)又是一个表达式(因为有括号),其中a是函数,没有参数,,,但明显a是一个变量,而不是函数,,,所以出错

gare1000 · 发表于 2004-5-19 14:07:00

哦，是的，那两处都错了，可是我把程序改了，我的问题依然存在，显示的结果还是：
("鎵樻灦1" 1000 235 200 "鎵樻灦" 765)，不知道是怎么回事？在cad里从*.TXt文件中读回来的数据是使用什么编码呀。

(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)
)
我把程序改了，

雪山飞狐_lzh · 发表于 2004-5-19 14:21:00

VB.net用的默认编码不是ASCII,而是UTF8,在VB.net写文件时要把编码改一下

gare1000 · 发表于 2004-5-19 14:29:00

我都试过了，
System.Text.Encoding.ASCII
System.Text.Encoding.BigEndianUnicode
System.Text.Encoding.Unicode
和UTF8 和UTF7
都试了，都不行。代码有问题吗？我代码是：
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
   On Error Resume Next
   Dim i, j As Integer
   Dim StrDrawData(5) As String
   Dim Str1 As String
   Dim StrPath = "d:\ls\DrawData.txt"
   Dim FStream1 As FileStream
   FStream1 = File.Open(StrPath, FileMode.OpenOrCreate, FileAccess.Write, FileShare.Read)
   Dim SW1 As New StreamWriter(FStream1, System.Text.Encoding.ASCII)
   'SW1.NewLine = "\r\n"

   With C1FlexGrid2
   For i = .Rows.Fixed To .Rows.Count - 1
   For j = .Cols.Fixed To .Cols.Count - 1
   If .Cols(j).DataType.ToString = "System.String" Then
   StrDrawData(j - 1) = """" & .GetDataDisplay(i, j) & """"
   Else
   StrDrawData(j - 1) = .GetDataDisplay(i, j)
   End If
   Next
   Str1 = Str1.Join(" ", StrDrawData)
   SW1.WriteLine(Str1)
   'SW1.NewLine = "\r\n"
   'MsgBox(Str1)
   Next
   End With
   SW1.Close()
   FStream1.Close()
   MsgBox("ok")


   End Sub