inflikt

回复 14# apang
apang大大，您的代码执行过后我发现一个问题，我的其中一个txt文件代码部分截取如下
D11  Final seasonally adjusted data
  From  2005.Jan to 2010.Feb
  Observations         62
-----------------------------------------------------------------------------------------------------------------------------------
               Jan      Feb      Mar      Apr      May      Jun      Jul      Aug      Sep      Oct      Nov      Dec        TOTAL  
-----------------------------------------------------------------------------------------------------------------------------------
  2005      5560.87  5591.96  5599.21  5314.09  5283.27  5257.40  5341.94  5424.71  5403.71  5445.10  5362.25  5384.08      64968.60

  2006      5299.67  5358.86  5340.71  5449.64  5472.21  5491.96  5469.75  5474.28  5603.07  5505.59  5487.61  5427.77      65381.14

  2007      5591.09  5465.43  5419.30  5502.66  5562.31  5531.94  5559.30  5563.93  5513.07  5355.59  5497.61  5477.77      66040.00

  2008      5381.09  5495.43  5649.30  5562.66  5322.31  5281.94  5069.30  5003.93  5023.07  4495.59  3837.61  4067.77      60190.00

  2009      4611.09  5055.43  5049.30  4992.66  5302.31  5401.94  5559.63  5564.00  5332.27  5554.77  5477.28  5608.04      63508.72

  2010      5653.99  5370.36                                                                                                11024.35

  AVGE      5349.63  5389.58  5411.56  5364.34  5388.48  5393.04  5399.99  5406.17  5375.04  5271.33  5132.47  5193.09

    应该是要得到5370.36（D11下面第一个AVGE，AVGE前面的第二个数），而实际运行结果是5302.31

apang

蛋疼，试试vbs先，明天再说

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

tmplinshi

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

如果没有 sed，请点击我签名里的链接下载。

foxJL

情况太复杂,写着写着就成这样了.我在本地测试能过,希望不会再出现别的情况

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

apang

回复 16# inflikt


    14#改一下，试试看

foxJL

19楼更新了一下，应该可以了吧

inflikt

回复 20# apang

apang大大，改动后测试成功，能得出正确结果，现正在学习代码中，谢谢！

inflikt

回复 21# foxJL

foxJL大大，辛苦了，您的代码我测试过，还是那个问题，如果AVGE上一行数据不够的话得不出结果，详见16#代码或是13#的附件

inflikt

回复 18# tmplinshi
  tmplinshi 大大，您的代码我测试下来跟foxJL的问题一样，就是16#代码执行不出结果，另大大辛苦了，夜里2点多还在帮我修改。

foxJL

回复 23# inflikt


再测试一下19楼的代码,在我本地是没有问题的.
因为公司电脑禁用了下载所以无法下载你的附件测试,只能用你16L的文本测试的.

tmplinshi

sed 代码我测试没问题的，你是不是修改了代码？如果要加上 D11 的话，这样改：

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

如果结果不正确的话，最好把那个文本以附件形式上传上来。

terse

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

inflikt

回复 26# tmplinshi

似乎还是这个问题，我现在打包上来3个文件，只能得到2个数字，不知道是不是我这边的问题

inflikt

回复 27# terse

好像得出的结果很奇怪，我这边测试的3个文件，应该是得出3个数字，结果却是2个数字和一个中文。。。详见28楼附件

foxJL

回复 28# inflikt


    终于知道是什么问题了,b.txt 2009的下面一行才一个数字...重新修改了一下,应该可以了.

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