Re: Long strings in CI ///

[Carl Distefano cld@xxxxxxxx]

Reply to note from Harry Binswanger  Wed, 01 Dec
2010 22:43:07 -0500

> Due to an encode/decode email problem, it didn't work. Can you
> put it in as an attachment?

OK, here it is, two ways (XPLencoded and attached). Slightly
revised/tightened from last time. Forward slash no longer required
for options (although it will still work).

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5BigCI*}} ChangeInvisible on long strings (S/G 50 in=Find$
, S/G 51 in=Replace$; S/G 50 out=number of changes) [CLD rev.
12/1/10][cr|lf]{002};*;[cr|lf];*; Usage:[cr|lf];*; {<}SV50,
Find${>}{<}SV51,Replace${>}[JM_]2.BigCI[A][T][Q2_][cr|lf];*;{032}
 BigCIA=Case-Absolute search; BigCIT=Search from Top_of_file[
cr|lf];*; BigCIAT=Both of the above options[cr|lf];*;[cr|lf]
{<}IF{<}VA|50{>}>0{>}{<}IF{<}VA$WS{>}==1{>}{<}IF{<}VA|51{>}<0
{>}{<}SV51,{>}{<}EI{>}[BX_]es 1[Q2_][DX_]{<}SU01,{<}SX02,0{>}
{<}IF@upr({<}IS03{>})==@upr({<}IS50{>}){>}{<}SX02,1{>}{<}EI{>
}{>}{<}IF@upr({<}VA$FR{>}){240}"A"{>}{<}SU01,{<}SX02,0{>}{<}I
F{<}IS03{>}=={<}IS50{>}{>}{<}SX02,1{>}{<}EI{>}{>}{<}EI{>};*;[
cr|lf]{<}SV04,{>}{<}IF{<}VA|50{>}>36{>}{<}SV03,{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{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{>}{<}XS50,03,03,04,03{>}{<}GLa{>}{<}EI{>}
{<}SX04,{<}IS50{>}{>}{<}LBa{>}{<}IF@upr({<}VA$FR{>}){240}"T"{
{062}}[TF_][TF_]{<}EI{>}{<}SX05,0{>}{<}LBb{>}[BX_]se [999]{<}PV04
{>}[999][Q2_]{<}IF@not({<}ER{>}){>}[BX_]seb [999]{<}PV04{>}[9
99][Q2_]{<}SX03,{<}CP{>}+{<}VA|50{>}{>}[YD_][DF_][BX_]jmp {<}
PV03{>}[Q2_][DF_]{<}SV03{>}{<}GT01{>}{<}IF{<}PV02{>}>0{>}[DN_
]{<}GT51{>}{<}SX05,{<}PV05{>}+1{>}{<}EI{>}{<}IF{<}VA$DE{>}>0{
{062}}[DB_][YD_][CR_]{<}EI{>}{<}GLb{>}{<}EI{>}{<}SX50,{<}IS05{>}{
{062}}{<}SX01,{<}IS05{>}+" changes"{>}{<}LBc{>}{<}PR@01{>}{<}EX{>
}{<}EI{>}{<}SX50,0{>}{<}SV01,No file{>}{<}GLc{>}{<}EI{>}{<}SX
50,0{>}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx
Attachment:
BIGCI.FRM

Description: Binary data