图片批量改随机数字名字或者把图片顺序打乱再改

zzbn88 · 发表于 2024-10-31 23:26:06

这个源码是借用论坛有大佬发过的帖子的，下边我说下需求！

需求1、这个只能单个文件夹拖进来，能否实现批量文件夹拖进来

需求2、这个只能按文件夹排列好的顺序把图片名字按1、2、3、4、5…排列，而且名字已经是1、2、3…的图片名字没办法重新修改，我想要的是不管啥名字的图片，包括名字已经是1、2、3…的，把图片排列顺序打乱后再重新命名，或者直接重命名随机数.jpg 也能起到打乱顺序的效果

只有这么点币了，有大佬能给修改一下么，感激不尽

走一回 · 发表于 2024-10-31 23:26:07

图片排序改名，精易模块自行添加.rar (883.24 KB, 下载次数: 1)

2024-11-1 17:08 上传

点击文件名下载附件

子程序名	返回值类型	公开	备注
_按钮_取当前目录名_被单击

变量名	类型	静态	数组	备注
局_目录	文本型
局_子目录名数组	文本型		0
局_图片名数组	文本型		0	每处理一个子文件夹就清除

局_目录＝浏览文件夹 (“单击各个图片文件夹所在的父文件夹。”, )
目录_枚举子目录1 (局_目录, 局_子目录名数组, 真, 真)
子程序_文件名打乱重命名 (局_子目录名数组)

子程序名	返回值类型	公开	备注
子程序_文件名打乱重命名
参数名	类型	参考	可空	数组	备注
参_子文件夹名	文本型

变量名	类型	静态	数组	备注
局_子文件夹中的图片文件名数组	文本型		0	只支持二层目录，即：图片总目录\子目录，每处理一个子文件夹就清除
i	整数型
n
o
局_随机数
sy

计次循环首 (取数组成员数 (参_子文件夹名), i)

文件_枚举 (参_子文件夹名 [i], “*.jpg|*.png|*.gif”, 局_子文件夹中的图片文件名数组, 真, , )

调试输出 (“A”, 局_子文件夹中的图片文件名数组)

' 单个子文件夹里的图片文件名打乱

计次循环首 (取数组成员数 (局_子文件夹中的图片文件名数组), o)

局_随机数＝取随机数 (1, 取数组成员数 (局_子文件夹中的图片文件名数组))

交换变量 (局_子文件夹中的图片文件名数组 [o], 局_子文件夹中的图片文件名数组 [局_随机数])

计次循环尾 ()

计次循环首 (取数组成员数 (局_子文件夹中的图片文件名数组), n)

文件_改名 (局_子文件夹中的图片文件名数组 [n], 目录_取父路径 (局_子文件夹中的图片文件名数组 [n]) ＋到文本 (n) ＋文件_取扩展名 (局_子文件夹中的图片文件名数组 [n]))

sy ＝超级列表框1.插入表项 (, , , , , )

超级列表框1.置标题 (sy, 1, 目录_取父路径 (局_子文件夹中的图片文件名数组 [n]) ＋到文本 (n) ＋文件_取扩展名 (局_子文件夹中的图片文件名数组 [n]))

计次循环尾 ()

子程序名	返回值类型	公开	备注
_超级列表框1_当前表项被改变

图片框1.图片＝读入文件 (超级列表框1.取标题 (超级列表框1.现行选中项, 1))

