Frage : EIN INDEX, DER RESULTAT SUCHT UND ZEIGT, FAND

Hallo fanden Freunde,

I irgendeinen Index, der Akten in einem spezifizierten Verzeichnis nach einer bestimmten Schnur sucht. Der Titel der Lösung war 'A Index, der eine Text file Identifikation sucht: 24497423. Ich erhalte eine Störung auf Linie 30, wie der vorhergehende Benutzer also ich hinzufügten „auf Störungs-Zusammenfassung zunächst“ taten, gerade wie sie im Maschinenbordbuch erwähnten. Ich erhielt die etwas Informationen, deren aber der Code verzeichnete die nicht Aktennamenpositionen für die Akten, die er aufgeführt ist unterhalb, fand. Wie kann ich diesen Index zum ouput redigieren die Akten?

Thanks,

Jeff

Filesearch.txt
Folder zum Suchen: S:\scrimac
Files zum Suchen: *.sas
Text zum zu finden: s:\

Files überprüft: 88
Files mit Text: 88
Total Gleiche: 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

On Störungs-Zusammenfassung zunächst
„Die folgenden drei Linien ändern“
Const FOLDER_TO_SEARCH = „S:\scrimac“
Const FILES_TO_FIND = „*.sas“
Const TEXT_TO_FIND = „s:\“
Schwaches objFSO, objFolder, objFile, objTextStream, objReport, objRegex, colMatches, strRoot, strExtension, varBuffer, arrFTF
Verdunkeln lngFilesChecked, lngFilesMatched, lngHits
arrFTF = spaltete auf sich (FILES_TO_FIND, „.")
objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
„Den Ausgangsdateinamen auf der folgenden Linie ändern“
objReport = objFSO.CreateTextFile („C:\Documents and Settings\eza9507\My-Dokumente \ FileSearch.txt“ einstellen)
objReport.WriteLine „Faltblatt zum Suchen: “ U. FOLDER_TO_SEARCH
objReport.WriteLine „Akten zum Suchen: “ U. FILES_TO_FIND
objReport.WriteLine „Text zum zu finden: “ U. TEXT_TO_FIND
objReport.WriteLine ""
objRegex = CreateObject („VBscript.RegExp“) einstellen
Mit objRegex
    .IgnoreCase = richten aus
    . Muster = TEXT_TO_FIND
    . Global = ausrichten
Mit beenden
objFolder = objFSO.GetFolder (FOLDER_TO_SEARCH) einstellen
Für jedes objFile in objFolder.Files
    strRoot = objFSO.GetBaseName (objFile.Name)
    strExtension = objFSO.GetExtensionName (objFile.Name)
    Wenn (strRoot = arrFTF (0)) Oder (arrFTF (0) = „*") dann
        Wenn (strExtension = arrFTF (1)) oder (arrFTF (1) = „*") dann
            lngFilesChecked = lngFilesChecked + 1
            objTextStream = objFSO.OpenTextFile (objFile.Path) einstellen
            varBuffer = objTextStream.ReadAll
            colMatches = objRegex.Execute (varBuffer) einstellen
            Wenn colMatches.count > 0 dann
                lngFilesMatched = lngFilesMatched + 1
                lngHits = lngHits + colMatches.count
                objReport.WriteLine „Akte: “ u. objFile.Path u. „Gleiche: “ u. colMatches.count
            Beenden wenn
            objTextStream.Close
        Beenden wenn
    Beenden wenn
Zunächst
objReport.WriteLine ""
objReport.WriteLine „Akten überprüft: “ u. lngFilesChecked
objReport.WriteLine „Akten mit Text: “ u. lngFilesMatched
objReport.WriteLine „Gesamtgleiche: “ u. lngHits
objReport.Close
objFSO einstellen = nichts
objFolder einstellen = nichts
objFile einstellen = nichts
objTextStream einstellen = nichts
objReport einstellen = nichts
objRegex einstellen = nichts
colMatches einstellen = nichts
WScript.Echo „Suche komplett“
WScript.Quit

Antwort : EIN INDEX, DER RESULTAT SUCHT UND ZEIGT, FAND

Weitere Lösungen  
 
programming4us programming4us