文本内容提取 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

Originally posted by lxh623 at 2009-4-12 10:48:

麻烦您一下，可能我的表述不十分清楚。
有个问题：
UNITED STATES OF AMERICA (US)

PATENT (Number; Kind; Date): United States of America (US)

开始部分完全与之一 ...

这是处理你贴出的数据的结果，你指一下看哪里还有问问题

BASIC-PATENT:
UNITED STATES OF AMERICA (US)
PATENT (Number; Kind; Date): United States of America (US) 5,958,446; A; September 28, 1999
TITLE: SOLUBILITY PARAMETER BASED DRUG DELIVERY SYSTEM AND METHOD FOR ALTERING DRUG SATURATION CONCENTRATION
INVENTOR: MIRANDA JESUS, United States of America (US); SABLOTSKY STEVEN, United States of America (US)
PRIORITY (Number; Kind; Date):
United States of America (US) 1995-433754; A; May 04, 1995
United States of America (US) 1991-722342; A1; June 27, 1991
United States of America (US) 1989-295847; A2; January 11, 1989
United States of America (US) 1988-164482; A2; March 04, 1988
United States of America (US) 1991-671709; A2; April 02, 1991
World Intellectual Property Organisation (WO) 1990US9001750; W; March 28, 1990
PATENT ASSIGNEE: NOVEN PHARMA, United States of America (US)
APPLICATION (Number; Kind; Date): United States of America (US) 1995433754; A; May 04, 1995
INT-CL: A61F13/02 (Section A, Class 61, Sub-class F, Group 13, Sub-group 02)
NAT-CL: 424448; X426449
EURO-CL: A61F13/02M; A61K9/70E; A61L15/18; A61L15/58; A61L15/58M+C08L33/00; A61L15/58M+C08L31/04
DERWENT NUMBER: C1989-106432; C1990-225696; C1991-230072; C1991-310376; C1993-036110; C1994-109332; C1995-044946; C1997-558092
CHEMICAL ABSTRACT NUMBER: 111(10)084137W; 114(04)030158X; 116(10)091389M; 118(16)154566F; 120(26)331144F; 128(15)184708C
ABST:
The method of adjusting the saturation concentration of a drug in a transdermal composition for application to the dermis, which comprises mixing polymers having differing solubility parameters, so as to modulate the delivery of the drug. This results in the ability to achieve a predetermined permeation rate of the drug into and through the dermis. In one embodiment, a dermal composition of the present invention comprises a drug, an acrylate polymer, and a polysiloxane. The dermal compositions can be produced by a variety of methods known in the preparation of drug-containing adhesive preparations, including the mixing of the polymers, drug, and additional ingredients in solution, followed by removal of the processing solvents. The method and composition of this invention permit selectable loading of the drug into the dermal formulation and adjustment of the delivery rate of the drug from the composition through the dermis, while maintaining acceptable shear, tack, and peel adhesive properties.
PATENT (Number; Kind; Date): United States of America (US) 5,300,291; A; April 05, 1994
PATENT (Number; Kind; Date): World Intellectual Property Organisation (WO) 9,640,086; A3; February 13, 1997

复制保存为.js文件,直接把要处理的文件拖到该JS文件的图标上

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\)*?\r\nPATENT \(Number; Kind; Date\)\:.*|PATENT \(Number; Kind; Date\): European Patent Office \(EP\).*|PATENT \(Number; Kind; Date\): United States of America \(US\).*|PATENT \(Number; Kind; Date\): World Intellectual Property Organisation \(WO\).*|PATENT \(Number; Kind; Date\): Canada \(CA\).*|PATENT \(Number; Kind; Date\): People's Republic of China \(CN\).*|PATENT \(Number; Kind; Date\): Japan \(JP\).*|PATENT \(Number; Kind; Date\): Republic of Korea \(KR\).*|PATENT \(Number; Kind; Date\): United Kingdom \(GB\).*|PATENT \(Number; Kind; Date\): Germany \(DE\).*|PATENT \(Number; Kind; Date\): France \(FR\).*|PATENT \(Number; Kind; Date\): Russian Federation \(RU\).*\:.*/g
while ((arr=re.exec(sss))!=null)osss=osss+arr+"\r\n";
fl.write(osss);
WScript.echo("ok")

