文件夹中的图片批量重命名并从新排序

bingyan

各位大佬帮忙现在需要一个文件内的PNG图片批量重命名，图片顺序重排随机化。
重命名为1.png 2.png ......
需要重新排序。
现在使用的方法需要先随便重命名6位数字，再重新序列化命名。希望能更简单些，把软件放图片目录，运行即可达到重命名与重排序效果。

我的yyy123

忘了改，改了一下

.版本 2

.子程序 文件_更_名
.局部变量 文本名, 文本型
.局部变量 文件名数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 ii, 整数型
.局部变量 iii, 文本型

文本名 ＝ 寻找文件 (取运行目录 () ＋ “\*.png”, )
.判断循环首 (文本名 ≠ “”)
    加入成员 (文件名数组, 文本名)
    文本名 ＝ 寻找文件 (, )
.判断循环尾 ()
.计次循环首 (取数组成员数 (文件名数组), i)
    ii ＝ 取文本长度 (到文本 (i))
    .如果真 (ii ＝ 1)
        iii ＝ “00000” ＋ 到文本 (i)
    .如果真结束
    .如果真 (ii ＝ 2)
        iii ＝ “0000” ＋ 到文本 (i)
    .如果真结束
    .如果真 (ii ＝ 3)
        iii ＝ “000” ＋ 到文本 (i)
    .如果真结束
    .如果真 (ii ＝ 4)
        iii ＝ “00” ＋ 到文本 (i)
    .如果真结束
    .如果真 (ii ＝ 5)
        iii ＝ “0” ＋ 到文本 (i)
    .如果真结束
    .如果真 (ii ＝ 6)
        iii ＝ 到文本 (i)
    .如果真结束
    文件更名 (取运行目录 () ＋ “\” ＋ 文件名数组 [i], 取运行目录 () ＋ “\” ＋ iii ＋ “.png”)
.计次循环尾 ()

我的yyy123

.版本 2

.子程序 文件更名
.局部变量 文本名, 文本型
.局部变量 文件名数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 ii, 整数型
.局部变量 iii, 文本型

文本名 ＝ 寻找文件 (取运行目录 () ＋ “\*.jpg”, )
.判断循环首 (文本名 ≠ “”)
    加入成员 (文件名数组, 文本名)
    文本名 ＝ 寻找文件 (, )
.判断循环尾 ()
.计次循环首 (取数组成员数 (文件名数组), i)
    ii ＝ 取文本长度 (到文本 (i))
    .如果真 (ii ＝ 1)
        iii ＝ “00000” ＋ 到文本 (i)
    .如果真结束
    .如果真 (ii ＝ 2)
        iii ＝ “0000” ＋ 到文本 (i)
    .如果真结束
    .如果真 (ii ＝ 3)
        iii ＝ “000” ＋ 到文本 (i)
    .如果真结束
    .如果真 (ii ＝ 4)
        iii ＝ “00” ＋ 到文本 (i)
    .如果真结束
    .如果真 (ii ＝ 5)
        iii ＝ “0” ＋ 到文本 (i)
    .如果真结束
    .如果真 (ii ＝ 6)
        iii ＝ 到文本 (i)
    .如果真结束
    文件更名 (取运行目录 () ＋ “\” ＋ 文件名数组 [i], 取运行目录 () ＋ “\” ＋ iii ＋ “.jpg”)
.计次循环尾 ()