home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxtools.zip / mp3list / names.bat < prev    next >
DOS Batch File  |  1999-03-13  |  1KB  |  40 lines
  1. /* .mp3 files header extractor (PCDOS 7.0 REXX) */
  2.  
  3. temp='C:\TEMP\'
  4. out='C:\MP3\'
  5.  
  6. i = 0
  7.  
  8. parse arg fname .
  9.  
  10. if strip(fname) \= '' then do
  11.  
  12.     'cls'
  13.     call lineout , 'Getting files list...'
  14.     'dir *.mp3 |grep -i "mp3   " >' temp||'MP3list.tmp'
  15.  
  16.     do 1
  17.         call linein temp||'MP3list.tmp'
  18.     end
  19.  
  20.     do while lines(temp||'MP3list.tmp') = 1
  21.         i=i+1
  22.         parse value linein(temp||'MP3list.tmp') with mpname.i ext size.i '.'rest
  23.         size.i=space(subword(size.i, 1, words(size.i)-1),0)
  24.     end
  25.  
  26.     max=i
  27.     call lineout , 'Total number of .mp3 files:' max ''
  28.     call charout , 'Creating list file' out||fname||': '
  29.  
  30.     do i=1 to max
  31.         name.i=charin(mpname.i||'.mp3', size.i-124, 123)
  32.         name.i=translate(name.i,'2020'x, 'FF00'x)
  33.         call lineout out||fname, strip(left(mpname.i||'.mp3', 12)||'09'x||name.i)
  34.         call charout ,'■'
  35.         call lineout(mpname.i||'.mp3')
  36.     end
  37. end
  38. else
  39.     say 'Please, enter list_file_name'
  40.