Re: Long strings in CI ///

[Harry Binswanger hb@xxxxxxxx]

Yes! When I use a regular cr-lf, it runs smooth as, well,
silk.


So the problem was that programming in XyBasic makes it hard for me to
break up a quoted literal with a literal cr-lf. But I can program that
capability into it for the future.


Thanks so much, Carl. BIGCI will be put to good use right away.


Regards,

Harry




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






Harry Binswanger
hb@xxxxxxxx