查看: 952|回复: 3
|
为何Unicode写了后,再读回变成很多问号???
[复制链接]
|
|
为何Unicode写了后,再读回变成很多问号???
Private Sub CmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FileOpen(1, "c:\t.txt", OpenMode.Binary)
Dim a As SaveData
a.Data = "中文字"
FilePut(1, a, 1)
FileClose(1)
End Sub
Private Sub CmdLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
FileOpen(1, "c:\t.txt", OpenMode.Binary)
Dim a As SaveData
FileGet(1, a, 1)
MsgBox(a.Data)
FileClose(1)
End Sub
为何我读回文字时是 ???很多问号 |
|
|
|
|
|
|
|
发表于 22-6-2006 01:39 PM
|
显示全部楼层
你有把你的 regional setting - advance - languange for non-unicode set to 华语吗? |
|
|
|
|
|
|
|
楼主 |
发表于 22-6-2006 03:59 PM
|
显示全部楼层
原帖由 lewepg 于 22-6-2006 01:39 PM 发表
你有把你的 regional setting - advance - languange for non-unicode set to 华语吗?
可以了,真是感激不尽! |
|
|
|
|
|
|
|
发表于 23-6-2006 12:56 PM
|
显示全部楼层
|
|
|
|
|
|
| |
本周最热论坛帖子
|