meiszp

回复 5# hfxiang
谢谢热心帮助。

meiszp

回复 4# aloha20200628
谢谢热心帮助，试验了下代码。如果文件夹下全是试验的txt文件，运行成功。
但如果有其他的txt文件，就会输出文件名。

meiszp

回复 3# 77七
谢谢热心帮助，运行代码显示" press any key to continue…"，out.txt为空。

meiszp

回复 2# terse
谢谢大佬帮助。如果第1列不是文件名101而是文件里第5行的101，代码该怎么写？

hfxiang

回复 1# meiszp
用gawk（ http://bcn.bathome.net/tool/4.1.0/gawk.exe ）的解决办法如下：

gawk -v"OFS=\t" "/excluding mass coefficients/,/\*{60,}/{if(/MAIN/){A[++i]=$5;A[++i]=$11}if(/\*{60,}/)print substr(FILENAME,1,length(FILENAME)-4),A[1],A[2],A[3],A[4];next}{i=0}" *.txt>out.txt
复制代码

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
复制代码

77七

@echo off
chcp 65001 >nul
cd /d "%~dp0"
(for /f "delims=" %%x in ('dir /b /a-d *.txt ^|find /v "out.txt"') do (
	for /f "useback tokens=1-12" %%a in ("%%x") do (
		if /i "%%a%%b%%c" equ "excludingmasscoefficients" (
			set m=1
		) else if defined m (
			if /i "%%a%%b%%c" equ "MAINST.K" (
				set /p="%%~nx	%%e	%%k"<nul
			) else if /i "%%a%%b%%c" equ "MAIND.C" (
				echo=	%%e	%%k
				set m=
			)
		)
	)
))>"out.txt"
pause
复制代码

terse

@echo off&setlocal enabledelayedexpansion
(for /f "delims=" %%f in ('dir /b /a-d *.txt') do (
     set "exc="
     for /f "usebackq tokens=*" %%i in ("%%f") do (
          if defined exc (
               for /f "tokens=2,3delims==" %%a in ("%%i") do (
                    if "%%b" neq "" (
                         for %%A in ("%%a" "%%b") do (
                              for /f %%c in (%%A) do set "exc=!exc!	%%c"
                         )
                    ) else (
                         echo !exc!
                         set "exc="
                    )
               )
          )
          if /i "%%~xni" == "excluding mass coefficients" (set exc=%%~nf)
     )
))>out.txt 2>nul
pause
复制代码