home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
rxtools.zip
/
mp3list
/
names.cmd
< prev
Wrap
OS/2 REXX Batch file
|
1999-03-13
|
951b
|
32 lines
/* .mp3 files header extractor (OS/2 REXX) */
out='g:\t\'
parse arg fname .
if strip(fname) \= '' then do
rc = RxFuncAdd("SysFileTree","rexxutil","SysFileTree")
call lineout , '
Getting .mp3 files list...
'
call SysFileTree '*.mp3', 'mpfiles', 'F'
do i=1 to mpfiles.0
parse value strip(mpfiles.i) with skip skip size.i skip mpname.i
mpname.i=substr(mpname.i, lastpos('\',mpname.i)+1)
end
call lineout , '
Total number of .mp3 files:
' mpfiles.0 '
'
call charout , '
Creating list file
' out||fname||'
:
'
do i=1 to mpfiles.0
name.i=charin(mpname.i, size.i-124, 123)
name.i=translate(name.i,'2020'x, 'FF00'x)
call lineout out||fname, strip(mpname.i ' ' strip(name.i))
call lineout(mpname.i)
call charout ,'■'
end
end
else
say 'Please, enter list_file_name'