倒找和替换文本实现ICO提取后改名及图片框显示拖放图片

易语言 2020-08-19 18:14:14

倒找和替换文本实现ICO提取后改名及图片框显示拖放图片

透明标签1.标题 = 接收到的文件路径 ' 拖进去获得目录地址
图片组 = 建空图片组 (100, 100) ' 建立一个空图片组,图片组内没有成员
图标索引 = 提取加入图片 (图片组, 透明标签1.标题, , ) ' 从指定的文件中提取图片加入到图片组当中,并可以获取图片的位置(索引)
图片框1.图片 = 取图片组图片 (图片组, 图标索引, ) ' 从图片组中根据某个图片的位置取出图片并显示到图片框1当中

地址长度 = 取文本长度 (透明标签1.标题) ' 取出整个目录地址长度
某字集所在位置 = 倒找文本 (透明标签1.标题, “\”, , 假) ' 从后往前查找“\”所在地址长度的位置
查找到的文件名 = 取文本右边 (透明标签1.标题, 地址长度 - 某字集所在位置) ' 取出【文件名】(注:不是整个目录地址),如“易语言.exe”
文件名长度 = 取文本长度 (查找到的文件名) ' 再次按上面的方法寻找【文件名】的长度
文件某字集所在位置 = 倒找文本 (查找到的文件名, “.”, , 假) ' 方法一样,倒找出“.”的所在文件名位置
替换后缀 = 文本替换 (查找到的文件名, 文件某字集所在位置 + 1, 文件名长度 - 文件某字集所在位置, “ico”) ' 替换掉文件名exe格式的后缀为ico格式
ICO文件名称 = 替换后缀 ' 便于理解才会多此几步
提取资源文件图标 (透明标签1.标题, 0, 取特定目录 (3) + ICO文件名称, )
' 提取资源文件图标 (透明标签1.标题, 0, 取特定目录 (3) +文本替换 (查找到的文件名, 文件某字集所在位置 + 1, 文件名长度 - 文件某字集所在位置, “ico”) , )