主题：如何将PDF格式里的信息提取到狐表中？

难道我的2017正式版有鬼？我新建的项目，引用了 dll，然后就运行上述代码，就黑屏了。你运行出来是什么效果的？截图看看

 

你试试不直接msgbox，而是output.show

 

此主题相关图片如下：qq截图20170316171705.png

为何读不了 pdf文件里的任何信息？

 

1、你的pdf是图片还是文本？只有文本才能读取；

 

2、试试 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=118014&authorid=0&page=0&star=2

 

3、如果还是不行，pdf文件发上来测试。

 

比如我要把文件中的文字提取出来？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:20160503021138696.rar

此主题相关图片如下：qq截图20180614173819.png

我测试没问题

 

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

 

 

那这个文件呢？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:test.rar

回复18楼，你这个是图片，不是文本。要用文本识别的功能。

 

Dim doc = CreateObject("MODI.Document") 
doc.Create("d:\test.jpg")
doc.OCR(2052, True, True)
Dim layout = doc.images(0).Layout
msgbox(layout.text)

 

pdf保存为图片，参考 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117794&authorid=0&page=0&star=2

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=104162&skin=0

 

 

谢谢！能否来个完整的拿来可用的代码，我要看世界杯！