@echo off
for /f "skip=1 tokens=1-10" %%a in ('type "源数据.txt"') do (
    if not exist "%%f.txt" (
        > "%%f.txt" echo 井名	地区	样品深度	层位	类型	重矿物名称	重矿物含量(%)	样品编号	序号	备注
    )
    >> "%%f.txt" echo %%a	%%b	%%c	%%d	%%e	%%f	%%g	%%h	%%i	%%j
)
复制代码

@echo off & setlocal enabledelayedexpansion

set srcDir=%~dp0src
set targetDir=%~dp0target

mkdir "%targetDir%" 2>nul

for /f "delims=" %%f in ('dir /a-d /s /b "%srcDir%"') do (
	set /p firstLine=<"!%%f!"
	for /f "skip=1 delims=" %%i in ('type "%%f"') do (
		for /f "tokens=6 delims= " %%j in ("%%i") do (
			set targetFile=%targetDir%\%%j.txt
			if not exist "!targetFile!" echo;!firstLine!>"!targetFile!"
			echo;%%i>>"!targetFile!"
		)
	)
)
pause & exit /b
复制代码