Originally posted by netbenton at 2009-4-13 00:53:

这是处理你贴出的数据的结果，你指一下看哪里还有问问题

BASIC-PATENT:

UNITED STATES OF AMERICA (US)

PATENT (Number; Kind; Date): United States of Am ...

同一BASIC PATENT内可能有多个“PATENT (Number; Kind; Date): United States of Am ”，但只有第一个前面有“UNITED STATES OF AMERICA (US)”。
据说，批处理不支持正则表达式，不知道如何解决？
贴出来的部分，因为考虑版面，节略太多。
再次谢谢您！

Originally posted by freeants001 at 2009-4-13 00:57:
复制保存为.js文件,直接把要处理的文件拖到该JS文件的图标上
File_Path=WScript.arguments(0); var sss,arr="",osss=""; var fso=new ActiveXObject(&quo ... 很快！“TITLE”和“UNITED STATES OF AMERICA (US)\r\n\r\nPATENT (Number; Kind; Date): United States of America (US)”，都是100条。遗憾的是，“basic patent”只有50几条，顺序也还不完美。开始就是“PATENT (Number; Kind; Date): ”。 [ Last edited by lxh623 on 2009-4-13 at 02:57 ]

下面这行也要吗??
-------------------------------------------------
BASIC-PATENT:

一楼示例处理后是不是要这种结果
PATENT (Number; Kind; Date): Taiwan (TW) 464,511; B; November 21, 2001 //这行不要

BASIC-PATENT:

UNITED STATES OF AMERICA (US)

PATENT (Number; Kind; Date): United States of America (US) 5,958,446; A; September 28, 1999

TITLE: SOLUBILITY PARAMETER BASED DRUG DELIVERY SYSTEM AND METHOD FOR ALTERING DRUG SATURATION CONCENTRATION
INVENTOR: MIRANDA JESUS, United States of America (US); SABLOTSKY STEVEN, United States of America (US)
PRIORITY (Number; Kind; Date):
United States of America (US) 1995-433754; A; May 04, 1995
United States of America (US) 1991-722342; A1; June 27, 1991
United States of America (US) 1989-295847; A2; January 11, 1989
United States of America (US) 1988-164482; A2; March 04, 1988
United States of America (US) 1991-671709; A2; April 02, 1991
World Intellectual Property Organisation (WO) 1990US9001750; W; March 28, 1990
PATENT ASSIGNEE: NOVEN PHARMA, United States of America (US)
APPLICATION (Number; Kind; Date): United States of America (US) 1995433754; A; May 04, 1995
INT-CL: A61F13/02 (Section A, Class 61, Sub-class F, Group 13, Sub-group 02)


NAT-CL: 424448; X426449
EURO-CL: A61F13/02M; A61K9/70E; A61L15/18; A61L15/58; A61L15/58M+C08L33/00; A61L15/58M+C08L31/04
DERWENT NUMBER: C1989-106432; C1990-225696; C1991-230072; C1991-310376; C1993-036110; C1994-109332; C1995-044946; C1997-558092
CHEMICAL ABSTRACT NUMBER: 111(10)084137W; 114(04)030158X; 116(10)091389M; 118(16)154566F; 120(26)331144F; 128(15)184708C
ABST:
The method of adjusting the saturation concentration of a drug in a transdermal composition for application to the dermis, which comprises mixing polymers having differing solubility parameters, so as to modulate the delivery of the drug. This results in the ability to achieve a predetermined permeation rate of the drug into and through the dermis. In one embodiment, a dermal composition of the present invention comprises a drug, an acrylate polymer, and a polysiloxane. The dermal compositions can be produced by a variety of methods known in the preparation of drug-containing adhesive preparations, including the mixing of the polymers, drug, and additional ingredients in solution, followed by removal of the processing solvents. The method and composition of this invention permit selectable loading of the drug into the dermal formulation and adjustment of the delivery rate of the drug from the composition through the dermis, while maintaining acceptable shear, tack, and peel adhesive properties.

PATENT (Number; Kind; Date): United States of America (US) 5,300,291; A; April 05, 1994

PATENT (Number; Kind; Date): World Intellectual Property Organisation (WO) 9,640,086; A3; February 13, 1997

Originally posted by freeants001 at 2009-4-13 03:10:
下面这行也要吗??
-------------------------------------------------
BASIC-PATENT:

是的！
台湾那行不要。其余就是想要的，空行可以删除。
js不能对整个文件夹操作吧？
谢谢！

[ Last edited by lxh623 on 2009-4-13 at 03:36 ]

Originally posted by lxh623 at 2009-4-13 03:22:

是的！
台湾那行不要。
js不能对整个文件夹操作吧？
谢谢！

[ Last edited by lxh623 on 2009-4-13 at 03:23 ]

可以处理子文件夹,包括子文件夹

发现附件中下面这行前有一个空格,但你贴出的示例中没有
BASIC-PATENT:

Originally posted by freeants001 at 2009-4-13 03:29:
发现附件中下面这行前有一个空格,但你贴出的示例中没有
BASIC-PATENT:

不好意思，没有仔细检查。

下面代码应该符合要求了吧？
要批量处理请文件夹，自己结合for命令把

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\n) ?BASIC-PATENT:|\r\nUNITED STATES OF AMERICA \(US\)\s*PATENT \(Number; Kind; Date\): United States of America \(US\)*?\r\nPATENT \(Number; Kind; Date\)\:.*|PATENT \(Number; Kind; Date\): European Patent Office \(EP\).*|PATENT \(Number; Kind; Date\): United States of America \(US\).*|PATENT \(Number; Kind; Date\): World Intellectual Property Organisation \(WO\).*|PATENT \(Number; Kind; Date\): Canada \(CA\).*|PATENT \(Number; Kind; Date\): People's Republic of China \(CN\).*|PATENT \(Number; Kind; Date\): Japan \(JP\).*|PATENT \(Number; Kind; Date\): Republic of Korea \(KR\).*|PATENT \(Number; Kind; Date\): United Kingdom \(GB\).*|PATENT \(Number; Kind; Date\): Germany \(DE\).*|PATENT \(Number; Kind; Date\): France \(FR\).*|PATENT \(Number; Kind; Date\): Russian Federation \(RU\).*\:.*/g
while ((arr=re.exec(sss))!=null)osss=osss+arr+"\r\n";
fl.write(osss);
WScript.echo("ok")

