我想把图片分章节移到章节文件夹里面 怎么写方便

sphinxes

图片的名称是这样的
下划线 前面的是第几章节  例如（ 008就是第8章）
下划线 后面的是章节的图片数
我想把程序放在图片目录下 然后自动生成 章节文件夹   总共有多少章节就生成多少个文件夹  然后命名为第几章的文件夹 然后把这个章节的图片 移入 这个文件夹

有130多章节 手动创建文件夹  太费时间了

Ruang

已经可以了，注意章节文件的创建

补充内容 (2025-4-26 20:42):
代码修改匹配 jpg格式

Ruang

  

子程序名	返回值类型	公开	备 注
功能_文件分类复制
参数名	类 型	参考	可空	数组	备 注
待整洁目录	文本型				目录下存在待处理图片，jpg格式
指定目录	文本型				目录下存在章节文件夹

变量名	类 型	静态	数组	备 注
文件名	文本型		0
计次2	整数型
文件夹	文本型		0
计次1	整数型
指定文件	文本型
指定目录	文本型

文件_枚举 (待整洁目录, “*.jpg”, 文件名, 真, , )
目录_枚举子目录 (指定目录, 文件夹, 真, )
计次循环首 (取数组成员数 (文件名), 计次1)
指定文件 ＝ 数值到大写 (到整数 (文本_取左边 (文件_取文件名 (文件名 [计次1], 假), “_”, , )), 真)
计次循环首 (取数组成员数 (文件夹), 计次2)
指定目录 ＝ 文本_取出中间文本 (文本_取右边 (文件夹 [计次2], “/”, , ), “章”, “节”, , )
如果真 (指定文件 ＝ 指定目录)
文件_复制 (文件名 [计次1], 目录_取父路径 (文件夹 [计次2]) ＋ 文件_取文件名 (文件名 [计次1], 真), 真)
跳出循环 ()

计次循环尾 ()
计次循环尾 ()

.版本 2<br /> <br /> .子程序 功能_文件分类复制<br /> .参数 待整洁目录, 文本型, , 目录下存在待处理图片，jpg格式<br /> .参数 指定目录, 文本型, , 目录下存在章节文件夹<br /> .局部变量 文件名, 文本型, , "0"<br /> .局部变量 计次2, 整数型<br /> .局部变量 文件夹, 文本型, , "0"<br /> .局部变量 计次1, 整数型<br /> .局部变量 指定文件, 文本型<br /> .局部变量 指定目录, 文本型<br /> <br /> 文件_枚举 (待整洁目录, “*.jpg”, 文件名, 真, , )<br /> 目录_枚举子目录 (指定目录, 文件夹, 真, )<br /> .计次循环首 (取数组成员数 (文件名), 计次1)<br />     指定文件 ＝ 数值到大写 (到整数 (文本_取左边 (文件_取文件名 (文件名 [计次1], 假), “_”, , )), 真)<br />     .计次循环首 (取数组成员数 (文件夹), 计次2)<br />         指定目录 ＝ 文本_取出中间文本 (文本_取右边 (文件夹 [计次2], “/”, , ), “章”, “节”, , )<br />         .如果真 (指定文件 ＝ 指定目录)<br />             文件_复制 (文件名 [计次1], 目录_取父路径 (文件夹 [计次2]) ＋ 文件_取文件名 (文件名 [计次1], 真), 真)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()

用到精易模块


补充内容 (2025-4-26 19:01):
注意：先调试一下看看，避免出现问题无法挽回

Ruang

  

子程序名	返回值类型	公开	备 注
功能_文件分类复制
参数名	类 型	参考	可空	数组	备 注
待整洁目录	文本型				目录下存在待处理图片，jpg格式
指定目录	文本型				目录下存在章节文件夹

变量名	类 型	静态	数组	备 注
文件名	文本型		0
计次2	整数型
文件夹	文本型		0
计次1	整数型
指定文件	文本型
指定目录	文本型
结果	逻辑型

文件_枚举 (待整洁目录, “*.jpg”, 文件名, 真, , )
目录_枚举子目录 (指定目录, 文件夹, 真, )
计次循环首 (取数组成员数 (文件名), 计次1)
指定文件 ＝ 数值到大写 (到整数 (文本_取左边 (文件_取文件名 (文件名 [计次1], 假), “_”, , )), 真)
计次循环首 (取数组成员数 (文件夹), 计次2)
指定目录 ＝ 文本_取出中间文本 (文本_取右边 (文件夹 [计次2], “/”, , ), “章”, “节”, , )
如果真 (指定文件 ＝ 指定目录)
结果 ＝ 文件_复制 (文件名 [计次1], 文件夹 [计次2] ＋ 文件_取文件名 (文件名 [计次1], 真), 真)
跳出循环 ()

计次循环尾 ()
计次循环尾 ()

.版本 2<br /> <br /> .子程序 功能_文件分类复制<br /> .参数 待整洁目录, 文本型, , 目录下存在待处理图片，jpg格式<br /> .参数 指定目录, 文本型, , 目录下存在章节文件夹<br /> .局部变量 文件名, 文本型, , "0"<br /> .局部变量 计次2, 整数型<br /> .局部变量 文件夹, 文本型, , "0"<br /> .局部变量 计次1, 整数型<br /> .局部变量 指定文件, 文本型<br /> .局部变量 指定目录, 文本型<br /> .局部变量 结果, 逻辑型<br /> <br /> 文件_枚举 (待整洁目录, “*.jpg”, 文件名, 真, , )<br /> 目录_枚举子目录 (指定目录, 文件夹, 真, )<br /> .计次循环首 (取数组成员数 (文件名), 计次1)<br />     指定文件 ＝ 数值到大写 (到整数 (文本_取左边 (文件_取文件名 (文件名 [计次1], 假), “_”, , )), 真)<br />     .计次循环首 (取数组成员数 (文件夹), 计次2)<br />         指定目录 ＝ 文本_取出中间文本 (文本_取右边 (文件夹 [计次2], “/”, , ), “章”, “节”, , )<br />         .如果真 (指定文件 ＝ 指定目录)<br />             结果 ＝ 文件_复制 (文件名 [计次1], 文件夹 [计次2] ＋ 文件_取文件名 (文件名 [计次1], 真), 真)<br /> <br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()

