程序运行几个小时后闪退

Kotori6139

.版本 2
.支持库 spec

.如果真 (线程池.取状态 () ＝ 假)  ' 判断线程池是否已开启
    线程池.初始化 (到整数 (5), )  ' 开启线程池，建议在程序启动后创建，不用每次使用才创建和关闭，请勿在多线程中创建
.如果真结束
' 如果没有任务可执行时,会清零统计

线程池.统计归零 ()
' 时钟1.时钟周期 ＝ 3000  ' 调试用，显示线程各状态

.计次循环首 (取数组成员数 (关键词存储), i)  ' 循环加入50条任务
    ' 可传一个整数型，9个文本型，等参数，够用吧？各参数传递数据不宜过长，自行测试！
    线程池.加入任务 (&协议采集任务, i)
    ' 防止添加任务过快
    延迟 (200)
.计次循环尾 ()

.判断循环首 (线程池.取任务状态 () ＝ 假)  ' 判断是否全部任务已完成
    延迟 (1000)
    处理事件 ()
.判断循环尾 ()
.版本 2

' 进入许可区 (xuk2)
局_正则.创建 (“skypeId” ＋ #引号 ＋ “:” ＋ #引号 ＋ “([^” ＋ #引号 ＋ “]+)”, 原文本, , 真, 真)
.计次循环首 (局_正则.取匹配数量 (), 局_a)
    .计次循环首 (局_正则.取子匹配数量 (), 局_b)
        采集统计 ＝ 采集统计 ＋ 1
        日志输出 (局_正则.取子匹配文本 (局_a, 局_b) ＋ “----” ＋ 语种组合框.内容)
        多线程写出文本 (局_正则.取子匹配文本 (局_a, 局_b), 语种组合框.内容 ＋ “.txt”)
        采集统计标签.标题 ＝ “Skype协议采集-已采集:” ＋ 到文本 (采集统计) ＋ “条”
        程序_延时 (200)
    .计次循环尾 ()

.计次循环尾 ()
' 退出许可区 (xuk2)
返回 ()
.版本 2
.支持库 EThread

进入许可区 (写出文件许可证)
文件号 ＝ 打开文件 (取运行目录 () ＋ “\采集保存\” ＋ 文件名, 5, 1)
移到文件尾 (文件号)
写出文本 (文件号, 内容 ＋ #换行符)
关闭文件 (文件号)
退出许可区 (写出文件许可证)

Kotori6139

多线程运行采集任务 然后运行批量正则1匹配1批量分割内容 并实时写出 运行几个小时会闪退 写出内容差不多十几万

Kotori6139

  

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

变量名	类 型	静态	数组	备 注
i	整数型

如果真 (启动按钮.标题 ＝ “采集中[请勿重复点击]”)
信息框 (“线程执行中请勿重复执行”, 0, , )
返回 ()

启动按钮.标题 ＝ “采集中[请勿重复点击]”
如果真 (线程池.取状态 () ＝ 假)  ' 判断线程池是否已开启
线程池.初始化 (到整数 (5), )  ' 开启线程池，建议在程序启动后创建，不用每次使用才创建和关闭，请勿在多线程中创建
' 如果没有任务可执行时,会清零统计
线程池.统计归零 ()
' 时钟1.时钟周期 ＝ 3000  ' 调试用，显示线程各状态
计次循环首 (取数组成员数 (关键词存储), i)  ' 循环加入50条任务
' 可传一个整数型，9个文本型，等参数，够用吧？各参数传递数据不宜过长，自行测试！
线程池.加入任务 (&协议采集任务, i)
' 防止添加任务过快
延迟 (200)
计次循环尾 ()
判断循环首 (线程池.取任务状态 () ＝ 假)  ' 判断是否全部任务已完成
延迟 (1000)
处理事件 ()
判断循环尾 ()
启动按钮.标题 ＝ “开始协议采集”
清除数组 (关键词存储)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _启动按钮_被单击<br /> .局部变量 i, 整数型<br /> <br /> <br /> <br /> .如果真 (启动按钮.标题 ＝ “采集中[请勿重复点击]”)<br />     信息框 (“线程执行中请勿重复执行”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> 启动按钮.标题 ＝ “采集中[请勿重复点击]”<br /> <br /> .如果真 (线程池.取状态 () ＝ 假)  ' 判断线程池是否已开启<br />     线程池.初始化 (到整数 (5), )  ' 开启线程池，建议在程序启动后创建，不用每次使用才创建和关闭，请勿在多线程中创建<br /> .如果真结束<br /> ' 如果没有任务可执行时,会清零统计<br /> <br /> 线程池.统计归零 ()<br /> ' 时钟1.时钟周期 ＝ 3000  ' 调试用，显示线程各状态<br /> <br /> .计次循环首 (取数组成员数 (关键词存储), i)  ' 循环加入50条任务<br />     ' 可传一个整数型，9个文本型，等参数，够用吧？各参数传递数据不宜过长，自行测试！<br />     线程池.加入任务 (&协议采集任务, i)<br />     ' 防止添加任务过快<br />     延迟 (200)<br /> .计次循环尾 ()<br /> <br /> .判断循环首 (线程池.取任务状态 () ＝ 假)  ' 判断是否全部任务已完成<br />     延迟 (1000)<br />     处理事件 ()<br /> .判断循环尾 ()<br /> <br /> 启动按钮.标题 ＝ “开始协议采集”<br /> <br /> <br /> 清除数组 (关键词存储)

  

子程序名	返回值类型	公开	备 注
正则_匹配			本子程序由【YZYZ-菜鸟编程小助手】生成
参数名	类 型	参考	可空	数组	备 注
原文本	文本型

变量名	类 型	静态	数组	备 注
局_正则	正则表达式类			精易模块 http://ec.125.la/
局_a	整数型
局_b	整数型
索引	整数型
返回值	文本型

' 进入许可区 (xuk2)
局_正则.创建 (“skypeId” ＋ #引号 ＋ “:” ＋ #引号 ＋ “([^” ＋ #引号 ＋ “]+)”, 原文本, , 真, 真)
计次循环首 (局_正则.取匹配数量 (), 局_a)
计次循环首 (局_正则.取子匹配数量 (), 局_b)
采集统计 ＝ 采集统计 ＋ 1
日志输出 (局_正则.取子匹配文本 (局_a, 局_b) ＋ “----” ＋ 语种组合框.内容)
多线程写出文本 (局_正则.取子匹配文本 (局_a, 局_b), 语种组合框.内容 ＋ “.txt”)
采集统计标签.标题 ＝ “Skype协议采集-已采集:” ＋ 到文本 (采集统计) ＋ “条”
程序_延时 (200)
计次循环尾 ()
计次循环尾 ()
' 退出许可区 (xuk2)
返回 ()

.版本 2<br /> <br /> .子程序 正则_匹配, , , 本子程序由【YZYZ-菜鸟编程小助手】生成<br /> .参数 原文本, 文本型<br /> .局部变量 局_正则, 正则表达式类, , , 精易模块 <a href="http://ec.125.la/" rel="nofollow" rel="nofollow" target="_blank">http://ec.125.la/</a><br /> .局部变量 局_a, 整数型<br /> .局部变量 局_b, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 返回值, 文本型<br /> <br /> ' 进入许可区 (xuk2)<br /> 局_正则.创建 (“skypeId” ＋ #引号 ＋ “:” ＋ #引号 ＋ “([^” ＋ #引号 ＋ “]+)”, 原文本, , 真, 真)<br /> .计次循环首 (局_正则.取匹配数量 (), 局_a)<br />     .计次循环首 (局_正则.取子匹配数量 (), 局_b)<br />         采集统计 ＝ 采集统计 ＋ 1<br />         日志输出 (局_正则.取子匹配文本 (局_a, 局_b) ＋ “----” ＋ 语种组合框.内容)<br />         多线程写出文本 (局_正则.取子匹配文本 (局_a, 局_b), 语种组合框.内容 ＋ “.txt”)<br />         采集统计标签.标题 ＝ “Skype协议采集-已采集:” ＋ 到文本 (采集统计) ＋ “条”<br />         程序_延时 (200)<br />     .计次循环尾 ()<br /> <br /> .计次循环尾 ()<br /> ' 退出许可区 (xuk2)<br /> 返回 ()

  

子程序名	返回值类型	公开	备 注
多线程写出文本
参数名	类 型	参考	可空	数组	备 注
内容	文本型
文件名	文本型

变量名	类 型	静态	数组	备 注
i	整数型
文件号	整数型

进入许可区 (写出文件许可证)
文件号 ＝ 打开文件 (取运行目录 () ＋ “\采集保存\” ＋ 文件名, 5, 1)
移到文件尾 (文件号)
写出文本 (文件号, 内容 ＋ #换行符 )
关闭文件 (文件号)
退出许可区 (写出文件许可证)

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

.版本 2<br /> .支持库 EThread<br /> <br /> .子程序 多线程写出文本<br /> .参数 内容, 文本型<br /> .参数 文件名, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 文件号, 整数型<br /> <br /> 进入许可区 (写出文件许可证)<br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “\采集保存\” ＋ 文件名, 5, 1)<br /> 移到文件尾 (文件号)<br /> 写出文本 (文件号, 内容 ＋ #换行符)<br /> 关闭文件 (文件号)<br /> 退出许可区 (写出文件许可证)

2837qwer

多线程本来因素就很多，线程多了就会闪退，内存不够，CPU满，很多情况，程序一般是线程超标

Kotori6139

2837qwer 发表于 2024-10-3 15:15
多线程本来因素就很多，线程多了就会闪退，内存不够，CPU满，很多情况，程序一般是线程超标 ...

有办法进行解决吗

补充内容 (2024-10-3 18:36):
CPU和内存没满 任务管理器就电源消耗很大

Kotori6139

Kotori6139 发表于 2024-10-3 18:36
有办法进行解决吗

补充内容 (2024-10-3 18:36):

线程我一直是5线程正常不会吧 一般都是跑大几个小时然后多线程写出内容可能每次操作几十万的txt文档