ITextSharp PdfReader 不阅读不同 PDF 中的新文本

Question

我有一个使用 ITextSharp 读取 PDF 文本的 Windows 服务应用程序。我正在使用文本框来显示 PDF 的文本。 它在读取第一个 PDF 时工作正常，但是当它读取第二个 PDF 时，文本不会改变，文本仍然是第一个 PDF。这是我的代码：

dim vFileName as string
dim vFileEntries as string()
dim vPath as string = "C:\PDF"

if directory.exists(vPath) then
   vFileEntries = directory.getfiles(vPath)

  for each vFileName in vFileEntries
   dim PR as PdfReader = new PdfReader(vFileName)

    for CurrentPage as integer = 1 to PR.NumberOfPages
     RichTextBox1.text = ""
     dim ltestrategy as LocationTextExtractionStrategy = New LocationTextExtractionStrategy
     dim currentext as string = PdfTextExtractor.GetTextFromPage(PR, CurrentPage,  ltestrategy)

     RichTextBox1.Text = RichTextBox1.Text + currentext
     next
    PR.close()
  next vFileName
end if

感谢任何帮助

Answer 1

您的代码现在设置的方式看起来像 RichTextBox1.text 将包含已处理的最后一个 pdf 的最后一页的文本。以下更改将从您的文件夹中处理的所有 pdf 的所有页面中引入文本。

要实现这一点，您需要更改以下内容：

for CurrentPage as integer = 1 to PR.NumberOfPages
     RichTextBox1.text = ""
     dim ltestrategy as LocationTextExtractionStrategy = New LocationTextExtractionStrategy
     dim currentext as string = PdfTextExtractor.GetTextFromPage(PR, CurrentPage,  ltestrategy)

     RichTextBox1.Text = RichTextBox1.Text + currentext
next

到：

for CurrentPage as integer = 1 to PR.NumberOfPages
     currenttext = ""
     dim ltestrategy as LocationTextExtractionStrategy = New LocationTextExtractionStrategy
     dim currentext as string = PdfTextExtractor.GetTextFromPage(PR, CurrentPage,  ltestrategy)

     RichTextBox1.Text = RichTextBox1.Text + currentext
next

您正在重新初始化 currentext 而不是 RichTextBox1.text。这将为您提供所有 pdf 及其所有页面的文本到文本框。