TestResult_1.jpg (155.1 KB)
TestResult_4.jpg (181.2 KB)
TestResult_3.jpg (123.4 KB)
TestResult_2.jpg (114.6 KB)
Search.zip (525 Bytes)
Hi,
enclosed you will find my test files. I’ve just figured out that I can easily reproduce this issue with simple text files.
Here is my code as well:
Private Sub TestBasicSearch()
’
'Dim query As String = “”“at the attached doc”""
'Dim query As String = “*@testmail.com”
'Dim query As String = “john.doe@testmail.com
”
Dim query As String = “john”
'Dim query As String = “attached”
Dim indexFolder As String = "F:\Temp\GroupDocs\Index"
Dim searchFoler As String = "F:\Temp\GroupDocs\Search"
Dim settings As IndexSettings = New IndexSettings()
Dim index As Index = New Index(indexFolder)
index.Add(searchFoler)
Dim reports As IndexingReport() = index.GetIndexingReports()
Console.WriteLine("----------------------------------------------------------------------------------------------------")
Console.WriteLine()
Console.WriteLine("Query: " & query)
Console.WriteLine("Index-Folder: " & indexFolder)
Console.WriteLine("Search-Folder: " & searchFoler)
Console.WriteLine()
For Each report As IndexingReport In reports
Console.WriteLine("----------------------------------------------------------------------------------------------------")
Console.WriteLine("INDEX REPORT")
Console.WriteLine()
Console.WriteLine("Start: " & report.StartTime.ToString)
Console.WriteLine("End: " & report.EndTime.ToString)
Console.WriteLine("Duration: " & report.IndexingTime.ToString)
Console.WriteLine()
Console.WriteLine("Documents total: " & report.TotalDocumentsInIndex.ToString)
Console.WriteLine("Terms total: " & report.TotalTermCount.ToString)
Console.WriteLine()
Console.WriteLine("Indexed documents size (MB): " & report.IndexedDocumentsSize.ToString)
Console.WriteLine("Index size (MB): " & (report.TotalIndexSize / 1024.0 / 1024.0).ToString)
Console.WriteLine()
Console.WriteLine("----------------------------------------------------------------------------------------------------")
Console.WriteLine()
Next
Dim indexedDocuments1 As DocumentInfo() = index.GetIndexedDocuments()
For Each info As DocumentInfo In indexedDocuments1
Console.WriteLine("Indexed-Document: " & info.FilePath)
Next
Console.WriteLine("----------------------------------------------------------------------------------------------------")
Console.WriteLine()
Dim result As SearchResult = index.Search(query)
If result.DocumentCount = 0 Then
Console.ForegroundColor = ConsoleColor.Yellow
Console.WriteLine("--- NO RESULT! ----")
Console.WriteLine()
Console.ResetColor()
End If
If result.DocumentCount > 0 Then
Console.WriteLine()
Console.WriteLine("Search Result:")
Console.WriteLine()
Console.WriteLine("Documents: " & result.DocumentCount)
Console.WriteLine("Occurrences: " & result.OccurrenceCount)
Console.WriteLine()
For i As Integer = 0 To result.DocumentCount - 1
Dim document As FoundDocument = result.GetFoundDocument(i)
Console.WriteLine()
Console.WriteLine(vbTab & "Document-FilePath: " & document.DocumentInfo.FilePath)
Console.WriteLine(vbTab & "Document-FileName: " & document.DocumentInfo.FilePath.Split("\").Last)
Console.WriteLine(vbTab & "Document-FileType: " & document.DocumentInfo.FileType.Extension)
Console.WriteLine(vbTab & "Relevance: " & document.Relevance)
Console.WriteLine(vbTab & "Occurrences: " & document.OccurrenceCount)
If result.DocumentCount > 0 Then
Dim fileName As String = document.DocumentInfo.FilePath.Split("\").Last
Dim HTMLfileName As String = "Highlighted_" & fileName & ".html"
Console.WriteLine(vbTab & "Write HTML Report: " & HTMLfileName)
Dim outputAdapter As OutputAdapter = New FileOutputAdapter("F:\Temp\GroupDocs\" & HTMLfileName)
Dim highlighter As HtmlHighlighter = New HtmlHighlighter(outputAdapter)
index.Highlight(document, highlighter)
End If
Next
End If
Console.WriteLine()
Console.WriteLine("Finished!")
Console.ReadLine()
End Sub
Thanks and best regards
Mike