home *** CD-ROM | disk | FTP | other *** search
INI File | 1996-05-14 | 12.6 KB | 1,108 lines
[ver] 4 [sty] [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] HP LaserJet Series II [port] LPT2: [lang] 1 [desc] 822094420 120 731959686 1557 2 0 0 0 0 1 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [tag] Body Text 2 [fnt] Courier 240 0 32768 [algn] 1 3 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 4 49154 345 49154 691 49154 1036 49154 1382 0 [tag] Body Single 3 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Bullet 4 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*0> 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Bullet 1 5 [fnt] Times New Roman 240 0 49152 [algn] 1 1 288 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*5> 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Bullet 1 0 0 [tag] Number List 6 [fnt] Times New Roman 240 0 49152 [algn] 1 1 360 360 360 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*:>. 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Subhead 7 [fnt] Times New Roman 240 0 49155 [algn] 1 1 0 0 0 [spc] 33 273 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 2 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Title 8 [fnt] Arial 360 0 16385 [algn] 4 1 0 0 0 [spc] 33 446 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Header 9 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Header 0 0 [tag] Footer 11 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Footer 0 0 [lay] Standard 513 [rght] 15840 12240 1 1440 720 1 720 720 0 1 0 1 0 2 1 1440 11520 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [hrght] [lyfrm] 1 11200 0 0 12240 720 0 1 3 1 0 0 0 0 0 0 0 0 1 [frmlay] 720 12240 1 1440 0 1 0 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [frght] [lyfrm] 1 13248 0 15120 12240 15840 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 15840 12240 1 1440 0 1 15120 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [elay] [l1] 0 [edoc] <:#240,10080><:f240,QCourier,0,0,0>FUNCTION Variable<:f><:f240,QCourier,0,0,0>() <:#240,10080> <:f240,QCourier,0,0,0>DECLARE Echo(%1) <:#240,10080><:f240,QCourier,0,0,0> DECLARE InsField(%1) <:#240,10080><:f240,QCourier,0,0,0> DEFSTR <:f><:f240,QCourier,0,0,0>Result; <:#240,10080><:f240,QCourier,0,0,0> <:#240,10080><:f240,QCourier,0,0,0> '**** STRING INITIALIZATION <:#240,10080><:f240,QCourier,0,0,0> On=1 <:#240,10080><:f240,QCourier,0,0,0> Off=0 <:#240,10080><:f240,QCourier,0,0,0> <:#240,10080><:f240,QCourier,0,0,0> '****CHECKFIELD <:#240,10080><:f240,QCourier,0,0,0> macname = strcat$(<:f><:f240,QCourier,0,0,0>GetMacPath$()<:f><:f240,QCourier,0,0,0>,"hdchkfld.smm") <:#240,10080><:f240,QCourier,0,0,0> IF (<:f><:f240,QCourier,0,0,0>CALLI macname<:f><:f240,QCourier,0,0,0>(<:f><:f240,QCourier,0,0,0>)<:f><:f240,QCourier,0,0,0>=1) <:#240,10080><:f240,QCourier,0,0,0> EXIT FUNCTION <:#240,10080><:f240,QCourier,0,0,0> ENDIF <:#240,10080><:f240,QCourier,0,0,0> <:f> <:#240,10080><:f240,QCourier,0,0,0> '****CALL TO HOTDOCS.DLL <:#240,10080><:f240,QCourier,0,0,0> inStr = CurShade$()<:f> <:#240,10080> spcCnt = 0 <:#240,10080> IF (inStr <<<;> "") <:#240,10080> inLen = LEN(inStr) <:#240,10080> WHILE (1<<2) <:#240,10080> IF (inLen = 0) <:#240,10080> BREAK <:#240,10080> ENDIF <:#240,10080> spcStr = MID$(inStr,inLen,1) <:#240,10080> IF (spcStr <<<;> " ") <:#240,10080> BREAK <:#240,10080> ENDIF <:#240,10080> spcCnt = spcCnt + 1 <:#240,10080> inLen = inLen - 1 <:#240,10080> inStr = MID$(inStr,1,inLen) <:#240,10080> WEND <:#240,10080> ENDIF <:#240,10080><:f240,QCourier,0,0,0> OrgFile = GetOpenFileName$()<:f> <:f240,QCourier,0,0,0> retStr = DllCall("hd3.dll,InsertVar,CCJOC",&OrgFile,1+(32*1),&result,&inStr) <:#240,10080><:f240,QCourier,0,0,0> <:#240,10080><:f240,QCourier,0,0,0> '****ABORT IF CANCEL <:#240,10080><:f240,QCourier,0,0,0> IF (Result=0) <:#240,10080><:f240,QCourier,0,0,0> EXIT FUNCTION <:#240,10080><:f240,QCourier,0,0,0> ENDIF <:#240,10080><:f240,QCourier,0,0,0> <:#240,10080><:f240,QCourier,0,0,0> '*** REPLACE ONCE<:f> <:#240,10080><:f240,QCourier,0,0,0> Echo(Off) <:#240,10080><:f240,QCourier,0,0,0> InsField(retStr)<:f> <:#240,10080> FOR i = 1 TO spcCnt <:#240,10080> TYPE(" ") <:#240,10080> NEXT <:#240,10080><:f240,QCourier,0,0,0> <:#240,10080><:f240,QCourier,0,0,0> '****REPLACE ONCE <:#240,10080><:f240,QCourier,0,0,0> IF (Result = 1) <:#240,10080><:f240,QCourier,0,0,0> Echo(On)<:f> <:#240,10080><:f240,QCourier,0,0,0> EXIT FUNCTION <:#240,10080><:f240,QCourier,0,0,0> ENDIF<:f> <:#240,10080><:f240,QCourier,0,0,0> <:#240,10080><:f240,QCourier,0,0,0> '*** MARK CURRENT POSITION <:#240,10080><:f240,QCourier,0,0,0> theBM = "CapsBM"<:f> <:#240,10080><:f240,QCourier,0,0,0> MarkBookMark(theBM,DeleteBookmark) <:#240,10080><:f240,QCourier,0,0,0> MarkBookMark(theBM,AddBookmark) <:#240,10080><:f240,QCourier,0,0,0> <:#240,10080><:f240,QCourier,0,0,0> '****REPLACE ALL WITH OR W/O CONFIRM<:f> <:#240,10080><:f240,QCourier,0,0,0> Action<:f><:f240,QCourier,0,0,0> = 1<:f> <:#240,10080><:f240,QCourier,0,0,0> WHILE(<:f><:f240,QCourier,0,0,0>REPLACE(0,0,4,inStr,"")<:f><:f240,QCourier,0,0,0> = 1<:f><:f240,QCourier,0,0,0>) <:#240,10080><:f240,QCourier,0,0,0> '*** IF CONFIRM, GET CONFIRMATION <:#240,10080><:f240,QCourier,0,0,0> IF (Result = 3) <:#240,10080><:f240,QCourier,0,0,0> inStr2 = CurShade$() <:#240,10080><:f240,QCourier,0,0,0> Echo(On)<:f> <:f240,QCourier,0,0,0> retstr=DLLCall("Hd3.dll<:f><:f240,QCourier,0,0,0>,InsertVar,CCJOC",&OrgFile,4+(32*1),&Action<:f><:f240,QCourier,0,0,0>,&inStr2) <:#240,10080><:f240,QCourier,0,0,0> Echo(Off)<:f> <:#240,10080><:f240,QCourier,0,0,0> ENDIF <:#240,10080><:f240,QCourier,0,0,0> IF (Action<:f><:f240,QCourier,0,0,0>=0) <:f><:f240,QCourier,0,0,0> '*** CONFIRM WAS CANCELLED<:f> <:#240,10080><:f240,QCourier,0,0,0> BREAK<:f> <:#240,10080><:f240,QCourier,0,0,0> ELSEIF (Action=2) '*** CONFIRM WAS NO <:#240,10080><:f240,QCourier,0,0,0> TYPE("<[>ESC]") <:#240,10080><:f240,QCourier,0,0,0> ELSEIF (Action<:f><:f240,QCourier,0,0,0>=3) '*** CONFIRM WAS YES TO ALL <:#240,10080><:f240,QCourier,0,0,0> Result = 2 <:#240,10080><:f240,QCourier,0,0,0> Action = 1 <:#240,10080><:f240,QCourier,0,0,0> ENDIF <:#240,10080><:f240,QCourier,0,0,0> IF (Action<:f><:f240,QCourier,0,0,0>=1) '*** DO THE REPLACE <:#240,10080><:f240,QCourier,0,0,0> InsField(retstr) <:#240,10080><:f240,QCourier,0,0,0> ENDIF <:#240,10080><:f240,QCourier,0,0,0> WEND <:#240,10080><:f240,QCourier,0,0,0> <:#240,10080><:f240,QCourier,0,0,0> '****GO TO BOOKMARK <:#240,10080><:f240,QCourier,0,0,0> MarkBookMark(theBM,FindBookmark) <:#240,10080><:f240,QCourier,0,0,0> MarkBookMark(theBM,DeleteBookmark) <:#240,10080><:f240,QCourier,0,0,0> Echo(On) <:#240,10080><:f240,QCourier,0,0,0>END FUNCTION <:#240,10080><:f240,QCourier,0,0,0> <+@><:S+-1><:#240,10080><:f240,QCourier,0,0,0>Function Echo(fOn) <:S+-1><:#240,10080><:f240,QCourier,0,0,0> FocusHandle=DLLCall("user,GetFocus,I") <:S+-1><:#240,10080><:f240,QCourier,0,0,0> DLLCall("user,SendMessage,IIIIJ",FocusHandle,11,fOn,0) <+@><:S+-1><:#240,10080><:f240,QCourier,0,0,0> If (fOn=1) <+@><:S+-1><:#240,10080><:f240,QCourier,0,0,0> DLLCall("user,InvalidateRect,IIJI",FocusHandle,0,1) <+@><:S+-1><:#240,10080><:f240,QCourier,0,0,0> DLLCall("user,UpdateWindow,II",FocusHandle) <+@><:S+-1><:#240,10080><:f240,QCourier,0,0,0> EndIf <:#240,10080><:f240,QCourier,0,0,0>End Function<:><:f> <:#240,10080> <:#240,10080>Function InsField(string$) <:#240,10080><:f240,QCourier,0,0,0> DEFSTR FName, FColor, FSize, FFamily,Result;<:f> <:#240,10080><:f240,QCourier,0,0,0> TYPE(<:f><:f240,QCourier,0,0,0>CHR$(171)<:f><:f240,QCourier,0,0,0>) <:#240,10080><:f240,QCourier,0,0,0> GetCurFontInfo(&FName, &FColor, &FSize, &FFamily)<:f> <:#240,10080><:f240,QCourier,0,0,0> FontChange(FName,0<:f><:f240,QCourier,0,0,0>,16711680,FSize) <:#240,10080><:f240,QCourier,0,0,0> TYPE(string$<:f><:f240,QCourier,0,0,0>) <:#240,10080><:f240,QCourier,0,0,0> FontChange(FName,0<:f><:f240,QCourier,0,0,0>,FColor,FSize) <:#240,10080><:f240,QCourier,0,0,0> TYPE(<:f><:f240,QCourier,0,0,0>CHR$(187)<:f><:f240,QCourier,0,0,0>)<:f> <:#240,10080><:f240,QCourier,0,0,0>End Function > [Embedded] 00011039 > [macsum] 3 Variable 0 0 15 0 Echo 1347 1 2 88 InsField 1560 1 6 97 [macse] 14 Variable 5 1 8 2 5 0 8 3 0 295 13 0 16 [X] "hdchkfld.smm" 13 8 4 16 "{4}" 13 5 1 18 0 11 00000128 6 0 15 9 0 24 13 8 5 5 0 8 6 6 5 7 "" 18 1 11 00000430 0 14 "{5}" 13 8 7 5 1 5 2 18 5 11 00000430 6 7 5 0 18 0 11 00000275 10 00000430 0 15 "{5}" "{7}" 1 13 8 8 6 8 7 " " 18 1 11 00000348 10 00000430 6 6 5 1 3 0 8 6 6 7 5 1 3 1 8 7 0 15 "{5}" 1 "{7}" 13 8 5 10 00000204 0 267 13 8 9 5 1 5 32 5 1 4 0 3 0 0 284 "hd3.dll,InsertVar,CCJOC" &9 [X] &1 &5 13 8 10 6 1 5 0 18 0 11 00000569 6 0 15 9 16 Echo "{3}" 16 InsField "{10}" 5 1 8 11 6 6 6 11 18 2 12 00000693 10 00000715 5 1 6 11 3 0 8 11 10 00000615 0 6 " " 10 00000658 6 1 5 1 18 0 11 00000771 16 Echo "{2}" 6 0 15 9 7 "CapsBM" 8 12 2 466 1 "{12}" 4004 2 466 1 "{12}" 4003 5 1 8 13 2 488 1 0 0 4 "{5}" "" 13 5 1 18 0 11 00001278 6 1 5 3 18 0 11 00001053 0 24 13 8 14 16 Echo "{2}" 5 4 5 32 5 1 4 0 3 0 0 284 "Hd3.dll,InsertVar,CCJOC" &9 [X] &13 &14 13 8 10 16 Echo "{3}" 6 13 5 0 18 0 11 00001109 10 00001278 10 00001215 6 13 5 2 18 0 11 00001164 0 6 "[27]" 10 00001215 6 13 5 3 18 0 11 00001215 5 2 8 1 5 1 8 13 6 13 5 1 18 0 11 00001265 16 InsField "{10}" 10 00000842 2 466 1 "{12}" 4002 2 466 1 "{12}" 4004 16 Echo "{2}" 6 0 15 9 14 Echo 0 284 "user,GetFocus,I" 13 8 2 0 284 "user,SendMessage,IIIIJ" "{2}" 11 "{0}" 0 6 0 5 1 18 0 11 00000201 0 284 "user,InvalidateRect,IIJI" "{2}" 0 1 0 284 "user,UpdateWindow,II" "{2}" 6 1 15 9 14 InsField 0 39 171 13 0 6 [X] 0 804 &2 &3 &4 &5 2 251 1 "{2}" 0 16711680 "{4}" 0 6 "{0}" 2 251 1 "{2}" 0 "{3}" "{4}" 0 39 187 13 0 6 [X] 6 1 15 9 00011064 
