易语言文本操作--单开没有问题--多开覆盖数据~求解

Rndarine

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

如果 (到整数 (编辑框2.内容) ≠ 0)
启动线程 (&写出测试, , )
信息框 (“输入写出数量”, 64, , )

子程序名	返回值类型	公开	备 注
写出测试

变量名	类 型	静态	数组	备 注
目标数量	整数型
随机数	文本型
随机字母	文本型
写出数据	文本型
M	整数型
文件号	整数型

如果真 (文件_是否存在 (取特定目录 ( #系统桌面 ) ＋ “测试写出文本.txt”) ＝ 假)
写到文件 (取特定目录 ( #系统桌面 ) ＋ “测试写出文本.txt”, {  })
目标数量 ＝ 到整数 (编辑框2.内容)
文件号 ＝ 打开文件 (取特定目录 ( #系统桌面 ) ＋ “测试写出文本.txt”, , )
计次循环首 (目标数量, M)
随机数 ＝ 文本_取随机数字 (4, 0)
随机字母 ＝ 文本_取随机字母 (5, 0)
移到文件尾 (文件号)
写出数据 ＝ 随机数 ＋ “----” ＋ 随机字母 ＋ #换行符
写出文本 (文件号, 写出数据)
编辑框1.加入文本 (“当前写出” ＋ 到文本 (M) ＋ “个数据” ＋ #换行符 )
计次循环尾 ()
关闭文件 (文件号)

i支持库列表	支持库注释
EThread	多线程支持库
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果 (到整数 (编辑框2.内容) ≠ 0)<br />     启动线程 (&写出测试, , )<br /> .否则<br />     信息框 (“输入写出数量”, 64, , )<br /> .如果结束<br /> <br /> <br /> .子程序 写出测试<br /> .局部变量 目标数量, 整数型<br /> .局部变量 随机数, 文本型<br /> .局部变量 随机字母, 文本型<br /> .局部变量 写出数据, 文本型<br /> .局部变量 M, 整数型<br /> .局部变量 文件号, 整数型<br /> <br /> .如果真 (文件_是否存在 (取特定目录 (#系统桌面) ＋ “测试写出文本.txt”) ＝ 假)<br />     写到文件 (取特定目录 (#系统桌面) ＋ “测试写出文本.txt”, {  })<br /> .如果真结束<br /> 目标数量 ＝ 到整数 (编辑框2.内容)<br /> 文件号 ＝ 打开文件 (取特定目录 (#系统桌面) ＋ “测试写出文本.txt”, , )<br /> .计次循环首 (目标数量, M)<br />     随机数 ＝ 文本_取随机数字 (4, 0)<br />     随机字母 ＝ 文本_取随机字母 (5, 0)<br />     移到文件尾 (文件号)<br />     写出数据 ＝ 随机数 ＋ “----” ＋ 随机字母 ＋ #换行符<br />     写出文本 (文件号, 写出数据)<br />     编辑框1.加入文本 (“当前写出” ＋ 到文本 (M) ＋ “个数据” ＋ #换行符)<br /> .计次循环尾 ()<br /> 关闭文件 (文件号)

liantan

你多开存在文件占用问题吧，看着是多开4个程序同时在运行写入，实际上只有一个程序在写入文件，其他程序并没有写入。