在點(diǎn)虐 下如何提取PDF的文字并檢索相關(guān)數(shù)據(jù)

FileStream ReadPdf = new FileStream(@"d:\books\vb點(diǎn)虐 \test.pdf", FileMode.Open);

成都創(chuàng)新互聯(lián)公司專注于網(wǎng)站建設(shè)|網(wǎng)站維護(hù)|優(yōu)化|托管以及網(wǎng)絡(luò)推廣，積累了大量的網(wǎng)站設(shè)計(jì)與制作經(jīng)驗(yàn)，為許多企業(yè)提供了網(wǎng)站定制設(shè)計(jì)服務(wù)，案例作品覆蓋成都三輪攪拌車等行業(yè)。能根據(jù)企業(yè)所處的行業(yè)與銷售的產(chǎn)品，結(jié)合品牌形象的塑造，量身設(shè)計(jì)品質(zhì)網(wǎng)站。

long FileSize;

FileSize = ReadPdf.Length;

byte[] Buffer = new byte[(int)FileSize];

ReadPdf.Read(Buffer, 0, (int)ReadPdf.Length);

ReadPdf.Close();

寫

FileStream CreatePdf = new FileStream(@"d:\books\vb點(diǎn)虐 \test1.pdf", FileMode.Create);

CreatePdf.Write(Buffer,0,Buffer.Length);

CreatePdf.Close();

希望能幫帶你的忙~告一段落~謝謝~

如何在vb中打開一個PDF文件？

利用AcroPDF打開并顯示PDF文件。

注意：必須事先安裝免費(fèi)的 Adobe Reader 11.0

（1）創(chuàng)建一個VB6工程。在工具欄中點(diǎn)擊鼠標(biāo)右鍵，調(diào)出右鍵菜單--部件--Adobe Acrobat 7.0 Control Type Library 1.0--確定

（2）在Form1中布置一個AcroPDF控件

（3）窗體代碼

Option?Explicit

Private?Sub?Form_Load()

Me.Caption?=?"我的PDF閱讀器"

'?加載PDF文檔并顯示

AcroPDF1.LoadFile?("D:\電子書籍\ProgrammingWpf.pdf")

End?Sub

Private?Sub?Form_Resize()

'調(diào)整?AcroPDF1大小，占滿整個窗口

AcroPDF1.Move?30,?30,?ScaleWidth?-?60,?ScaleHeight?-?60

End?Sub

（4）運(yùn)行效果

vb點(diǎn)虐 導(dǎo)出PDF

利用DataWindow點(diǎn)虐 在 vb點(diǎn)虐 下導(dǎo)出PDF格式文件

利用datawindow點(diǎn)虐 ，導(dǎo)出PDF文件，實(shí)現(xiàn)前提：

1.安裝Acrobat Distiller虛擬打印機(jī),注意要用datawindow點(diǎn)虐 提供的打印驅(qū)動，在c:\program files\sybase\datawindow點(diǎn)虐 2.0\driver中,在文章最后，我會提供一個靜態(tài)安裝虛擬打印機(jī)的批處理文件，方便安裝。

2.安裝Ghostscript 7.05 ，在網(wǎng)上找,免費(fèi)的。

3.導(dǎo)出PDF文件前，一要指定虛擬打印機(jī)名，其次導(dǎo)出格式為PDF（Export.PDF.Method=Distill!）,另外還要指定 PDF.Distill.CustomPostScript=Yes。

具體代碼如下：

''' summary

''' 導(dǎo)出文件

''' /summary

''' param name="sender"/param

''' param name="e"/param

''' remarks/remarks

Private Sub btnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExport.Click

Try

Dim strFilename, strPrinter As String

Dim saveDg As New SaveFileDialog

strPrinter = Me.dwPrint.Describe("DataWindow.Print.PrinterName")

saveDg.FileName = Me.dwPrint.Tag.ToString

saveDg.Filter = "Pdf文件|*.pdf|Excel文件|*.xls|所有文件|*.*"

If saveDg.ShowDialog = Windows.Forms.DialogResult.OK Then

strFilename = saveDg.FileName

If strFilename.IndexOf(".pdf") 0 Then

Me.dwPrint.Modify("DataWindow.Print.PrinterName='Acrobat Distiller'")

Me.dwPrint.Modify("DataWindow.Export.PDF.Method=Distill!")

Me.dwPrint.Modify("DataWindow.Export.PDF.Distill.CustomPostScript=Yes")

Me.dwPrint.SaveAs(strFilename, Sybase.DataWindow.FileSaveAsType.Pdf, True)

ElseIf strFilename.IndexOf(".xls") 0 Then

Me.dwPrint.SaveAs(strFilename, Sybase.DataWindow.FileSaveAsType.Excel, True)

End If

Me.dwPrint.Modify("DataWindow.Print.PrinterName='" + strPrinter + "'")

MessageBox.Show("導(dǎo)出成功!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

Catch ex As Exception

MessageBox.Show(ex.Message, "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

End Sub

4 批處理文件（實(shí)現(xiàn)靜默安裝）