Foxtable(狐表)用户栏目专家坐堂 → 对图片文件分组


  共有5055人关注过本帖树形打印复制链接

主题:对图片文件分组

帅哥哟,离线,有人找我吗?
yifan3429
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2482 积分:22932 威望:0 精华:0 注册:2011/3/29 17:14:00
对图片文件分组  发帖心情 Post By:2023/1/15 0:46:00 [只看该作者]

 一个文件夹内的1000张图片希望按照美10张进行分组,每一组建成一个新的文件夹
fox怎么做到呢

package md5;
import java.io.*;
public class Test{
    public static void main(String[] args) {
        File file = new File("E:\\手机照片\\2022-10-10手机照片");
        // 获得图片名列表
        String[] names = file.list();
        // 获得图片列表
        File[] files = file.listFiles();
        assert names != null;
        assert files != null;
        // 需要创建的文件夹数量,每个文件夹放500张图片
        int dirCount = names.length % 500 == 0 ? names.length / 500 : names.length / 500 + 1;
        BufferedInputStream bis = null;
        BufferedOutputStream bos = null;
        for(int i = 0;i < dirCount;i++) {
            File tempFile = new File("E:\\手机照片\\2022-10-10手机照片\\图片分组" + (i + 1));
            if (!tempFile.exists()) {
                tempFile.mkdirs();
            }
            FileInputStream fis = null;
            FileOutputStream fos = null;
            System.out.println("正在操作壁纸分组" + (i + 1));
            for(int j = i * 500 ; j < i * 500 + 500 && j < files.length;j++){
                System.out.println("正在操作:" + names[j]);
                try {
                    fis = new FileInputStream(files[j]);
                    fos = new FileOutputStream("E:\\手机照片\\2022-10-10手机照片\\图片分组" + (i + 1)
                            +"\\" + names[j]);
                    bis = new BufferedInputStream(fis);
                    bos = new BufferedOutputStream(fos);
                    byte[] buffer = new byte[1024];
                    int len;
                    while((len = bis.read(buffer)) != -1){
                        bos.write(buffer,0,len);
                        bos.flush();
                    }
                } catch (Exception e) {
                    e.printStackTrace();
                } finally {
                    if(bis != null){
                        try {
                            // 外层流关闭内层流自动关闭,所有不需要fis.close();
                            bis.close();
                        } catch (IOException e) {
                            e.printStackTrace();
                        }
                    }
                    if(bos != null){
                        try {
                            // 外层流关闭内层流自动关闭,所有不需要fos.close();
                            bos.close();
                        } catch (IOException e) {
                            e.printStackTrace();
                        }
                    }
                }
            }
            System.out.println("操作图片分组" + (i + 1) + "成功");
        }

    }
}

原理应该是类似这个 读取文件夹内的图片文件数量,然后按照每十个一组新建一个文件夹 文件夹按照日期命名(例如起始日期是20230101)
[此贴子已经被作者于2023/1/15 0:56:07编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/1/15 20:35:00 [只看该作者]

参考:http://www.foxtable.com/webhelp/topics/0225.htm,把步长值设置为10即可


dim lst = FileSys.GetFiles("E:\手机照片\2022-10-10手机照片")
For i as integer = 0 to lst.count - 1 step 10
dim dir as tring = "E:\手机照片\2022-10-10手机照片\组" & i
  
FileSys.CreateDirectory(dir)
for j as integer = i to i+9
FileSys.MoveFile(lst(j)dir & "\" & FileSys.GetName(lst(j)))
next
Next

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2482 积分:22932 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2023/1/16 1:21:00 [只看该作者]

 Dim dir As String = "E:\全案设计资料\2022年度全案\A压缩的\朋友圈分组\" & Format(#1/1/2023#, "yyyyMMdd") + i

如何从20230101开始按照日历新建文件夹

我现在的结果不能按照日历新建
E:\全案设计资料\2022年度全案\A压缩的\朋友圈分组\20230647
[此贴子已经被作者于2023/1/16 1:21:29编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/1/16 8:45:00 [只看该作者]

……
dim d as date = cdate("2023-01-01")
For i as integer = 0 to lst.count - 1 step 10
dim dir as tring = "E:\手机照片\2022-10-10手机照片\组" & format(d,"yyyyMmdd")
d=d.adddays(1)
FileSys.CreateDirectory(dir)
……

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2482 积分:22932 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2023/1/16 11:47:00 [只看该作者]

 .NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.18.1
错误所在事件:自定义函数,朋友圈分组
详细错误信息:
调用的目标发生了异常。
索引超出范围。必须为非负值并小于集合大小。
参数名: index


Dim lst = FileSys.GetFiles("E:\全案设计资料\2022年度全案\A压缩的\2022集合图片")
Dim d As Date = CDate("2023-01-01")
For i As Integer = 0 To lst.count - 1 Step 20
    Dim dir As String = "E:\全案设计资料\2022年度全案\A压缩的\抖音分组\D" & format(d, "yyyyMmdd")
    d = d.adddays(1)
    Output.Show(dir)
      FileSys.CreateDirectory(dir)
    For j As Integer = i To i + 19
        FileSys.CopyFile(lst(j), dir & "\" & FileSys.GetName(lst(j)))
    Next
Next
执行完了报错怎么解决求助老师
[此贴子已经被作者于2023/1/16 11:47:23编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/1/16 11:59:00 [只看该作者]

For j As Integer = i To i + 19
改为
For j As Integer = i To  math.min(i + 19,lst.count - 1)

 回到顶部