VBS Logfile auswerten

[tOWNshIP]

Ich möchte ein Logfile auf doppelte Zeilen hin untersuchen, diese zählen und nur einmal, kombiniert mit der Anzahl ausgeben lassen. Ich versuche vergebens die einzelenen Zeilen in ein Array zu schreiben und dieses dann zu filtern.

set fso = CreateObject("Scripting.FileSystemObject")
set inputfile = fso.OpenTextFile("event.log", 1)
set outputfile = fso.CreateTextFile("filtered_event.log", 1)

do while not inputfile.AtEndOfStream
if not inputfile.ReadLine = "" then x=x+1
loop
inputfile.Close

dim array()
redim array(x)
set inputfile = fso.OpenTextFile("filtered_event.log", 1)
do while not inputfile.AtEndOfStream
	line = inputfile.ReadLine
	line = left(line, 20) & vbTab & right(line, 32)
	'for y = 1 to  x
	'write line in array(x)
	'x=x-1
	'next
loop
outputfile.Close

Den auskommentierten Teil darf man als Pseudocode verstehen. Lösungen?

Ein VBS-Editor (Freeware!) mit ObjectBrowser und IntelliSense wird auch noch gesucht.

 

[tOWNshIP]

gelöst, danke