Bilgi-Sayar.NET Menu

ADRES:

VB.NET | PDF Dosyasının Sayfa Sayısını Almak

(yoruma kapalı)

Bir PDF dosyasının sayfa sayısını öğrenmek istediğimizde aşağıdaki gibi bir yol izleyebiliriz. Bu işlemi yapmak için System.IO ve System.Text.RegularExpressions kütüphanesini kullanacağız. Bu yüzden bu kütüphaneleri projenize Import etmeyi unutmayın.

www.bilgi-sayar.net

System.IO kütüphanesini FileStream ve StreamReader tanımlamak, System.Text.RegularExpressions kütüphanesini ise PDF dosyası üzerindeki eşleşmeleri tespit edebilmek için kullanacağız.

Imports System.IO
Imports System.Text.RegularExpressions

Kütüphaneleri projemize Import ettikten sonra aşağıdaki kodları kullanabiliriz. Bu kodları istediğiniz bir nesnenin istediğiniz bir olayına(event) yerleştirebilirsiniz.

Dim DosyaYolu As New FileStream("C:\bilgi-sayar.pdf", FileMode.Open, FileAccess.Read)
Dim Okuyucu As New StreamReader(DosyaYolu)
Dim pdfText As String = Okuyucu.ReadToEnd()
Dim rgx1 As Regex = New Regex("/Type\s*/Page[^s]")
Dim Eslesmeler As MatchCollection = rgx1.Matches(pdfText)
MessageBox.Show("PDF dosyasında toplam " + Eslesmeler.Count.ToString() + " sayfa var.")

Dim DosyaYolu As New FileStream satırındaki tırnakların içine sayfa sayısını öğrenmek istediğimiz PDF’in dosya yolunu giriyoruz.

Kodların tamamı;

Imports System.IO
Imports System.Text.RegularExpressions

Dim DosyaYolu As New FileStream("C:\bilgi-sayar.pdf", FileMode.Open, FileAccess.Read)
Dim Okuyucu As New StreamReader(DosyaYolu)
Dim pdfText As String = Okuyucu.ReadToEnd()
Dim rgx1 As Regex = New Regex("/Type\s*/Page[^s]")
Dim Eslesmeler As MatchCollection = rgx1.Matches(pdfText)
MessageBox.Show("PDF dosyasında toplam " + Eslesmeler.Count.ToString() + " sayfa var.")

  • mr.coder

    bu kodu bu sitede bulduğuma inanamıyorum