Msg: Re: U2 frame

On Sun, Sep 11, 2011 at 1:19 PM, Carl Distefano mailto:cld@xxxxxxxx wrote:

Reply to note from Harry Binswanger mailto:hb@xxxxxxxx Sun, 11 Sep
2011 11:02:30 -0400

> Terrific! Just what I wanted. I took out the prompting ...

I was about to add an option to do that, but it was the wee hours
and I petered out. Here it is; use framename SWI (think "SwapWild
Invisible") to bypass the PRompts. This code includes some
additional (minor) corrections and refinements.

Always happy to oblige if I can, Harry, but I must say this all
seems a bit esoteric. Can you give one or two real-world examples of
how you would use this routine?

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5swapwild,swi}} Swap wild substrings within target string{032}
[CLD rev.9/11/11-a][cr|lf]{002}{<}IF{<}VA$WS{>}==1{>}{<}IF{<}
VA|50{>}>0{>}[BX_]es 1[Q2_][DX_][TF_][255+048+068][CL_]{<}SU0
1,{<}SX50,{<}CP{>}-2{>}[TF_][RC_][JM_]2.ReJuMP[Q2_]{>}{<}SV02
,[wW]{>}{<}SX03,0{>}{<}SV04,{>}{<}XS50,02,05,,04{>}{<}SV06,{>
}{<}XS04,02,07,,06{>}{<}IF{<}VA|05{>}>0&{<}VA|06{>}>0{>}{<}LB
a{>}[BX_]se/f {252}{<}PV50{>}{252}[Q2_]{<}IF@not({<}ER{>}){>}
[YD_][DF_][BX_]se {252}{<}PV50{>}{252}[Q2_][DF_]{<}SV08{>}{<}
SV09,{>}{<}XS08,05,04,10,09{>}{<}SV11,{>}{<}XS09,07,12,,11{>}
{<}SV13,{>}{<}XS11,06,14,,13{>}{<}SX15,{<}IS05{>}+{<}IS14{>}+
{<}IS07{>}+{<}IS12{>}+{<}IS13{>}+{<}IS06{>}{>}[DO_]{<}IF@upr(
{<}VA$FR{>})=="SWI"{>}{<}LBb{>}[DN_]{<}GT15{>}[DX_]{<}SX03,{<
}PV03{>}+1{>}[YD_]{<}GLa{>}{<}EI{>}{<}SX08,"Change to """+{<}
IS15{>}+""" (y|N)?{>}{<}PR@08{>}{<}SX08,@upr({<}RK{>}){>}{<}I
F{<}VA$KC{>}<2{>}[YD_]{<}GT01{>}{<}PRQuit{>}{<}EX{>}{<}EI{>}{
<}IF{<}IS08{>}=="Y"{>}{<}GLb{>}{<}EI{>}{<}GLa{>}{<}EI{>}[TF_]
[RC_]{<}SX02,{<}IS03{>}+" changes{>}{<}PR@02{>}{<}EX{>}{<}EI{
{062}}{<}GT01{>}{<}EI{>}{<}PRSWAPWILD|SWI substring1[wild_W]subst
ring2[wild_W]substring3{>}{<}EX{>}{<}EI{>}{<}PRNo fi
le{>}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
mailto:cld@xxxxxxxx