编译后超级列表框导入一会就看到鼠标出现圈圈然后程序.....

chenshunke

编译后超级列表框导入一会就看到鼠标出现圈圈然后程序直接没了不编译出来就不会卡没。导入少的也不会，我测试直接导入C盘就会出现。

  

子程序名	返回值类型	公开	备 注
扫描文件夹

变量名	类 型	静态	数组	备 注
folder	FOLDERNAME		0
count	整数型
文件名	字节集
i	整数型
路径	字节集
索引	整数型
num	整数型
文件数组	字节集		0
n	整数型
文件绝对路径	字节集
无后缀文件名	字节集
后缀	字节集
目录数组	字节集		0
x	整数型
上级目录	字节集
目录名	字节集
是否有存在目录	文本型
目录数量	整数型
需遍历文件夹	文本型

_启动窗口.超级列表框1.全部删除 ()
_启动窗口.时钟1.时钟周期 ＝ 1000
需遍历文件夹 ＝ 选择 (取文本右边 (_启动窗口.目录编辑框.内容, 1) ≠ “\”, _启动窗口.目录编辑框.内容 ＋ “\”, _启动窗口.目录编辑框.内容)
num ＝ 文件_枚举W (编码_Ansi到Unicode (需遍历文件夹, 假), 编码_Ansi到Unicode (“*”, 假), 文件数组, 真, 真, 假)
调试输出 (num)
数组清零 (目录数组)
计次循环首 (num, n)
文件绝对路径 ＝ 文件数组 [n]
文件名 ＝ 字节集_寻找取右 (文件绝对路径, 删除Unicode结尾空白字节 (编码_Ansi到Unicode (“\”, 假)), -1)
路径 ＝ 字节集_寻找取左 (文件绝对路径, 删除Unicode结尾空白字节 (编码_Ansi到Unicode (“\”, 假)), -1)
后缀 ＝ 字节集_寻找取右 (文件名, 删除Unicode结尾空白字节 (编码_Ansi到Unicode (“.”, 假)), -1)
无后缀文件名 ＝ 字节集_寻找取左 (文件名, 删除Unicode结尾空白字节 (编码_Ansi到Unicode (“.”, 假)), -1)
如果真 (_启动窗口.文件夹单选框.选中 ≠ 真)
索引 ＝ _启动窗口.超级列表框1.插入表项 (, , , , , )
_启动窗口.超级列表框1.置标题 (索引, 0, 索引 ＋ 1)
_启动窗口.超级列表框1.置标题 (索引, 1, “文件”)
_启动窗口.超级列表框1.置标题 (索引, 2, 无后缀文件名)
_启动窗口.超级列表框1.置标题 (索引, 5, 后缀)
_启动窗口.超级列表框1.置标题 (索引, 6, 路径 ＋ 编码_Ansi到Unicode (“\”, 假))

如果真 (_启动窗口.文件单选框.选中 ≠ 真)
是否有存在目录 ＝ “否”
如果 (取数组成员数 (目录数组) ＝ 0)
如果真 (删除Unicode结尾空白字节 (编码_Ansi到Unicode (需遍历文件夹, 假)) ≠ 删除Unicode结尾空白字节 (路径 ＋ 编码_Ansi到Unicode (“\”, 假)))
加入成员 (目录数组, 路径)



计次循环首 (取数组成员数 (目录数组), x)
如果真 (目录数组 [x] ＝ 路径)
是否有存在目录 ＝ “是”

计次循环尾 ()
如果真 (是否有存在目录 ＝ “否”)
加入成员 (目录数组, 路径)



计次循环尾 ()
处理事件 ()
如果真 (_启动窗口.文件单选框.选中 ≠ 真)
目录数量 ＝ 取数组成员数 (目录数组)
计次循环首 (取数组成员数 (目录数组), x)
上级目录 ＝ 字节集_寻找取左 (目录数组 [目录数量], 删除Unicode结尾空白字节 (编码_Ansi到Unicode (“\”, 假)), -1)
目录名 ＝ 字节集_寻找取右 (目录数组 [目录数量], 删除Unicode结尾空白字节 (编码_Ansi到Unicode (“\”, 假)), -1)
索引 ＝ _启动窗口.超级列表框1.插入表项 (, , , , , )
_启动窗口.超级列表框1.置标题 (索引, 0, 索引 ＋ 1)
_启动窗口.超级列表框1.置标题 (索引, 1, “目录”)
_启动窗口.超级列表框1.置标题 (索引, 2, 目录名)
_启动窗口.超级列表框1.置标题 (索引, 6, 上级目录 ＋ 编码_Ansi到Unicode (“\”, 假))
目录数量 ＝ 目录数量 － 1
计次循环尾 ()