Ruang

压缩包里编译的控制台程序 一个是源码  一个是编译后的程序

sphinxes

Ruang 发表于 2025-4-26 19:16
压缩包里编译的控制台程序 一个是源码  一个是编译后的程序

请先输入待处理图片目录>
C:\Users\Sphinx\Desktop\jsjr (待处理图片目录)
请输入目录下存在章节文件夹>
C:\Users\Sphinx\Desktop\jsjr\第八章  （这个目录没看懂，我需要输入的是什么目录，我新建了一个第八章文件夹）
操作完成

然后一点反应都没有

sphinxes

Ruang 发表于 2025-4-26 19:16
压缩包里编译的控制台程序 一个是源码  一个是编译后的程序

有130个章节
我需要自动生成这130个文件夹
然后把每一章的图片 自动复制到这写文件夹中
麻烦帮我在看一下， 非常感谢你

Ruang

sphinxes 发表于 2025-4-26 19:30
请先输入待处理图片目录>
C:%users\Sphinx\Desktop\jsjr (待处理图片目录)
请输入目录下存在章节文件夹>

压缩包发一下给我看看文件，我调试一下看看

Ruang

  

子程序名	返回值类型	公开	备 注
功能_文件分类复制
参数名	类 型	参考	可空	数组	备 注
待整洁目录	文本型				目录下存在待处理图片，jpg格式
指定目录	文本型				目录下存在章节文件夹

变量名	类 型	静态	数组	备 注
文件名	文本型		0
计次2	整数型
文件夹	文本型		0
计次1	整数型
指定文件	文本型
指定目录	文本型
结果	逻辑型

文件_枚举 (待整洁目录, “*.jpg”, 文件名, 真, , )
目录_枚举子目录 (指定目录, 文件夹, 真, )
计次循环首 (取数组成员数 (文件名), 计次1)
指定文件 ＝ 数值到大写 (到整数 (文本_取左边 (文件_取文件名 (文件名 [计次1], 假), “_”, , )), 真)
计次循环首 (取数组成员数 (文件夹), 计次2)
指定目录 ＝ 文本_取出中间文本 (文本_取右边 (文件夹 [计次2], “/”, , ), “第”, “章”, , )
如果真 (指定文件 ＝ 指定目录)
结果 ＝ 文件_复制 (文件名 [计次1], 文件夹 [计次2] ＋ 文件_取文件名 (文件名 [计次1], 真), )  ' 可以自行修改成移动
如果真 (结果 ＝ 真)
标准输出 (1, 文件_取文件名 (文件名 [计次1], 真) ＋ “----” ＋ 文件夹 [计次2] ＋ “/” ＋ 文件_取文件名 (文件名 [计次1], 真))
跳出循环 ()

计次循环尾 ()
计次循环尾 ()

.版本 2<br /> <br /> .子程序 功能_文件分类复制<br /> .参数 待整洁目录, 文本型, , 目录下存在待处理图片，jpg格式<br /> .参数 指定目录, 文本型, , 目录下存在章节文件夹<br /> .局部变量 文件名, 文本型, , "0"<br /> .局部变量 计次2, 整数型<br /> .局部变量 文件夹, 文本型, , "0"<br /> .局部变量 计次1, 整数型<br /> .局部变量 指定文件, 文本型<br /> .局部变量 指定目录, 文本型<br /> .局部变量 结果, 逻辑型<br /> <br /> 文件_枚举 (待整洁目录, “*.jpg”, 文件名, 真, , )<br /> 目录_枚举子目录 (指定目录, 文件夹, 真, )<br /> .计次循环首 (取数组成员数 (文件名), 计次1)<br />     指定文件 ＝ 数值到大写 (到整数 (文本_取左边 (文件_取文件名 (文件名 [计次1], 假), “_”, , )), 真)<br />     .计次循环首 (取数组成员数 (文件夹), 计次2)<br />         指定目录 ＝ 文本_取出中间文本 (文本_取右边 (文件夹 [计次2], “/”, , ), “第”, “章”, , )<br />         .如果真 (指定文件 ＝ 指定目录)<br />             结果 ＝ 文件_复制 (文件名 [计次1], 文件夹 [计次2] ＋ 文件_取文件名 (文件名 [计次1], 真), )  ' 可以自行修改成移动<br />             .如果真 (结果 ＝ 真)<br />                 标准输出 (1, 文件_取文件名 (文件名 [计次1], 真) ＋ “----” ＋ 文件夹 [计次2] ＋ “/” ＋ 文件_取文件名 (文件名 [计次1], 真))<br />             .如果真结束<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()

更替一下代码，之前写错了

Ruang

应该没问题了，之前章节写错了

补充内容 (2025-4-26 19:49):
里面用的是复制，如果需要自行修改  文件_移动(, )

补充内容 (2025-4-26 19:49):
复制主要用于调试，避免后续移动错了

补充内容 (2025-4-26 19:50):
仅支持格式jpg