Quelltext betrachten

'''Ein neues Objekt anlegen.<tt><br/></tt>'''
Name: "vobjLoganzeige" <br/>
Typ: "Zeichen"
 Bemerkung: Wird nur benötigt, falls der Logbuchinhalt angezeit werden soll.
 Falls nicht kann auch im Makro vobjLog die Zeile vobjLoganzeige := vobjLog.last4 + u.s.w weggelassen werden.


'''Ein neues Objekt anlegen.<tt><br/></tt>'''
Name: "vobjLog" <br/>
Typ: "Zeichen" <br/>
Variablen alle von typ text: last1, last2, last3, last4

{{Code:Basic
|Makro
|<pre>
vobjLog.last4 := vobjLog.last3
vobjLog.last3 := vobjLog.last2
vobjLog.last2 := vobjLog.last1
vobjLog.last1 := UHRZEIT + " - " + vobjLog
vobjLoganzeige := vobjLog.last4 + "<<" + vobjLog.last3 + "<<" + vobjLog.last2 + "<<" + vobjLog.last1
schreibedatei("C:\Dokumente und Einstellungen\Stephan\Eigene Dateien\FHZ\Logbuch\logfile.log","%<vobjLog.last1>")
vobjLog := ""
</pre>
|
}}

'''Die Protokollierung erfolgt über:'''
{{Code:Basic
|Beispiel
|<pre>
wenn WandtasterS4ASchlafzimmer1  eingeschaltet dann
  RolloSchlafzimmerFenster  rauffahren
sonst
  RolloSchlafzimmerFenster   runterfahren
endewenn

vobjLog := "Das Rollo im Schlafzimmer wurde durch den Wandtaster geschaltet."
aufrufen(vobjlog)
</pre>
|
}}

'''Um die Logdatei zu verkleinern''' wird ein neuer Makro angelegt.<br/>
'''(Hierfür muß zwingend PHP eingerichtet sein)'''

Makroname: makLogverkleinern<br/>
Ausführungsinterval: bei Tageswechsel<br/>

{{Code:Basic
|Beispiel
|<pre>
<?
   $Datum_gestern =  date('Y-m-d', time()-(60*60*24));
   $filename = "C:\Dokumente und Einstellungen\Stephan\Eigene Dateien\FHZ\Logbuch\logfile".$Datum_gestern.".log";
   $bol = rename("C:\Dokumente und Einstellungen\Stephan\Eigene Dateien\FHZ\Logbuch\logfile.log",$filename);
?>
</pre>
|Hierbei wird bei einem Tageswechsel eine neue Log-Datei geschrieben und die alte wird mit dem Datum vom vortag abgespeichert.
}}

Im [http://www.fhz-forum.de/viewtopic.php?f=18&t=1084&st=0&sk=t&sd=a&hilit=dimmen&start=8#p6458 FHZ-Forum] gefunden und für meine Zwecke modifiziert.

[[Kategorie:FHZ]]