home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / tonline / software / data1.cab / Software / MAKRO / BEISPIEL / WRITE.MKR < prev    next >
Encoding:
Text File  |  2001-08-13  |  862 b   |  30 lines
  1. #   ---------------------------------------
  2. #   - Beispielmakro fuer den Befehl write -
  3. #   ---------------------------------------
  4.  
  5. #   Protokollfensterausgaben ermoeglichen
  6. set PROTWIN = "on"
  7. debug "Makroname: ", argv_0, "\n"
  8.  
  9. #   Dateimodus auf Text setzen
  10. set FILETEXTMODE = "on"
  11.  
  12. #   Dateiname setzen 
  13. set Filename = "FILETEST.TXT"
  14.  
  15. #   Zeile im Textmodus anhaengen
  16. #   Datei wird erzeugt, wenn sie noch nicht exisitert
  17. #   "\n" wird nach "\r\n" konvertiert
  18. write "Erste Textzeile\nZweite Textzeile\n" to Filename
  19.  
  20. #   Dateimodus auf Binaer umschalten
  21. set FILETEXTMODE = "off"
  22.  
  23. #   Jetzt muss man "\r\n" schreiben (wegen Binaermodus)
  24. #   Die vorher geschriebenen Zeilen werden ueberschrieben !!!
  25. write "Erste Textzeile\r\nZweite Textzeile\r\n" to Filename
  26.  
  27. #   Hinweis ausgeben
  28. debug "Datei ", Filename, " wurde geschrieben\n"
  29.  
  30.