程序运行闪退

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" 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 /> 退出许可区 (写出文件许可证)

Suky

这种小事不用汇报