求助大神，如何处理多个文件夹的jpg图片

有梦就追

请教大神怎么样 取出  文件夹1，文件夹2，文件夹3，文件夹4  里的图片，每次从四个文件夹，各随机取出一张图片，也就是取出的4张图片，放到新的文件夹5里面，自动随机命名

Mr、Darren

.*jpg  改为 *.jpg  打错了


补充内容 (2020-4-21 21:26):
敲这么多 不易 亲测可以了  麻烦采纳下 谢谢

Mr、Darren

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
文件夹1	文本型
文件数组	文本型		0
文件夹4	文本型
文件数组4	文本型		0
文件夹3	文本型
文件数组3	文本型		0
文件夹2	文本型
文件数组2	文本型		0
文件夹5	文本型

文件_搜索1 (文件夹1, “.*jpg”, , 真, 文件数组)  ' 文件夹1 改为你的绝对路径  .*jpg 是只搜索jpg的 其他格式的自己看属性介绍
文件_搜索1 (文件夹2, “.*jpg”, , 真, 文件数组2)
文件_搜索1 (文件夹3, “.*jpg”, , 真, 文件数组3)
文件_搜索1 (文件夹4, “.*jpg”, , 真, 文件数组4)
如果真 (取数组成员数 (文件数组) ＞ 0)
文件_复制 (文件数组 [取随机数 (1, 取数组成员数 (文件数组))], 文件夹5 ＋ “\” ＋ 文本_取随机字母 (6, 2) ＋ 文件_取扩展名 (文件数组 [取随机数 (1, 取数组成员数 (文件数组))]), 0)
如果真 (取数组成员数 (文件数组2) ＞ 0)
文件_复制 (文件数组2 [取随机数 (1, 取数组成员数 (文件数组2))], 文件夹5 ＋ “\” ＋ 文本_取随机字母 (6, 2) ＋ 文件_取扩展名 (文件数组2 [取随机数 (1, 取数组成员数 (文件数组2))]), 0)
如果真 (取数组成员数 (文件数组3) ＞ 0)
文件_复制 (文件数组2 [取随机数 (1, 取数组成员数 (文件数组2))], 文件夹5 ＋ “\” ＋ 文本_取随机字母 (6, 2) ＋ 文件_取扩展名 (文件数组2 [取随机数 (1, 取数组成员数 (文件数组2))]), 0)
如果真 (取数组成员数 (文件数组4) ＞ 0)
文件_复制 (文件数组2 [取随机数 (1, 取数组成员数 (文件数组2))], 文件夹5 ＋ “\” ＋ 文本_取随机字母 (6, 2) ＋ 文件_取扩展名 (文件数组2 [取随机数 (1, 取数组成员数 (文件数组2))]), 0)

.版本 2<br /> <br /> .子程序 子程序1<br /> .局部变量 文件夹1, 文本型<br /> .局部变量 文件数组, 文本型, , "0"<br /> .局部变量 文件夹4, 文本型<br /> .局部变量 文件数组4, 文本型, , "0"<br /> .局部变量 文件夹3, 文本型<br /> .局部变量 文件数组3, 文本型, , "0"<br /> .局部变量 文件夹2, 文本型<br /> .局部变量 文件数组2, 文本型, , "0"<br /> .局部变量 文件夹5, 文本型<br /> <br /> 文件_搜索1 (文件夹1, “.*jpg”, , 真, 文件数组)  ' 文件夹1 改为你的绝对路径  .*jpg 是只搜索jpg的 其他格式的自己看属性介绍<br /> 文件_搜索1 (文件夹2, “.*jpg”, , 真, 文件数组2)<br /> 文件_搜索1 (文件夹3, “.*jpg”, , 真, 文件数组3)<br /> 文件_搜索1 (文件夹4, “.*jpg”, , 真, 文件数组4)<br /> .如果真 (取数组成员数 (文件数组) ＞ 0)<br />     文件_复制 (文件数组 [取随机数 (1, 取数组成员数 (文件数组))], 文件夹5 ＋ “\” ＋ 文本_取随机字母 (6, 2) ＋ 文件_取扩展名 (文件数组 [取随机数 (1, 取数组成员数 (文件数组))]), 0)<br /> .如果真结束<br /> .如果真 (取数组成员数 (文件数组2) ＞ 0)<br />     文件_复制 (文件数组2 [取随机数 (1, 取数组成员数 (文件数组2))], 文件夹5 ＋ “\” ＋ 文本_取随机字母 (6, 2) ＋ 文件_取扩展名 (文件数组2 [取随机数 (1, 取数组成员数 (文件数组2))]), 0)<br /> .如果真结束<br /> .如果真 (取数组成员数 (文件数组3) ＞ 0)<br />     文件_复制 (文件数组2 [取随机数 (1, 取数组成员数 (文件数组2))], 文件夹5 ＋ “\” ＋ 文本_取随机字母 (6, 2) ＋ 文件_取扩展名 (文件数组2 [取随机数 (1, 取数组成员数 (文件数组2))]), 0)<br /> .如果真结束<br /> .如果真 (取数组成员数 (文件数组4) ＞ 0)<br />     文件_复制 (文件数组2 [取随机数 (1, 取数组成员数 (文件数组2))], 文件夹5 ＋ “\” ＋ 文本_取随机字母 (6, 2) ＋ 文件_取扩展名 (文件数组2 [取随机数 (1, 取数组成员数 (文件数组2))]), 0)

有梦就追

