home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Black Box 4
/
BlackBox.cdr
/
editors
/
amac41.arj
/
DSIZ.QM
< prev
next >
Wrap
Text File
|
1991-05-23
|
4KB
|
114 lines
* DSIZ.QM May 5, 1991
* ----------------------------------------------------------------------
* ^(F6_) Directory sizes sorted by size
* ----------------------------------------------------------------------
This macro must ONLY be run as autoexecute macro with dsiz.bat. See
dsiz.bat for other instructions. DX.EXE is required and can be found
in AMAC-PRG.ZIP. See AMAC-K.INF for more details.
*
* Here's the output of dsiz.bat on my E: drive . . .
*
* Volume [E:Mininscrb_1] created: 91-Apr-02 19:15:24;
*
* Directory of [e:\up\] 1,443,775 bytes in 263 files
* Directory of [e:\com\] 840,087 bytes in 111 files
* Directory of [e:\disk\] 671,114 bytes in 9 files
* . .
* . .
* . .
* Directory of [e:\new-ware\] 1,562 bytes in 4 files
* Directory of [e:\bat\legal\] 735 bytes in 1 file
* 5,891,643 bytes in 969 files. 7,157,760 bytes allocated (18% slack).
*
*
^F6 macrobegin
* ---------------------- erase all blanks lines ----------------------*
begfile
NOTBLANK:
endpara
cursordown
jfalse DONE:
BLANK:
endline begline
jtrue NOTBLANK:
delline
jtrue BLANK:
DONE:
begfile
* --------------------------- join lines ----------------------------*
Cursordown
JOINLINE:
UnmarkBlock
CursorDown
JFalse AT_EOF:
markcolumn
endline
markcolumn
cursorup
gotocolumn "50" return
moveblock
endline
delltword delltword delltword delltword
* ------------------- delete blank line after join -------------------*
cursordown delline
AT_EOF:
begline * if we are at the last line of
* file, test fails and begin sort
* ----------------- mark size block for reverse sort -----------------*
Jtrue JOINLINE:
begfile
unmarkblock
cursordown
gotocolumn "51" return
markcolumn
endfile
cursorup
gotocolumn "70" return
markcolumn
* ----------------------- reverse sort by size -----------------------*
* ( this reverse sort was written by Tim Farley )
*
* NOTE: Since this macro uses the Kill Buffer to reverse the
* lines, it cannot sort more lines than will fit in your
* Kill Buffer. See (G)eneral options in the configuration
* program for setting this value--it defaults to only 30
* lines so BE CAREFUL! Set to the maximum number of
* directories in volume. I use 100.
*
* Do NOTE the notation in the comment: you are limited to the size
* of your Kill Buffer with this macro.
*
GotoBlockBeg OneWindow
Sort
JFalse ENDSORT:
GotoBlockEnd MarkLine
EditFile "nul" Return
MoveBlock
DelLine
DELALL: DelLine
JTrue DELALL:
UnKill
UNDELALL: CursorDown UnKill
JTrue UNDELALL:
DelLine CursorUp
DelLine CursorUp
MarkLine BegFile
PrevFile
CursorUp MoveBlock
NextFile Quit
GotoBlockBeg
UnMarkBlock
ENDSORT:
* --------------------- move volume name to top ---------------------*
endfile cursorup
markline markline
begfile moveblock unmarkblock
savefile
*
* 116 bytes Fri 04-05-1991 17:01:02
* Tom Hogshead