home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / tonline / software / data1.cab / Software / MAKRO / BEISPIEL / READ.MKR < prev    next >
Encoding:
Text File  |  2001-08-13  |  759 b   |  30 lines
  1. #   --------------------------------------
  2. #   - Beispielmakro fuer den Befehl read -
  3. #   --------------------------------------
  4.  
  5. #   Protokollfensterausgaben ermoeglichen
  6. set PROTWIN = "on"
  7. debug "Makroname: ", argv_0, "\n"
  8.  
  9. #   Erst mal eine Beispieldatei erzeugen
  10. debug "Schreibe Testdatei ...\n"
  11. set Filename = "READBSP.TXT"
  12. write "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" to Filename
  13.  
  14. #   Anzahl der Zeichen pro Zeile bei der Ausgabe
  15. set Maxchar = "16"
  16.  
  17. #   Datei lesen und auf mehrere Zeilen verteilt ausgeben
  18. read Data from Filename, Maxchar
  19.  
  20. Loop:
  21. debug "Gelesen: <", Data, ">\n"
  22. #   Weiterlesen
  23. read Data from "*", Maxchar
  24. #   Alles gelesen ? Dann Ende
  25. if Data == "" goto Ende
  26. goto Loop
  27.  
  28. Ende:
  29. end
  30.