易语言批量添加图片资源表文件名生成

当然资源内容目前还是必须一个个添加，如果有批量添加资源内容的方法欢迎提供。

获取文件名 ()
.如果 (组合框1.内容 ＝ “默认类型”)
前缀 ＝ “ssk”
.否则
.如果 (组合框1.内容 ＝ “所有类型”)
前缀 ＝ “all”
.否则
前缀 ＝ 组合框1.内容
.如果结束

.如果结束

.计次循环首 (取数组成员数 (文件名数组), i)
文本 ＝ 文本 ＋ “.图片 ” ＋ 前缀 ＋ 到文本 (i) ＋ “, 公开, ” ＋ 文件名数组 [i] ＋ #换行符
' 文本 ＝ 文本 ＋ “.图片 ” ＋ 前缀 ＋ “_” ＋ 文件名数组 [i] ＋ “, 公开, ” ＋ 文件名数组 [i] ＋ #换行符
.计次循环尾 ()
文本 ＝ “.版本 2” ＋ #换行符 ＋ #换行符 ＋ 文本
写到文件 (取运行目录 () ＋ “\图片资源表.txt”, 到字节集 (文本))
置剪辑板文本 (文本)
信息框 (“图片资源表生成成功，请直接粘贴到对应易语言图片资源表内！” ＋ #换行符 ＋ “注意！资源内容需另行添加！”, 0, , )