分割图标获取所有尺寸工具

.如果 (图标信息 [组合框1.现行选中项 ＋ 1].是否PNG ＝ 真)
图标数据1 ＝ 取字节集中间 (图标x, 图标信息 [组合框1.现行选中项 ＋ 1].图标位置 ＋ 1, 图标信息 [组合框1.现行选中项 ＋ 1].图标大小)
图标数据1 [23] ＝ 到字节 (1)
写到文件 (地址 ＋ 图标名 ＋ “[” ＋ 到文本 (组合框1.现行选中项 ＋ 1) ＋ “].png”, 图标数据1)
.否则
图标数据1 ＝ 取字节集中间 (图标x, 图标信息 [组合框1.现行选中项 ＋ 1].图标位置 ＋ 1, 图标信息 [组合框1.现行选中项 ＋ 1].图标大小)
图标头 ＝ { 0, 0, 1, 0, 1, 0 } ＋ 文本到字节集 (到文本 (图标信息 [组合框1.现行选中项 ＋ 1].高度) ＋ “,” ＋ 到文本 (图标信息 [组合框1.现行选中项 ＋ 1].宽度)) ＋ { 0, 0, 1, 0, 32, 0 } ＋ 到字节集 (图标信息 [组合框1.现行选中项 ＋ 1].图标大小) ＋ { 22, 0, 0, 0 }
图标数据1 ＝ 图标头 ＋ 图标数据1
写到文件 (地址 ＋ 图标名 ＋ “.ico”, 图标数据1)