|
netbenton
银牌会员
批处理编程迷
积分 1916
发帖 752
注册 2008-12-28 来自 广西
状态 离线
|
『第
31 楼』:
Quote: | 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
|
精简
[你的+我的+他的]=>[大家的] 个人网志 |
|
2009-4-13 00:53 |
|
|
freeants001
中级用户
积分 330
发帖 244
注册 2006-4-14 来自 湖北
状态 离线
|
『第
32 楼』:
复制保存为.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\)[\s\S]*?\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")
|
|
2009-4-13 00:57 |
|
|
lxh623
初级用户
积分 34
发帖 30
注册 2008-11-24
状态 离线
|
『第
33 楼』:
Quote: | 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)”。
据说,批处理不支持正则表达式,不知道如何解决?
贴出来的部分,因为考虑版面,节略太多。
再次谢谢您!
|
|
2009-4-13 02:51 |
|
|
lxh623
初级用户
积分 34
发帖 30
注册 2008-11-24
状态 离线
|
『第
34 楼』:
Quote: | Originally posted by freeants001 at 2009-4-13 00:57:
复制保存为.js文件,直接把要处理的文件拖到该JS文件的图标上
[code]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 ]
|
|
2009-4-13 02:56 |
|
|
freeants001
中级用户
积分 330
发帖 244
注册 2006-4-14 来自 湖北
状态 离线
|
『第
35 楼』:
下面这行也要吗??
-------------------------------------------------
BASIC-PATENT:
|
|
2009-4-13 03:10 |
|
|
freeants001
中级用户
积分 330
发帖 244
注册 2006-4-14 来自 湖北
状态 离线
|
『第
36 楼』:
一楼示例处理后是不是要这种结果
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
|
|
2009-4-13 03:22 |
|
|
lxh623
初级用户
积分 34
发帖 30
注册 2008-11-24
状态 离线
|
『第
37 楼』:
Quote: | Originally posted by freeants001 at 2009-4-13 03:10:
下面这行也要吗??
-------------------------------------------------
BASIC-PATENT: |
|
是的!
台湾那行不要。其余就是想要的,空行可以删除。
js不能对整个文件夹操作吧?
谢谢!
[ Last edited by lxh623 on 2009-4-13 at 03:36 ]
|
|
2009-4-13 03:22 |
|
|
freeants001
中级用户
积分 330
发帖 244
注册 2006-4-14 来自 湖北
状态 离线
|
『第
38 楼』:
Quote: | Originally posted by lxh623 at 2009-4-13 03:22:
是的!
台湾那行不要。
js不能对整个文件夹操作吧?
谢谢!
[ Last edited by lxh623 on 2009-4-13 at 03:23 ] |
|
可以处理子文件夹,包括子文件夹
|
|
2009-4-13 03:24 |
|
|
freeants001
中级用户
积分 330
发帖 244
注册 2006-4-14 来自 湖北
状态 离线
|
『第
39 楼』:
发现附件中下面这行前有一个空格,但你贴出的示例中没有
BASIC-PATENT:
|
|
2009-4-13 03:29 |
|
|
lxh623
初级用户
积分 34
发帖 30
注册 2008-11-24
状态 离线
|
『第
40 楼』:
Quote: | Originally posted by freeants001 at 2009-4-13 03:29:
发现附件中下面这行前有一个空格,但你贴出的示例中没有
BASIC-PATENT: |
|
不好意思,没有仔细检查。
|
|
2009-4-13 03:36 |
|
|
freeants001
中级用户
积分 330
发帖 244
注册 2006-4-14 来自 湖北
状态 离线
|
『第
41 楼』:
下面代码应该符合要求了吧?
要批量处理请文件夹,自己结合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\)[\s\S]*?\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 ]
|
|
2009-4-13 03:49 |
|
|
lxh623
初级用户
积分 34
发帖 30
注册 2008-11-24
状态 离线
|
『第
42 楼』:
Quote: | Originally posted by freeants001 at 2009-4-13 03:49:
下面代码应该符合要求了吧?
要批量处理请文件夹,自己结合for命令把
[code]File_Path=WScript.arguments(0);
var sss,arr="",osss="";
var fso=new Acti ... |
|
谢谢!
可以了!这一天,您和netbenton给我极大的帮助,祝您们事事顺心!
|
|
2009-4-13 04:02 |
|
|
netbenton
银牌会员
批处理编程迷
积分 1916
发帖 752
注册 2008-12-28 来自 广西
状态 离线
|
『第
43 楼』:
纯批的也可以了
@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
|
精简
[你的+我的+他的]=>[大家的] 个人网志 |
|
2009-4-13 07:25 |
|
|
lxh623
初级用户
积分 34
发帖 30
注册 2008-11-24
状态 离线
|
『第
44 楼』:
再次谢谢两位!
这么复杂的数据经过批处理或JS脚本,得到可以进一步处理或导入文献软件的数据。我心里充满对二位的感激!两个办法都达到接近的结果,非常好!!
|
|
2009-4-13 10:39 |
|
|