Foxtable(狐表)用户栏目专家坐堂 → 读取pdf


  共有2552人关注过本帖树形打印复制链接

主题:读取pdf

帅哥哟,离线,有人找我吗?
jsq96jg
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:333 积分:2759 威望:0 精华:0 注册:2012/5/8 11:06:00
读取pdf  发帖心情 Post By:2020/4/30 9:35:00 [只看该作者]

Dim reader As New iTextSharp.text.pdf.PdfReader("d:\test.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) 

messagebox.show(currenttext)   
    currentText = Encoding.UTF8.GetString(ASCIIEncoding.Convert(Encoding.[Default], Encoding.UTF8, Encoding.[Default].GetBytes(currentText)))

messagebox.show(currenttext)   
    str &= currentText    
Next
msgbox(str)
reader.Close()



messagebox.show()显示啥也没有,不知道为什么?


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110648 积分:563148 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/30 10:23:00 [只看该作者]

做个例子以及相关的dll一起发上来测试,我这边没有运行环境

 回到顶部