Re: Using XyWrite as an address book

[Carl Distefano cld@xxxxxxxx]

Reply to note from Carl Distefano  Fri, 11 May 2012
10:18:25 -0400

Here's a tweaked version of REFS. It has an option -- which probably
pertains only to me -- to suppress the listing of entries that exceed a
certain length (3KB). My address book includes long, non-standard entries
(e.g., office phone lists) that I generally want to skip when I'm listing
my search results. The option is disabled in the code below; it works
exactly like the frame I posted earlier (but marginally faster).

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5refs*}} List entries containing REFerenceS to a specified
 string (entries bounded by LeaDering or user-determined sepa
rator) [CLD rev.5/11/12-a][cr|lf]{002};*;[cr|lf]{<}SV01,{>};*
; Separator between entries (leave empty if LeaDering)[cr|lf]
;*;[cr|lf]{<}SX02,{<}VA$CL{>}{>}{<}IF{<}VA|50{>}>0{>}{<}IF{<}
VA$WS{>}==1{>}{<}SX03,{<}VA$WA{>}{>}{<}IF{<}PV03{>}>0{>}[BX_]
func #{<}PV03{>}[Q2_][BX_]ne[Q2_][AS_]{<}IF{<}VA|01{>}<1{>}{<
}SV01,[w<]LD[wX][w>]{>}{<}EI{>}{<}SX03,{<}VA$FR{>}{>}{<}SV04,
s{>}{<}SV05,{>}{<}XS03,04,04,04,05{>}{<}SX03,{<}CP{>}{>}{<}SV
04,{>}{<}IF{<}VA$DT{>}>0&{<}VA$DT{>}<>8{>}[TG_]{<}SV04,[TG_]{
{062}}{<}EI{>}[TF_][BX_]es 1[Q2_][DX_]{<}PRWorking{>}{<}LBa{>}[BX
_]se{<}PV05{>} {<}PV50{>}[Q2_]{<}IF@not({<}ER{>}){>}[YD_][B
X_]seb {<}PV01{>}[Q2_][YD_][DF_][BX_]se/2 {<}PV01{>}[Q2_]
{<}IF@not({<}ER{>}){>}[BX_]seb {<}PV01{>}[Q2_]{<}LBb{>}[DF_
];*;[cr|lf];*;[cr|lf][AS_][CP_][AS_]{<}EI{>};*; List all matc
hing entries[cr|lf];*;{<}IF{<}VA$DN{>}-{<}VA$DS{>}<3000{>}[AS
_][CP_][AS_]{<}EI{>};*; Exclude long (>=3KB) entries[cr|lf];*
;[cr|lf][DE_][YD_]{<}GLa{>}{<}EI{>}[BF_]{<}GLb{>}{<}EI{>}{<}S
X50,{<}PV03{>}{>}[JM_]2.ReJuMP[Q2_]{<}PV04{>}[AS_][TF_]{<}IF{
<}VA$FE{>}>0{>}{<}SV01,Not found{>}[BX_]ab/nv[Q2_]{<}IF{<}VA$
WS{>}<1{>}[BX_]rs[Q2_]{<}EI{>}{<}LBc{>}[BC_]{<}PV02{>}[GT_][D
O_][FF_]{<}PR@01{>}{<}EX{>}{<}EI{>}{<}SV01,Done{>}{<}GLc{>}{<
}EI{>}{<}SV01,No window{>}{<}GLc{>}{<}EI{>}{<}SV01,No file{>}
{<}GLc{>}{<}EI{>}{<}SV01,REFS[A][/SEarch_switch(es)] search_s
tring{>}{<}GLc{>}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx