meiszp

回复 15# 77七
两个代码删除第二行 chcp 65001 >nul ，运行成功。
由于代码帅选规则，txt文件必须和试样文件相同。

meiszp

回复 14# aloha20200628

谢谢，试验成功。开始输出不对，后来发现是 dir /b/s/a-d还输出了子目录下的txt文件，改成 dir /b/a-d就自输出当前目录。

terse

回复 12# meiszp
不通用，仅针对样本写的

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1,2*delims=:" %%i in ('"findstr /n . *.txt|findstr /c:"txt:5:" /c:"excluding mass coefficients""') do (
     if defined _%%i (set $%%i=%%j) else for /f %%k in ("%%k") do set "_%%i=%%~xnk"
)
(
     for /f "tokens=1,2,4,6*delims=:=[" %%a in ('findstr /inrc:"\<MAIN .*\[NS*/M\]$"  *.txt') do (
          if %%b gtr !$%%a! (
              if !num! == !_%%a! (
                  if defined str (set str=!str!	%%c	%%d)else set str=!num!	%%c	%%d
              ) else echo;!str: =!&set num=!_%%a!&set str=!num!	%%c	%%d
          ) else if not defined num set num=!_%%a!
     )
     echo;!str: =!
)>out.log
pause
复制代码

meiszp

回复 18# terse

谢谢！

qixiaobin0715

@echo off
(for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
    setlocal enabledelayedexpansion
    for /f "tokens=1-3,5,11" %%a in ('type "%%i"') do (
        set /a n+=1
        if !n! equ 4 (
            set str=%%a
        ) else if "%%a %%b %%c"=="excluding mass coefficients" (
            set m=0
        ) else if defined m (
            set /a m+=1
            set str=!str!	%%d	%%e
            if !m! equ 2 (
                echo,!str!
                set m=
            )
        )
    )
    endlocal
))>out.txt
pause
复制代码

meiszp

回复 20# qixiaobin0715

谢谢热心回复！
请问echo,!str!   echo后面的“，”有什么作用，好像去掉也可以的。

你的代码cad窗口输出了结果 ，如果同时输出out.txt文件呢？

循环最外面加了)>out.txt，cmd窗口又不输出了。

qixiaobin0715

echo显示内容时，后面加“空格或,或;或.或/.......”均可。
20楼代码已修改

meiszp

回复 22# qixiaobin0715

谢谢！搜索了下，屏幕和文件同时显示，需要使用type out.txt