home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxtools.zip / mp3list / names.cmd < prev   
OS/2 REXX Batch file  |  1999-03-13  |  951b  |  32 lines
  1. /* .mp3 files header extractor (OS/2 REXX) */
  2.  
  3. out='g:\t\'
  4.  
  5. parse arg fname .
  6.  
  7. if strip(fname) \= '' then do
  8.  
  9.     rc = RxFuncAdd("SysFileTree","rexxutil","SysFileTree")
  10.  
  11.     call lineout , 'Getting .mp3 files list...'
  12.     call SysFileTree '*.mp3', 'mpfiles', 'F'
  13.  
  14.     do i=1 to mpfiles.0
  15.         parse value strip(mpfiles.i) with skip skip size.i skip mpname.i
  16.         mpname.i=substr(mpname.i, lastpos('\',mpname.i)+1)
  17.     end
  18.  
  19.     call lineout , 'Total number of .mp3 files:' mpfiles.0 ''
  20.     call charout , 'Creating list file' out||fname||': '
  21.  
  22.     do i=1 to mpfiles.0
  23.         name.i=charin(mpname.i, size.i-124, 123)
  24.         name.i=translate(name.i,'2020'x, 'FF00'x)
  25.         call lineout out||fname, strip(mpname.i '   ' strip(name.i))
  26.         call lineout(mpname.i)
  27.         call charout ,'■'
  28.     end
  29. end
  30. else
  31.     say 'Please, enter list_file_name'
  32.