[文件操作] [已解决]批处理利用Excel表能否以页号的方法批量移动图片及相应建立文件夹？

tttoi2000

有批图片
001.jpg~N为连续号
已作好Excel文件
第一层文件夹名                           第二层文件夹名                                   页号
XX00·000-WS·2019-Y-DQL        XX00·000-WS·2019-Y-DQL-0001             1
XX00·000-WS·2019-Y-DQL        XX00·000-WS·2019-Y-DQL-0002             3
XX00·000-WS·2019-Y-DQL        XX00·000-WS·2019-Y-DQL-0003             5
X:\XX00·000-WS·2019-Y-DQL
    |_XX00·000-WS·2019-Y-DQL-0001
       |_XX00·000-WS·2019-Y-DQL-0001.001.jpg
       |_XX00·000-WS·2019-Y-DQL-0001.002.jpg
    |_XX00·000-WS·2019-Y-DQL-0002
       |_XX00·000-WS·2019-Y-DQL-0002.003.jpg
       |_XX00·000-WS·2019-Y-DQL-0002.004.jpg
    |_XX00·000-WS·2019-Y-DQL-0003
       |_XX00·000-WS·2019-Y-DQL-0003.005.jpg
       |_XX00·000-WS·2019-Y-DQL-0003.006.jpg
       .....N
请大神帮忙，另外有时首个文件夹和最尾文件夹会出现单幅图片，能否实现以页号的方法批量移动图片及相应建立文件夹？

Batcher

回复 16# cnnetstar


    请按照6楼的方法把处理之前和处理之后的目录结构分别上传到网盘，我理解一下。

cnnetstar

回复 4# Batcher


    REM 设置图片所在的文件夹
set "OldFolder=C:\Test\测试"
大佬, 请问一哈, 现在测试下是图片. 如果其下有多个子夹, 怎么修改代码来实现批量? 感谢!

Batcher

回复 14# cnnetstar


    请按照6楼的方法把处理之前和处理之后的目录结构分别上传到网盘，我理解一下。

cnnetstar

回复 8# Batcher


    大佬好! 这个代码怎么修改一哈, 可以实现以下功能:
1. 当前是测试下直接是JPG文件, 假如测试下还有一级子夹, 即现在新建的第一层, JPG已经在相应子夹内.
2. 目前是MOVE, 可否实现COPY, 让原始图片状态保留着.

十分感谢!

tttoi2000

辛苦大侠了，完美解决问题。

Batcher

回复 11# tttoi2000


    8楼代码已更新，请再试试。

tttoi2000

链接：https://pan.baidu.com/s/1Py0Ja2GOcAK-t6qOdNyLYw
提取码：t86l

Batcher

回复 9# tttoi2000


请按照6楼的步骤操作。如果需要加入微信群或QQ群，请参考：
http://bbs.bathome.net/thread-3473-1-1.html

tttoi2000

大侠有QQ号吗？图片还是没加上以文件夹名的前缀

Batcher

回复 7# tttoi2000


这个功能增加在20~24行：

@echo off
REM 设置图片所在的文件夹
set "OldFolder=C:\Test\测试"
REM 设置分页文件的文件名
set "InputFile=MyPage.txt"

cd /d "%~dp0"
setlocal enabledelayedexpansion
set "FileCount=1"
for /f "skip=1 tokens=1-3" %%a in ('type "%InputFile%"') do (
    if defined FolderL1 (
        call :ExecMove !FolderL1! !FolderL2! %%c
    )
    set "FolderL1=%%a"
    set "FolderL2=%%b"
)
md "!FolderL1!\!FolderL2!"
move "%OldFolder%\*.jpg" "!FolderL1!\!FolderL2!"
endlocal
for /f "delims=" %%i in ('dir /b /s /a-d "%OldFolder%\*.jpg"') do (
    for /f "delims=" %%j in ("%%i\..") do (
        ren "%%i" "%%~nxj.%%~nxi"
    )
)
exit /b

:ExecMove
md "%1\%2"
for %%i in ("%OldFolder%\*.jpg") do (
    move "%%i" "%1\%2"
    set /a FileCount+=1
    if !FileCount! equ %3 (
        exit /b
    )
)
复制代码

tttoi2000

回复 6# Batcher
您好，大侠在吗，成功的分出我想要的内容来了，但是图片没加以文件夹名的前缀
[img] https://imgse.com/i/pPD3vuT[/img]

Batcher

回复 5# tttoi2000


请把你测试用的bat、txt、jpg打包上传我试试。
如果需要上传文件，可以用阿里云盘或百度网盘。

如果需要上传截图，可以找个图床，例如：
http://bbs.bathome.net/thread-60985-1-1.html

tttoi2000

好像不行，图片都移到最外层文件夹了，且没改文件名及建立相应文件夹

Batcher

回复 3# tttoi2000


1、Excel表格内容导出文本文件 MyPage.txt
第一层文件夹名                           第二层文件夹名                                   页号
XX00·000-WS·2019-Y-DQL        XX00·000-WS·2019-Y-DQL-0001             1
XX00·000-WS·2019-Y-DQL        XX00·000-WS·2019-Y-DQL-0002             2
XX00·000-WS·2019-Y-DQL        XX00·000-WS·2019-Y-DQL-0003             5

2、请参考Q-04和Q-05把test.bat文件和MyPage.txt文件都保存为ANSI编码：
https://mp.weixin.qq.com/s/Koje4FufWxWBs7ioDy_LJA

@echo off
REM 设置图片所在的文件夹
set "OldFolder=C:\Test\测试"
REM 设置分页文件的文件名
set "InputFile=MyPage.txt"

cd /d "%~dp0"
setlocal enabledelayedexpansion
set "FileCount=1"
for /f "skip=1 tokens=1-3" %%a in ('type "%InputFile%"') do (
    if defined FolderL1 (
        call :ExecMove !FolderL1! !FolderL2! %%c
    )
    set "FolderL1=%%a"
    set "FolderL2=%%b"
)
md "!FolderL1!\!FolderL2!"
move "%OldFolder%\*.jpg" "!FolderL1!\!FolderL2!"
endlocal
exit /b

:ExecMove
md "%1\%2"
for %%i in ("%OldFolder%\*.jpg") do (
    move "%%i" "%1\%2"
    set /a FileCount+=1
    if !FileCount! equ %3 (
        exit /b
    )
)
复制代码

3、把test.bat文件和MyPage.txt文件放在同一个目录下，执行脚本test.bat