易语言多线程

zzg666

哪位帮我看看为什么 把    写到文件 (取运行目录 () ＋ “\” ＋ 超级列表框2.取标题 (0, 0) ＋ “\” ＋ 超级列表框2.取标题 (0, 1) ＋ “\” ＋ 文本6, 到字节集 (AS))  就不执行了  改为
写到文件 (取运行目录 () ＋ “\” ＋ 文本6, AS)   就执行

  

子程序名	返回值类型	公开	备 注
_下载_被单击

变量名	类 型	静态	数组	备 注
文本	文本型
文本2	文本型		0
ii	整数型
句柄	整数型		0
i	整数型
次数	整数型
文本5	文本型
次数1	整数型
bool	逻辑型
qwe	整数型
w	整数型

计次循环首 (超级列表框2.取表项数 (), w)
文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\” ＋ 超级列表框2.取标题 (w － 1, 0) ＋ “\” ＋ 超级列表框2.取标题 (w － 1, 1) ＋ “\” ＋ 超级列表框2.取标题 (w － 1, 5) ＋ “.txt”))
文本_分割文本 (文本, “,”, , 文本19)
文本_分割文本 (超级列表框2.取标题 (w － 1, 3), “;”, , 文本3)
鱼刺池.创建 (1, 取数组成员数 (文本3), , , , , )
计次循环首 (取数组成员数 (文本3), i)
鱼刺池.投递任务 (&编码, i, w)
延迟 (100)
计次循环尾 ()
bool ＝ 鱼刺池.等待任务动态 ()
超级列表框2.置标题 (w － 1, 6, “下载完成”)
超级列表框2.置状态图片 (w － 1, 1)
判断 (跳出 ＝ 真)
_按钮6_被单击 ()
_按钮4_被单击 ()
跳出循环 ()


鱼刺池.销毁 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
编码
参数名	类 型	参考	可空	数组	备 注
a	整数型
w	整数型

变量名	类 型	静态	数组	备 注
文本2	文本型
AS	字节集
次数	整数型
文本5	文本型
次数1	整数型
文本6	文本型

文本2 ＝ 文本_取出中间文本 (文本19 [a], #引号 ＋ “:” ＋ #引号, #引号, )
' 调试输出 (文本2)
次数 ＝ 文本_取出现次数 (文本3 [a], “/”)
' 调试输出 (文本3 [a])
判断 (次数 ＝ 2)
文本5 ＝ 文本_取右边 (文本3 [a], “/”, -1, )
文本5 ＝ 文本3 [a]

次数1 ＝ 文本_取出现次数 (文本5, “/”)
判断 (次数1 ＝ 1)
文本6 ＝ 文本_替换 (文本5, , , , “/”, “_”)
文本6 ＝ 文本5
调试输出 (文本6)
AS ＝ 编码_Base64转图片 (“data:image/jpeg;base64,” ＋ 文本2)
写到文件 (取运行目录 () ＋ “\” ＋ 文本6, AS)
写到文件 (取运行目录 () ＋ “\” ＋ 超级列表框2.取标题 (0, 0) ＋ “\” ＋ 超级列表框2.取标题 (0, 1) ＋ “\” ＋ 文本6, 到字节集 (AS))

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _下载_被单击<br /> .局部变量 文本, 文本型<br /> .局部变量 文本2, 文本型, , "0"<br /> .局部变量 ii, 整数型<br /> .局部变量 句柄, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 次数, 整数型<br /> .局部变量 文本5, 文本型<br /> .局部变量 次数1, 整数型<br /> .局部变量 bool, 逻辑型<br /> .局部变量 qwe, 整数型<br /> .局部变量 w, 整数型<br /> <br /> <br /> .计次循环首 (超级列表框2.取表项数 (), w)<br />     文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\” ＋ 超级列表框2.取标题 (w － 1, 0) ＋ “\” ＋ 超级列表框2.取标题 (w － 1, 1) ＋ “\” ＋ 超级列表框2.取标题 (w － 1, 5) ＋ “.txt”))<br />     文本_分割文本 (文本, “,”, , 文本19)<br />     文本_分割文本 (超级列表框2.取标题 (w － 1, 3), “;”, , 文本3)<br />     鱼刺池.创建 (1, 取数组成员数 (文本3), , , , , )<br />     .计次循环首 (取数组成员数 (文本3), i)<br />         鱼刺池.投递任务 (&编码, i, w)<br />         延迟 (100)<br />     .计次循环尾 ()<br />     bool ＝ 鱼刺池.等待任务动态 ()<br />     超级列表框2.置标题 (w － 1, 6, “下载完成”)<br />     超级列表框2.置状态图片 (w － 1, 1)<br />     .判断开始 (跳出 ＝ 真)<br /> <br />         _按钮6_被单击 ()<br />         _按钮4_被单击 ()<br />         跳出循环 ()<br />     .默认<br /> <br />     .判断结束<br />     鱼刺池.销毁 ()<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .子程序 编码<br /> .参数 a, 整数型<br /> .参数 w, 整数型<br /> .局部变量 文本2, 文本型<br /> .局部变量 AS, 字节集<br /> .局部变量 次数, 整数型<br /> .局部变量 文本5, 文本型<br /> .局部变量 次数1, 整数型<br /> .局部变量 文本6, 文本型<br /> <br /> 文本2 ＝ 文本_取出中间文本 (文本19 [a], #引号 ＋ “:” ＋ #引号, #引号, )<br /> ' 调试输出 (文本2)<br /> 次数 ＝ 文本_取出现次数 (文本3 [a], “/”)<br /> ' 调试输出 (文本3 [a])<br /> .判断开始 (次数 ＝ 2)<br />     文本5 ＝ 文本_取右边 (文本3 [a], “/”, -1, )<br /> .默认<br />     文本5 ＝ 文本3 [a]<br /> .判断结束<br /> <br /> 次数1 ＝ 文本_取出现次数 (文本5, “/”)<br /> .判断开始 (次数1 ＝ 1)<br />     文本6 ＝ 文本_替换 (文本5, , , , “/”, “_”)<br /> .默认<br />     文本6 ＝ 文本5<br /> <br /> .判断结束<br /> 调试输出 (文本6)<br /> <br /> AS ＝ 编码_Base64转图片 (“data:image/jpeg;base64,” ＋ 文本2)<br /> 写到文件 (取运行目录 () ＋ “\” ＋ 文本6, AS)<br /> 写到文件 (取运行目录 () ＋ “\” ＋ 超级列表框2.取标题 (0, 0) ＋ “\” ＋ 超级列表框2.取标题 (0, 1) ＋ “\” ＋ 文本6, 到字节集 (AS))

补充内容 (2023-4-13 18:18):
答案已经知道，但不知道具体原因！！答案在19楼

qcby

多线程里面 尽量不要去操作组件

  _按钮6_被单击 ()
        _按钮4_被单击 ()

把组件里面的功能写到子程序去  启动线程(&子程序)就是了、还有就是少用 程序变量、全局变量。非要用的话加线程许可证

tyuttyu

看下你的文件夹是不是有啊    如果文件夹不存在写不出去的啊    加个创建文件夹就好了

zzg666

AS ＝ 编码_Base64转图片 (“data:image/jpeg;base64,” ＋ 文本2)
写到文件 (取运行目录 () ＋ “\” ＋ 文本6, AS)
写到文件 (取运行目录 () ＋ “\” ＋ 超级列表框2.取标题 (w, 0) ＋ “\” ＋ 超级列表框2.取标题 w, 1) ＋ “\” ＋ 文本6, AS)

