[助手插件]易语言异常捕获一键添加代码

454890856

谢谢楼主分享

蔚枫心蓝

感谢分享！最近自己写的程序经常毫无征兆，毫无规律的出现崩溃的情况，正好用这个试一下看能不能抓到BUG。试了一下，发现这个异常捕获代码中有三处BUG。
1.当某个子程序下没有任何代码时出错。
2.当某个子程序下有多段相同代码时，__mark标签会在某一处被重复添加多次。
3.当同一个程序集已经被处理过后，再次点击处理当前程序集，此程序集会被重复处理。
下面是我修复了的。
使用方法：安装易语言助手，直接将“异常处理.dll”复制到X:\e\lib\eTools\Plugin目录下，然后在助手的插件列表刷新一下就出来了。
异常处理.rar (660.29 KB, 下载次数: 808)

2022-8-28 22:52 上传

点击文件名下载附件

蔚枫心蓝

lovemuou 发表于 2022-7-15 04:20
安装不了，提示：

---------------------------

直接将“异常处理.dll”复制到X:\e\lib\eTools\Plugin目录下，然后在助手的插件列表刷新一下就出来了。
不过他这个有一个BUG，空的程序,添加会提示异常！具体BUG位置就在下面的子程序中，我已经动手修复了。 异常处理.rar (412.82 KB, 下载次数: 85)

2022-8-28 18:19 上传

点击文件名下载附件

  

子程序名	返回值类型	公开	备 注
处理IDE文本	文本型
参数名	类 型	参考	可空	数组	备 注
IDE文本	文本型

变量名	类 型	静态	数组	备 注
局_分割文本	文本型		0
局_计次1	整数型
局_计次2	整数型
局_计次3	整数型
局_计次4	整数型
局_结果	文本型
局_是否有程序集	逻辑型
正则	正则表达式类

暂停 ()
清除数组 (集_子程序)
清除数组 (集_程序集信息)
程序集_解析代码 (IDE文本, 集_程序集信息)  ' 解析代码
如果 (取数组成员数 (集_程序集信息) ＝ 0)
子程序_解析代码 (IDE文本, 集_子程序)  ' 如果不是粘贴的程序集，则只解析子程序
如果真 (集_程序集信息 [1].名称 ≠ “”)
集_子程序 ＝ 集_程序集信息 [1].子程序


