Lucene.Net小实例 VB.NET

Imports Lucene.Net.Analysis.Standard
Imports Lucene.Net.Analysis
Imports Lucene.Net.Index
Imports Lucene.Net.Documents
Imports System.IO
Imports Lucene.Net.Search
Imports Lucene.Net.QueryParsers

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Dim str As String = "我们是中国人; 我们 是 人;we are chiness; 172.16.34.172;youpeizun@126.com;#$*;85*34;58 69"
        'Response.Write(Me.TestStandardTokenizer(str))
    End Sub

    Private Function TestStandardTokenizer(ByVal text As String) As String
        Dim result As String = ""
        Dim tr As TextReader = New StringReader(text)
        Dim st As StandardTokenizer = New StandardTokenizer(tr)
        While (Not st.Next() Is Nothing)
            result = result & st.token.ToString() & "/ "
        End While
        Return result
    End Function
   
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim INDEX_STORE_PATH As String = Server.MapPath("Index")
        Dim INDEX_PATH As String = TextBox1.Text

        Dim writer As IndexWriter
        writer = New IndexWriter(INDEX_STORE_PATH, New StandardAnalyzer(), True)

        IndexDirectory(writer, New FileInfo(INDEX_PATH))
        writer.Optimize()
        writer.Close()

        TextBox2.Text = "提示：索引完成\n"

    End Sub

    Private Sub IndexDirectory(ByVal writer As IndexWriter, ByVal file As FileInfo)
        If Directory.Exists(file.FullName) Then
            Dim files As String() = Directory.GetFileSystemEntries(file.FullName)
            If Not files Is Nothing Then
                Dim i As Integer
                For i = 0 To files.Length - 1
                    IndexDirectory(writer, New FileInfo(files(i)))
                Next
            End If
        ElseIf file.Extension = ".txt" Then
            IndexFile(file, writer)
        End If
    End Sub

    Private Sub IndexFile(ByVal file As FileInfo, ByVal writer As IndexWriter)
        Dim doc As Document = New Document()
        doc.Add(New Field("filename", file.FullName, Field.Store.YES, Field.Index.UN_TOKENIZED))
        doc.Add(New Field("contents", New StreamReader(file.FullName, System.Text.Encoding.Default)))
        writer.AddDocument(doc)
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim INDEX_STORE_PATH As String = Server.MapPath("index")   'INDEX_STORE_PATH 为索引存储目录
        Dim KEYWORD As String = TextBox2.Text '搜索关键字

        Dim searcher As IndexSearcher
        searcher = New IndexSearcher(INDEX_STORE_PATH)

        Dim q As QueryParser = New QueryParser("contents", New StandardAnalyzer())
        Dim query As Query = q.Parse(KEYWORD)

        Dim hits As Hits = searcher.Search(query)
        TextBox3.Text = "Results number is " & hits.Length()

        If Not hits Is Nothing Then
            Dim i As Integer
            For i = 0 To hits.Length - 1
                Dim doc As Document = hits.Doc(i)
                TextBox3.Text = TextBox3.Text & " 第" & i & "个结果地址" & doc.Get("filename") & "\n"
            Next
        End If
        searcher.Close()

    End Sub
End Class