aloha20200628

回复 1# meiszp

输出结果文件为 out.txt.new，与被处理文件*.txt同目录
用楼主提供的4个示例文件测试通过...

@echo off &setlocal enabledelayedexpansion
(for /f "delims=" %%F in ('dir /b/s/a-d *.txt') do (
	set "v=%%~nF"
	for /f "tokens=1-4 delims==[" %%1 in ('findstr /ic:"MAIN ST. K =" /ic:"MAIN D.  C =" "%%F"^|more +2') do (
		set "v=!v!	%%2	%%4"
	)
	echo,!v: =!
))>out.txt.new
复制代码

aloha20200628

回复 8# meiszp

代码订正如下

@echo off &setlocal enabledelayedexpansion
(for /f "delims=" %%F in ('dir /b/s/a-d *.txt') do (
	set "v=%%~nF"
	for /f "tokens=1-4 delims==[" %%1 in ('findstr /ic:"MAIN ST. K =" /ic:"MAIN D.  C =" "%%F"^|more +2') do (
		set "v=!v!	%%2	%%4"
	)
	if "!v!" neq "%%~nF" echo,!v: =!
))>out.txt.new
复制代码

aloha20200628

回复 13# meiszp

读取第5行还须删除前后空白字符...订正代码如下

@echo off &setlocal enabledelayedexpansion
(for /f "delims=" %%F in ('dir /b/s/a-d *.txt') do (
	(call :get5 "%%F" v5) &set "v=!v5!"
	for /f "tokens=1-4 delims==[" %%1 in ('findstr /ic:"MAIN ST. K =" /ic:"MAIN D.  C =" "%%F"^|more +2') do (
		set "v=!v!	%%2	%%4"
	)
	if "!v!" neq "!v5!" echo,!v: =!
))>out.txt.new
exit/b
:get5
   for /f "usebackq skip=4 tokens=1 delims=	 " %%s in ("%~1") do (set "%~2=%%s"&exit/b)
   exit/b
复制代码