# 保存了ANSI编码
/Code="([^"]+)"/ {A = gensub(/^.*Code="([^"]+)".*$/, "\\1", "g", $0)}
/Name="([^"]+)"/ {B = gensub(/^.*Name="([^"]+)".*$/, "\\1", "g", $0)}
/Tender="([^"]+)"/ {C = gensub(/^.*Tender="([^"]+)".*$/, "\\1", "g", $0)}
END {print FILENAME "+" A "+" B "+" C}
复制代码

@echo off
@rem 保存为ANSI格式
set "_gawk.exe=1"
set "_test.awk=1"
set "_test.bat=1"
set "_test.txt=1"
(for /f "tokens=*" %%a in ('dir/s/b/a-d') do (
	if not defined _%%~nxa gawk -f.\test.awk "%%~fa"
))>test.txt
复制代码

@echo off
for /f "delims=" %%a in ('dir /s /b /a-d^|findstr /v %~nx0') do (
    setlocal enabledelayedexpansion
    for /f "delims=" %%b in ('findstr "Code Name Tender" "%%a"') do (
        for %%i in (%%b) do (
            if "!str!"=="Code" (
                set Code=%%~i
            ) else if "!str!"=="Name" (
                set Name=%%~i
            ) else if "!str!"=="Tender" (
                set Tender=%%~i
            )
            set str=%%~i
        )
    )
    if defined Code echo,%%a	!Code!	!Name!	!Tender!
    endlocal
)
pause
复制代码

@echo off
set /a _Code=_Name=_Tender=1
for /f "delims=" %%a in ('dir /s /b /a-d^|findstr /v %~nx0') do (
    setlocal enabledelayedexpansion
    for /f "delims=" %%b in ('findstr "Code Name Tender" "%%a"') do (
        for %%i in (%%b) do (
            if defined _!str! set !str!=%%~i
            set str=%%~i
        )
    )
    if defined Code echo,%%a	!Code!	!Name!	!Tender!
    endlocal
)
pause
复制代码

@if(0)==(0) echo off
set "folder=text"
dir "%folder%\*.*" /b /a-d /s |cscript.exe //NoLogo //E:JScript "%~f0"
pause&exit
@end

function SaveText(filename, text, charset) {
  var stream;
  stream = new ActiveXObject("ADODB.Stream");
  stream.type = 2;
  stream.charset = charset;
  stream.open();
  stream.writeText(text);
  stream.saveToFile(filename, 2);
  stream.close();
}

var fso = new ActiveXObject('Scripting.FileSystemObject'),
re = /(Code="|Name="|Tender=")([^"]+)"/img,
result = ''

while (!WSH.StdIn.AtEndOfStream){
       var file = WSH.StdIn.ReadLine(),
       f = fso.OpenTextFile(file,1),
       content = f.ReadAll();
       f.Close();
       content.replace(re, function($a,$b,$c)
       {
           file += $c != null ? ( ' ' + $c ):'';
       })
       result += result != '' ? '\n' + file : file

}
SaveText("result.txt",result,"utf-8")
WSH.Echo(result)
复制代码

@echo off
set "folder=text"
powershell "[regex]$re = '(?smi)(?<=Name=\"^|Code=\"|Tender=\")([^^\"]*)';(dir %folder% -File -Recurse).FullName.ForEach({$_+ ' '+($re.Matches((gc $_ -Raw)).Value  -join ' ')}) | Out-File result.txt -Encoding utf8 "
pause
复制代码

@if(0)==(0) echo off
set "folder=text"
dir "%folder%\*.*" /b /a-d /s |cscript.exe //NoLogo //E:JScript "%~0"
pause&exit
@end

function SaveText(filename, text, charset) {
       var stream;
       stream = new ActiveXObject("ADODB.Stream");
       stream.type = 2;
       stream.charset = charset;
       stream.open();
       stream.LoadFromFile(filename)
       stream.Position = stream.Size
       stream.writeText(text);
       stream.saveToFile(filename, 2);
       stream.close();
}

var fso = new ActiveXObject('Scripting.FileSystemObject'),
re = /(Code="|Name="|Tender=")([^"]+)"/img,
result = '';
fso.CreateTextFile("result.txt", true);
while (!WSH.StdIn.AtEndOfStream){
       var file = WSH.StdIn.ReadLine(),
       f = fso.OpenTextFile(file,1),
       content = f.ReadAll();
       f.Close();
       content.replace(re, function($a,$b,$c)
       {
           file += $c != null ? ( ' ' + $c):'';
       })
       WSH.Echo(file)
       SaveText("result.txt",file +'\n',"utf-8")
}
复制代码