|
Ein kleiner Schönheitsfehler bei der Anzeige der einzelnen Hilfethemen ist die manuelle Synchronisation mit der Baumansicht über die Schaltfläche "Synchronize" bzw. "Anzeigen". Aus dem Grund habe ich die beiden zur Anzeige verwendeten Scripte vb_buttons.vbs und js_buttons.js so angepasst, dass sie mit dem Onload-Befehl aufgerufen werden und so die Anzeige automatisch aktualisieren.
Do While Not EOF(file)
Line Input #file, eintrag
If InStr(1, eintrag, "buttons.js") > 0 Then gefunden = True
If Not gefunden Then
If InStr(1, eintrag, "</head>", vbTextCompare) Then
Print #file2, "<script src=" & Chr(34) & "js_buttons.js" & _
Chr(34) & "language=" & Chr(34) & "Javascript" & Chr(34) & _
"></script>"
Print #file2, "</head>"
ElseIf InStr(1, eintrag, "<body", vbTextCompare) > 0 Then
Print #file2, "<body bgcolor=#ffffff text=#000000 onload=" & _
Chr(34) & "OnNewTopic()" & Chr(34) & ">"
Else
Print #file2, eintrag
End If
Else
Print #file2, eintrag
End If
Loop
|