Mr、Darren 发表于 2020-4-21 18:22
[e=0].版本 2

.子程序 子程序1

你好大神，好像取不出来，麻烦帮忙看下

寒潮

  

变量名	类 型	静态	数组	备 注
局_文件数组1	文本型		0
局_文件数组2	文本型		0
局_文件数组3	文本型		0
局_文件数组4	文本型		0
局_待存储目录	文本型
局_随机文件名	文本型
局_欲取次数	整数型
局_计次	整数型
局_当前随机文件	整数型
局_随机数	整数型

文件_枚举 (“文件夹夹全路径1”, “*.jpg”, 局_文件数组1, 真, , 假)
文件_枚举 (“文件夹夹全路径2”, “*.jpg”, 局_文件数组2, 真, , 假)
文件_枚举 (“文件夹夹全路径3”, “*.jpg”, 局_文件数组3, 真, , 假)
文件_枚举 (“文件夹夹全路径4”, “*.jpg”, 局_文件数组4, 真, , 假)
局_待存储目录 ＝ “文件夹夹全路径5”
局_欲取次数 ＝ 5
计次循环首 (局_欲取次数, 局_计次)
' 文件夹1
如果真 (取数组成员数 (局_文件数组1) ＞ 0)
局_随机文件名 ＝ 文本_取随机字符 (12, 1)
局_随机数 ＝ 汇编_取随机数 (1, 取数组成员数 (局_文件数组1))
局_当前随机文件 ＝ 局_文件数组1 [局_随机数]
如果真 (文件_复制 (局_当前随机文件, 局_待存储目录 ＋ “\” ＋ 局_随机文件名 ＋ “.jpg”) ＝ 真)
删除成员 (局_文件数组1, 局_随机数, 1)

' 文件夹2
如果真 (取数组成员数 (局_文件数组2) ＞ 0)
局_随机文件名 ＝ 文本_取随机字符 (12, 1)
局_随机数 ＝ 汇编_取随机数 (1, 取数组成员数 (局_文件数组2))
局_当前随机文件 ＝ 局_文件数组2 [局_随机数]
如果真 (文件_复制 (局_当前随机文件, 局_待存储目录 ＋ “\” ＋ 局_随机文件名 ＋ “.jpg”) ＝ 真)
删除成员 (局_文件数组1, 局_随机数, 1)

' 文件夹3
' ..............
' 文件夹3
' ..............
计次循环尾 ()

.版本 2<br /> <br /> .局部变量 局_文件数组1, 文本型, , "0"<br /> .局部变量 局_文件数组2, 文本型, , "0"<br /> .局部变量 局_文件数组3, 文本型, , "0"<br /> .局部变量 局_文件数组4, 文本型, , "0"<br /> .局部变量 局_待存储目录, 文本型<br /> .局部变量 局_随机文件名, 文本型<br /> .局部变量 局_欲取次数, 整数型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_当前随机文件, 整数型<br /> .局部变量 局_随机数, 整数型<br /> <br /> 文件_枚举 (“文件夹夹全路径1”, “*.jpg”, 局_文件数组1, 真, , 假)<br /> 文件_枚举 (“文件夹夹全路径2”, “*.jpg”, 局_文件数组2, 真, , 假)<br /> 文件_枚举 (“文件夹夹全路径3”, “*.jpg”, 局_文件数组3, 真, , 假)<br /> 文件_枚举 (“文件夹夹全路径4”, “*.jpg”, 局_文件数组4, 真, , 假)<br /> 局_待存储目录 ＝ “文件夹夹全路径5”<br /> 局_欲取次数 ＝ 5<br /> .计次循环首 (局_欲取次数, 局_计次)<br />     ' 文件夹1<br />     .如果真 (取数组成员数 (局_文件数组1) ＞ 0)<br />         局_随机文件名 ＝ 文本_取随机字符 (12, 1)<br />         局_随机数 ＝ 汇编_取随机数 (1, 取数组成员数 (局_文件数组1))<br />         局_当前随机文件 ＝ 局_文件数组1 [局_随机数]<br />         .如果真 (文件_复制 (局_当前随机文件, 局_待存储目录 ＋ “\” ＋ 局_随机文件名 ＋ “.jpg”) ＝ 真)<br />             删除成员 (局_文件数组1, 局_随机数, 1)<br />         .如果真结束<br /> <br />     .如果真结束<br />     ' 文件夹2<br />     .如果真 (取数组成员数 (局_文件数组2) ＞ 0)<br />         局_随机文件名 ＝ 文本_取随机字符 (12, 1)<br />         局_随机数 ＝ 汇编_取随机数 (1, 取数组成员数 (局_文件数组2))<br />         局_当前随机文件 ＝ 局_文件数组2 [局_随机数]<br />         .如果真 (文件_复制 (局_当前随机文件, 局_待存储目录 ＋ “\” ＋ 局_随机文件名 ＋ “.jpg”) ＝ 真)<br />             删除成员 (局_文件数组1, 局_随机数, 1)<br />         .如果真结束<br /> <br />     .如果真结束<br />     ' 文件夹3<br />     ' ..............<br /> <br />     ' 文件夹3<br />     ' ..............<br /> <br /> .计次循环尾 ()

Mr、Darren

有梦就追 发表于 2020-4-21 18:50
你好大神，好像取不出来，麻烦帮忙看下

我电脑没图片

有梦就追

Mr、Darren 发表于 2020-4-21 20:06
我电脑没图片

图片素材

走一回

这个问题好像几年前遇到过。