home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / musicmaniii_inst / data / arexx / exportlist.mmx < prev    next >
Text File  |  1997-08-25  |  2KB  |  55 lines
  1. /*
  2.  * ExportLIST.mmx
  3.  *
  4.  *
  5.  * ©1997 Andreas Mair
  6.  *
  7.  *
  8.  * Version:      1.00
  9.  * Date:         1.08.1997
  10.  *
  11.  * Function:     A simple ARexx-Script for use with MusicManIII.
  12.  *               This script will read all records of the currently open file
  13.  *               in MusicManIII and write it to the ASCII-file "mm3list.asc".
  14.  *
  15.  *               The file has the following layout:
  16.  *                 Recordnumber | Artist | Title | Type | Released
  17.  *
  18.  *               NOTE: this script will always overwrite the file "mm3list.asc",
  19.  *                     so you have to rename the file if you want to keep it.
  20.  *
  21.  * Requirements: MusicManIII V3.06 (or above)
  22.  *               ARexx running
  23.  *
  24.  * Usage:        - first start MusicManIII and load the file you want to export
  25.  *               - go to a CLI (or Shell) and start this script ("rx ExportLIST.mmx")
  26.  *
  27.  */
  28.  
  29. ADDRESS 'MUSICMAN'
  30.  
  31. OPTIONS RESULTS
  32.  
  33. QUERY RECORDSCOUNT
  34. MaxRecords=RESULT
  35.  
  36. RECORD GET NUMBER 1
  37.  
  38. CALL OPEN( "data", "mm3list.asc", 'WRITE' )
  39.  
  40. CALL WRITELN( "data", "No.   Artist                         Title                          Type                 Rel." )
  41. CALL WRITELN( "data", "---------------------------------------------------------------------------------------------" )
  42.  
  43. DO i=1 TO MaxRecords
  44.     SAY "Working on record #"i" of "MaxRecords
  45.  
  46.     QUERY ARTIST TITLE RELEASED TYPE STEM record.
  47.  
  48.     CALL WRITELN( "data", RIGHT(i,5)" "LEFT(record.artist,30)" "LEFT(record.title,30)" "LEFT(record.type,20)" "record.released )
  49.  
  50.     RECORD NEXT
  51. END
  52.  
  53. CALL CLOSE( "data" )
  54.  
  55.