[Resolvido] Função Search

[xanburzum 169]

A função Search pesquisa recursivamente todos arquivos em um disco rígido para uma frase específica a partir de um determinado diretório começar. A pesquisa não significou para pesquisas em sites web site , mas foi projetado para ser usado no código só o caminho para a obtenção de um determinado arquivo de correspondência a frase.

 

A função Search retorna uma string de caminhos absolutos de todos os arquivos contendo a frase de pesquisa. Cada caminho está separado por um carro-return-line feed (vbCrLf) que é usado como um delimitador.

 

A função Search tem dois argumentos necessários, de frase e de diretório. A frase é string representando uma frase ou palavra exacta destes agrupamentos para pesquisa. Diretório é o caminho absoluto

 

sintaxe:

string = Search(phrase, directory)

exemplo:

Pesquisar todos os arquivos de todo o web site para a frase exata "request.cookies"

e excluí-las.

 

 

<%
' declare as variaveis
dim a, b, i

'Busca em todo o site, para a frase "request.cookies"
a = Search( "request.cookies", server.mappath("/") )   

b = split(a , vbCrLf)
For i = 0 to ubound(b) - 1
 'Apagar cada página
Kill b(i)
Next
%>

código

 

<%
Private Function Search(byVal phrase, byVal directory)
Dim objFSO, currentFolder, objFile, currentFile
Dim strSearch, fileContents, objFolder

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set currentFolder = objFSO.GetFolder(directory)
For Each objFile In currentFolder.Files
 If LCase( objFile.Path ) = _
  LCase( server.mappath( _
  request.serverVariables("SCRIPT_NAME") ) ) Then
 Else
  Set currentFile = _
   objFSO.OpenTextFile( objFile.Path, 1, False )
  fileContents = lcase( currentFile.ReadAll() )
  currentFile.Close
  Set currentFile = Nothing
  If Instr( fileContents, phrase ) Then
   strSearch = strSearch & objFile.Path & vbCrLf
  Else
   strSearch = strSearch & ""
  End If
 End If
Next
For Each objFolder in currentFolder.SubFolders
 strSearch = strSearch & Search( phrase, objFolder )
Next
Set currentFolder = Nothing
Set objFSO = Nothing
Search = CStr( strSearch )
End Function
%>