Re: Two U2 frames 1. CheckU2dupes 2. Extract

["Carl Distefano" cld@xxxxxxxx]

Reply to note from Harry Binswanger  Mon, 08 Aug 2016
11:07:28 -0400

Harry,

> So here are the two frames that were changed,

OK, EXTRACT is working now. But ... what's this? In HHLIST, you're
changing my Sort Key setting without bothering to save it first and
restore it later? A few measly bytes of additional code? Tsk tsk.

I've revised HLIST so that duplicate framenames are preserved,
regardless of the current Sort Key setting -- which is also, ahem,
preserved. No need for HHLIST anymore, right?

XPLeNCODE v2.0 (ENCODE.EXE)
b-gin [UNTITLED]
{123}{123}5hlist*{125}{125} Get a sorted list of framenames fr
om any Help file; optionally, list only frames containing a ca
se-INsensitive string {091}CLD rev.8/8/16{093}[cr|lf]{002}[BX_]
es 1[Q2_][DX_]{<}SX01,@upr({<}VA$FR{>}){>}{<}SV02,{>}{<}SV03,{>}
;*;{<}SV02,file{>}{<}SV03,string{>}[cr|lf]{<}PRWorking{>}{<}IF
{<}VA|50{>}>0{>}{<}SX03,{<}IS50{>}{>}{<}EI{>}{<}SX50,{<}VA$ED{>}
{>}[JM_]2.GetPath[Q2_];*;[cr|lf]{<}SX04,{<}IS50{>}{>}[BX_]ernv
 {<}PV04{>}\RESULTS.TXT[Q2_][BX_]wait[Q2_];*;[cr|lf]{<}IF({<}I
S03{>}{240}":\"!"|DG|HL|MN|U1|U2|U3|U4|U5|U6|U7|U8|U9|"{240}("
|"{043}@upr({<}IS03{>}){043}"|"))&";{014}"{238}({<}IS03{>}{043}
"{014}")<0{>}{<}SX03,{<}IS03{>}{043}";"{>}{<}EI{>}{<}IF{<}IS03
{>}{240}";"{>}{<}SV02,;{>}{<}SV50,{>}{<}XS03,02,02,,50{>}{<}SX
03,{<}IS50{>}{>}{<}EI{>}{<}IF{<}VA|02{>}<1{>}{<}SV02,U2{>}{<}E
I{>}{<}IF"|DG|HL|MN|U1|U2|U3|U4|U5|U6|U7|U8|U9|"{240}("|"{043}
@upr({<}IS02{>}){043}"|"){>}{<}SX50,{<}IS02{>}{>}{<}SX02,"{<}V
A$"{043}{<}IS02{>}{043}"{>}"{>}{<}SX02,{<}PV02{>}{>}{<}EI{>}{<}
IF{<}IS02{>}=="(none)"{>}{<}SX05,"No loaded "{043}@upr({<}IS50
{>}){043}" file"{>}{<}LBa{>}{<}PR@05{>}{<}EX{>}{<}EI{>}{<}IF{<}
IS03{>}{240}"|"!{<}IS03{>}{240}"("!{<}IS03{>}{240}"{091}"!{<}I
S03{>}{240}"{123}"{>}{<}SX01,{<}IS01{>}{043}"R"{>}{<}EI{>}{<}I
F"R"{238}{<}IS01{>}<0{>}{<}SV06,\.^$|{091}({123}*{043}?#{>}{<}
SV07,{027}X{>}{<}LBb{>}{<}SV01,{>}{<}IF{<}VA|06{>}>0{>}{<}SV08
,{>}{<}XS06,07,09,09,08{>}{<}SX06,{<}IS08{>}{>}{<}LBc{>}{<}IF{<}
IS03{>}{240}{<}IS09{>}{>}{<}SV10,{>}{<}XS03,09,11,,10{>}{<}SX0
1,{<}IS01{>}{043}{<}IS11{>}{043}"\"{043}{<}IS09{>}{>}{<}SX03,{<}
IS10{>}{>}{<}GLc{>}{<}EI{>}{<}SX03,{<}IS01{>}{043}{<}IS03{>}{>}
{<}GLb{>}{<}EI{>}{<}EI{>}{<}IF{<}IS01{>}{240}"R"{>}{<}SX03,"("
{043}{<}IS03{>}{043}")"{>}{<}EI{>};*;[cr|lf]{<}SX50,"(?im)^\{123}
\{123}.*"{043}{<}IS03{>}{043}".*\{125}\{125}.*$"{>}[BX_]sa %50
,{<}PV04{>}\SEARCH.TXT[Q2_];*;[cr|lf][BX_]wait[Q2_]{<}SX50,{<}
IS04{>}{043}"\AI3.EXE "{043}{<}IS04{>}{043}"\REGEX.A3X "{043}{<}
IS02{>}{>}[JM_]2.start/hid[Q2_]{<}SX50,"15,"{043}{<}IS04{>}{043}
"\RESULTS.TXT"{>}[JM_]2.AwaitFile[Q2_][BX_]gofile {<}PV50{>}[Q2_]
{<}IF@not({<}ER{>}){>}[BX_]ab/nv[Q2_]{<}EI{>}[BX_]ca/100 {<}PV
50{>}[Q2_];*;[cr|lf]{<}IF{<}VA$FP{>}=={<}IS50{>}{>}[TF_]{<}LB{032}
2 CHange commands needed ====>{>}[BX_]ch "[wC][w9][wN]>{123}"[wC]
{123}"[Q2_][BX_]wait[Q2_][BX_]ch "[wC][w9][wN]>{123}"[wC]{123}
"[Q2_][BX_]wait[Q2_][TF_][LD_][LD_][YD_][DF_][BF_][DF_];*;[cr|lf]
{<}SX05,{<}VA$SK{>}{>}[BX_]d sk=1,100[Q2_][BX_]sort/nv[Q2_][BX_]
wait[Q2_][BX_]d sk={<}PV05{>}[Q2_];*;[cr|lf][YD_][TF_][LD_][LD_]
[BX_]ch "[wC]"[wC][wC]"[Q2_][TF_]{<}SV05,{>}{<}IF{<}VA|03{>}>0
{>};*;[cr|lf]{<}SX05,"Search: "{043}{<}IS03{>}{043}" | "{>}{<}
EI{>}{<}SX05,{<}IS05{>}{043}"Help file: "{043}{<}IS02{>}{043}"
[cr|lf]"{>}{<}GT05{>}[TF_][LD_][LD_]{<}SV05,Done{>}{<}GLa{>}{<}
EI{>}{<}IF{<}VA$WS{>}==1{>}{<}GT05{>}{<}EI{>}{<}SV05,Unexpecte
d error{>}{<}GLa{>}{002} [cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx