闲来五鸟事 写的一个快速建立eil图标组

超级菜鸟王

由于闲着蛋疼  弄了几万个小图标玩
.版本 2
.支持库 commobj
.支持库 iext2

.子程序 图标易eil组制作_んォ, 文本型, 公开
.参数 图标路径文本, 文本型, , 如果是内部搜索 直接提供目录就OK 多个文件写在一个TXT文本 提供TXT文本路径 就可
.参数 选择大小, 整数型, , 如 16  32
.参数 是否采用内部搜索, 逻辑型, , 暂时搜索ICO格式
.局部变量 图片组, 图片_数据类型
.局部变量 快速路径, 快速文本对象
.局部变量 X, 整数型
.局部变量 路径数组, 文本型, , "0"
.局部变量 保存文件, 文本型
.局部变量 内部搜索组, 文本型, , "0"
.局部变量 快速文本, 快速文本对

.如果真 (选择大小 ＝ 16)
    图片组.图片数据 ＝ 建空图片组 (16, 16)
.如果真结束
.如果真 (选择大小 ＝ 32)
    图片组.图片数据 ＝ 建空图片组 (32, 32)
.如果真结束


.如果真 (是否采用内部搜索 ＝ 假)
    快速路径.从文件读 (图标路径文本)
.如果真结束

.如果真 (是否采用内部搜索 ＝ 真)
    文件_快速搜索 (图标路径文本, “*.ico”, 内部搜索组)
    快速路径.置文本 (内部搜索组)
.如果真结束


图片组.路径组 ＝ 快速路径.分割文本 (#换行符, )
.计次循环首 (到整数 (取数组成员数 (图片组.路径组)), X)
    提取加入图片 (图片组.图片数据, 图片组.路径组 [X], 0, 假)
.计次循环尾 ()
快速路径.清除文本 ()
保存文件 ＝ 取运行目录 () ＋ “\eil图标组_” ＋ 到文本 (选择大小) ＋ “X” ＋ 到文本 (选择大小) ＋ “_内有” ＋ 到文本 (X) ＋ “个图标.eil”
.如果真 (文件是否存在 (保存文件) ＝ 真)
    保存文件 ＝ 取运行目录 () ＋ “\” ＋ 到文本 (取现行时间 ()) ＋ “eil图标组_” ＋ 到文本 (选择大小) ＋ “X” ＋ 到文本 (选择大小) ＋ “_内有” ＋ 到文本 (X) ＋ “个图标.eil”
.如果真结束

写到文件 (保存文件, 图片组.图片数据)
处理事件 ()
返回 (“制作完成”)



------------------------------------------数据自定义类型----------------------------------搜索文件自己弄个目录搜索就OK鸟 暂时就捣鼓了 加入ICO小图标的 嘎嘎
.数据类型 图片_数据类型
    .成员 图片高宽, 整数型
    .成员 图片大小, 逻辑型
    .成员 图片数据, 字节集
    .成员 图标数量, 整数型
    .成员 图标路径, 文本型
    .成员 路径组, 文本型, , "1"

44944

板凳...不爽

冰玄浪子

内个谁有成品可不可以发个我，我的q3197824024，谢谢了

超级菜鸟王

877161054 发表于 2016-12-9 21:17
不对
  缺点东西 好像

.....少啥？

877161054

不对
  缺点东西 好像

runbaobao

板凳...不爽

外星人群控

我就是来看看  楼主冷吗？

wkf

板凳...不爽

邪修裸

沙发我的，为什么不回帖奖励，楼主那个扣啊...