home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / tonline / software / data1.cab / Software / MAKRO / BEISPIEL / RESUMEAT.MKR < prev    next >
Encoding:
Text File  |  2001-08-13  |  1.2 KB  |  46 lines
  1. #   ------------------------------------------
  2. #   - Beispielmakro fuer den Befehl resumeat -
  3. #   ------------------------------------------
  4.  
  5. #   Protokollfensterausgaben ermoeglichen
  6. set PROTWIN = "on"
  7. debug "Makroname: ", argv_0, "\n"
  8.  
  9. #   Fehlerbehandlung aktivieren
  10. #   ACHTUNG!!! Nach Ausfuerung dieses Befehls wird
  11. #   bei *ALLEN* Fehlern zum Label Fehler verzweigt !!! 
  12. #   z.B. bei Verwendung einer nichtinitialisierten Variable
  13. onerror Fehler
  14.  
  15. set Filename = "RESUMEAT.TXT"
  16. Read:
  17. debug "Lese Datei ", Filename, " ...\n"
  18. #   Wenn nicht vorhanden, wird Fehler mit ERRNO = "25" erzezugt
  19. read Inhalt from Filename
  20. debug "Gelesen: <", Inhalt, ">\n"
  21.  
  22. goto Ende
  23.  
  24.  
  25.  
  26.  
  27. #   ========================
  28. #   Fehlerbehandlungsroutine
  29. Fehler:
  30.  
  31. ifnot ERRNO == "25" goto Alle
  32. messagebox Antwort : "Fehler", "Fehler im Makro: Datei konnte nicht gelesen werden\nSoll sie erzeugt und danach gelesen werden ?", "YESNO"
  33. if Antwort == "NO" goto Ende
  34. #   Datei erzeugen
  35. write "Hugo Habicht" to Filename
  36. #   Nochmal versuchen, zu lesen
  37. resumeat Read
  38.  
  39. #   alle anderen Fehler
  40. Alle:
  41. debug "Fehler, Code = ", ERRNO, "\n"
  42.  
  43. Ende:
  44. debug "Makro beendet\n"
  45. end
  46.