_启动窗口.进度条1.位置 ＝ 0
_启动窗口.时钟1.时钟周期 ＝ 0
线程_销毁 (smwjj)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库
controls_w	(未知支持库)

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> .支持库 controls_w<br /> <br /> .子程序 扫描文件夹<br /> .局部变量 folder, FOLDERNAME, , "0"<br /> .局部变量 count, 整数型<br /> .局部变量 文件名, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 路径, 字节集<br /> .局部变量 索引, 整数型<br /> .局部变量 num, 整数型<br /> .局部变量 文件数组, 字节集, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 文件绝对路径, 字节集<br /> .局部变量 无后缀文件名, 字节集<br /> .局部变量 后缀, 字节集<br /> .局部变量 目录数组, 字节集, , "0"<br /> .局部变量 x, 整数型<br /> .局部变量 上级目录, 字节集<br /> .局部变量 目录名, 字节集<br /> .局部变量 是否有存在目录, 文本型<br /> .局部变量 目录数量, 整数型<br /> .局部变量 需遍历文件夹, 文本型<br /> <br /> _启动窗口.超级列表框1.全部删除 ()<br /> <br /> _启动窗口.时钟1.时钟周期 ＝ 1000<br /> <br /> 需遍历文件夹 ＝ 选择 (取文本右边 (_启动窗口.目录编辑框.内容, 1) ≠ “\”, _启动窗口.目录编辑框.内容 ＋ “\”, _启动窗口.目录编辑框.内容)<br /> <br /> num ＝ 文件_枚举W (编码_Ansi到Unicode (需遍历文件夹, 假), 编码_Ansi到Unicode (“*”, 假), 文件数组, 真, 真, 假)<br /> <br /> 调试输出 (num)<br /> <br /> 数组清零 (目录数组)<br /> <br /> .计次循环首 (num, n)<br /> <br />     文件绝对路径 ＝ 文件数组 [n]<br /> <br />     文件名 ＝ 字节集_寻找取右 (文件绝对路径, 删除Unicode结尾空白字节 (编码_Ansi到Unicode (“\”, 假)), -1)<br /> <br />     路径 ＝ 字节集_寻找取左 (文件绝对路径, 删除Unicode结尾空白字节 (编码_Ansi到Unicode (“\”, 假)), -1)<br /> <br />     后缀 ＝ 字节集_寻找取右 (文件名, 删除Unicode结尾空白字节 (编码_Ansi到Unicode (“.”, 假)), -1)<br /> <br />     无后缀文件名 ＝ 字节集_寻找取左 (文件名, 删除Unicode结尾空白字节 (编码_Ansi到Unicode (“.”, 假)), -1)<br /> <br />     .如果真 (_启动窗口.文件夹单选框.选中 ≠ 真)<br />         索引 ＝ _启动窗口.超级列表框1.插入表项 (, , , , , )<br />         _启动窗口.超级列表框1.置标题 (索引, 0, 索引 ＋ 1)<br />         _启动窗口.超级列表框1.置标题 (索引, 1, “文件”)<br />         _启动窗口.超级列表框1.置标题 (索引, 2, 无后缀文件名)<br />         _启动窗口.超级列表框1.置标题 (索引, 5, 后缀)<br />         _启动窗口.超级列表框1.置标题 (索引, 6, 路径 ＋ 编码_Ansi到Unicode (“\”, 假))<br /> <br />     .如果真结束<br /> <br />     .如果真 (_启动窗口.文件单选框.选中 ≠ 真)<br />         是否有存在目录 ＝ “否”<br /> <br />         .如果 (取数组成员数 (目录数组) ＝ 0)<br /> <br />             .如果真 (删除Unicode结尾空白字节 (编码_Ansi到Unicode (需遍历文件夹, 假)) ≠ 删除Unicode结尾空白字节 (路径 ＋ 编码_Ansi到Unicode (“\”, 假)))<br /> <br />                 加入成员 (目录数组, 路径)<br /> <br />             .如果真结束<br /> <br />         .否则<br /> <br />             .计次循环首 (取数组成员数 (目录数组), x)<br /> <br />                 .如果真 (目录数组 [x] ＝ 路径)<br />                     是否有存在目录 ＝ “是”<br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br /> <br />             .如果真 (是否有存在目录 ＝ “否”)<br />                 加入成员 (目录数组, 路径)<br /> <br />             .如果真结束<br /> <br />         .如果结束<br /> <br />     .如果真结束<br /> <br /> <br /> <br /> .计次循环尾 ()<br /> 处理事件 ()<br /> .如果真 (_启动窗口.文件单选框.选中 ≠ 真)<br />     目录数量 ＝ 取数组成员数 (目录数组)<br /> <br />     .计次循环首 (取数组成员数 (目录数组), x)<br /> <br />         上级目录 ＝ 字节集_寻找取左 (目录数组 [目录数量], 删除Unicode结尾空白字节 (编码_Ansi到Unicode (“\”, 假)), -1)<br /> <br />         目录名 ＝ 字节集_寻找取右 (目录数组 [目录数量], 删除Unicode结尾空白字节 (编码_Ansi到Unicode (“\”, 假)), -1)<br /> <br />         索引 ＝ _启动窗口.超级列表框1.插入表项 (, , , , , )<br /> <br />         _启动窗口.超级列表框1.置标题 (索引, 0, 索引 ＋ 1)<br />         _启动窗口.超级列表框1.置标题 (索引, 1, “目录”)<br />         _启动窗口.超级列表框1.置标题 (索引, 2, 目录名)<br />         _启动窗口.超级列表框1.置标题 (索引, 6, 上级目录 ＋ 编码_Ansi到Unicode (“\”, 假))<br />         目录数量 ＝ 目录数量 － 1<br /> <br />     .计次循环尾 ()<br /> <br /> .如果真结束<br /> <br /> _启动窗口.进度条1.位置 ＝ 0<br /> <br /> _启动窗口.时钟1.时钟周期 ＝ 0<br /> <br /> 线程_销毁 (smwjj)

小苏0826

是不是没用线程,任务卡的太多崩溃了?
_启动窗口.进度条1.位置 ＝ 0
_启动窗口.时钟1.时钟周期 ＝ 0
线程_销毁 (smwjj)
这三个任务在干什么,有没有加许可证

chenshunke

小苏0826 发表于 2025-9-1 22:07
是不是没用线程,任务卡的太多崩溃了?
_启动窗口.进度条1.位置 ＝ 0
_启动窗口.时钟1.时钟周期 ＝ 0

后面这些没影响。屏蔽了还是崩溃，加了许可证也一样会奔溃，不编译出来用调试就不会奔溃。或者延时设置到5也不会。