多线程 及时保存

上下左右空格

1. 
   
2. <P>    导出数据2 ＝ 超级列表框1.取标题 (传参 ＋ 到整数 (编辑框7.内容) － 2, 1) ＋ “----” ＋ 超级列表框1.取标题 (传参 ＋ 到整数 (编辑框7.内容) － 2, 2) ＋ “----” ＋ 超级列表框1.取标题 (传参 ＋ 到整数 (编辑框7.内容) － 2, 3) ＋ “----” ＋ 超级列表框1.取标题 (传参 ＋ 到整数 (编辑框7.内容) － 2, 5)</P>
   
3. <P>    累计数据2 ＝ 累计数据2 ＋ 导出数据2 ＋ #换行符
   
4.     写到文件 (取运行目录 () ＋ “\” ＋ 文件保存时间 ＋ “保存.txt”, 到字节集 (累计数据2))
   
5. </P>

复制代码

每跑一个帐号保存一下。。。。及时保存数据
单线程 用的是这个。。。多线程似乎不行。。。

helper

文件号=打开文件(取运行目录()+"\数据.txt",#改写)
移到文件尾(文件号)
插入文件行(文件号,写出的内容)
关闭文件(文件号)

Antool

多线程操作要加许可证

寻找星空

扣下来给你看看。
多线程立即写出部分：

  

移到文件首 (参数)
读入数据 (参数, 表象索引, 阿里账号)
关闭文件 (参数)
stext ＝ 超级列表框.取标题 (表象索引 － 1, 1)
str ＝ 到文本 (网页_访问 (“网址”, 1, “数据” ＋ stext))
判断 (str ＝ “4”)
返回内容 ＝ “已开通”
写文本行 (写出文件号 [1], stext)
返回内容 ＝ “没开通”
写文本行 (写出文件号 [2], stext)
数量 ＝ 数量 ＋ 1
进入许可区 (许可证)
超级列表框.置标题 (表象索引 － 1, 2, 返回内容)
退出许可区 (许可证)
ReleaseSemaphore (信号量, 1, 0)

i支持库列表	支持库注释
iext	扩展界面支持库一
EThread	多线程支持库

.版本 2<br /> .支持库 iext<br /> .支持库 EThread<br /> <br /> 移到文件首 (参数)<br /> 读入数据 (参数, 表象索引, 阿里账号)<br /> 关闭文件 (参数)<br /> stext ＝ 超级列表框.取标题 (表象索引 － 1, 1)<br /> str ＝ 到文本 (网页_访问 (“网址”, 1, “数据” ＋ stext))<br /> .判断开始 (str ＝ “4”)<br />     返回内容 ＝ “已开通”<br />     写文本行 (写出文件号 [1], stext)<br /> .默认<br />     返回内容 ＝ “没开通”<br />     写文本行 (写出文件号 [2], stext)<br /> .判断结束<br /> 数量 ＝ 数量 ＋ 1<br /> 进入许可区 (许可证)<br /> 超级列表框.置标题 (表象索引 － 1, 2, 返回内容)<br /> 退出许可区 (许可证)<br /> ReleaseSemaphore (信号量, 1, 0)

寻找星空

采纳我把，另外多线程中不要直接和控件联系，必须要联系的话加许可证。