【发布时间】：2015-10-29 16:30:35
【问题描述】：
我急需帮助，我正在尝试在包含超过 5000 个 pdf 的文件夹目录中搜索文本字符串，该代码经过测试并且可以使用少于 100 个 pdf 并且它可以工作，但是一旦它到达限制它需要超过 5-10 分钟才能得出结果。非常感谢任何帮助：
'<%
'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 = "C:\inetpub\site\Files\allpdfs\"
'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
'%>
<a href="http://go.to.mysite.com/files/allpdfs/<%Response.Write objFile.Name%>" target="_blank">
'<%
Response.Write objFile.Name & "</a><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
%>
【问题讨论】：
-
PDF 文件是二进制文件，您在这里将它们视为常规文本，这是不正确的。无论如何，您当前的结果很可能是不正确的，即使对于 100 个文件也是如此。
-
疯狂的部分不是，它通过链接和适量的文件给我结果。