【已解决】读取文本文件大于 64KB 就出错！

qq413774005

按你们代码修改了一下

qq413774005

qq413774005 发表于 2023-8-22 10:05

正确代码如上。

qq413774005

读字符是有字符数量限止，不会无究的。正确脚本如上。

qq413774005

chishingchan 发表于 2023-8-20 15:21
64KB 文本文件被限制问题已附代码，请a大帮忙看看，谢谢！

以处理，自己查看

chishingchan

qq413774005 发表于 2023-8-22 10:05

第7行 950 是语言代码，并非行数！
_WinAPI_MultiByteToWideChar 这个不能撤！否则读通天也没用！不符合要求！

qq413774005

1. #include <EditConstants.au3>
   
2. #include <GUIConstantsEx.au3>
   
3. #include <WindowsConstants.au3>
   
4. #include <GuiStatusBar.au3>
   
5. 
   
6. $txtFile = @ScriptDir & "\大于64KB出错.txt"
   
7. $txtLang = 9500
   
8. $n = 0
   
9. ;----------------------------------------------------
   
10. $Form1 = GUICreate("", 640, 505)
    
11. Local $idMyedit = GUICtrlCreateEdit("", 0, 0, 640, 480, $ES_AUTOVSCROLL + $WS_VSCROLL)
    
12. GUICtrlSetLimit($idMyedit, 100000000);解除edit控制限制为1亿字符
    
13. ;任务栏
    
14. $StatusBar1 = _GUICtrlStatusBar_Create($Form1)
    
15. _GUICtrlStatusBar_SetMinHeight($StatusBar1, 25)
    
16. _GUICtrlStatusBar_SetText($StatusBar1, " 【CRC16校验自动生成】 ")
    
17. GUISetState(@SW_SHOW)
    
18. ;-----------------------------------------------------
    
19. Local $hFileOpen = FileOpen($txtFile, 0)
    
20. ;----------------------------
    
21. While 1
    
22.         $line = FileReadLine($hFileOpen)
    
23.         If @error = -1 Then
    
24.                 FileClose($hFileOpen);文本文件读取异常就关闭
    
25.                 ExitLoop
    
26.         EndIf
    
27.         If $n > $txtLang Then
    
28.                 ExitLoop
    
29.         Else
    
30.                 GUICtrlSetData($idMyedit, $line & @CRLF, 0)
    
31.                 _GUICtrlStatusBar_SetText($StatusBar1, $n & "行")
    
32.         EndIf
    
33.         $n = $n + 1
    
34.         ;----------------------------------
    
35. WEnd
    
36. ;----------------------------
    
37. FileClose($hFileOpen);文本文件读取异常就关闭
    
38. 
    
39. While 1
    
40.         Switch GUIGetMsg()
    
41.                 Case $GUI_EVENT_CLOSE
    
42.                         ExitLoop
    
43.         EndSwitch
    
44. 
    
45. WEnd
    

复制代码

能处理啊！没有问题。

chishingchan

qq413774005 发表于 2023-8-22 14:08
能处理啊！没有问题。

你的效果达不到！看图：

chishingchan

afan 发表于 2023-8-22 09:06
512 是 ANSI
2、3 必须的
4 他这是转换为繁体系统使用的文本(代码页950)，所以光靠BinaryToString估计 ...

我的完整代码，大于64KB出错.txt 在1楼附件

1. #include <WinAPIConv.au3>
   
2. #include <EditConstants.au3>
   
3. #include <GUIConstantsEx.au3>
   
4. #include <WindowsConstants.au3>
   
5. 
   
6. ;修改这两个变量就好！
   
7. $txtFile = @ScriptDir & "\大于64KB出错.txt"
   
8. $txtLang = 950
   
9. ;Locale                LCID        16                10                Codepage
   
10. ;中文(中国)        zh-CN        0804        2052        936
    
11. ;中文(台湾)        zh-TW        0404        1028        950
    
12. ;英语(美国)        en_US        0409        1033        437
    
13. ;日语                ja                0411        1041        932
    
14. ;朝鲜语                ko                0412        1042        949
    
15. 
    
16. Local $hFileOpen = FileOpen($txtFile, $FO_ANSI)
    
17. Local $sFileRead = FileRead($hFileOpen)    ;, 65536)
    
18. FileClose($hFileOpen)
    
19. $new = _WinAPI_MultiByteToWideChar($sFileRead, $txtLang, False, True)
    
20. 
    
21. GUICreate("多国语言编辑器", 640, 480)
    
22. Local $idFilemenu = GUICtrlCreateMenu("文件(&F)")
    
23. GUICtrlCreateMenuItem("新建(&N)", $idFilemenu)
    
24. Local $idOpensubitem = GUICtrlCreateMenuItem("打开(&O)...", $idFilemenu)
    
25. GUICtrlCreateMenuItem("保存(&S)", $idFilemenu)
    
26. GUICtrlCreateMenuItem("另存为(&A)...", $idFilemenu)
    
27. GUICtrlCreateMenuItem("退出(&F)", $idFilemenu)
    
28. Local $idViewmenu = GUICtrlCreateMenu("编码(&E)")
    
29. GUICtrlCreateMenuItem("日文(&J)", $idViewmenu)
    
