Untitled Document

Boa Tarde, Estou desenvolvendo um sistema que busca de arquivos de imagem. Aqui está funcionando diretinho. Mas quando eu busca a palavra por exemplo "cha", ele nao retorne nenhum arquivos no diretorio, falando que "0 encontrados", mas tem arquivo de imagem chamado cha. Alguem sabe aruumar para mim? Aqui esta o codigo: arquivo 01.asp = o usuario digita a palavra <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> ``` Untitled Document

Pesquisa:

``` ``` ``` ```

``` arquivo: 02.asp = esse retorna a busca digitada <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'Option Explicit Response.Buffer = True ' Configure alguns objetos FileSystem dim objFS, objFolder, objFiles, File, FileName, objCheckFile, strSitePath set objFS = server.CreateObject("Scripting.FileSystemObject") dim strListofFiles, arrFileList, strPageTitle, iReturnCount dim objFolders strListofFiles = "" iReturnCount = 0 ' Os valores de pesquisa, espaço de pesquisa, eo valor de retorno dim strKeyWord, strFileContents, returnValue, arrKeyWords dim bKeyWordFound, i, j 'diretorio = request.querystring("F:\ARQUIVOS PORTAL2\Banco de Imagens Oficial") 'if diretorio = "" then 'Obter o caminho físico para o diretório atual strSitePath = Server.MapPath(".") 'Pegue os keyworlds e dividi-los em uma matriz strKeyWord = Trim(request("txtKeyWord")) arrKeyWords = split(strKeyWord," ") ' obter a lista de arquivos Set objFolder = objFS.GetFolder(strSitePath) 'Sub que pega todos os "htm." & ". Html" arquivos na pasta e dado 'Recurses através de todas as subpastas. sub getCompleteFileList(inFolder, Path) dim oFiles, oFolders, Folder, sPath 'obter todos os arquivos e subpastas Set oFiles = inFolder.Files Set oFolders = inFolder.SubFolders ' Se temos uma subpasta precisamos do caminho parcial if (Path <> "") then sPath = Path + "\" end if 'Adicione cada "htm." & ". Html" arquivo à lista For Each File in oFiles FileName = File.Name if((Lcase(right(FileName,4)) = ".jpeg") OR (Lcase(right(FileName,5)) = ".jpeg" )) then if (strListofFiles = "") then strListofFiles = sPath + FileName else strListofFiles = strListofFiles + "," + sPath + FileName end if end if Next ' Check all the subfolders for ".htm" & ".html" files 'checa todos os subpastas dos arquivos For Each Folder in oFolders if (Folder.Name <> "images" AND Folder.Name <> "stats") then call getCompleteFileList(Folder, sPath + Folder.Name) end if Next ' Clean up 'Limpe set File = Nothing set oFiles = Nothing set Folder = Nothing set oFolders = Nothing end sub %> ``` Resultado de Busca

Resultado de Busca

``` ```

``` <% 'Somente na busca nós temos pelo menos uma palavra-chave if (strKeyWord <> "") then 'Chame o sub que recebe todos os arquivos call getCompleteFileList(objFolder, "") 'Tome a corda grande ole o contém todos os arquivos separados por vírgulas e cortá-la. arrFileList = split(strListofFiles,",") For i=0 to UBound(arrFileList) 'Abra o arquivo atual e ler tudo em uma única seqüência. 'Se os arquivos são enormes isso poderia comer muito ou recursos. Set objCheckFile = objFS.OpenTextFile(strSitePath + "\" + arrFileList(i),1,false,0) strFileContents = objCheckFile.ReadAll ' Padrão, o sinalizador de pesquisa para false. bKeyWordFound = false ' Para cada palavra-chave digitada pesquisar o arquivo. for j = 0 to UBound(arrKeyWords) returnValue = InStr(1,strFileContents,arrKeyWords(j),1) 'Se o valor de retorno não é zerar a palavra-chave foi encontrada 'Definir o flage pesquisa para corte verdade e curto fora do circuito. if (returnValue <> 0) then bKeyWordFound = true j = UBound(arrKeyWords) end if next ' Se uma palavra-chave foi encontrada incluir esse arquivo na lista. if (bKeyWordFound) then ' Manter o controle do número de resultados e pegar o título da página para a exibição de pesquisa iReturnCount = iReturnCount + 1 dim startChar, endChar ``` startChar = InStr(1,strFileContents,"",1) endChar = InStr(1,strFileContents,"",1) ``` if (startChar = 0 OR endChar = 0 OR ((startChar + 7) > (endChar - 7))) then %> ``` ``` <% else strPageTitle = mid(strFileContents,InStr(1,strFileContents,"",1) + 7, InStr(1,strFileContents,"",1) - InStr(1,strFileContents,"",1) - 7) if (strPageTitle = "") then strPageTitle = arrFileList(i) end if %> ``` <tr> <td><font face="Arial, Helvetica, sans-serif" size="2"><a href="<%= arrFileList(i) %>"><%= strPageTitle%></a> <%= arrFileList(i) %></font></td> </tr> ``` <% end if end if ' Feche o arquivo para que possamos abrir um outro. objCheckFile.Close Next end if %> ``` <tr> <td><font face="Arial, Helvetica, sans-serif" size="2" color="#999999"><%= iReturnCount%> Páginas Encontradas</font></td> </tr> <tr> <td> </td> </tr> ``` <% ' Limpar todos os objetos usados. set objCheckFile = Nothing set File = Nothing set objFiles = Nothing set objFolder = Nothing set objFS = Nothing %> </table>  ``` </td> </tr> </tbody> </table> </td> </tr> </tbody> </table> </td> </tr> </tbody> </table> </td> </tr> </tbody> </table> <p> </p> </body> </html> ``` Espero q alguem me ajuda! No aguardo! :)</article></body></html>

Você procurou por: <%= strKeyWord%>

<%= arrFileList(i) %> <%= arrFileList(i) %>

C.Porto

[Resolvido] Busca por palavra e listar arquivos