TIA WinCC Advanced Runtime V15.1 (PC) & VBScript - SmartTags

[escride1]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hi,

als VBS-Laie schaffe ich es nicht meine "Kreation" zu verkürzen:

If SmartTags("Störung Not-Halt")=True Then
    ts.WriteLine (date) & (";") & (time) & (";Störung Not-Halt;True")
Else
        ts.WriteLine (date) & (";") & (time) & (";Störung Not-Halt;False")
End If

Geht das einfacher?
Also das ich den aktuellen Zustand True oder False direkt in die Zeile schreibe ohne erst abzufragen? Geschrieben werden muss eine Zeile so oder so.
Würde nun ungerne für 2k Variablen alles so erstellen sondern am liebsten einen Einzeiler.

Björn

 

[DeltaMikeAir]

Statt

If SmartTags("Störung Not-Halt")[B]=True[/B] Then

einfach

If SmartTags("Störung Not-Halt") Then

 

[DeltaMikeAir]

Zuviel Werbung?
-> Hier kostenlos registrieren

Bzw. ich habe dich wohl falsch verstanden.

 

[escride1]

Ja okay, das kriegt man auch kürzer. Nur meint ich das wirklich nicht so.

Meine halt das der Rückgabewert des Smarttags direkt geschrieben wird, ohne Abfrage.
Könnte dann doch soviel werden wie das...geht das? Ich hab echt kaum Peil von VBS ^^

ts.WriteLine (date) & (";") & (time) & (";Störung Not-Halt;") & SmartTags("Störung Not-Halt")


Okay, hab das getestet, funktioniert zum Teil.
Er schreibt nicht das englische True/False sondern WAHR/FALSCH

Glaub damit kann ich leben.

Hat sich dann also erledigt ^^.