30. GUICtrlCreateMenuItem("韩文(&K)", $idViewmenu)
    
31. GUICtrlCreateMenuItem("繁体(&T)", $idViewmenu)
    
32. GUICtrlCreateMenuItem("简体(&S)", $idViewmenu)
    
33. Local $idHelpmenu = GUICtrlCreateMenu("帮助(&H)")
    
34. GUICtrlCreateMenuItem("关于(&A)...", $idHelpmenu)
    
35. 
    
36. Local $idMyedit = GUICtrlCreateEdit($new, 0, 0, 640, 480)
    
37. GUISetState(@SW_SHOW)
    
38. 
    
39. While 1
    
40.         Switch GUIGetMsg()
    
41.                 Case $GUI_EVENT_CLOSE
    
42.                         ExitLoop
    
43.         Case $idOpensubitem
    
44.                         $sFile = FileOpenDialog("选择文件...", @TempDir, "文本文件 (*.txt)")
    
45.                         If @error <> 1 Then GUICtrlSetData($idMyedit, $sFile, 1)
    
46.         EndSwitch
    
47. WEnd
    
48. GUIDelete()
    

复制代码

chishingchan

haijie1223 发表于 2023-8-22 00:30
1、FileOpen的第2个参数512是什么意思，没看到有这个值啊。
2、GUICtrlCreateEdit创建的时候赋值为空，去 ...

发哥，代码图片已更新在 23#，麻烦也看看，指导一下，谢谢！

afan

两种方法都跟你说了，始终没有尝试？

chishingchan

afan 发表于 2023-8-22 15:50
两种方法都跟你说了，始终没有尝试？

是分段吗？觉得有点复杂。求解决代码，谢谢！

afan

chishingchan 发表于 2023-8-22 16:14
是分段吗？觉得有点复杂。求解决代码，谢谢！

两种都可以，看你需求了

chishingchan

afan 发表于 2023-8-20 18:05
这就不是 FileRead 读取多少的问题了，而是 MultiByteToWideChar 的问题 (官方也有说明，调用此函数很容易 ...

代入结构是使用 DllStructCreate 吗？

afan

chishingchan 发表于 2023-8-22 17:19
代入结构是使用 DllStructCreate 吗？

是的，用 DllStructCreate 创建结构最好是 byte，且先 StringToBinary 将读取到的数据转换下~

haijie1223

chishingchan 发表于 2023-8-22 14:33
发哥，代码图片已更新在 23#，麻烦也看看，指导一下，谢谢！

1. Global $txtFile = @ScriptDir & "\大于64KB出错.txt"
   
2. GUICreate("多国语言编辑器", 640, 480)
   
3. Local $idFilemenu = GUICtrlCreateMenu("文件(&F)")
   
4. GUICtrlCreateMenuItem("新建(&N)", $idFilemenu)
   
5. Local $idOpensubitem = GUICtrlCreateMenuItem("打开(&O)...", $idFilemenu)
   
6. GUICtrlCreateMenuItem("保存(&S)", $idFilemenu)
   
7. GUICtrlCreateMenuItem("另存为(&A)...", $idFilemenu)
   
8. GUICtrlCreateMenuItem("退出(&F)", $idFilemenu)
   
9. Local $idViewmenu = GUICtrlCreateMenu("编码(&E)")
   
10. GUICtrlCreateMenuItem("日文(&J)", $idViewmenu)
    
11. GUICtrlCreateMenuItem("韩文(&K)", $idViewmenu)
    
12. GUICtrlCreateMenuItem("繁体(&T)", $idViewmenu)
    
13. GUICtrlCreateMenuItem("简体(&S)", $idViewmenu)
    
14. Local $idHelpmenu = GUICtrlCreateMenu("帮助(&H)")
    
15. GUICtrlCreateMenuItem("关于(&A)...", $idHelpmenu)
    
16. Local $idMyedit = GUICtrlCreateEdit('', 0, 0, 640, 480)
    
17. GUICtrlSetLimit(-1, 999999, 999999)
    
18. GUICtrlSetData($idMyedit, _ReadFile($txtFile))
    
19. GUISetState(@SW_SHOW)
    
20. While 1
    
21.         Switch GUIGetMsg()
    
22.                 Case $GUI_EVENT_CLOSE
    
23.                         ExitLoop
    
24.                 Case $idOpensubitem
    
25.                         $sFile = FileOpenDialog("选择文件...", @TempDir, "文本文件 (*.txt)")
    
26.                         If @error <> 1 Then
    
27.                                 GUICtrlSetData($idMyedit, _ReadFile($sFile), 1)
    
28.                         EndIf
    
29.                        
    
30.         EndSwitch
    
31. WEnd
    
32. Func _ReadFile($txtFile, $txtLang = 950)
    
33.         Local $hFile = FileOpen($txtFile, 16)
    
34.         Local $bData = FileRead($hFile)
    
35.         FileClose($hFile)
    
36.        
    
37.         Local $Buffer = DllStructCreate('byte [' & BinaryLen($bData) + 1 & ']')
    
38.         DllStructSetData($Buffer, 1, $bData)
    
39.         Return _WinAPI_MultiByteToWideChar($Buffer, $txtLang, False, True)
    
40. EndFunc   ;==>_ReadFile

复制代码