写到文件，写多个文件问题

xunlu

写到文件它不会自动标签文件名，写多个文件只能从资源库写出一个文件到指定文件夹，不能全写出来


另外能不能加一条，软件关闭窗口后，自动删除软件所在的配置文件夹，不删除软件，只删除配置文件夹


下面是代码，萌新入易语言万分各位感谢大佬的帮忙
1.rar (1.31 MB, 下载次数: 2)

3 天前 上传

点击文件名下载附件
这个是源码

  

[size=14px].程序集变量 文件路径, 文本型[/size]
[size=14px].程序集变量 组, 字节集, , "27"[/size]
[size=14px].程序集变量 a, 整数型[/size]
[size=14px].程序集变量 进度, 整数型[/size]
[size=14px].程序集变量 d, 逻辑型[/size]
组 ＝ { #大厅道具卡奖励, #大厅道具推荐, #大厅房主确认, #大厅好友邀请, #大厅获得称号, #大厅获得称号确认, #大厅加入游戏, #大厅开始游戏, #大厅荣耀升级, #大厅升级, #大厅探险模式, #大厅退出游戏确认, #大厅退出游戏确认1, #大厅退出游戏确认2, #大厅我的信息, #游戏10分钟, #游戏ESC菜单, #游戏ESC确认, #游戏滑铲, #游戏杀敌色, #游戏杀敌色1, #游戏杀敌色2, #游戏死亡, #游戏死亡, #游戏死亡1 }  ' 这些是 图片 资源 的文件，自己添加
计次循环首 (取数组成员数 (组), a)
d ＝ 写到文件 (文件路径 ＋ “.bmp”, 组 [a])
如果真 (d)
进度 ＝ a ÷ 取数组成员数 (组) × 100
编辑框_纪录框.加入文本 (“>>>文件加载 ” ＋ 到文本 (进度) ＋ “%” ＋ #换行符 ＋ “>>>文件完成 ”)
调试输出 (进度)
延时 (50)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

删除目录 (取运行目录 () ＋ “\配置”)

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

.版本 2<br /> .支持库 spec<br /> <br /> <font style="font-size:14px">.程序集变量 文件路径, 文本型</font><br /> <font style="font-size:14px">.程序集变量 组, 字节集, , "27"</font><br /> <font style="font-size:14px">.程序集变量 a, 整数型</font><br /> <font style="font-size:14px">.程序集变量 进度, 整数型</font><br /> <font style="font-size:14px">.程序集变量 d, 逻辑型</font><br /> <br /> 组 ＝ { #大厅道具卡奖励, #大厅道具推荐, #大厅房主确认, #大厅好友邀请, #大厅获得称号, #大厅获得称号确认, #大厅加入游戏, #大厅开始游戏, #大厅荣耀升级, #大厅升级, #大厅探险模式, #大厅退出游戏确认, #大厅退出游戏确认1, #大厅退出游戏确认2, #大厅我的信息, #游戏10分钟, #游戏ESC菜单, #游戏ESC确认, #游戏滑铲, #游戏杀敌色, #游戏杀敌色1, #游戏杀敌色2, #游戏死亡, #游戏死亡, #游戏死亡1 }  ' 这些是 图片 资源 的文件，自己添加<br /> .计次循环首 (取数组成员数 (组), a)<br />     d ＝ 写到文件 (文件路径 ＋ “.bmp”, 组 [a])<br />     .如果真 (d)<br />         进度 ＝ a ÷ 取数组成员数 (组) × 100<br />         编辑框_纪录框.加入文本 (“>>>文件加载 ” ＋ 到文本 (进度) ＋ “%” ＋ #换行符 ＋ “>>>文件完成 ”)<br />         调试输出 (进度)<br />     .如果真结束<br />     延时 (50)<br /> .计次循环尾 ()<br /> <br /> .子程序 __启动窗口_将被销毁<br /> 删除目录 (取运行目录 () ＋ “\配置”)

Ruang

是这样的效果吗

xunlu

[JavaScript] 纯文本查看 复制代码

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 文件路径, 文本型
.程序集变量 组, 字节集, , "27"
.程序集变量 a, 整数型
.程序集变量 进度, 整数型
.程序集变量 d, 逻辑型

.子程序 __启动窗口_创建完毕

编辑框_纪录框.内容 ＝ “”
编辑框_纪录框.是否允许多行 ＝ 真
编辑框_纪录框.加入文本 (到文本 (取现行时间 ()) ＋ #换行符)
编辑框_纪录框.加入文本 (“文件加载中请稍等片刻...” ＋ #换行符)
文件路径 ＝ 取运行目录 () ＋ “\配置\”
目录_创建 (文件路径)

.子程序 _按钮1_被单击

组 ＝ { #大厅道具卡奖励, #大厅道具推荐, #大厅房主确认, #大厅好友邀请, #大厅获得称号, #大厅获得称号确认, #大厅加入游戏, #大厅开始游戏, #大厅荣耀升级, #大厅升级, #大厅探险模式, #大厅退出游戏确认, #大厅退出游戏确认1, #大厅退出游戏确认2, #大厅我的信息, #游戏10分钟, #游戏ESC菜单, #游戏ESC确认, #游戏滑铲, #游戏杀敌色, #游戏杀敌色1, #游戏杀敌色2, #游戏死亡, #游戏死亡, #游戏死亡1 }  ' 这些是 图片 资源 的文件，自己添加
.计次循环首 (取数组成员数 (组), a)
    d ＝ 写到文件 (文件路径 ＋ “.bmp”, 组 [a])
    .如果真 (d)
        进度 ＝ a ÷ 取数组成员数 (组) × 100
        编辑框_纪录框.加入文本 (“>>>文件加载 ” ＋ 到文本 (进度) ＋ “%” ＋ #换行符)
        调试输出 (进度)
    .如果真结束
    延时 (50)
.计次循环尾 ()
编辑框_纪录框.加入文本 (“>>>文件完成 ” ＋ 到文本 (文件路径) ＋ #换行符)
编辑框_纪录框.加入文本 (到文本 (取现行时间 ()) ＋ #换行符)

.子程序 __启动窗口_将被销毁

信息框 (文件路径, 0, “>>>窗口关闭,正在清理文件...”, )
删除目录 (取运行目录 () ＋ “\配置”)

辽阳小哲

d ＝ 写到文件 (文件路径 ＋ "_" + 到文本(a) +  “.bmp”, 组 [a])

壮志豪情

  

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

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

目录_强力清空 (取运行目录 ())

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 目录_强力清空 (取运行目录 ())

可以用目录_强力清空命令  不用担心会删除自身,因为此时自身正在运行中 根本删不掉

云少i

加V：ly992489316