@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /b *.txt') do (
    for /f "skip=1 tokens=1,2 delims= " %%b in (a.txt) do (
        set n=
        if "%%a"=="%%b.txt" (
	   for /f "delims=" %%d in ('type %%b.txt') do ( 
	       set /a n+=1
               if !n!==5 (echo;%%c>>%%b000.txt
               ) else (echo;%%d>>%%b000.txt)
        )
             del "%%b".txt
             ren "%%b000".txt "%%b".txt
    )
  )
)
pause
复制代码

@set @n=0; /* & echo off&setlocal enabledelayedexpansion
::excel文件名称
set "excelFile=list.xlsx"
for /f "delims=" %%i in ('echo;%excelFile%^|cscript -nologo -e:jscript "%~0"') do set "%%i"
for /f "delims=" %%i in ('dir /b *.txt') do (
	(for /f "usebackq delims=" %%a in ("%%i") do (
		set "line=%%a"
		if "!line:~0,4!" equ "PDAT" (echo;!_%%~ni!) else echo;%%a
	))>"$%%i$"
	move /y "$%%i$" "%%i"
)
del /q "$*$"
pause & exit/b & rem */

function readExcel(filePath) {
	var oXL = new ActiveXObject("Excel.application");
	var oWB = oXL.Workbooks.open(filePath);
	oWB.worksheets(1).select();
	var oSheet = oWB.ActiveSheet;
	var rows = oSheet.usedrange.rows.count;
	var tempStr = "";
	for (var i = 1; i <= rows; i++) {
		if (oSheet.Cells(i, 1).value == "null" || oSheet.Cells(i, 2).value == "null")
			break;
		tempStr+= "_"+oSheet.Cells(i, 1)+"="+oSheet.Cells(i, 2)+"\r\n"
	}
	WSH.Echo(tempStr)
	oXL.Application.Quit();
	CollectGarbage();
}
var filePath = WScript.StdIn.ReadAll();
readExcel(filePath);
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "usebackq tokens=1*" %%a in ("list.txt") do (
    (for /f "usebackq delims=" %%i in ("%%a.txt") do (
        set "str=%%i"
        set "str=!str:  =!"
        set "str=!str: =!"
        if "!str:~,4!" equ "PDAT" (echo; %%b) else echo;%%i
    ))>$
    move $ "%%a.txt"
)
pause
复制代码