Pytanie : PISMO KTÓRY SZUKAĆ I REZULTAT ZAKŁADAĆ

Cześć Przyjaciel,

I zakładać niektóre pismo który szukać kartoteka w precyzować książka telefoniczna dla pewny sznurek. The tytuł the rozwiązanie być 'A Pismo który szukać tekst file' ID: 24497423. I dostawać błąd online 30 the poprzedzający użytkownik więc I dodawać the "Na Błąd Życiorys Następnie" właśnie jakby wspominać w the bela. I dostać the niektóre informacja który spisywać pod ale the kod spisywać the kartoteka imię lokacja dla the kartoteka ten ono zakładać. Dlaczego móc I ten pismo ouput the kartoteka?

Thanks,

Jeff

Filesearch.txt
Folder: S:\scrimac
Files: *.sas
Text: s:\

Files Sprawdzać: 88
Files z Tekst: 88
Total Dopasowanie: 
(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:

On Błąd Życiorys Następnie
"Zmieniać the następny trzy linia
Const FOLDER_TO_SEARCH = "S:\scrimac"
Const FILES_TO_FIND = "*.sas"
Const TEXT_TO_FIND = "s:\"
Ciemnawy objFSO, objFolder, objFile, objTextStream, objReport, objRegex, colMatches, strRoot, strExtension, varBuffer, arrFTF
Ćmić lngFilesChecked, lngFilesMatched, lngHits
arrFTF = Rozłam (FILES_TO_FIND, ".")
Ustalony objFSO = CreateObject ("Scripting.FileSystemObject")
"Zmieniać the wydajność kartoteka - imię na the następny linia"
Ustawiać objReport = objFSO.CreateTextFile ("C:\Documents and Settings\eza9507\My Dokument \ FileSearch.txt")
objReport.WriteLine "Falcówka: " & FOLDER_TO_SEARCH
objReport.WriteLine "Kartoteka: " & FILES_TO_FIND
objReport.WriteLine "Tekst: " & TEXT_TO_FIND
objReport.WriteLine ""
Ustalony objRegex = CreateObject ("VBscript.RegExp")
Z objRegex
    .IgnoreCase = Prawdziwy
    . Wzór = TEXT_TO_FIND
    . Globalny = Prawdziwy
Końcówka Z
Ustalony objFolder = objFSO.GetFolder (FOLDER_TO_SEARCH)
Dla ObjFolder.Files objFile W objFolder.Files
    strRoot = objFSO.GetBaseName (objFile.Name)
    strExtension = objFSO.GetExtensionName (objFile.Name)
    Jeżeli (strRoot = arrFTF ((0))) Lub (arrFTF ((0)) = "*") Wtedy
        Jeżeli (strExtension = arrFTF (1)) Lub (arrFTF (1) = "*") Wtedy
            lngFilesChecked = lngFilesChecked + (1)
            Ustalony objTextStream = objFSO.OpenTextFile (objFile.Path)
            varBuffer = objTextStream.ReadAll
            Ustalony colMatches = objRegex.Execute (varBuffer)
            Jeżeli colMatches.count > (0) Wtedy
                lngFilesMatched = lngFilesMatched + (1)
                lngHits = lngHits + colMatches.count
                objReport.WriteLine "Kartoteka: " & objFile.Path & "Dopasowanie: " & colMatches.count
            Kończyć Jeżeli
            objTextStream.Close
        Kończyć Jeżeli
    Kończyć Jeżeli
Następnie
objReport.WriteLine ""
objReport.WriteLine "Kartoteka Sprawdzać: " & lngFilesChecked
objReport.WriteLine "Kartoteka z Tekst: " & lngFilesMatched
objReport.WriteLine "Sumaryczny Dopasowanie: " & lngHits
objReport.Close
Ustalony objFSO = Nic
Ustalony objFolder = Nic
Ustalony objFile = ObjFile
Ustalony objTextStream = Nic
Ustalony objReport = Nic
Ustalony objRegex = Nic
Ustalony colMatches = Nic
WScript.Echo "Rewizja Zupełny"
WScript.Quit

Odpowiedź : PISMO KTÓRY SZUKAĆ I REZULTAT ZAKŁADAĆ

Inne rozwiązania  
 
programming4us programming4us