home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 2001 January / CT_SW0101.ISO / mac / software / kommunik / misc / zoc400wg.exe / setup.fil / script / RXSAMPLE / TUTORIAL / 8_FILEIO.ZRX < prev    next >
Text File  |  1996-11-19  |  2KB  |  70 lines
  1. /* REXX 
  2. ** 
  3. **  Dieses Beispiel zeigt alle grundlegenden Datei-Operationen:
  4. **
  5. **  - ÅberprÅfen, ob eine Datei existiert
  6. **
  7. **  - Datei zum Schreiben îffnen
  8. **  - in Datei schreiben
  9. **  - Datei schlie·en
  10. **
  11. **  - Datei zum Lesen îffnen
  12. **  - aus Datei lesen und Dateiende ÅberprÅfen
  13. **  - Datei schlie·en
  14. **
  15. */
  16.  
  17. /* ------------------------------------------------------------------ */
  18.  
  19. /* Die Funktion STREAM(,"C","QUERY EXISTS") wird verwendet, um zu     */
  20. /* ÅberprÅfen, ob eine Datei existiert.                               */
  21.  
  22. IF STREAM("SOME.TXT", "C", "QUERY EXISTS")\="" THEN DO
  23.     /* wenn Datei existiert, lîschen */
  24.     ADDRESS CMD "DEL SOME.TXT"
  25. END
  26.  
  27. /* ------------------------------------------------------------------ */
  28.  
  29. /* Die Funktion STREAM(,"C","OPEN WRITE") wird verwendet, um eine     */
  30. /* Datei zu îffnen                                                    */
  31. CALL STREAM "SOME.TXT", "C", "OPEN WRITE"
  32.  
  33. /* Ein Aufruf von LINEOUT schreib Daten in eine Datei. Anstatt eines  */
  34. /* Filehandles wird der Dateiname Åbergeben.                          */
  35.  
  36. CALL LINEOUT "SOME.TXT", "DIES IST EINE ZEILE TEXT"
  37. CALL LINEOUT "SOME.TXT", "DIES AUCH"
  38. CALL LINEOUT "SOME.TXT", ""
  39. CALL LINEOUT "SOME.TXT", "NOCH MEHR TEXT NACH EINER LEERZEILE"
  40.  
  41. /* Die Funktion STREAM schlie·t die Datei wieder.                     */
  42. CALL STREAM "SOME.TXT", "C", "CLOSE"
  43.  
  44. /* ------------------------------------------------------------------ */
  45.  
  46. /* Wir îffnen die Datei erneut und lesen die Daten mit LINEIN wieder  */
  47. /* ein. Das Dateiende wird mit der Funktion STREAM(,"S") abgefragt.   */
  48.  
  49. CALL STREAM "SOME.TXT", "C", "OPEN READ"
  50.  
  51. DO FOREVER 
  52.     /* eine Zeile Text lesen */
  53.     line= LINEIN("SOME.TXT")
  54.  
  55.     /* Schleife verlassen, wenn Dateiende erreicht wurde */
  56.     IF STREAM("SOME.TXT", "S")\="READY" THEN DO
  57.         LEAVE
  58.     END
  59.  
  60.     /* Textzeile ausgeben */
  61.     SAY "->"line
  62. END
  63.  
  64. CALL STREAM "SOME.TXT", "C", "CLOSE"
  65.  
  66. /* ------------------------------------------------------------------ */
  67.  
  68. EXIT
  69.  
  70.