@echo off & setlocal enabledelayedexpansion
for %%i in (*.txt) do (
    md "%%~ni" 2>nul
    for /f "usebackq delims=" %%a in ("%%i") do (
        set "str=%%a"
        if "!str:,地块=!" neq "!str!" (
            for /f "delims=," %%b in ("!str:*,地块=!") do (
                set "Name=地块%%b"
            )
        ) else if defined Name (
            for /f "tokens=1,3,4delims=, " %%b in ("!str!") do (
                echo,%%b,%%d,%%c>>"%%~ni\!Name!.txt"
            )
        )
    )
    set "Name="
)
pause
复制代码