文本批量读入、替换、写出

云少i · 发表于 2025-1-6 15:02:44

大概有100W个文件，文件大小不一，从几十KB到十几M的都有，最大的30M左右，运行一段时间后，切换到别的窗口，这个编辑框里面就显示2147483647，内存溢出了，我看任务管理器中的此进程的内存占用才20-30M左右。但CPU占用超级大，如果中间不暂停一段时间，就直接回CPU 100%。就算读一个文件延迟几秒甚至十秒，换到别的窗口，这个编辑框里面就显示2147483647，时间一长，就提示内存溢出、报错了，大佬们，这个情况，该怎么处理呢？

子程序名	返回值类型	公开	备注
_按钮5_被单击

启动线程 (&子程序4, , 集_子程序4)

子程序名	返回值类型	公开	备注
子程序4

变量名	类型	静态	数组	备注
i	整数型
局_内容数组	文本型		0
局_内容	文本型

i ＝ 0
文件_枚举 (“”, “*.txt”, 局_内容数组, 真, , 真)

计次循环首 (取数组成员数 (局_内容数组), i)

如果真 (寻找文本 (局_内容数组 [i], “目录.txt”, , 假) ＝ -1)

局_内容＝文本_取出中间文本 (局_内容数组 [i], “第”, “页”, , )

如果真 (寻找文本 (局_内容数组 [i], “\其他\”, , 假) ＜ 1 )

线程_启动_文本型 (到整数 (&子程序5), , , 局_内容数组 [i], 到文本 (i), , , , , , , , )

计次循环尾 ()
编辑框1.加入文本 (到文本 (取现行时间 ()) ＋ “已完成” ＋ #换行符 )

子程序名	返回值类型	公开	备注
子程序5
参数名	类型	参考	可空	数组	备注
局_内容数组	文本型
i	文本型

变量名	类型	静态	数组	备注
局_内容	文本型

局_内容＝子文本替换 (到文本 (读入文件 (局_内容数组)), “ ”, “”, , , 真)
' 这里有大概20个子文本替换，替换各种不同的内容
写到文件 (局_内容数组, 到字节集 ( #换行符＋局_内容))
编辑框1.加入文本 (文本_自动补零 (i, 5) ＋取空白文本 (5) ＋局_内容数组＋ #换行符 )

i支持库列表	支持库注释
EThread	多线程支持库

heiyingzi · 发表于 2025-1-6 15:22:50

用长整数型

sunhechao · 发表于 2025-1-6 20:32:31

你把所有的编辑框1.加入文本都去掉，看看还溢出不

尛龍科技 · 发表于 2025-1-6 20:51:23

子程序名	返回值类型	公开	备注
_按钮5_被单击