Hallo ihr alle...
Ich stehe gerade vor einem kleinen Problem. Zum auslesen und weiterleiten von Rechnerdaten, hat mein Ausbilder mir ein prog besorgt was genau dies tun sollte. Ausgegeben wird letztendlich eine HTML Datei. Da das Programm zuerst eine Art Log Datei schreibt, wird schliesslich noch ein Script zum Umwandeln in HTML benötigt. Dieses ist in Form einer .vbs auch vorhanden. Das Problem welches sich mir hier auftut ist folgendes:
a) Das Programm verheddert sich in einer Dauerschleife
Da die ganze zeit weiter in eine HTML geschrieben wird, wird diese immer größer bis der virtuelle Speicher des Rechners nimmer ausreicht
Die folgende Passage konnten wir bisher als Fehlerquelle definieren:
'---Retrieve info from sorted tempfile and write results to snapshot
Do Until TextStreamTemp.AtEndOfStream
inputLine = TextStreamTemp.ReadLine
inputLevel = Split(inputLine, ":", 4, 1)
If (UBound(inputLevel) >= 3) Then 'skip empty lines
'---Write SCC Class totals
If currentSccClass <> inputLevel(0) Then
TextStreamOut.WriteLine ("<TR>")
TextStreamOut.WriteLine (" <TD>" & inputLevel(0) & "</TD>")
TextStreamOut.WriteLine (" <TD>" & " " & "</TD>")
TextStreamOut.WriteLine (" <TD>" & inputLevel(1) & "</TD>")
TextStreamOut.WriteLine (" <TD>" & Round((inputLevel(1) / total) * 100) & "</TD>")
TextStreamOut.WriteLine (" <TD>" & " " & "</TD>")
TextStreamOut.WriteLine (" <TD>" & " " & "</TD>")
TextStreamOut.WriteLine ("</TR>")
currentSccClass = inputLevel(0)
End If
'---Write SubClass totals; general has no subclass.
If inputLevel(2) <> "" Then
TextStreamOut.WriteLine ("<TR>")
TextStreamOut.WriteLine (" <TD>" & " " & "</TD>")
TextStreamOut.WriteLine (" <TD>" & inputLevel(2) & "</TD>")
TextStreamOut.WriteLine (" <TD>" & " " & "</TD>")
TextStreamOut.WriteLine (" <TD>" & " " & "</TD>")
TextStreamOut.WriteLine (" <TD>" & inputLevel(3) & "</TD>")
TextStreamOut.WriteLine (" <TD>" & Round((inputLevel(3) / total) * 100) & "</TD>")
TextStreamOut.WriteLine ("</TR>")
End If
End If
Loop
Nun ist es an dem armen kleinen Azubi (mir) den Fehler zu beheben. Da ich das nach 2 Tagen rumprobieren und rumforschen irgendwie noch nicht auf die Reihe bekommen habe bitte ich euch um Mithilfe...
THX...Dere
P.s.: Gerad ekam mein Ausbilder rüber und meinte dies sei gar ni der Primäre Punkt der Aufgabenstellen *rummoser*