home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / tonline / software / data1.cab / Software / MAKRO / BEISPIEL / APPEND.MKR < prev    next >
Encoding:
Text File  |  2001-08-13  |  767 b   |  29 lines
  1. #   ----------------------------------------
  2. #   - Beispielmakro fuer den Befehl append -
  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. append "Erste 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. append "Zweite Textzeile\r\n" to Filename
  25.  
  26. #   Hinweis ausgeben
  27. debug "Datei ", Filename, " wurde geschrieben\n"
  28.  
  29.