Suchen IN Dateien

[MathiasSimmack]

So, eben mal den Stapel Papier durchwühlt, der sich aus bewahrenswerten Resten diverser PC-Zeitschriften zusammensetzt, und da war´s: PC WELT 10/2002. Damit ich´s nicht wieder vergesse, habe ich ein VBSkript draus gemacht, das ein Array mit den von mir gewünschten Dateitypen enthält.

Der Tipp funktioniert wie folgt: Es wird der Filter von Textdateien (das ist die GUID in der Konstanten "strSearchVal") gesetzt. Damit bietet sich das aber auch wirklich nur für Textdatei-Typen wie HTML, PHP, XML und Co. an.
Hier mal der Skriptcode, der übrigens auch den Eintrag aktiviert, den ich in meinem letzten Posting ansprach:

Code:

On Error Resume Next

Const strSearchKey  = "HKCR\%1\PersistentHandler\"
Const strSearchVal  = "{5e941d80-bf96-11cd-b579-08002b30bfeb}"
Const strFilterPath = _
  "HKLM\SYSTEM\CurrentControlSet\Control\ContentIndex\FilterFilesWithUnknownExtensions"


Dim strTypes
strTypes = Array(".xml", _
   ".xsl", _
   ".xsd", _
   ".dtd", _
   ".htm", _
   ".html", _
   ".shtml", _
   ".php")

' Der Unterstrich am Ende der obigen Zeilen ist eine Anweisung
' für den Interpreter, dass es in der jeweils nächsten Zeile
' weitergeht. Ansonsten wäre eine Fehlermeldung die Folge!


Dim Sh
Set Sh = CreateObject("WScript.Shell")


Dim strCurrentType
For Each strCurrentType in strTypes
   strCurrentType = Replace(strSearchKey, "%1", strCurrentType)
   Sh.RegWrite strCurrentType, strSearchVal
Next


Sh.RegWrite strFilterPath, "1", "REG_DWORD"

(Ich könnte langsam auch eine VBS-Sparte auf meiner Seite einrichten. )

Ausprobiert habe ich´s auch, indem ich in ~300 HTML-Seiten nach

Code:

"DocSet" Value="CommonC"

Im Gegensatz zu vorher findet die Suche nun auch tatsächlich etwas.