i支持库列表	支持库注释
shell	操作系统界面功能支持库
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br />
.支持库 shell<br />
.支持库 spec<br />
.支持库 iext<br />
<br />
.子程序 _按钮_取当前目录名_被单击<br />
.局部变量 局_目录, 文本型<br />
.局部变量 局_子目录名数组, 文本型, , "0"<br />
.局部变量 局_图片名数组, 文本型, , "0", 每处理一个子文件夹就清除<br />
<br />
局_目录 ＝ 浏览文件夹 (“单击各个图片文件夹所在的父文件夹。”, )<br />
目录_枚举子目录1 (局_目录, 局_子目录名数组, 真, 真)<br />
<br />
子程序_文件名打乱重命名 (局_子目录名数组)<br />
<br />
.子程序 子程序_文件名打乱重命名<br />
.参数 参_子文件夹名, 文本型, 数组<br />
.局部变量 局_子文件夹中的图片文件名数组, 文本型, , "0", 只支持二层目录，即：图片总目录\子目录，每处理一个子文件夹就清除<br />
.局部变量 i, 整数型<br />
.局部变量 n<br />
.局部变量 o<br />
.局部变量 局_随机数<br />
.局部变量 sy<br />
<br />
.计次循环首 (取数组成员数 (参_子文件夹名), i)<br />
    文件_枚举 (参_子文件夹名 <i>, “*.jpg|*.png|*.gif”, 局_子文件夹中的图片文件名数组, 真, , )<br />
    调试输出 (“A”, 局_子文件夹中的图片文件名数组)<br />
    ' 单个子文件夹里的图片文件名打乱<br />
    .计次循环首 (取数组成员数 (局_子文件夹中的图片文件名数组), o)<br />
        局_随机数 ＝ 取随机数 (1, 取数组成员数 (局_子文件夹中的图片文件名数组))<br />
        交换变量 (局_子文件夹中的图片文件名数组 [o], 局_子文件夹中的图片文件名数组 [局_随机数])<br />
    .计次循环尾 ()<br />
    .计次循环首 (取数组成员数 (局_子文件夹中的图片文件名数组), n)<br />
        文件_改名 (局_子文件夹中的图片文件名数组 [n], 目录_取父路径 (局_子文件夹中的图片文件名数组 [n]) ＋ 到文本 (n) ＋ 文件_取扩展名 (局_子文件夹中的图片文件名数组 [n]))<br />
        sy ＝ 超级列表框1.插入表项 (, , , , , )<br />
        超级列表框1.置标题 (sy, 1, 目录_取父路径 (局_子文件夹中的图片文件名数组 [n]) ＋ 到文本 (n) ＋ 文件_取扩展名 (局_子文件夹中的图片文件名数组 [n]))<br />
    .计次循环尾 ()<br />
.计次循环尾 ()<br />
<br />
.子程序 _超级列表框1_当前表项被改变<br />
<br />
图片框1.图片 ＝ 读入文件 (超级列表框1.取标题 (超级列表框1.现行选中项, 1))

补充内容 (2024-11-1 17:09):
超级列表框里只添加了全路径文件名，你自己再完善一下，同时去掉了线程，10万个文件也用不了几秒钟的。

走一回 · 发表于 2024-11-1 08:39:55

改名后，全部放一个文件夹里还是放原来的文件夹里，难度是差别极大的。

zzbn88 · 发表于 2024-11-1 09:06:01

走一回发表于 2024-11-1 08:39
改名后，全部放一个文件夹里还是放原来的文件夹里，难度是差别极大的。

就在原文件夹就行

补充内容 (2024-11-1 09:06):
各自在各自的文件夹！

走一回 · 发表于 2024-11-1 10:03:36

zzbn88 发表于 2024-11-1 09:06
就在原文件夹就行

补充内容 (2024-11-1 09:06):

易语言的拖放组件好像只支持一个文件夹或对象，你有多少个文件夹呢？就操作一次吧，何必纠结呢？

zzbn88 · 发表于 2024-11-1 12:22:02

走一回发表于 2024-11-1 10:03
易语言的拖放组件好像只支持一个文件夹或对象，你有多少个文件夹呢？就操作一次吧，何必纠结呢？ ...

他这个源码本身是可以拖拽的，我就是想让这个可以同时拖拽多个文件夹，以及把拖拽进来的文件夹里的图片改成随机数字的名字，这样不就可以把图片顺序打乱了！
也就是在这个源码基础上就是增加拖拽多个文件夹，以及随机改图片名字！！其他都按原来的就行！

补充内容 (2024-11-1 12:58):
有上千个文件夹！！！唉。。要是少了就不用想整批量拖拽了。。

走一回 · 发表于 2024-11-1 13:41:49

zzbn88 发表于 2024-11-1 12:22
他这个源码本身是可以拖拽的，我就是想让这个可以同时拖拽多个文件夹，以及把拖拽进来的文件夹里的图片改 ...

如果这些子文件夹都在同一个文件夹里，同时没有子子文件夹，那也是简单的。

补充内容 (2024-11-1 13:48):
看来还是要你自已把所有的子文件夹整理到同一个文件夹里，这样才好处理。

补充内容 (2024-11-1 13:49):
再目录_枚举子目录 (, , , ) 后就能较好的处理了。