home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / tonline / software / data1.cab / Software / MAKRO / BEISPIEL / READLINE.MKR < prev    next >
Encoding:
Text File  |  2001-08-13  |  770 b   |  30 lines
  1. #   ------------------------------------------
  2. #   - Beispielmakro fuer den Befehl readline -
  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 FILETEXTMODE = "on"
  12. set Filename = "READLINE.TXT"
  13. write "0123456789\nABCDEFGHIJKLMNOPQRSTUVWXYZ\nabcdefghijklmnopqrstuvwxyz\n" to Filename
  14.  
  15. #   Erste Zeile lesen
  16. readline Zeile from Filename
  17.  
  18. #   Schleife: Bei jedem Durchlauf eine Zeile ausgeben und die naechste lesen
  19. Loop:
  20. debug "Gelesen: <", Zeile, ">\n"
  21. if Zeile == "" goto Ende
  22. #   Weiterlesen
  23. readline Zeile from "*"
  24. #   Alles gelesen ? Dann Ende
  25. goto Loop
  26.  
  27. Ende:
  28. end
  29.  
  30.