搜索
:20030915:,:01ZH14022:(1978),,,(1968),,,CNPAT(,201800),;;;AbstractThepaperintroducesthemodulesthatconsistofShanghaiPatentStatisticalandAnalysisSystem(SPSAS)aswellasthefunctionsthosemodulesperform,thenitexpoundsthepatentdataconversionmoduleindetail.Keywordspatentdata;patentdataconversion;patentdatastatisticalanalysis;patentdatabaseG250174A1008-0821(2004)01-0015-031(),,,,CNPAT(ABS)2,Delphi710,Access2000Delphi710ADO,,,,1211,CNPAT(ABS),,,,,1:IPC;51200411January12004No.1©1994-2009ChinaAcademicJournalElectronicPublishingHouse.Allrightsreserved.(ABS),,:()()()()(),(),,,,15,:()()()()()CNPAT(ABS)(19852001),:=,32747,32()311,Tpatten,ob2ject,Tpattenprocedureopenfn(fn3:string)functiongetonerec:booleanfunctiongetpos:integer;3,bufcurspnextsp,;2,,,nextspcursp;jltyperecpfsizerecp;fsizejltype:typejltype=recordADOTDSDLR:String[100];ADOTDSDZ:String[100];2ADOTDSFMSJR:String[100];()ADOTDSFLH:String[50];ADOTDSGKH:String[50];()ADOTDSGKR:TDateTime;/()ADOTDSMC:String[100];ADOTDSSQH:String[50];()ADOTDSSQR:String[100];()ADOTDSSQRi:TDateTime;ADOTDSCDH:String[50];ADOTDSZY:array[0..9999]ofchar;ADOTDSZFLH:String[50];ADOTDSZQX:array[0..9999]ofchar;ADOTDSDLJG:String[100];end;:ProcedureBlockread(VarF:File;VarBuffer;VarCount:Longint[;varResult:Longint]):FCountBuffer,128,Reset128,Buffer3128,Result,61200411January12004No.1©1994-2009ChinaAcademicJournalElectronicPublishingHouse.Allrightsreserved.(char3Buf,intBufLen,intSelStart,intSelLength,AnsiStringSearchString,TStringSearchOptionsOp2tions=TStringSearchOptions()nsoDown):,Buf;BufLen();SelStart;SelLength;SearchStringBuf;Options,ProcedureReset(VarF:File;[;VarResult:Longint]):,,ResultFunctionLeftbStr(constAText:string;constACount:Inte2ger):stringAtextACount312(openfn),buf,:buf32767temp,blockreadtemp,tempbuffn,assignfnff,fffn,reset(Result=1),ff,:repeatblockread(ff,temp,32767,readbyte);fori:=0toreadbyte-1dobuf[count+i]:=temp[i];count:=count+readbyte;untilreadbyte=0;ff32767temp,Forbuf,ff0,bufsearchbufbuf=,cursp,cursp=,,cursp313(getonerec)bufrecpgetonerec,N3Clickbuf,getonerec,,:if(cursp=pchar(buf)+fsize)or(cursp=nil)thenbegingetonerec:=false;exit;end;,,,,,,getonerec,:functiongetstr(ss:string):string,func2tiongetstrm(ss:string):stringgetstr;getstrmgetstrgetstrm,getonerec1tbuf,searchbuf,tbuf,pchar(buf)+fsize-cursp,=,searchbufnextsp,:recp.ADOTDSDLR:=getstr(=),;:strpcopy(recp.ADOTDSZY,getstrm()),strpcopy(recp.adotdszqx,getstrm(=))getstr,2ts1ts2,searchbufss,ts1,ts1:=searchbuf(tbuf,buflen,0,0,ss);buflen1.ts2:=ts1+len(ss)ts1,ts2,,:while((ts2[0]=#13)or(ts2[0]=#10))dots2:=ts2+1;ts1:=ts2;whilenot((ts2[0]=#13)or(ts2[0]=#10)or(ts2[0]=))dots2:=ts2+1;i:=ts2-ts1;getstr:=leftbstr(ts1,i);,ts2ts2while,ts2,ts2-ts1,leftbstrgetstr,ts2[0]ts2getstrmgetstr,2ts1(21)71200411January12004No.1©1994-2009ChinaAcademicJournalElectronicPublishingHouse.Allrightsreserved.(,3721),,,31112,,google;yahooinfoseekaltavistaly2cosexcitehotbot31113,/;(),,,,;,,,/E-mail,,31114,,,,,31231211,,,/,,,,,E-mail,31212,,;,,IP,IP31213,,/,,,,,,,,,(17)ts2,searchbufss,ts1,ts1:=searchbuf(tbuf,buflen,0,0,ss);ts2:=ts1+len(ss).2getstrm:whilenot((ts2[0]=)or((ts2[0]=Ë)and(ts2[1]=Ë)))dots2:=ts2+1;i:=ts2-ts1-len;getstrm:=leftbstr(ts1+len,i);getonerec1,recp,N3ClickAppendrecordrecp,cursp,cursppchar(buf)+fsize,N3Clickwhile,4,(openfn),(getonerec)2getstrgetstrmrecp,re2cp,,[1].Delphi4[M].:,2001.[2].[M].:,2001.[3].[J].,2002,(6).[4].[J].,2001,(1).[5]InformationProductsDivision/TAFBranch,U1S1PTO:AllTechnologiesReport(1963-2001).[6]InformationProductsDivision/TAFBranch,U1S1PTO:Pat2entingbyOrganizations,2001.12200411January12004No.1©1994-2009ChinaAcademicJournalElectronicPublishingHouse.Allrightsreserved.