[الغلبان]

السلام عليكم و كل عام و انتم بخير

طلبي هو 

طريقة قراءة ملف PDF سطر سطر و وضعه في Array

و اقصد سطر سطر يعني انه يقرا اول سطر في صفحة PDF و يضعه في Array(1) و يليه السطر التالى و يضعه فى Array(2) وهكذا

انا باستخدم الدالة iTextSharp لقراءة كامل الملف 

و شكرا جزيلا لكم.

[الوادي]

يا الغلبان،

لو رفعت مشروعك، لأن أغلبنا ما عنده iTextSharp من شان يجرب.

[الشاكي لله]

تفضل هذه الدالة :-
تعطيها رابط ملف الpdf وترجع لك مصفوفة string

PHP كود :

Public Function PdfToArray(pdfPath As String) As String()
    Using reader As New PdfReader(path)
        Dim text As New StringBuilder()
        Dim Strategy As ITextExtractionStrategy = New iTextSharp.text.pdf.parser.LocationTextExtractionStrategy()

        For i As Integer = 1 To reader.NumberOfPages
            Dim page As String = ""

            page = PdfTextExtractor.GetTextFromPage(reader, i, Strategy)
            Dim lines As String() = page.Split(ControlChars.Lf)
            Return lines
        Next
    End Using
End Function 


[الغلبان]

(21-06-16, 11:22 PM)الوادي كتب : يا الغلبان،

لو رفعت مشروعك، لأن أغلبنا ما عنده iTextSharp  من شان يجرب.

تفضل اخي سوف تجد الاداه في مجلد bin\Debug

---

(21-06-16, 11:42 PM)الشاكي لله كتب : تفضل هذه الدالة :-
تعطيها رابط ملف الpdf وترجع لك مصفوفة string

PHP كود :

Public Function PdfToArray(pdfPath As String) As String()
    Using reader As New PdfReader(path)
        Dim text As New StringBuilder()
        Dim Strategy As ITextExtractionStrategy = New iTextSharp.text.pdf.parser.LocationTextExtractionStrategy()

        For i As Integer = 1 To reader.NumberOfPages
            Dim page As String = ""

            page = PdfTextExtractor.GetTextFromPage(reader, i, Strategy)
            Dim lines As String() = page.Split(ControlChars.Lf)
            Return lines
        Next
    End Using
End Function 


مشكور اخي الشاكي ساجرب الكود و لى عودة ان شاءالله

---

(21-06-16, 11:42 PM)الشاكي لله كتب : تفضل هذه الدالة :-
تعطيها رابط ملف الpdf وترجع لك مصفوفة string

PHP كود :

Public Function PdfToArray(pdfPath As String) As String()
    Using reader As New PdfReader(path)
        Dim text As New StringBuilder()
        Dim Strategy As ITextExtractionStrategy = New iTextSharp.text.pdf.parser.LocationTextExtractionStrategy()

        For i As Integer = 1 To reader.NumberOfPages
            Dim page As String = ""

            page = PdfTextExtractor.GetTextFromPage(reader, i, Strategy)
            Dim lines As String() = page.Split(ControlChars.Lf)
            Return lines
        Next
    End Using
End Function 


ظهر لى رسالة خطاء
Error 1 'Using' operand of type 'iTextSharp.text.pdf.PdfReader' must implement 'System.IDisposable'

[aliday03]

انت مصعب المشكلة اوي

المسالة ببساطة ضيف  Pdf لمشروعك

و openfiledialog عشان تحدد المسار

و خلاص.....

اما class المسماة itextsharp صعبة في التعامل معها

[الغلبان]

(22-06-16, 10:17 PM)aliday03 كتب : انت مصعب المشكلة اوي

المسالة ببساطة ضيف  Pdf لمشروعك

و openfiledialog عشان تحدد المسار

و خلاص.....

اما class المسماة itextsharp صعبة في التعامل معها

اشكر تجاوبك اخى الكريم 
اما بخصوص طلبي ليس فقط لقراءة ملف او عرضه بل اريد استخراج النص لستخدامه في البرنامج و اقصد النص و ليس الملف

[الوادي]

يا الغلبان،

مع أني ما لقيت مرفق منشان أشوف الأداة iTextSharp اللي بتقول ألاقيها في bin\Debug، لكن مافي مشكلة، أنسى الموضوع.

الخطأ اللي ظهرلك في كود الشاكي لله فقط غير Using ب Dim مع إزالة End Using.

[الغلبان]

(25-06-16, 03:51 AM)الوادي كتب : يا الغلبان،

مع أني ما لقيت مرفق منشان أشوف الأداة iTextSharp اللي بتقول ألاقيها في bin\Debug، لكن مافي مشكلة، أنسى الموضوع.

الخطأ اللي ظهرلك في كود الشاكي لله فقط غير Using ب Dim مع إزالة End Using.

اعتذر منك اخي لم الاحظ عدم ارفاق الملف 

اتفضل تم رفع الملف مرة اخره

[الوادي]

يا الغلبان،

أشكرك جداً.

[Nabhan Alhashemy]

اشكر الاخوة جميعا على هذا المثال الاكثر من رائع
ولكن هناك مشكلة في النصوص العربية تظهر الكلمة بشكل احرف متباعدة ومقلوبة من اليسار لليمين
يعني مثلا : كلمة " نبهان"
تظهر هكذا "ن ا ه ب ن"

قد يكون السبب هو ترميز اللغة العربية في الاداة itextsharp ،
بحثت كثيرا عن حل لهذه المشكلة ، لم اجد الحل المناسب ، هناك بعض الحلول الخاصة لنقل البيانات الى pdf باستخدام pdfwriter ، ولكن لم استطع تكييفها على pdfreader هلا بالامكان المساعدة
ولكم جزيل الشكر