[ Last edited by freeants001 on 2009-4-13 at 03:51 ]

Originally posted by freeants001 at 2009-4-13 03:49:
下面代码应该符合要求了吧？
要批量处理请文件夹，自己结合for命令把
File_Path=WScript.arguments(0); var sss,arr="",osss=""; var fso=new Acti ... 谢谢！可以了！这一天，您和netbenton给我极大的帮助，祝您们事事顺心！

@echo off&setlocal enabledelayedexpansion

set ho=UNITED STATES OF AMERICA (US)
set en=PATENT (Number; Kind; Date):
set bg=United States of America (US)
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)
set li20=United States of America (US)
::国家判断只对比了前面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!" (
if "!str!"=="!ho!" (set vho=y&goto :eof) else (set vho=)
goto :eof
) else (
set "coc=!str:*%en% =!"
if defined vho (
if "!bg:~0,10!"=="!coc:~0,10!" (set vho=&set ver=y&echo !ho!&echo.!str!&goto :eof)
)
for /l %%a in (10,1,20) do (if "!li%%a:~0,10!"=="!coc:~0,10!" echo !str!&goto :eof)
)
goto :eof

再次谢谢两位！
这么复杂的数据经过批处理或JS脚本，得到可以进一步处理或导入文献软件的数据。我心里充满对二位的感激！两个办法都达到接近的结果，非常好！！

