中国DOS联盟

File_Path=WScript.arguments(0);
var sss,arr="",osss="";
var fso=new ActiveXObject("scripting.filesystemobject");
var fl=fso.opentextfile(File_Path,1);sss=fl.readall();
fl=fso.opentextfile(File_Path+"_转换后.txt",2,true);
var re=/\r\nUNITED STATES OF AMERICA \(US\)[\s]*PATENT \(Number; Kind; Date\): United States of America \(US\)[\s\S]*?\r\nPATENT \(Number; Kind; Date\)\:.*|\r\nPATENT \(Number; Kind; Date\)\:.*/g
while ((arr=re.exec(sss))!=null)osss=osss+arr+"\r\n";
fl.write(osss);

@echo off&setlocal enabledelayedexpansion

set ho=UNITED STATES OF AMERICA (US)
set bg=PATENT (Number; Kind; Date): United States of America (US)
set en=PATENT (Number; Kind; Date):
set li1=PATENT (Number; Kind; Date):

set li10=European Patent Office (EP)
set li11=United States of America (US)
set li12=World Intellectual Property Organisation (WO)
set li13=Canada (CA)
set li14=People's Republic of China (CN)
set li15=Japan (JP)
set li16=Republic of Korea (KR)
set li17=United Kingdom (GB)
set li18=Germany (DE)
set li19=France (FR)
set li21=Russian Federation (RU)
::国家判断只对比了前面10个字节，应该可以了的。

set li2=BASIC-PATENT:
set "ver="
(for /f "delims=" %%a in (sour.txt) do (set "str=%%a"&call :sub))>dest.txt
start dest.txt
pause
goto :eof

:sub
if defined ver (echo.!str!
if not "!str:%en%=!"=="!str!" set ver=
goto :eof)

if not "!str:%bg%=!"=="!str!" (set ver=y&echo !ho!&echo.!str!&goto :eof)
if not "!str:%li1%=!"=="!str!" (
        set "coc=!str:*%li1% =!"
        for /l %%a in (10,1,21) do (if "!li%%a:~0,10!"=="!coc:~0,10!" echo !str!&goto :eof)
)
if not "!str:%li2%=!"=="!str!" echo !str!
goto :eof

@echo off&setlocal enabledelayedexpansion

set ho=UNITED STATES OF AMERICA (US)
set bg=United States of America (US)
set en=PATENT (Number; Kind; Date):
set li2=BASIC-PATENT:


set li10=European Patent Office (EP)
set li11=Russian Federation (RU)
set li12=World Intellectual Property Organisation (WO)
set li13=Canada (CA)
set li14=People's Republic of China (CN)
set li15=Japan (JP)
set li16=Republic of Korea (KR)
set li17=United Kingdom (GB)
set li18=Germany (DE)
set li19=France (FR)
::国家判断只对比了前面10个字节，应该可以了的。
for /f %%a in ('dir /b *.txt') do (
set "ver="
(for /f "delims=" %%d in (%%a) do (set "str=%%d"&call :sub))>%%~na_dest.txt

start %%~na_dest.txt

)
echo 处理完成
pause
goto :eof

:sub
if defined ver (echo.!str!
if not "!str:%en%=!"=="!str!" set ver=
goto :eof)

if not "!str:%li2%=!"=="!str!" echo !str!&goto :eof

if "!str:%en%=!"=="!str!" (goto :eof) else (
        set "coc=!str:*%en% =!"
        if "!bg:~0,10!"=="!coc:~0,10!" (set ver=y&echo !ho!&echo.!str!&goto :eof)
        for /l %%a in (10,1,19) do (if "!li%%a:~0,10!"=="!coc:~0,10!" echo !str!&goto :eof)
)
goto :eof