none
Localização de Arquivos .txt com determinado conteúdo texto. RRS feed

  • Pergunta

  •  

     Olá a todos.

     

    Gostaria de saber se é possível e como fazer para localizar arquivos com extensão .txt que contenham um texto específico no servidor através de ASP?

    Assim, no windows tem uma localização de arquivos que contenham um texto, é possível fazer isso em ASP para a localização de logs com determinado texto?

    Obrigado desde já.

     

    Gustavo Schmidt Lucas.

    segunda-feira, 11 de junho de 2007 15:01

Respostas

  • Olá!
    Achei a resposta e estou postando aqui para todos:
    Gustavo Schmidt Lucas
     
    Code Snippet

    <!--Form to accept the string will be as follows:-->

        <FORM METHOD=POST id=form1 action="searchresult.asp" name=form1>
         Enter text to search for: <INPUT TYPE=TEXT NAME=TextToSearch><P>
         <INPUT TYPE=SUBMIT VALUE="Begin Search!" id=SUBMIT1 name=SUBMIT1>
        </FORM>

    <!--To search for a string in particular folder, following is the code: (searchresults.asp)-->

        'Search Text
        Dim strtextToSearch
        strtextToSearch = Request("TextToSearch")
    
        'Now, we want to search all of the files
        Dim fso
    
        'Constant to read
        Const ForReading = 1
        Set fso = Server.CreateObject("Scripting.FileSystemObject")
    
        'Specify the folder path to search.
        Dim FolderToSearch
        FolderToSearch = "D:\temp"
        
        'Proceed if folder exists
        if fso.FolderExists(FolderToSearch) then 
            
            Dim objFolder    
            Set objFolder = fso.GetFolder(FolderToSearch)
            
            Dim objFile, objTextStream, strFileContents, bolFileFound
            bolFileFound = False
    
            Dim FilesCounter
            FilesCounter = 0 'Total files found
    
            For Each objFile in objFolder.Files
                Set objTextStream = fso.OpenTextFile(objFile.Path,ForReading)
                'Read the content
                strFileContents = objTextStream.ReadAll
                If InStr(1,strFileContents,strtextToSearch,1) then
                   Response.Write objFile.Name & "<br>"
                   FilesCounter = FilesCounter + 1
                End If
                objTextStream.Close
            Next
    
            if FilesCounter = 0 then 
                Response.Write "Sorry, No matches found."
            else
                Response.Write "Total files found : " & FilesCounter
            end if    
            
            'Destroy the objects
            Set objTextStream = Nothing
            Set objFolder = Nothing
    
        else
            Response.Write "Sorry, invalid folder name"
        end if
        Set fso = Nothing
     

    terça-feira, 12 de junho de 2007 18:17