为何Unicode写了后，再读回变成很多问号？？？

NSSS

为何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


为何我读回文字时是 ???很多问号

lewepg

你有把你的 regional setting - advance - languange for non-unicode  set to 华语吗？

NSSS

原帖由 lewepg 于 22-6-2006 01:39 PM 发表
你有把你的 regional setting - advance - languange for non-unicode  set to 华语吗？

可以了，真是感激不尽！

lewepg

不用客气。。。。。！