home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / TextEditors&Viewers / Ced / Arexx-Scripts / amilstce.lzx / AminetLST.ced next >
Encoding:
Text File  |  1995-04-16  |  702 b   |  40 lines
  1. /*
  2. ** AREXX Programm fuer CED um Aminet.LST die mit DORaus eingelesen wurden
  3. ** zu bearbeiten, dabei werden TXT Info und Index Dateien entfernt.
  4. ** By Reinaldo Erdey Maerz 1995
  5. */
  6.  
  7.         OPTIONS RESULTS
  8.  
  9.         ADDRESS         "rexx_ced"
  10.  
  11. Signal On Halt
  12.  
  13. utarget = '.TXT'
  14. Call Loeschen
  15. utarget = '.INFO'
  16. Call Loeschen
  17. utarget = 'INDEX'
  18. Call Loeschen
  19. utarget = 'FILES.BBS'
  20. Call Loeschen
  21. utarget = '.README'
  22. Call Loeschen
  23. Address Command 'Beep'
  24. okay2 'File abgespeichern ?'
  25. If result = '1' Then Save
  26. Exit
  27.  
  28. Loeschen:
  29. 'Beg of file'
  30. Do Forever
  31.        'search for...'  utarget
  32.        If result = '1' then Delete Line
  33.        If ~result then Leave
  34. End
  35. Return
  36.  
  37. Halt:
  38. Okay1 '*** User-break detected ***'
  39. Exit
  40.