@echo off
:start ============================================================
echo LUNO,NETNO,HostPortNo0,IP,子网掩码,网关,处理器主频>>cc.txt
set "_CPU_BL=0"
for /f "tokens=* delims=" %%A in ('dir /a-d/b/s "文件夹A\*.txt"') do (
setlocal enabledelayedexpansion
for /f "tokens=1,2* usebackq delims=.,=: " %%a in ("%%~A") do (
if /i "%%~a"=="LUNO" set "_LUNO=%%~b"
if /i "%%~a"=="NETNO" set "_NETNO=%%~b"
if /i "%%~a"=="HostPortNo0" set "_HostPortNo0=%%~b"
if /i "%%~a %%~b"=="IP Address" set "_IP_Address=%%~c"
if /i "%%~a %%~b"=="Subnet Mask" set "_Subnet_Mask=%%~c"
if /i "%%~a %%~b"=="Default Gateway" set "_Default Gateway=%%~c"
if !_CPU_BL!==1 set "_CPU=%%~b %%~c"&set "_CPU_BL=0"
if /i "%%~a"=="处理器" set "_CPU_BL=1"
)
echo !_LUNO!,!_NETNO!,!_HostPortNo0!,!_IP_Address!,!_Subnet_Mask!,!_Default Gateway!,!_CPU!
endlocal
)>>cc.txt


:end=============================================================
复制代码

@echo off&setlocal enabledelayedexpansion
echo LUNO,NETNO,HostPortNo0,IP,子网掩码,网关,处理器主频>a.csv
for /f "delims=" %%i in ('dir /b *.txt') do (
  set str=
  for %%a in ("LUNO" "NETNO" "HostPortNo0" "IP Address" "Subnet Mask" "Default Gateway" "Mhz") do (
    for /f "tokens=2 delims=,:=" %%b in ('findstr /i /c:"%%~a" "%%i"') do (
      set "str=!str!,%%~b"
    )
  )
  if not "!str!"=="" echo,!str:~5!>>a.csv
)
复制代码

@echo off
set "tab=tab制表符"
rem 这里请自行替换成实际符号
(for /l %%a in (1 1 9) do (
	setlocal enabledelayedexpansion
	for %%b in (a b c d e) do set "str=!str!%tab%%%a%%b
	echo !str:~1!
	endlocal
))>1.xls
pause
复制代码

@echo off
(echo ^<table^>
for /l %%a in (1 1 9) do (
	setlocal enabledelayedexpansion
	for %%b in (a b c d e) do set "str=!str!<td>%%a%%b</td>"
	echo ^<tr^>!str!^</tr^>
	endlocal
)
echo ^</table^>)>1.xls
pause
复制代码

...
)
for /f "tokens=1* delims==" %%a in ('set _') do set "%%a=!%%a:=++!"
echo !_LUNO!.......
复制代码

::pushd A 这个A是要处理的文件夹。如果路径中有空格要加引号。比如"E:\E:\Users\Canyue\Te st"
@echo off & setlocal enabledelayedexpansion
set "now=%cd%" & pushd A || exit
set "cline=LUNO;NETNO;HostPortNo0;IP-Address;Subnet-Mask;Default-Gateway"
set temp=%cline:IP-Address=IP%
set temp=%temp:Subnet-Mask=子网掩码%
set temp=%temp:Default-Gateway=网关%
echo %temp:;=,%,处理器频率 > "%now%\a.csv"
for /f "tokens=* delims=" %%f in ('dir /b /a-d *.txt') do (call :findc "%%f") >> "%now%\a.csv"
echo 所有完成。
pause>nul
exit

:findc
setlocal
for %%i in (%cline%) do (
    set "cfind=%%i" & set "cfind=!cfind:-= !"
    for /f "skip=2 tokens=2 delims==,:" %%j in ('find "!cfind!" "%~1"') do set %%i=%%~j
)
for %%i in (%cline%) do call set /p=%%%%i%%,<nul 
for /f "skip=2 tokens=1 delims=[]: " %%i in ('find /n "处理器:" "%~1"') do set line=%%i
for /f "skip=%line% tokens=2 delims=: usebackq" %%i in ("%~1") do if not defined v echo %%i & set v=b
endlocal
goto :eof
复制代码