تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ممكن طريقة قراءة ملف PDF سطر سطر و وضعه في Array
#1
السلام عليكم و كل عام و انتم بخير
طلبي هو 
طريقة قراءة ملف PDF سطر سطر و وضعه في Array

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

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

و شكرا جزيلا لكم.
الرد }}}
تم الشكر بواسطة:
#2
يا الغلبان،

لو رفعت مشروعك، لأن أغلبنا ما عنده iTextSharp من شان يجرب.
الرد }}}
تم الشكر بواسطة: zinom
#3
تفضل هذه الدالة :-
تعطيها رابط ملف ال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 
As Integer 1 To reader.NumberOfPages
            Dim page 
As String ""

            
page PdfTextExtractor.GetTextFromPage(readeriStrategy)
            
Dim lines As String() = page.Split(ControlChars.Lf)
            Return 
lines
        Next
    End Using
End 
Function 
الرد }}}
تم الشكر بواسطة: الكاتب , الكاتب , zinom , zinom
#4
(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 
As Integer 1 To reader.NumberOfPages
            Dim page 
As String ""

            
page PdfTextExtractor.GetTextFromPage(readeriStrategy)
            
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 
As Integer 1 To reader.NumberOfPages
            Dim page 
As String ""

            
page PdfTextExtractor.GetTextFromPage(readeriStrategy)
            
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'
الرد }}}
تم الشكر بواسطة:
#5
انت مصعب المشكلة اوي

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

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

و خلاص.....

اما class المسماة itextsharp صعبة في التعامل معها
التميز و الابداع شعاري
الرد }}}
تم الشكر بواسطة:
#6
(22-06-16, 10:17 PM)aliday03 كتب : انت مصعب المشكلة اوي

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

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

و خلاص.....

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

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

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

الخطأ اللي ظهرلك في كود الشاكي لله فقط غير Using ب Dim مع إزالة End Using.
الرد }}}
تم الشكر بواسطة:
#8
(25-06-16, 03:51 AM)الوادي كتب : يا الغلبان،

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

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

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

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


الملفات المرفقة
.rar   MyBid.rar (الحجم : 1.09 م ب / التحميلات : 97)
الرد }}}
تم الشكر بواسطة: الوادي , zinom
#9
يا الغلبان،

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أستفسار عن قراءة الاسطر altoki939 6 111 أمس, 10:07 AM
آخر رد: altoki939
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  طريقة اجراء نسخة احتياطية و استرجاعها ؟ Osama NY 2 461 07-02-24, 08:59 PM
آخر رد: Kamil
Sad ممكن حل لهذا المشكل melad2002 0 239 30-01-24, 08:01 PM
آخر رد: melad2002
  ممكن استفسار عن m3u8 malekmohamed155 0 232 20-01-24, 07:47 PM
آخر رد: malekmohamed155
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 253 06-01-24, 03:20 PM
آخر رد: Kamil
  ممكن تعديل في كود التفقيط للارقام melad2002 2 333 01-01-24, 08:47 PM
آخر رد: melad2002
  [VB.NET] السلام عليكم ممكن مساعدة اخوان احتاج يكون تسجيل الدخول textbox1 + textbox2 Coder_iraqii 4 400 18-12-23, 06:46 PM
آخر رد: Kamil
  [VB.NET] ما هي طريقة استدعاء الازرار في الكيبورد من خلار زر افتراضي haider.mohsin92 1 295 14-12-23, 03:19 PM
آخر رد: Kamil

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم