Vraag : EEN MANUSCRIPT DAT GEVONDEN RESULTAAT ZAL ZAL ZOEKEN EN TONEN

Hello vonden de Vrienden,

I één of ander manuscript dat dossiers in een gespecificeerde folder voor een bepaald koord zal zoeken. De titel van de oplossing was Manuscript 'A dat een tekstfile identiteitskaart zal zoeken: 24497423. Ik krijg een fout online 30 zoals de vorige gebruiker zodat ik toevoegde „op Fout daarna“ enkel als zij vermeldde in het logboek hervat. Ik kreeg de wat informatie die hieronder vermeld is maar de code maakte niet een lijst van de plaatsen van dossiernamen voor de dossiers die het vond. Hoe kan ik dit manuscript aan ouput de dossiers uitgeven?

Thanks,

Jeff

Filesearch.txt
Folder aan Onderzoek: S:\scrimac
Files aan Onderzoek: *.sas
Text om te vinden: gecontroleerd s:\

Files: 88
Files met Tekst: gelijken 88
Total:
" codeBody " 
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:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
de 
On hervat daarna
„Verandering de volgende drie lijnen“
Const FOLDER_TO_SEARCH = „S:\scrimac“
Const FILES_TO_FIND = „*.sas“
Const TEXT_TO_FIND = „s:\“
Schemerige objFile objFSO, objFolder, objTextStream, objReport, objRegex, colMatches, strRoot, strExtension, varBuffer, arrFTF
Schemerig lngFilesChecked, lngFilesMatched, lngHits
arrFTF = verdeel (FILES_TO_FIND, „. “)
Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
„Verandering het outputdossier - naam op de volgende lijn“
Reeks objReport = objFSO.CreateTextFile („C:\Documents and Settings\eza9507\My Documenten \ FileSearch.txt“)
objReport.WriteLine „Omslag aan Onderzoek: “ & FOLDER_TO_SEARCH
objReport.WriteLine „Dossiers aan Onderzoek: “ & FILES_TO_FIND
objReport.WriteLine „Tekst om te vinden: “ & TEXT_TO_FIND
objReport.WriteLine ""
Reeks objRegex = CreateObject („VBscript.RegExp“)
Met objRegex
    .IgnoreCase = Waar
    . Patroon = TEXT_TO_FIND
    . Globaal = Waar
Eind met
Reeks objFolder = objFSO.GetFolder (FOLDER_TO_SEARCH)
Voor elk objFile in objFolder.Files
    strRoot = objFSO.GetBaseName (objFile.Name)
    strExtension = objFSO.GetExtensionName (objFile.Name)
    Als (strRoot = arrFTF (0)) Of (arrFTF (0) = „*“) toen
        Als (strExtension = arrFTF (1)) Of (arrFTF (1) = „*“) toen
            lngFilesChecked = lngFilesChecked + 1
            Reeks objTextStream = objFSO.OpenTextFile (objFile.Path)
            varBuffer = objTextStream.ReadAll
            Reeks colMatches = objRegex.Execute (varBuffer)
            Als colMatches.count > 0 toen
                lngFilesMatched = lngFilesMatched + 1
                lngHits = lngHits + colMatches.count
                objReport.WriteLine „Dossier: “ & objFile.Path & „Gelijken: “ & colMatches.count
            Eind als
            objTextStream.Close
        Eind als
    Eind als
Daarna
objReport.WriteLine ""
objReport.WriteLine „Gecontroleerde Dossiers: “ & lngFilesChecked
objReport.WriteLine „Dossiers met Tekst: “ & lngFilesMatched
objReport.WriteLine „Totale Gelijken: “ & lngHits
objReport.Close
Reeks objFSO = niets
Reeks objFolder = niets
Vastgestelde objFile = niets
Reeks objTextStream = niets
Reeks objReport = niets
Reeks objRegex = niets
Reeks colMatches = niets
WScript.Echo „Volledig Onderzoek“
WScript.Quit

Antwoord : EEN MANUSCRIPT DAT GEVONDEN RESULTAAT ZAL ZAL ZOEKEN EN TONEN

Andere oplossingen  
 
programming4us programming4us