[已解决]请问怎样读取以Unicode格式保存的文本？

hlzxcjx

1.txt   Unicode格式文本内容(字体为微软雅黑)：

$file = FileOpen("1.txt", 32 )

; 检查打开的文件是否可读
If $file = -1 Then
    MsgBox(0, "错误", "不能打开文件.")
    Exit
EndIf

; 每次读取一行文本,直到文件结束.
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    MsgBox(0, "读取的行:", $line)
Wend

FileClose($file)

gzh888666

先读成二进制然后转一下！

afan

这个应该只牵涉到打印问题，MsgBox 使用的是系统字体，如果不是能正常显示的则肯定显示异常，并不意味着读到的数据出错。可以在一个GUI中查看

GUICreate('', 600, 150)
GUISetFont(12, 400, 0, '微软雅黑')
GUICtrlCreateEdit(FileRead("1.txt"), 0, 0, 600, 150)
GUISetState()
While GUIGetMsg() <> -3
WEnd

hlzxcjx

谢谢各位，是默认字体问题！