Batcher

回复 1# xp3000


    请把测试数据和目录结构打包上传到网盘

Batcher

回复 3# xp3000

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /ad "*标语*"') do (
    set "FolderRemark=%%i"
)
for /f "delims=" %%i in ('dir /b /a-d "!FolderRemark!\*.txt" ^| find /v /c ""') do (
    set "NumRemark=%%i"
)
for /f "delims=" %%i in ('dir /b /ad "*年级*"') do (
    echo --- %%i
    for /f "delims=" %%j in ('dir /b /a-d "%%i\*.txt"') do (
        echo %%i\%%j
        (for /f "tokens=1* delims=:" %%a in ('type "%%i\%%j" ^| findstr /n .*') do (
            set /a FileRemark=!random!%%^(NumRemark-1+1^)+1
            set /p StrRemark=<"!FolderRemark!\!FileRemark!.txt"
            if "%%b" == "" (
                echo,
            ) else (
                echo,%%b !StrRemark!
            )
        ))>"%%i\%%~nj标语%%~xj"
    )
)
复制代码