zzg666

tyuttyu 发表于 2023-4-13 17:14
看下你的文件夹是不是有啊    如果文件夹不存在写不出去的啊    加个创建文件夹就好了 ...

文件有 确定有

fengshixiaohu

超级列表框2.取标题 (w, 0) ＋ “\” ＋ 超级列表框2.取标题 w, 1) 这两个文件目录要先创建出来，写到文件不自动创建目录

tyuttyu

zzg666 发表于 2023-4-13 17:15
文件有 确定有

我的意思是   取运行目录 () ＋ “\” ＋ 超级列表框2.取标题 (w, 0) ＋ “\” ＋ 超级列表框2.取标题 w, 1) ＋ “\”   这个文件夹是不是存在呢？ 没有这个文件夹写出文件肯定执行不了啊

补充内容 (2023-4-13 17:20):
加个判断在你写文件的前面   看下写的文件的目录是否已经存在  不存在就创建一个

zzg666

fengshixiaohu 发表于 2023-4-13 17:17
超级列表框2.取标题 (w, 0) ＋ “\” ＋ 超级列表框2.取标题 w, 1) 这两个文件目录要先创建出来，写到文件 ...

这两个文件夹是存在的

zzg666

tyuttyu 发表于 2023-4-13 17:18
我的意思是   取运行目录 () ＋ “\” ＋ 超级列表框2.取标题 (w, 0) ＋ “\” ＋ 超级列表框2.取标题 w, ...

确定两个文件夹都存在

zzg666

tyuttyu 发表于 2023-4-13 17:18
我的意思是   取运行目录 () ＋ “\” ＋ 超级列表框2.取标题 (w, 0) ＋ “\” ＋ 超级列表框2.取标题 w, ...

.版本 2
.支持库 iext

.如果 (目录_是否存在 (取运行目录 () ＋ “\” ＋ 超级列表框2.取标题 (w － 1, 0)) ＝ 假)
    创建目录 (取运行目录 () ＋ “\” ＋ 超级列表框2.取标题 (w － 1, 0))
.否则

.如果结束

.如果 (目录_是否存在 (取运行目录 () ＋ “\” ＋ 超级列表框2.取标题 (w － 1, 0) ＋ “\” ＋ 超级列表框2.取标题 (w － 1, 1)) ＝ 假)
    创建目录 (取运行目录 () ＋ “\” ＋ 超级列表框2.取标题 (w － 1, 0) ＋ “\” ＋ 超级列表框2.取标题 (w － 1, 1))
.否则