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

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar
     

     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

  • Question
    Entrar para Votar
    0
    Entrar para Votar 

    Olá!
    Achei a resposta e estou postando aqui para todos:
    http://www.codeproject.com/asp/ASP_and_FileSystemObject.asp
    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
    |