Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: EventID ausgeben
Autor: Prian0815
Datum: 12.09.06 13:06
LogFileName ="Test.log" Set fso = CreateObject("Scripting.FileSystemObject") Set LogFile = fso.OpenTextFile(LogFileName,2,True) Set ReadLogFile = fso.OpenTextFile(LogFileName) colLoggedEvents = Array(7023,7000,7009,16,55,10009,5788,5789) IDExcludeListe = Array(16,10009) For Each objEvent in colLoggedEvents For Each EventID in IDExcludeListe If EventID <> objEvent Then MsgBox objEvent Exit For End If Next Next Probier doch mal was dabei passiert. sollte auf jeden Fall schneller sein: IDExcludeListe = Array(16,10009) wird nur noch einmal ausgeführt. Und die Msg kommt nur nioch einmal, danach Exit For(For - Schleife verlassen). Gruß Armin P.S.: always look on the bright side of Life!

EventID ausgeben	706	Sebastian666	12.09.06 11:31
Re: EventID ausgeben	478	Prian0815	12.09.06 13:06
Re: EventID ausgeben	436	Sebastian666	12.09.06 13:10

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen