Re: Duplicates Pattern Search

[cld@xxxxxxxx (Carl Distefano)]

Reply to note from cld@xxxxxxxx (Carl Distefano) Thu, 20 Dec 2001
00:31:30 -0500 (EST)

Whoops. I just realized that the name URLS clashes with an existing
U2 frame name. I've renamed the new routine to LISTURLS. Please
use what's below instead of the code in my earlier message. The new
command is LISTURLS.

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5ListURLs}} List all URLs (duplicates together) [CLD 12/19
/01][cr|lf]{2}[XH_]{<}IF{<}VA$WS{>}<>1{>}{<}PRNo file{>}{<}EX
{>}{<}EI{>}{<}SX01,{<}VA$WA{>}{>}{<}IF{<}PV01{>}<1{>}{<}PRNo{32}
window{>}{<}EX{>}{<}EI{>}[BX_]es 1[Q2_][TF_]{<}SV02,!{>}{<}SU
03,{<}SX04,{<}VA$DS{>}{>}{<}SX04,{<}IS04{>}+"{tab}"{>}{<}SU05
,[AS_][255+48+68][AS_][JM_]2.ReJuMP[Q2_]{>}[AS_]{<}GT04{>}[CP
_][255+48+68][AS_]{>};*;[cr|lf]{<}LBa{>}[YD_][BX_][Q2_][JM_]2
{46}FindNextURL[Q2_][DO_][DX_];*;[cr|lf]{<}IF{<}VA$ER{>}==10{>}[
TF_][YD_]{<}IF{<}VA|02{>}<1{>}[AS_][BC_]xmacro DXNPPPYDDFBX(s
e/f {tab})DF[sv01],YDASBX(jmp [pv01])[TF_][LD_][LD_][LD_]{<}
PRPut cursor on URL and hit  to go to URL{>}{<}EX{>}
{<}EI{>}{<}PRNo URLs{>}{<}EX{>}{<}EI{>}{<}IF{<}VA|02{>}>0{>}{
<}SX02,"{<}SZ12PT{>}{<}UFSTANDARD{>}{<}OF{>}{<}TP{>}{<}BT{>}{
<}FD256LI{>}{<}PL256LI,256LI,256LI{>}{<}HY0{>}{<}NJ{>}{<}RT0{
>}{<}LM{>}{<}PW8IN{>}{<}IP0,12DI{>}{<}TS11DI{>}URLs in "+{<}V
A$FP{>}+"[cr|lf]CharPos{tab}URL[cr|lf]======={tab}===[cr|lf]"
{>}[BX_]func #{<}PV01{>}[Q2_][BX_]ne/{<}IF{<}VA$VE{>}<"V4.1"{
>}9{<}GLb{>}{<}EI{>}25{<}LBb{>}[Q2_]{<}GT02{>}[AS_]{<}SV02,{>
}{<}EI{>};*;[cr|lf]{<}SX50,{<}CP{>}{>}{<}SX06,{<}VA$DS{>}{>}{
<}IF{<}VA|02{>}<1{>}[AS_][TF_]{<}SV01,{>}[BX_]se [wC]{<}PV06
{>}{tab}[Q2_]{<}IF{<}ER{>}{>}{<}SV01,!{>}{<}EI{>}[BF_][AS_]{<
}IF{<}VA|01{>}<1{>}{<}GLa{>}{<}EI{>}{<}EI{>}{<}SV01{>}{<}SX06
,"Working on "+{<}IS01{>}{>}{<}PR@06{>}{<}GT03{>}{<}IF{<}VA|0
1{>}<81{>}{<}LBc{>}[BX_]se/f [999]{<}PV01{>}[999][Q2_]{<}IF{<
}ER{>}{>}{<}GT05{>}{<}GLa{>}{<}EI{>}[JM_]2.FindNextURL[Q2_]{<
}GT03{>}{<}GLc{>}{<}EI{>}{<}LBd{>}[JM_]2.FindNextURL[Q2_]{<}I
F{<}VA$ER{>}==10{>}{<}GT05{>}{<}GLa{>}{<}EI{>}{<}SV06{>}{<}IF
@upr({<}IS01{>})==@upr({<}
IS06{>}){>}{<}GT03{>}{<}EI{>}{<}GLd{>}{2}[cr|lf][cr|lf]{{;5fd
u}} Find Duplicate URLs [CLD 12/18/01][cr|lf]{2};*;   If du
plicate is found:[cr|lf];*;    Press "1" to toggle betwee
n original URL and duplicate[cr|lf];*;    Press "2" to co
ntinue scanning file[cr|lf];*;    Press Escape to quit[cr
|lf];*;   FDU does not delete duplicate URLs[cr|lf];*;  {32}
 Delete manually and run FDU again[cr|lf];*;[cr|lf][XH_]{<}I
F{<}VA$WS{>}<>1{>}{<}PRNo file{>}{<}EX{>}{<}EI{>}[BX_]es 1[Q2
_][TF_];*;[cr|lf]{<}LBa{>}{<}SX01,0{>}[YD_][BX_][Q2_][JM_]2.F
indNextURL[Q2_];*;[cr|lf]{<}IF{<}VA$ER{>}==10{>}[TF_][YD_]{<}
PRDone{>}{<}EX{>}{<}EI{>}[DO_][DX_]{<}SX50,{<}CP{>}{>}{<}SV02
{>}[YD_];*;[cr|lf]{<}LBb{>}{<}IF@siz({<}IS01{>})<2!({<}IS01{>
}+"A"){240}"0A"{>}{<}SX03,"Searching for duplicate - Testing{32}
"+{<}IS01{>}{>}{<}PR@03{>}{<}EI{>};*;[cr|lf][JM_]2.FindNextUR
L[Q2_]{<}IF{<}VA$ER{>}==10{>}[JM_]2.ReJuMP[Q2_]{<}GLa{>}{<}EI
{>}{<}SX01,{<}PV01{>}+1{>}{<}SV03{>}{<}IF@upr({<}IS03{>})==@u
pr({<}IS02{>}){>}{<}SV02,dupe{>}{<}SV03,{>};*;[cr|lf]{<}LBc{>
}{<}IF{<}IS02{>}{240}"dupe"{>}{<}SV03,Duplicate{>}{<}SV02,ori
g{>}{<}GLd{>}{<}EI{>}{<}SV03,Original{>}{<}SV02,dupe{>}{<}LBd
{>}{<}SX04,{<}CP{>}{>}{<}SX04,{<}IS03{>}+" URL (pos="+{<}IS04
{>}+"): 1=View "+{<}IS02{>}+" 2=Continue [Esc quits]"{>}{<}LB
e{>}{<}PR|@04{>}[DO_][DX_]{<}SX04,{<}RK{>}{238}"12"{>}{<}IF{<
}VA$KC{>}<2{>}[DE_]{<}PRDelete duplicate URL & run FDU again{
>}{<}EX{>}{<}EI{>}{<}IF{<}PV04{>}<0{>}{<}GLe{>}{<}EI{>}{<}IF{
<}PV04{>}<1{>}{<}IF{<}VA$IN{>}>0{>}[JM_]2.ReJuMP[Q2_]{<}GLc{>
}{<}EI{>}[DE_]{<}GLc{>}{<}EI{>}[DE_][DO_][DX_]{<}EI{>}{<}GLb{
>}{2}[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx
http://users.datarealm.com/xywwweb/