第31楼　netbenton	发表于 2009-04-13 00:53
银牌会员　发帖 752　积分 1,916　来自广西
Originally posted by lxh623 at 2009-4-12 10:48: 麻烦您一下，可能我的表述不十分清楚。有个问题： UNITED STATES OF AMERICA (US) PATENT (Number; Kind; Date): United States of America (US) 开始部分完全与之一 ... 这是处理你贴出的数据的结果，你指一下看哪里还有问问题 BASIC-PATENT: UNITED STATES OF AMERICA (US) PATENT (Number; Kind; Date): United States of America (US) 5,958,446; A; September 28, 1999 TITLE: SOLUBILITY PARAMETER BASED DRUG DELIVERY SYSTEM AND METHOD FOR ALTERING DRUG SATURATION CONCENTRATION INVENTOR: MIRANDA JESUS, United States of America (US); SABLOTSKY STEVEN, United States of America (US) PRIORITY (Number; Kind; Date): United States of America (US) 1995-433754; A; May 04, 1995 United States of America (US) 1991-722342; A1; June 27, 1991 United States of America (US) 1989-295847; A2; January 11, 1989 United States of America (US) 1988-164482; A2; March 04, 1988 United States of America (US) 1991-671709; A2; April 02, 1991 World Intellectual Property Organisation (WO) 1990US9001750; W; March 28, 1990 PATENT ASSIGNEE: NOVEN PHARMA, United States of America (US) APPLICATION (Number; Kind; Date): United States of America (US) 1995433754; A; May 04, 1995 INT-CL: A61F13/02 (Section A, Class 61, Sub-class F, Group 13, Sub-group 02) NAT-CL: 424448; X426449 EURO-CL: A61F13/02M; A61K9/70E; A61L15/18; A61L15/58; A61L15/58M+C08L33/00; A61L15/58M+C08L31/04 DERWENT NUMBER: C1989-106432; C1990-225696; C1991-230072; C1991-310376; C1993-036110; C1994-109332; C1995-044946; C1997-558092 CHEMICAL ABSTRACT NUMBER: 111(10)084137W; 114(04)030158X; 116(10)091389M; 118(16)154566F; 120(26)331144F; 128(15)184708C ABST: The method of adjusting the saturation concentration of a drug in a transdermal composition for application to the dermis, which comprises mixing polymers having differing solubility parameters, so as to modulate the delivery of the drug. This results in the ability to achieve a predetermined permeation rate of the drug into and through the dermis. In one embodiment, a dermal composition of the present invention comprises a drug, an acrylate polymer, and a polysiloxane. The dermal compositions can be produced by a variety of methods known in the preparation of drug-containing adhesive preparations, including the mixing of the polymers, drug, and additional ingredients in solution, followed by removal of the processing solvents. The method and composition of this invention permit selectable loading of the drug into the dermal formulation and adjustment of the delivery rate of the drug from the composition through the dermis, while maintaining acceptable shear, tack, and peel adhesive properties. PATENT (Number; Kind; Date): United States of America (US) 5,300,291; A; April 05, 1994 PATENT (Number; Kind; Date): World Intellectual Property Organisation (WO) 9,640,086; A3; February 13, 1997

第32楼　freeants001	发表于 2009-04-13 00:57
中级用户　发帖 244　积分 330　来自湖北
复制保存为.js文件,直接把要处理的文件拖到该JS文件的图标上 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\)\sPATENT \(Number; Kind; Date\): United States of America \(US\)?\r\nPATENT \(Number; Kind; Date\)\:.\|PATENT \(Number; Kind; Date\): European Patent Office \(EP\).\|PATENT \(Number; Kind; Date\): United States of America \(US\).\|PATENT \(Number; Kind; Date\): World Intellectual Property Organisation \(WO\).\|PATENT \(Number; Kind; Date\): Canada \(CA\).\|PATENT \(Number; Kind; Date\): People's Republic of China \(CN\).\|PATENT \(Number; Kind; Date\): Japan \(JP\).\|PATENT \(Number; Kind; Date\): Republic of Korea \(KR\).\|PATENT \(Number; Kind; Date\): United Kingdom \(GB\).\|PATENT \(Number; Kind; Date\): Germany \(DE\).\|PATENT \(Number; Kind; Date\): France \(FR\).\|PATENT \(Number; Kind; Date\): Russian Federation \(RU\).\:.*/g while ((arr=re.exec(sss))!=null)osss=osss+arr+"\r\n"; fl.write(osss); WScript.echo("ok")

第33楼　lxh623	发表于 2009-04-13 02:51
初级用户　发帖 30　积分 34
Originally posted by netbenton at 2009-4-13 00:53: 这是处理你贴出的数据的结果，你指一下看哪里还有问问题 BASIC-PATENT: UNITED STATES OF AMERICA (US) PATENT (Number; Kind; Date): United States of Am ... 同一BASIC PATENT内可能有多个“PATENT (Number; Kind; Date): United States of Am ”，但只有第一个前面有“UNITED STATES OF AMERICA (US)”。据说，批处理不支持正则表达式，不知道如何解决？贴出来的部分，因为考虑版面，节略太多。再次谢谢您！

