[rabeh.ram]

السلام عليكم اخوان 
ارجو ان اجد عندكم الحل لمشكلتي البسيطة والتي تكمن في انه عندي ملف نصي به العديد من الاسطر و اجد مشكلة  البطئ عند رفعه على Ritchbox رغم ان جهازي ذو موصفات جيدة الا ان الملف ياخذ وقت طويل ليظهر على Ritchbox 
جربت العملية مع ملفات اقل عدد اسطر فظهرت بمجرد النقر على زر الرفع بدون مشاكل
البرنامج مع الملف النصي 806 Ko في هذا الرابط لانه واجهنتي مشكلة في الرفع للمنتدي الرابط

[alma2]

الملف المضغوط اعترض عليه جوجل كروم يقول أنه ملف ضار لكنني غامرت بفتحه

الملف النصي 3 ميجابايت وهو كبير ويحتوي تقريبا 46ألف سطر

أداة RichTextBox فيها عمليات تنسيق فتستهلك وقت للمعالجة خصوصا في تعدد الأسطر

أداة TextBox ليس فيها عمليات تنسيق، استخدمها فهي أسرع

كود :

TextBox1.Text = IO.File.ReadAllText("file.txt")

[rabeh.ram]

شكرا جزيلا لك اخي alma2 على وقوفك الدائم معنا جزاك الله الف خير
اما بالنسبة لسلامة الملف فصدقني اخي انه سليم وخالي من اي ملفات ضارت و لا اعرف كيف اعترض عليه الكرزم عندك 
انت و الاخوة في المنتدى كل عبارات الشكر قليلة في حقكم فكيف لنا ان نشكر الاحسان بما لا يرضي الله

[b]حلك رائع اخي كما ارجو اضافة منك [/b]
[b]هل قراءة بعض السطور من الملف النصي يعني على سبيل المثال القراءة من السطر 5 الى السطر 9[/b]
[b]واظهار هته الاسطر على التكست بوكس[/b]

[alma2]

كود :

Dim fromLine As Integer = 5
Dim toLine As Integer = 9
TextBox1.Lines = IO.File.ReadAllLines("file.txt").Where(Function(value As String, index As Integer) (index >= (fromLine) - 1) And (index <= (toLine) - 1)).ToArray

أو

كود :

Dim fromLine As Integer = 5
Dim toLine As Integer = 9
Dim lines() As String = IO.File.ReadAllLines("file.txt").Where(Function(value As String, index As Integer) (index >= (fromLine) - 1) And (index <= (toLine) - 1)).ToArray

TextBox1.Text = String.Join(vbNewLine, lines)

[rabeh.ram]

دائما مبدع اخي جزاك الله الف خير