[JavaScript] 纯文本查看 复制代码 .版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 文件路径, 文本型
.程序集变量 组, 字节集, , "27"
.程序集变量 a, 整数型
.程序集变量 进度, 整数型
.程序集变量 d, 逻辑型
.子程序 __启动窗口_创建完毕
编辑框_纪录框.内容 = “”
编辑框_纪录框.是否允许多行 = 真
编辑框_纪录框.加入文本 (到文本 (取现行时间 ()) + #换行符)
编辑框_纪录框.加入文本 (“文件加载中请稍等片刻...” + #换行符)
文件路径 = 取运行目录 () + “\配置\”
目录_创建 (文件路径)
.子程序 _按钮1_被单击
组 = { #大厅道具卡奖励, #大厅道具推荐, #大厅房主确认, #大厅好友邀请, #大厅获得称号, #大厅获得称号确认, #大厅加入游戏, #大厅开始游戏, #大厅荣耀升级, #大厅升级, #大厅探险模式, #大厅退出游戏确认, #大厅退出游戏确认1, #大厅退出游戏确认2, #大厅我的信息, #游戏10分钟, #游戏ESC菜单, #游戏ESC确认, #游戏滑铲, #游戏杀敌色, #游戏杀敌色1, #游戏杀敌色2, #游戏死亡, #游戏死亡, #游戏死亡1 } ' 这些是 图片 资源 的文件,自己添加
.计次循环首 (取数组成员数 (组), a)
d = 写到文件 (文件路径 + “.bmp”, 组 [a])
.如果真 (d)
进度 = a ÷ 取数组成员数 (组) × 100
编辑框_纪录框.加入文本 (“>>>文件加载 ” + 到文本 (进度) + “%” + #换行符)
调试输出 (进度)
.如果真结束
延时 (50)
.计次循环尾 ()
编辑框_纪录框.加入文本 (“>>>文件完成 ” + 到文本 (文件路径) + #换行符)
编辑框_纪录框.加入文本 (到文本 (取现行时间 ()) + #换行符)
.子程序 __启动窗口_将被销毁
信息框 (文件路径, 0, “>>>窗口关闭,正在清理文件...”, )
删除目录 (取运行目录 () + “\配置”)
|