Batcher

回复 1# tttoi2000


如果页号是：
1
2
6
希望得到什么结果？

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

Batcher

回复 5# tttoi2000


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

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

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
    )
)
复制代码

Batcher

回复 9# tttoi2000


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

Batcher

回复 11# tttoi2000


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

Batcher

回复 14# cnnetstar


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

Batcher

回复 16# cnnetstar


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