[已解决]请问怎样读取以Unicode格式保存的文本?
本帖最后由 hlzxcjx 于 2019-5-14 22:52 编辑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 于 2019-5-10 20:31 编辑
先读成二进制然后转一下!
这个应该只牵涉到打印问题,MsgBox 使用的是系统字体,如果不是能正常显示的则肯定显示异常,并不意味着读到的数据出错。可以在一个GUI中查看
GUICreate('', 600, 150)
GUISetFont(12, 400, 0, '微软雅黑')
GUICtrlCreateEdit(FileRead("1.txt"), 0, 0, 600, 150)
GUISetState()
While GUIGetMsg() <> -3
WEnd 谢谢各位,是默认字体问题!
页:
[1]