老师：下面代码如何优化，提取速度有点慢，还有红色代码出错？请指教
Dim red As New iTextSharp.Text.pdf.PdfReader("D:\BBB.PDF")
'msgbox(red.NumberOfPages(2).text)
Dim n As Integer = red.NumberOfPages
Dim str As String
Dim pag,pag1 As Integer
For i As Integer = 1 To n
Dim stry As object = New iTextSharp.Text.pdf.Parser.SimpleTextExtractionStrategy()
Dim ctxt As String = iTextSharp.Text.pdf.Parser.PdfTextExtractor.GetTextFromPage(red, i, stry).Replace(" ","")
ctxt = Encoding.UTF8.GetString(ASCIIEncoding.Convert(Encoding.[Default], Encoding.UTF8, Encoding.[Default].GetBytes(ctxt)))
If ctxt.IndexOf("投标人须知前附表") > -1 AndAlso ctxt.IndexOf("条款名称") > -1 Then
pag = i
End If
If ctxt.IndexOf("中标候选人公示媒介") > -1 AndAlso ctxt.IndexOf("公示媒介") > -1 Then
pag1 = i
End If
Next
'msgbox(pag1)
For m As Integer = pag To pag1
Dim stry As object = New iTextSharp.Text.pdf.Parser.SimpleTextExtractionStrategy()
Dim ctxt As String = iTextSharp.Text.pdf.Parser.PdfTextExtractor.GetTextFromPage(red, m, stry).Replace(" ","")
ctxt = Encoding.UTF8.GetString(ASCIIEncoding.Convert(Encoding.[Default], Encoding.UTF8, Encoding.[Default].GetBytes(ctxt)))
str &= ctxt
Next
Output.Show(str)
red.Close()
加好友 
发短信
Post By：2023/10/19 10:04:00 [只看该作者]
此主题相关图片如下：1699798317645.jpg