第34楼　lxh623	发表于 2009-04-13 02:56
初级用户　发帖 30　积分 34
Originally posted by freeants001 at 2009-4-13 00:57: 复制保存为.js文件,直接把要处理的文件拖到该JS文件的图标上 File_Path=WScript.arguments(0); var sss,arr="",osss=""; var fso=new ActiveXObject(&quo ... 很快！“TITLE”和“UNITED STATES OF AMERICA (US)\r\n\r\nPATENT (Number; Kind; Date): United States of America (US)”，都是100条。遗憾的是，“basic patent”只有50几条，顺序也还不完美。开始就是“PATENT (Number; Kind; Date): ”。 [ Last edited by lxh623 on 2009-4-13 at 02:57 ]

第35楼　freeants001	发表于 2009-04-13 03:10
中级用户　发帖 244　积分 330　来自湖北
下面这行也要吗?? ------------------------------------------------- BASIC-PATENT:

第36楼　freeants001	发表于 2009-04-13 03:22
中级用户　发帖 244　积分 330　来自湖北
一楼示例处理后是不是要这种结果 PATENT (Number; Kind; Date): Taiwan (TW) 464,511; B; November 21, 2001 //这行不要 BASIC-PATENT: UNITED STATES OF AMERICA (US) PATENT (Number; Kind; Date): United States of America (US) 5,958,446; A; September 28, 1999 TITLE: SOLUBILITY PARAMETER BASED DRUG DELIVERY SYSTEM AND METHOD FOR ALTERING DRUG SATURATION CONCENTRATION INVENTOR: MIRANDA JESUS, United States of America (US); SABLOTSKY STEVEN, United States of America (US) PRIORITY (Number; Kind; Date): United States of America (US) 1995-433754; A; May 04, 1995 United States of America (US) 1991-722342; A1; June 27, 1991 United States of America (US) 1989-295847; A2; January 11, 1989 United States of America (US) 1988-164482; A2; March 04, 1988 United States of America (US) 1991-671709; A2; April 02, 1991 World Intellectual Property Organisation (WO) 1990US9001750; W; March 28, 1990 PATENT ASSIGNEE: NOVEN PHARMA, United States of America (US) APPLICATION (Number; Kind; Date): United States of America (US) 1995433754; A; May 04, 1995 INT-CL: A61F13/02 (Section A, Class 61, Sub-class F, Group 13, Sub-group 02) NAT-CL: 424448; X426449 EURO-CL: A61F13/02M; A61K9/70E; A61L15/18; A61L15/58; A61L15/58M+C08L33/00; A61L15/58M+C08L31/04 DERWENT NUMBER: C1989-106432; C1990-225696; C1991-230072; C1991-310376; C1993-036110; C1994-109332; C1995-044946; C1997-558092 CHEMICAL ABSTRACT NUMBER: 111(10)084137W; 114(04)030158X; 116(10)091389M; 118(16)154566F; 120(26)331144F; 128(15)184708C ABST: The method of adjusting the saturation concentration of a drug in a transdermal composition for application to the dermis, which comprises mixing polymers having differing solubility parameters, so as to modulate the delivery of the drug. This results in the ability to achieve a predetermined permeation rate of the drug into and through the dermis. In one embodiment, a dermal composition of the present invention comprises a drug, an acrylate polymer, and a polysiloxane. The dermal compositions can be produced by a variety of methods known in the preparation of drug-containing adhesive preparations, including the mixing of the polymers, drug, and additional ingredients in solution, followed by removal of the processing solvents. The method and composition of this invention permit selectable loading of the drug into the dermal formulation and adjustment of the delivery rate of the drug from the composition through the dermis, while maintaining acceptable shear, tack, and peel adhesive properties. PATENT (Number; Kind; Date): United States of America (US) 5,300,291; A; April 05, 1994 PATENT (Number; Kind; Date): World Intellectual Property Organisation (WO) 9,640,086; A3; February 13, 1997

第37楼　lxh623	发表于 2009-04-13 03:22
初级用户　发帖 30　积分 34
Originally posted by freeants001 at 2009-4-13 03:10: 下面这行也要吗?? ------------------------------------------------- BASIC-PATENT: 是的！台湾那行不要。其余就是想要的，空行可以删除。 js不能对整个文件夹操作吧？谢谢！ [ Last edited by lxh623 on 2009-4-13 at 03:36 ]

第38楼　freeants001	发表于 2009-04-13 03:24
中级用户　发帖 244　积分 330　来自湖北
Originally posted by lxh623 at 2009-4-13 03:22: 是的！台湾那行不要。 js不能对整个文件夹操作吧？谢谢！ [ Last edited by lxh623 on 2009-4-13 at 03:23 ] 可以处理子文件夹,包括子文件夹

第39楼　freeants001	发表于 2009-04-13 03:29
中级用户　发帖 244　积分 330　来自湖北
发现附件中下面这行前有一个空格,但你贴出的示例中没有 BASIC-PATENT:

第40楼　lxh623	发表于 2009-04-13 03:36
初级用户　发帖 30　积分 34
Originally posted by freeants001 at 2009-4-13 03:29: 发现附件中下面这行前有一个空格,但你贴出的示例中没有 BASIC-PATENT: 不好意思，没有仔细检查。

第41楼　freeants001	发表于 2009-04-13 03:49
中级用户　发帖 244　积分 330　来自湖北
下面代码应该符合要求了吧？要批量处理请文件夹，自己结合for命令把 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\n) ?BASIC-PATENT:\|\r\nUNITED STATES OF AMERICA \(US\)\sPATENT \(Number; Kind; Date\): United States of America \(US\)?\r\nPATENT \(Number; Kind; Date\)\:.\|PATENT \(Number; Kind; Date\): European Patent Office \(EP\).\|PATENT \(Number; Kind; Date\): United States of America \(US\).\|PATENT \(Number; Kind; Date\): World Intellectual Property Organisation \(WO\).\|PATENT \(Number; Kind; Date\): Canada \(CA\).\|PATENT \(Number; Kind; Date\): People's Republic of China \(CN\).\|PATENT \(Number; Kind; Date\): Japan \(JP\).\|PATENT \(Number; Kind; Date\): Republic of Korea \(KR\).\|PATENT \(Number; Kind; Date\): United Kingdom \(GB\).\|PATENT \(Number; Kind; Date\): Germany \(DE\).\|PATENT \(Number; Kind; Date\): France \(FR\).\|PATENT \(Number; Kind; Date\): Russian Federation \(RU\).\:./g while ((arr=re.exec(sss))!=null)osss=osss+arr+"\r\n"; fl.write(osss); WScript.echo("ok") [ Last edited by freeants001 on 2009-4-13 at 03:51* ]

