vb.NET使用正则表达式在PDF中查找单词

Imports System.Text.RegularExpressions
Imports PdfPig

Module Module1
    Sub Main()
        Dim pdfPath As String = "path_to_your_pdf.pdf"
        Dim text As String = ExtractTextFromPdf(pdfPath)
        
        If Not String.IsNullOrEmpty(text) Then
            Dim pattern As String = "\bword\b" ' 正则表达式模式，查找单词"word"
            Dim matches As MatchCollection = Regex.Matches(text, pattern)
            
            For Each match As Match In matches
                Console.WriteLine("找到匹配项: " & match.Value)
            Next
        Else
            Console.WriteLine("无法从PDF中提取文本。")
        End If
    End Sub

    Function ExtractTextFromPdf(pdfPath As String) As String
        Dim text As String = ""
        Using pdfDocument As New PdfDocument(pdfPath)
            For Each page As PdfPage In pdfDocument.GetPages()
                text += page.GetText()
            Next
        End Using
        Return text
    End Function
End Module