局_是否有程序集 ＝ 真
如果真 (取数组成员数 (集_程序集信息) ＝ 0)
局_是否有程序集 ＝ 假
计次循环首 (取数组成员数 (集_子程序), 局_计次1)
如果真 (集_子程序 [局_计次1].代码主体 ≠ “”)  ' 修复空的程序,添加会提示异常的BUG。
局_分割文本 ＝ 分割文本 (集_子程序 [局_计次1].代码主体, #换行符, )
. ' 如果真 (选择框1.选中)
. ' 如果真 (取文本左边 (集_子程序 [局_计次1].代码主体, 9) ＝ “__DbgName”)
' 信息框 (“已经标记了程序，请勿重复标记！！！”, #错误图标, “温馨提示”, ET.获取主窗口句柄 ())
' 返回 (IDE文本)
集_子程序 [局_计次1].代码主体 ＝ “__DbgName (” ＋ #左引号 ＋ 集_子程序 [局_计次1].名称 ＋ #右引号 ＋ “)” ＋ #换行符 ＋ 集_子程序 [局_计次1].代码主体
局_计次2 ＝ 1
如果真 (取数组成员数 (局_分割文本) ≠ 0)
判断循环首 (删全部空 (局_分割文本 [局_计次2]) ＝ “”)
局_计次2 ＝ 局_计次2 ＋ 1
如果真 (局_计次2 ＞ 取数组成员数 (局_分割文本))
跳出循环 ()

判断循环尾 ()
集_子程序 [局_计次1].完整代码 ＝ 子文本替换 (集_子程序 [局_计次1].完整代码, 局_分割文本 [局_计次2], “__DbgName (” ＋ #左引号 ＋ 集_子程序 [局_计次1].名称 ＋ #右引号 ＋ “)” ＋ #换行符 ＋ 局_分割文本 [局_计次2], , 1, 真)

. ' 如果真 (选择框2.选中)
局_计次4 ＝ 0
计次循环首 (取数组成员数 (局_分割文本), 局_计次3)
如果真 (删全部空 (局_分割文本 [局_计次3]) ＝ “” 或 取文本左边 (删全部空 (局_分割文本 [局_计次3]), 1) ＝ “'” 或 取文本右边 (删全部空 (局_分割文本 [局_计次3]), 4) ＝ “结束”)
到循环尾 ()
局_计次4 ＝ 局_计次4 ＋ 1
集_子程序 [局_计次1].代码主体 ＝ 子文本替换 (集_子程序 [局_计次1].代码主体, 局_分割文本 [局_计次3], “__mark (” ＋ #左引号 ＋ 集_子程序 [局_计次1].名称 ＋ “.程序命令标记：{” ＋ 到文本 (局_计次4) ＋ “}” ＋ #右引号 ＋ “)” ＋ #换行符 ＋ 局_分割文本 [局_计次3], , 1, 真)
计次循环尾 ()

计次循环尾 ()
判断 (局_是否有程序集)
集_程序集信息 [1].子程序 ＝ 集_子程序
局_结果 ＝ 程序集_生成代码 (集_程序集信息 [1], )
计次循环首 (取数组成员数 (集_子程序), 局_计次1)
局_结果 ＝ 局_结果 ＋ #换行符 ＋ 子程序_生成代码 (集_子程序 [局_计次1])
计次循环尾 ()
' 编辑框1.内容 ＝ 局_结果
' 置剪辑板文本 (局_结果)
正则.创建 (g_删除程序集正则表达式, 局_结果, 假, 真, 真, 真)
返回 (正则.替换 (“”))

.版本 2<br /> <br /> .子程序 处理IDE文本, 文本型<br /> .参数 IDE文本, 文本型, 参考<br /> .局部变量 局_分割文本, 文本型, , "0"<br /> .局部变量 局_计次1, 整数型<br /> .局部变量 局_计次2, 整数型<br /> .局部变量 局_计次3, 整数型<br /> .局部变量 局_计次4, 整数型<br /> .局部变量 局_结果, 文本型<br /> .局部变量 局_是否有程序集, 逻辑型<br /> .局部变量 正则, 正则表达式类<br /> <br /> 暂停 ()<br /> 清除数组 (集_子程序)<br /> 清除数组 (集_程序集信息)<br /> <br /> <br /> <br /> 程序集_解析代码 (IDE文本, 集_程序集信息)  ' 解析代码<br /> .如果 (取数组成员数 (集_程序集信息) ＝ 0)<br />     子程序_解析代码 (IDE文本, 集_子程序)  ' 如果不是粘贴的程序集，则只解析子程序<br /> .否则<br />     .如果真 (集_程序集信息 [1].名称 ≠ “”)<br />         集_子程序 ＝ 集_程序集信息 [1].子程序<br />     .如果真结束<br /> <br /> .如果结束<br /> <br /> 局_是否有程序集 ＝ 真<br /> .如果真 (取数组成员数 (集_程序集信息) ＝ 0)<br />     局_是否有程序集 ＝ 假<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (集_子程序), 局_计次1)<br />     .如果真 (集_子程序 [局_计次1].代码主体 ≠ “”)  ' 修复空的程序,添加会提示异常的BUG。<br />         局_分割文本 ＝ 分割文本 (集_子程序 [局_计次1].代码主体, #换行符, )<br />         .' 如果真 (选择框1.选中)<br />             .' 如果真 (取文本左边 (集_子程序 [局_计次1].代码主体, 9) ＝ “__DbgName”)<br />                 ' 信息框 (“已经标记了程序，请勿重复标记！！！”, #错误图标, “温馨提示”, ET.获取主窗口句柄 ())<br />                 ' 返回 (IDE文本)<br />             .如果真结束<br />             集_子程序 [局_计次1].代码主体 ＝ “__DbgName (” ＋ #左引号 ＋ 集_子程序 [局_计次1].名称 ＋ #右引号 ＋ “)” ＋ #换行符 ＋ 集_子程序 [局_计次1].代码主体<br />             局_计次2 ＝ 1<br />             .如果真 (取数组成员数 (局_分割文本) ≠ 0)<br />                 .判断循环首 (删全部空 (局_分割文本 [局_计次2]) ＝ “”)<br />                     局_计次2 ＝ 局_计次2 ＋ 1<br />                     .如果真 (局_计次2 ＞ 取数组成员数 (局_分割文本))<br />                         跳出循环 ()<br />                     .如果真结束<br /> <br />                 .判断循环尾 ()<br /> <br />             .如果真结束<br />             集_子程序 [局_计次1].完整代码 ＝ 子文本替换 (集_子程序 [局_计次1].完整代码, 局_分割文本 [局_计次2], “__DbgName (” ＋ #左引号 ＋ 集_子程序 [局_计次1].名称 ＋ #右引号 ＋ “)” ＋ #换行符 ＋ 局_分割文本 [局_计次2], , 1, 真)<br />         .如果真结束<br /> <br />     .如果真结束<br />     .' 如果真 (选择框2.选中)<br />         局_计次4 ＝ 0<br />         .计次循环首 (取数组成员数 (局_分割文本), 局_计次3)<br />             .如果真 (删全部空 (局_分割文本 [局_计次3]) ＝ “” 或 取文本左边 (删全部空 (局_分割文本 [局_计次3]), 1) ＝ “'” 或 取文本右边 (删全部空 (局_分割文本 [局_计次3]), 4) ＝ “结束”)<br />                 到循环尾 ()<br />             .如果真结束<br />             局_计次4 ＝ 局_计次4 ＋ 1<br />             集_子程序 [局_计次1].代码主体 ＝ 子文本替换 (集_子程序 [局_计次1].代码主体, 局_分割文本 [局_计次3], “__mark (” ＋ #左引号 ＋ 集_子程序 [局_计次1].名称 ＋ “.程序命令标记：{” ＋ 到文本 (局_计次4) ＋ “}” ＋ #右引号 ＋ “)” ＋ #换行符 ＋ 局_分割文本 [局_计次3], , 1, 真)<br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .判断开始 (局_是否有程序集)<br />     集_程序集信息 [1].子程序 ＝ 集_子程序<br />     局_结果 ＝ 程序集_生成代码 (集_程序集信息 [1], )<br /> .默认<br />     .计次循环首 (取数组成员数 (集_子程序), 局_计次1)<br />         局_结果 ＝ 局_结果 ＋ #换行符 ＋ 子程序_生成代码 (集_子程序 [局_计次1])<br />     .计次循环尾 ()<br />     ' 编辑框1.内容 ＝ 局_结果<br /> .判断结束<br /> ' 置剪辑板文本 (局_结果)<br /> <br /> <br /> 正则.创建 (g_删除程序集正则表达式, 局_结果, 假, 真, 真, 真)<br /> <br /> 返回 (正则.替换 (“”))

iecoca1

太需要这个了

易造轮

重装助手，打开异常处理.etools安装的

易造轮

安装不了，提示：

---------------------------
信息：
---------------------------
不支持该文件格式！

支持etools插件包
---------------------------
确定   
---------------------------

循环判断首

循环判断首

看一下好不好用

feiliu

1111111111111111111

feiliu

111111111111111111111111