Re: BIGCHG

[Carl Distefano cld@xxxxxxxx]

Reply to note from Harry Binswanger  Wed, 01 Dec
2010 09:37:23 -0500

Harry:

> Just tried the new BigChg, and it did nothing.

I think I see the problem. I failed to account for the situation
where user does not set a variable in XYWWWEB.REG. Fixed; the
default location for the replacement string is now S/G K (as
previously advertised). Try the revised version below, please.

By the way, if you want to set a S/G other than K in XYWWWEB.REG,
the lines to add are:

;
[bigchg]
Replacement_AlphaNumeric_S/G=K
;

Only the line with the "=" sign is required; the rest is for
readability.

Thanks for your patience while I revisit this 12-year-old code. This
is the first time that anyone other than me has tried it, to my
knowledge.

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5bigchg}} Search & replace on long strings (v2; CLD 7/26/9
8; rev.12/1/10) (UserVar)[cr|lf]{002};*; Save/Get to use for{032}
replacement string[cr|lf]{<}SV99,Replacement_AlphaNumeric_S/G
{>}[JM_]2.RegData[Q2_]{<}IF{<}VA|99{>}<1{>}{<}SV99,K{>}{<}EI{
{062}}{<}SX01,{<}IS99{>}{>};*;[cr|lf][XH_][BX_]es 1[Q2_][DX_]{<}S
X02,@upr({<}IS50{>}){>}[DZ_]{<}IF{<}IS02{>}{240}"R"{>}{<}IF{<
}VA$DE{>}<1{>}{<}PRNo replacement text DeFined{>}{<}EX1{>}{<}
EI{>}{<}SX03,"{<}SV"+{<}IS01{>}+"{>}"{>}{<}PV03{>}{<}SX03,"{<
}PRReplacement text saved to S/G "+@upr({<}IS01{>})+"{>}"{>}{
<}PV03{>}{<}EX{>}{<}EI{>}{<}SV03,[wX]{>}{<}SV04,{192}{>}{<}XS
03,04,04,05,06{>}{<}SX04,{<}IS04{>}+{<}IS05{>}{>}{<}IF{<}VA$D
E{>}<1!@abs(0+{<}VA$DN{>}-{<}VA$DS{>})<1{>}[DO_]{<}PRNo searc
h string DeFined{>}{<}EX1{>}{<}EI{>}{<}SV03{>}[YD_]{<}SV05,[c
r|lf]{>}{<}LBa{>}{<}IF{<}IS03{>}{240}{<}IS05{>}{>}{<}SV06,{>}
{<}XS03,05,07,,06{>}{<}SX03,{<}IS07{>}+"[wC]"+{<}IS06{>}{>}{<
}GLa{>}{<}EI{>}{<}SX05,"{<}SX06,{<}VA|"+{<}IS01{>}+"{>}{>}"{>
}{<}PV05{>}{<}IF{<}PV06{>}<0{>}{<}SX01,"{<}PRNo replacement t
ext in S/G "+@upr({<}IS01{>}+"{>}"{>}{<}PV01{>}{<}EX1{>}{<}EI
{>}{<}SX05,"{<}SX06,{<}IS"+{<}IS01{>}+"{>}{>}"{>}{<}PV05{>};*
;[cr|lf]{<}SV01,{027}X{027}X{027}X{027}X{027}X{027}X{027}X{02
7}X{027}X{027}X{027}X{027}X{027}X{027}X{027}X{027}X{027}X{027
}X{027}X{027}X{027}X{027}X{027}X{027}X{027}X{027}X{027}X{027}
X{027}X{027}X{027}X{027}X{027}X{027}X{027}X{027}X{027}X{027}X
{027}X{027}X{027}X{027}X{027}X{027}X{027}X{027}X{027}X{027}X{
027}X{027}X{027}X{027}X{027}X{027}X{027}X{027}X{027}X{027}X{0
27}X{027}X{027}X{027}X{027}X{027}X{027}X{027}X{027}X{027}X{02
7}X{027}X{027}X{>}{<}SX05,{<}CP{>}{>}{<}SV07,[BX_]jmp {<}PV05
{>}[Q2_][YD_]{>}{<}IF{<}VA$DT{>}>0{>}[XP_]{<}SX07,{<}IS07{>}+
"[TG_]"{>}{<}EI{>}
{<}IF{<}VA$FB{>}>0!{<}IS02{>}{240}"T"{>}[TF_]{<}SX05,0{>}{<}E
I{>}{<}SX08,{<}IS01{>}+"[255+252+142]"{>}{<}IF{<}VA|03{>}<={<
}VA|01{>}/2{>}{<}SX09,{<}IS03{>}{>}{<}SX10,{<}IS03{>}{>}{<}GL
b{>}{<}EI{>}{<}XS03,01,,09,10{>}{<}SX11,{<}IS03{>}+"[255+252+
142]"{>}{<}XS11,08,,10,12{>}{<}SV08,[255+252+142]{>}{<}XS10,0
8,11,,12{>}{<}SX10,{<}IS11{>}{>}{<}LBb{>}[XD_][XD_][XD_][YD_]
{<}IF{<}IS09{>}{240}{<}IS04{>}!{<}IS10{>}{240}{<}IS04{>}{>}{<
}SX02,{<}IS02{>}+"V"{>}{<}EI{>}{<}SX01,-1{>}{<}SV08,{>}{<}SX1
1,-1{>}{<}SV12,{>}{<}IF{<}IS02{>}{240}"V"{>}{<}SV12,| Y=yes,{032}
N=no, S=stop here, O=one more{>}{<}EI{>};*;[cr|lf]{<}LBc{>}{<
}IF"V"{238}{<}IS02{>}<0{>}{<}IF{<}PV01{>}>25{>}{<}PRWorking..
{046}{>}{<}EI{>}{<}EI{>}[BX_]se{<}IF{<}IS02{>}{240}"A"{>}a{<}EI{>
} [999]{<}PV09{>}[999][Q2_]{<}IF{<}PV05{>}<1{>}{<}IF{<}PV11{>
}<1{>}{<}SX05,0{>}{<}EI{>}{<}EI{>}{<}SX11,8{>}{<}IF{<}ER{>}&{
<}PV01{>}<0{>}[YD_]{<}LBd{>}{<}SV01,Not found{>}{<}GLf{>}{<}E
I{>}{<}IF{<}ER{>}{>}{<}LBe{>}{<}IF{<}PV01{>}<0{>}{<}GLd{>}[cr
|lf]{<}EI{>}{<}SX01,{<}IS01{>}+" change(s)"{>}{<}LBf{>}{<}PV0
7{>}{<}PR@01{>}{<}EX{>}{<}EI{>}[BX_]seb{<}IF{<}IS02{>}{240}"A
"{>}a{<}EI{>} [999]{<}PV09{>}[999][Q2_][YD_][DF_]{<}LBg{>}[BX
_]se{<}IF{<}IS02{>}{240}"A"{>}a{<}EI{>} [999]{<}PV10{>}[999][
Q2_]{<}IF{<}ER{>}{>}{<}GLe{>}{<}EI{>}[DZ_]{<}IF{<}PV01{>}<0{>
}{<}SX01,{<}PV01{>}+1{>}{<}EI{>}{<}IF{<}IS09{>}{240}{<}IS04{>
}!{<}IS10{>}{240}{<}IS04{>}{>}{<}GLh{>}{<}EI{>}{<}IF@abs(0+{<
}VA$DN{>}-{<}VA$DS{>})>{<}VA|03{>}{>}{<}GLc{>}{<}EI{>}{<}IF@a
bs(0+{<}VA$DN{>}-{<}VA$DS{>})<{<}VA|03{>}{>}[DM_]{<}GLg{>}{<}
EI{>}{<}SV08{>}{<}IF"A"{238}{<}IS02{>}<0{>}{<}SX08,@upr
({<}IS08{>}){>}{<}EI{>}{<}IF{<}IS08{>}=={<}IS03{>}{>}{<}IF"V"
{238}{<}IS02{>}<0{>}{<}GLj{>}{<}EI{>};*;[cr|lf]{<}LBh{>}[DO_]
{<}SX11,0{>}{<}LBi{>}{<}PR@12{>}{<}SX11,@upr({<}RK{>}){238}"{
027}[ES_]SNOY"{>}{<}IF{<}PV11{>}<0{>}{<}GLi{>}{<}EI{>}{<}IF{<
}PV11{>}<5{>}{<}SV01,Change/Verify command canceled{>}{<}IF{<
}PV11{>}>3{>}{<}SX05,{<}CP{>}{>}{<}EI{>}{<}GLf{>}{<}EI{>}{<}I
F{<}PV11{>}<6{>}[YD_]{<}GLc{>}{<}EI{>}{<}LBj{>}[DN_]{<}GT06{>
}{<}SX01,{<}PV01{>}+1{>}{<}IF{<}PV11{>}<7{>}{<}SX05,{<}CP{>}{
{062}}{<}GLe{>}{<}EI{>}{<}EI{>}[YD_]{<}GLc{>}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx