home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / tonline / software / data1.cab / Software / MAKRO / BEISPIEL / INIREAD.MKR < prev    next >
Encoding:
Text File  |  2001-08-13  |  899 b   |  32 lines
  1. #   -----------------------------------------
  2. #   - Beispielmakro fuer den Befehl iniread -
  3. #   -----------------------------------------
  4.  
  5. #   Protokollfensterausgaben ermoeglichen
  6. set PROTWIN = "on"
  7. debug "Makroname: ", argv_0, "\n"
  8.  
  9. #   Dateiname normalerweise im DATA-Verzeichnis, soll aber im MAKRO-Verzeichnis sein
  10. set Ininame = "..\\MAKRO\\INIREAD.INI"
  11. set Section = "Optionen"
  12. set Entry   = "Name"
  13. set Default = ""
  14.  
  15. #   Eintrag aus INI-Datei lesen
  16. #   INI-Datei muss im Makroverzeichnis liegen und INIREAD.INI heissen
  17. #   folgender Beispieleintrag wuerde gelesen:
  18. #
  19. #   [Optionen]
  20. #   Name = Hugo Habicht
  21. #   
  22. iniread Value = Ininame, Section, Entry, Default
  23. debug "Gelesener Eintrag:\n", Entry, "=", Value, "\n"
  24.  
  25. ifnot Default == Value goto Ende
  26. debug "Eintrag ist nicht vorhanden\n"
  27. #   ... oder er hat zufaellig den gleichen Wert wie Default ...
  28.  
  29. Ende:
  30. end
  31.  
  32.