Dim reader As New iTextSharp.text.pdf.PdfReader("E:\1.pdf")
Dim n As Integer = reader.NumberOfPages
Dim str As String = ""
For i As Integer = 1 To n
Dim strategy As Object = New iTextSharp.text.pdf.parser.SimpleTextExtractionStrategy()
Dim currentText As String = iTextSharp.text.pdf.parser.PdfTextExtractor.GetTextFromPage(Reader, i, strategy)
currentText = Encoding.UTF8.GetString(ASCIIEncoding.Convert(Encoding.[Default], Encoding.UTF8, Encoding.[Default].GetBytes(currentText)))
str &= currentText
Next
output.show(str)
reader.Close()
此主题相关图片如下：rewe.png
已经找到代码，但是运行报错，这个错误是什么呢？
加好友 
发短信
Post By：2025/3/12 22:58:00 [显示全部帖子]
