السلام عليكم و كل عام و انتم بخير
طلبي هو
طريقة قراءة ملف 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'
انت مصعب المشكلة اوي
المسالة ببساطة ضيف 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.
اعتذر منك اخي لم الاحظ عدم ارفاق الملف
اتفضل تم رفع الملف مرة اخره
اشكر الاخوة جميعا على هذا المثال الاكثر من رائع
ولكن هناك مشكلة في النصوص العربية تظهر الكلمة بشكل احرف متباعدة ومقلوبة من اليسار لليمين
يعني مثلا : كلمة " نبهان"
تظهر هكذا "ن ا ه ب ن"
قد يكون السبب هو ترميز اللغة العربية في الاداة itextsharp ،
بحثت كثيرا عن حل لهذه المشكلة ، لم اجد الحل المناسب ، هناك بعض الحلول الخاصة لنقل البيانات الى pdf باستخدام pdfwriter ، ولكن لم استطع تكييفها على pdfreader هلا بالامكان المساعدة
ولكم جزيل الشكر