Re: meall

[cld@xxxxxxxx (Carl Distefano)]

Reply to note from "Morris Krok"  Mon, 8 Dec
2003 08:27:06 +0200

Morris:

> The one omission is that it fails to put the actual date with
> each merged file, though the name of the file appears.

I take it you mean the date that appears in the DIRectory display
(the last-saved date)? I don't recall your asking for that.

No problem. The following gives you the date and time (with switch
/F only):

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5MEall*}} MErge all files that match given filespec(s) [v2
; CLD rev. 12/8/03][cr|lf]{002}[XH_]{<}IF{<}VA|50{>}<1{>}{<}P
RMEALL[/D[:a[,b]]][/F] [filespec1[,filespec2,...]]{>
}{<}EX{>}{<}EI{>}[BX_]es 0[Q2_]{<}SU01,{<}SX02,{<}VA$WA{>}{>}
{<}IF{<}PV02{>}<1{>}{<}PRNo window{>}{<}EX1{>}{<}EI{>}[BX_]fu
nc #{<}PV02{>}[Q2_]{>}{<}IF{<}VA$WS{>}<>1{>}{<}GT01{>}[BX_]ne
/100[Q2_]{<}EI{>}[GT_][DX_]{<}PRWorking{>}{<}GT01{>}{<}SX03,@
upr({<}VA$FR{>}){>}{<}SV04,/{027}W {>}{<}LBa{>}{<}IF{<}IS50{>
}{240}"/"{>}{<}SV05,{>}{<}XS50,04,06,07,05{>}{<}IF{<}VA|06{>}
<0{>}{<}SX50,{<}IS50{>}+" "{>}{<}GLa{>}{<}EI{>}{<}SX03,{<}IS0
3{>}+@upr({<}IS07{>}){>}{<}SX50,{<}IS06{>}+{<}IS05{>}{>}{<}GL
a{>}{<}EI{>}{<}SU04,{<}SX05,{<}VA$SD{>}{>}{<}IF{<}VA|05{>}<1!
({<}IS05{>}+"{014}"){240}",{014}"{>}{<}SX05,{<}IS05{>}+"H"{>}
{<}EI{>}{>}{<}IF"/D"{238}{<}IS03{>}<0{>}{<}SX03,{<}IS03{>}+"/
D:F,E"{>}{<}EI{>}{<}IF{<}IS03{>}{240}"/D"&"/D:"{238}{<}IS03{>
}<0{>}{<}GT04{>}{<}SV06,/D{>}{<}SV07,{>}{<}XS03,06,06,,07{>}{
<}SX03,{<}IS06{>}+"/D:"+{<}IS05{>}+{<}IS07{>}{>}{<}EI{>}{<}SV
05,{>}{<}SX06,{<}VA@03:2{>}{>}{<}IF{<}IS06{>}{240}"/"{>}{<}SX
06,{<}VA@06/1{>}{>}{<}EI{>}{<}GT04{>}{<}SX05,"[BX_]dsort "+{<
}IS05{>}+"[Q2_]"{>}[BX_]dsort {<}PV06{>}[Q2_]{<}IF{<}vaxd{>}>
0{>}[BX_]d xd=0[Q2_]{<}SX05,{<}is05{>}+"[BX_]d xd=1[Q2_]"{>}{
<}EI{>}{<}SV06,,{>}{<}SX07,0{>}{<}LBb{>}{<}IF{<}VA|50{>}>0{>}
{<}IF","{238}{<}IS50{>}<0{>}{<}SX04,{<}IS50{>}{>}{<}SV50,{>}{
<}GLc{>}{<}EI{>}{<}SV08,{>}{<}XS50,06,04,,08{>}{<}SX50,{<}IS0
8{>}{>}{<}LBc{>}{<}GT01{>}[BX_]dir/fi {<}PV04{>}[Q2_]{<}IF{<}
ER{>}{>}{<}GLb{>}{<}EI{>}{<}LBd{>}{<}SV08,{>}{<}SX02,{<}VA$DR
{>}{>}[BX_]exist {<}PV02{>}[Q2_]{<}
IF@not({<}ER{>}){>}{<}IF{<}IS03{>}{240}"/F"{>}[LB_][NW_][NW_]
[NW_][YD_][DF_][LE_][DF_]{<}SV08{>}{<}SX08,"|- "+{<}IS02{>}+"
 "+{<}IS08{>}+" ->[cr|lf]"{>}{<}EI{>}[AS_]{<}IF{<}VA|08{>}>0
{>}{<}IF{<}CP{>}>0{>}{<}SX08,"[cr|lf]"+{<}IS08{>}{>}{<}EI{>}{
<}GT08{>}{<}EI{>}[BX_]me {<}PV02{>}[Q2_][BX_]wait[Q2_]{<}SX07
,{<}PV07{>}+1{>}[DO_][DX_][AS_][LD_]{<}GLd{>}{<}EI{>}[BX_]ab/
nv[Q2_]{<}GLb{>}{<}EI{>}{<}IF{<}VA$WS{>}<>1{>}[BX_]rs[Q2_]{<}
EI{>}{<}PV05{>}{<}SX01,"Done: "+{<}IS07{>}+" files MErged"{>}
{<}PR@01{>}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx