Reply to note from "J. R. Fox"Wed, 30 Apr 2003 15:29:44 -0800 Jordan: Hmmm, I never really considered what happens when you run DELTAGS on a series of files. Well, here's what happens: DELTAGS deletes the TMP file on disk with each new run. But, more than that, if DELTAGS.TMP is displayed in a window from a previous run, it ABorts that screen as well. So -- as you found out the hard way -- if you run the routine on several files in a row, you WILL lose work unless you save DELTAGS.TMP under a different name each time before moving on to the next file. That, I'll grant you, is pretty draconian. Better revisit that "feature". Here's my thought: Why don't I jettison the .TMP file altogether, and just display output in an Untitled screen? When you run DELTAGS the next time, it opens another Untitled screen, and so on. Output is never lost, because no .TMP file is DELeted or ABorted. Plus, with an Untitled screen you're forced to supply a name if you want to save the results to disk. (You can always issue AF to name and SAve it automatically.) Output is never wiped from the screen unless you ABort it manually. Seems to me that's pretty good protection. The revision below implements that. Try it for a while and see if it feels more secure. I'm open to suggestions. And thanks, Jordan, for pointing this issue out. Sorry you were inconvenienced. Carl XPLeNCODE v2.0 b-gin [UNTITLED] {{;5deltags}} Delete HTML|XML|SGML tags [CLD rev. 4/30/03][cr |lf]{002}[XH_]{<}IF{<}VA$WS{>}<>1{>}{<}PRNo file{>}{<}EX{>}{< }EI{>}[BX_]es 1[Q2_][DX_]{<}SX01,{<}VA$WA{>}{>}{<}IF{<}PV01{> }<1{>}{<}PRNo window{>}{<}EX{>}{<}EI{>}[BX_]func #{<}PV01{>}[ Q2_][BX_]ne/100[Q2_][JM_]2.metas[Q2_][TF_];*;[cr|lf]{<}SU01,[ BX_]wait[Q2_]{>}{<}SX02,0{>}{<}SU03,{<}SX02,{<}PV02{>}+1{>}{< }SX04,"Pass "+{<}IS02{>}{>}[TF_]{<}PR@04{>}{>}{<}GT01{>};*;[c r|lf][BX_]ch [wC]
[Q2_][BX_]wait[Q2_][BX_]ch
[wC] [Q2_][BX_]wait[Q2_][BX_]ch
[Q2_][BX_]wait[Q2_][BX_]ch [ w<] [255+065+069][Q2_]{<}GT01{>}[BX_]ch [w>] [255+065+070][Q 2_];*;[cr|lf][BX_]ch][w<]IV[w>][w<]NM0[w>][Q2_]{<}GT01{>}[WG_]{< }GT03{>};*;[cr|lf]{<}SU05,[DF_][DN_]{<}LBa{>}[DF_][CR_][CR_][ DF_]{<}SV06{>}[YD_]{<}IF{<}IS06{>}==" [cr|lf][cr|lf]"{>}[BD_] {<}GLa{>}{<}EI{>}[CL_][CL_][DO_][DX_]{>};*;[cr|lf][BX_]ch [w ] [wC][Q2_]{<}GT01{>}[BX_]ch [255+192+145] [wC][Q2_]{<}GT01 {>};*;[cr|lf]{<}LBb{>}[BX_]ch {tab}< <[Q2_]{<}IF@not({<}ER{> }){>}{<}GT01{>}{<}GLb{>}{<}EI{>};*;[cr|lf][BX_]ch "><"> <"[Q2 _]{<}GT01{>};*;[cr|lf][BX_]ch "}[BX_]ch"- "[Q2_]{<}GT01{>};*;[cr| lf][BX_]ch " " "[Q2_]{<}GT01{>};*;[cr|lf][BX_]ch " "[Q2_]{<}GT01{>};*;[cr|lf][BX_]ch & &[Q2_]{<}GT01{>};*; [cr|lf][BX_]se "[wC][wC]"[Q2_]{<}IF@not({<}ER{>}){>}[BX _]seb [wC]<[Q2_][DF_][BX_]se [Q2_]{<}IF@not({<}ER{>} ){>}{<}GT05{>}{<}GLd{>}{<}EI{>}{<}EI{>}[YD_]{<}GT03{>};*;[cr| lf]{<}LBc{>}[BX_]se ""[Q2_]{<}IF@not({<}ER{>}){>}[BX_]s eb <[Q2_][DF_][BX_]se [Q2_]{<}IF@not({<}ER{>}){>}{<} GT05{>}{<}GLc{>}{<}EI{>}{<}EI{>}[YD_]{<}GT03{>};*;[cr|lf] {<}LBd{>}[BX_]se "[wC][wC]}){>}[BX_]se >[Q2_]{<}GT05{>}{<}GLd{>}{<}EI{>}{<}EI{>}[YD _]{<}GT03{>};*;[cr|lf]{<}LBe{>}[BX_]se "}){>}[BX_]se >[Q2_]{<}GT05{>}{<}GLe{>}{<}EI{>}{ <}EI{>}[YD_]{<}GT03{>};*;[cr|lf]{<}LBf{>}[BX_]se "[wC][wC] }){>}[BX_]seb [wC]<[Q2_][DF_][BX_] se }){>}[BX_]se >[Q2_]{<}GT05{ >}{<}GLf{>}{<}EI{>}{<}EI{>}[YD_]{<}GT03{>};*;[cr|lf]{<}LBg{>} [BX_]se "}){>}[BX_]se >[Q2_] {<}GT05{>}{<}GLg{>}{<}EI{>}{<}EI{>}[YD_]{<}GT03{>};*;[cr|lf]{ <}LBh{>}[BX_]se [wC][wC]}){>}[BX_]s eb [wC][Q2_][DF_][BX_]se ->[Q2_]{<}IF@not({<}ER{>}){>}{<}GT 05{>}{<}GLh{>}{<}EI{>}{<}EI{>}[YD_]{<}GT03{>};*;[cr|lf]{<}LBi {>}[BX_]se }){>}[BX_]seb <[Q2_][DF _][BX_]se ->[Q2_]{<}IF@not({<}ER{>}){>}{<}GT05{>}{<}GLi{>}{< }EI{>}{<}EI{>}[YD_]{<}GT03{>};*;[cr|lf]{<}LBj{>}[BX_]se [wC] [wC]<[Q2_]{<}IF@not({<}ER{>}){>}[BX_]seb [wC][Q2_][DF_][BX_] se >[Q2_]{<}IF@not({<}ER{>}){>}{<}GT05{>}{<}GLj{>}{<}EI{>}{< }EI{>}[YD_]{<}GT03{>};*;[cr|lf]{<}LBk{>}[BX_]se <[Q2_]{<}IF@ not({<}ER{>}){>}[CL_][DF_][BX_]se >[Q2_]{<}IF@not({<}ER{>}){ >}{<}GT05{>}{<}GLk{>}{<}EI{>}{<}EI{>}[YD_]{<}GT03{>};*;[cr|lf ]{<}LBl{>}[BX_]ch " [wC]"[wC]"[Q2_]{<}IF@not({<}ER{>}){>}{<}G T01{>}{<}GLl{>}{<}EI{>};*;[cr|lf]{<}LBm{>}[BX_]ch "{tab}[wC] "[wC]"[Q2_]{<}IF@not({<}ER{>}){>}{<}GT01{>}{<}GLm{>}{<}EI{>}; *;[cr|lf][BX_]ch "[wC] "[wC]"[Q2_]{<}GT01{>};*;[cr|lf]{<}GT03 {>}{<}LBn{>}[BX_]ch [wC][wC][wC] [wC][wC][Q2_]{<}IF@not({<}E R{>}){>}{<}GT01{>}{<}GLn{>}{<}EI{>};*;[cr|lf]{<}LBo{>}{<}SX06 ,{<}CP{>}{>}[CR_]{<}IF{<}CP{>}-{<}PV06{>}==2{>}[BD_]{<}GLo{>} {<}EI{>};*;[cr|lf][XP_]{<}GT03{>}[BX_]ch [w<]NM1[w>][w<]IV[Q 2_]{<}GT01{>}[BX_]ch [w>][w<]NM0[w>][Q2_]{<}GT01{>};*;[cr|lf ]{<}LBp{>}[BX_]se <[Q2_]{<}IF@not({<}ER{>}){>}[CL_][DF_][BX_ ]se >[Q2_]{<}IF@not({<}ER{>}){>}{<}GT05{>}{<}GLp{>}{<}EI{>}{ <}EI{>}[YD_]{<}GT03{>};*;[cr|lf][BX_]ch < <[Q2_]{<}GT01{> }[BX_]ch > >[Q2_]{<}GT01{>};*;[cr|lf][WG_][TF_][DO_][FF_] {<}PRDone - Original file is in alternate window{>}{<}EX{>}{0 02}[cr|lf][cr|lf] -nd XPLeNCODE -- Carl Distefano cld@xxxxxxxx http://users.datarealm.com/xywwweb/