第42楼　lxh623	发表于 2009-04-13 04:02
初级用户　发帖 30　积分 34
Originally posted by freeants001 at 2009-4-13 03:49: 下面代码应该符合要求了吧？要批量处理请文件夹，自己结合for命令把 File_Path=WScript.arguments(0); var sss,arr="",osss=""; var fso=new Acti ... 谢谢！可以了！这一天，您和netbenton给我极大的帮助，祝您们事事顺心！

第43楼　netbenton	发表于 2009-04-13 07:25
银牌会员　发帖 752　积分 1,916　来自广西
纯批的也可以了 @echo off&setlocal enabledelayedexpansion set ho=UNITED STATES OF AMERICA (US) set en=PATENT (Number; Kind; Date): set bg=United States of America (US) 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) set li20=United States of America (US) ::国家判断只对比了前面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!" ( if "!str!"=="!ho!" (set vho=y&goto :eof) else (set vho=) goto :eof ) else ( set "coc=!str:%en% =!" if defined vho ( if "!bg:~0,10!"=="!coc:~0,10!" (set vho=&set ver=y&echo !ho!&echo.!str!&goto :eof) ) for /l %%a in (10,1,20) do (if "!li%%a:~0,10!"=="!coc:~0,10!" echo !str!&goto :eof) ) goto :eof

第44楼　lxh623	发表于 2009-04-13 10:39
初级用户　发帖 30　积分 34
再次谢谢两位！这么复杂的数据经过批处理或JS脚本，得到可以进一步处理或导入文献软件的数据。我心里充满对二位的感激！两个办法都达到接近的结果，非常好！！