判断循环加延迟程序总奔溃

zhucan3n

弹出窗口后需要我点击一下选择标题文案 全_标题文案 这个变量才不会为空，然后很多时候还没点程序就奔溃了，为什么呢！大神帮我看看，不定时的。
启动线程启动的
鱼刺类启动的都不行

  

子程序名	返回值类型	公开	备 注
获取文案	文本型

变量名	类 型	静态	数组	备 注
i	整数型
返回值	文本型

判断循环首 (集_标题文案 ＝ “”)
调试输出 (“进入循环”, 集_标题文案)
程序_延时 (500, )
判断循环尾 ()
返回值 ＝ 集_标题文案
返回 (返回值)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 获取文案, 文本型, 公开<br /> .局部变量 i, 整数型<br /> .局部变量 返回值, 文本型<br /> <br /> <br /> .判断循环首 (集_标题文案 ＝ “”)<br />     调试输出 (“进入循环”, 集_标题文案)<br />     程序_延时 (500, )<br /> .判断循环尾 ()<br /> 返回值 ＝ 集_标题文案<br /> 返回 (返回值)

这个程序是在新窗口里面的，窗口启动的时候我把集_标题文案给置空了。
有时候我点一下新窗口的别的操作程序就挂了，有时候还没点程序就挂了。
加不加处理事件都会挂。
下面是启动窗口的命令。

  

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

如果真 (全_初始化)
标签_初始化1.可视 ＝ 真
标签_初始化2.可视 ＝ 真
窗口1.拖放对象1.接收文件 ＝ 真
窗口1.拖放对象2.接收文件 ＝ 真
窗口1.拖放对象3.接收文件 ＝ 真
窗口1.拖放对象1.注册拖放控件 (窗口1.超级列表框_话题.取窗口句柄 ())
窗口1.拖放对象2.注册拖放控件 (窗口1.超级列表框_标题文案.取窗口句柄 ())
窗口1.拖放对象3.注册拖放控件 (窗口1.超级列表框_常用替换词.取窗口句柄 ())
如果真 (文件_是否存在 (取运行目录 () ＋ “\话题.xlsx”))
全_表格.超级列表框_EXCEL_导入 (超级列表框_话题, 取运行目录 () ＋ “\话题.xlsx”, 真, 假, )
如果真 (文件_是否存在 (取运行目录 () ＋ “\标题文案.xlsx”))
全_表格.超级列表框_EXCEL_导入 (超级列表框_标题文案, 取运行目录 () ＋ “\标题文案.xlsx”, 真, 假, )
如果真 (文件_是否存在 (取运行目录 () ＋ “\常用替换词.xlsx”))
全_表格.超级列表框_EXCEL_导入 (超级列表框_常用替换词, 取运行目录 () ＋ “\常用替换词.xlsx”, 真, 假, )
编辑框_被替换词.内容 ＝ 读配置项 (取运行目录 () ＋ “wenan.ini”, “wenan”, “被替换词”, )
集_标题文案 ＝ “”

i支持库列表	支持库注释
edroptarget	拖放支持库

.版本 2<br /> .支持库 edroptarget<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> .如果真 (全_初始化)<br />     标签_初始化1.可视 ＝ 真<br />     标签_初始化2.可视 ＝ 真<br /> .如果真结束<br /> 窗口1.拖放对象1.接收文件 ＝ 真<br /> 窗口1.拖放对象2.接收文件 ＝ 真<br /> 窗口1.拖放对象3.接收文件 ＝ 真<br /> 窗口1.拖放对象1.注册拖放控件 (窗口1.超级列表框_话题.取窗口句柄 ())<br /> 窗口1.拖放对象2.注册拖放控件 (窗口1.超级列表框_标题文案.取窗口句柄 ())<br /> 窗口1.拖放对象3.注册拖放控件 (窗口1.超级列表框_常用替换词.取窗口句柄 ())<br /> .如果真 (文件_是否存在 (取运行目录 () ＋ “\话题.xlsx”))<br />     全_表格.超级列表框_EXCEL_导入 (超级列表框_话题, 取运行目录 () ＋ “\话题.xlsx”, 真, 假, )<br /> .如果真结束<br /> .如果真 (文件_是否存在 (取运行目录 () ＋ “\标题文案.xlsx”))<br />     全_表格.超级列表框_EXCEL_导入 (超级列表框_标题文案, 取运行目录 () ＋ “\标题文案.xlsx”, 真, 假, )<br /> .如果真结束<br /> .如果真 (文件_是否存在 (取运行目录 () ＋ “\常用替换词.xlsx”))<br />     全_表格.超级列表框_EXCEL_导入 (超级列表框_常用替换词, 取运行目录 () ＋ “\常用替换词.xlsx”, 真, 假, )<br /> .如果真结束<br /> 编辑框_被替换词.内容 ＝ 读配置项 (取运行目录 () ＋ “wenan.ini”, “wenan”, “被替换词”, )<br /> 集_标题文案 ＝ “”

能确定就是在这个循环奔溃的，但是不知道为什么。
* “进入循环” | “”
* “进入循环” | “”
* “进入循环” | “”
* “进入循环” | “”
* “进入循环” | “”
* “进入循环” | “”
* “进入循环” | “”
* “进入循环” | “”
* “进入循环” | “”
被调试易程序运行完毕

Suky

  

子程序名	返回值类型	公开	备 注
获取文案	文本型

变量名	类 型	静态	数组	备 注
i	整数型
返回值	文本型

判断循环首 (集_标题文案 ＝ “”)
调试输出 (“进入循环”, 集_标题文案)
程序_延时 (500, )
判断循环尾 ()
返回值 ＝ 集_标题文案
返回 (返回值)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 获取文案, 文本型, 公开<br /> .局部变量 i, 整数型<br /> .局部变量 返回值, 文本型<br /> <br /> <br /> .判断循环首 (集_标题文案 ＝ “”)<br />     调试输出 (“进入循环”, 集_标题文案)<br />     程序_延时 (500, )<br /> .判断循环尾 ()<br /> 返回值 ＝ 集_标题文案<br /> 返回 (返回值)

判断循环首的判断条件里面一直在读取集变量，调试输出那里也一直在读集变量
循环还是0.5秒一次
当你其他线程刚好在这个死循环线程读取集变量的时候对集变量进行写操作到一半，死循环线程这边读取信息操作错误就有可能导致崩溃
猜测是读操作和写操作抢夺同一块内存区域的控制权

补充内容 (2024-3-17 19:03):
建议是多线程的话就使用许可证，每次循环的时候   进入许可区读集变量内容赋值给局部变量，判断循环的参数用局变量，每次循环结束退出许可区

你送的花开了

用Sleep ()               

zhucan3n

你送的花开了 发表于 2024-3-17 16:48
用Sleep ()

卡窗口啊

zhucan3n

是不是我的多线程启动没设置对呀？我单独调用没问题！我在启动新窗口的时候加了进入许可区。然后这个循环加在启动新窗口的子程序里，等循环出来再退出许可区。是不是下一个线程和我上一个线程冲突了？导致程序挂了

Antony

处理事件()
程序_延时 (500, )
在前面加个处理事件试试

zhucan3n

Suky 发表于 2024-3-17 19:01
[e=1].版本 2
.支持库 spec

我弄好了，是线程里加载窗口的问题，不是循环的问题