在.net下如何提取PDF的文字并檢索相關數據

FileStream ReadPdf = new FileStream(@"d:\books\vb.net\test.pdf", FileMode.Open);

創新互聯公司堅持“要么做到，要么別承諾”的工作理念，服務領域包括：網站建設、成都網站設計、企業官網、英文網站、手機端網站、網站推廣等服務，滿足客戶于互聯網時代的鄂爾多斯網站設計、移動媒體設計的需求，幫助企業找到有效的互聯網解決方案。努力成為您成熟可靠的網絡建設合作伙伴！

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.net\test1.pdf", FileMode.Create);

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

CreatePdf.Close();

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

asp.NET 基于vb 中能否在網頁中顯示pdf 文檔?

可以，一般都轉化為swf格式進行閱讀，這樣的話做出的比較通用，使用FlexPaper控件就可以做到，效果參見百度文檔。

VB.net2010 窗體中文本框以及圖片框中內容保存為pdf文件

我一般都用aspose.word.dll來完成

先把文本框類容和圖片存到word里面，然后把word專程pdf

這種方法很靈活也很生動，比直接生成pdf好多了

給你的附件有vb.net的例子還有aspose.word的dll檔案

例子是從官網下的，我就是用這些例子學的，很簡單?，F在我很多項目需要生成pdf都是用這個完成的。

用VB（或者VB.net）怎樣打開“瀏覽文件夾窗口”？（如圖）

Private Sub Command1_Click()

Dim sf As Object

Set sf = CreateObject("Shell.Application").BrowseForFolder(0, "選擇文件夾", 0, "")

If Not sf Is Nothing Then

MsgBox "選擇的文件夾是" vbCrLf sf.self.Path

End If

Set sf = Nothing

End Sub

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

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

注意：必須事先安裝免費的 Adobe Reader 11.0

（1）創建一個VB6工程。在工具欄中點擊鼠標右鍵，調出右鍵菜單--部件--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()

'調整?AcroPDF1大小，占滿整個窗口

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

End?Sub

（4）運行效果

vb.net 導出PDF

利用DataWindow.net在 vb.net 下導出PDF格式文件

利用datawindow.net，導出PDF文件，實現前提：

1.安裝Acrobat Distiller虛擬打印機,注意要用datawindow.net提供的打印驅動，在c:\program files\sybase\datawindow.net2.0\driver中,在文章最后，我會提供一個靜態安裝虛擬打印機的批處理文件，方便安裝。

2.安裝Ghostscript 7.05 ，在網上找,免費的。

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

具體代碼如下：

''' summary

''' 導出文件

''' /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("導出成功!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

Catch ex As Exception

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

End Try

End Sub

4 批處理文件（實現靜默安裝）

網站標題：vb.netpdf瀏覽 vbnet byref
文章鏈接：http://vcdvsql.cn/article36/hejcpg.html

成都網站建設公司_創新互聯，為您提供外貿網站建設、移動網站建設、電子商務、網站維護、營銷型網站建設、面包屑導航

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