Set fso = CreateObject("Scripting.FileSystemObject")
strKey ="D *11  Final seasonally adjusted data"

For Each file in fso.GetFolder(".").Files
    If LCase(Right(file.Name,4)) = ".txt" Then
        RegEx fso.OpenTextFile(file).ReadAll
    End If
Next

Sub RegEx(text)
    Set re = New RegExp
    re.Pattern = strKey & "[\s\S]+?([^ ]+) +[^ ]+\s+AVGE"
    re.IgnoreCase = True
    For Each a In re.Execute(text)
        fso.OpenTextFile("Result.txt",8,True).WriteLine a.SubMatches(0)
    Next
End Sub
复制代码

sed -n -r "/Final seasonally adjusted data/I,/AVGE/I! d; // {x; s/.* ([0-9.]+) +[0-9].*/\1/p}; /\./ h" *.txt
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /a-d /b /s *.txt') do (
	for /f "usebackq tokens=1,* delims= " %%i in ("%%a") do (
	set "n="
	if defined flag (
		if /i "%%i"=="avge" (
			set "flag="
			for %%A in (!str1!) do (
				set/a n+=1,s=n-1
				set str_!n!=%%A
				)
				call echo "%%~nxa" --- %%str_!s!%%
			)
		set str1=%%j
		)
	set str=%%i%%j
	set str=!str: =!
	if /i "!str!"=="D11Finalseasonallyadjusteddata" set flag=1
	)
)
pause
复制代码

sed -n -r "/D\s*11\s*Final seasonally adjusted data/I,/AVGE/I! d; // {x; s/.* ([0-9.]+) +[0-9].*/\1/p}; /\./ h" *.txt
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "tokens=*" %%i in ('dir /b/a-d *.txt') do (
    set "flag="
    for /f "usebackqtokens=1*" %%a in ("%%i") do (
       if defined flag (
            if /i "%%a" == "AVGE" (
               for /f "tokens=*" %%c in ("!var: =\!\!str: =\!\..") do echo %%~nxc
               set "flag="
            ) else set "var=!str!"
        ) else if /i "!str: =!" == "D11Finalseasonallyadjusteddata" set flag=1
          set "str=%%a%%b"
    )
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /a-d /b /s *.txt') do (
    set "n="
    for /f "usebackq tokens=1,* delims= " %%i in ("%%a") do (
        if defined flag (
        for %%A in (!str!) do (set/a n+=1,s=n-1 & set str_!n!=%%A)
        if /i "%%i"=="avge" (set "flag=" & call echo "%%~nxa" --- %%str_!s!%%)
    )
    set str=%%i %%j
    if /i "!str: =!"=="D11Finalseasonallyadjusteddata" set flag=1
    )
)
pause
复制代码