+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] مشكلة الرفع الى Ritchbox (/showthread.php?tid=20696)
مشكلة الرفع الى Ritchbox - rabeh.ram - 10-06-17
السلام عليكم اخوان
ارجو ان اجد عندكم الحل لمشكلتي البسيطة والتي تكمن في انه عندي ملف نصي به العديد من الاسطر و اجد مشكلة البطئ عند رفعه على Ritchbox رغم ان جهازي ذو موصفات جيدة الا ان الملف ياخذ وقت طويل ليظهر على Ritchbox
جربت العملية مع ملفات اقل عدد اسطر فظهرت بمجرد النقر على زر الرفع بدون مشاكل
البرنامج مع الملف النصي 806 Ko في هذا الرابط لانه واجهنتي مشكلة في الرفع للمنتدي الرابط
RE: مشكل الرفع الى Ritchbox - alma2 - 10-06-17
الملف المضغوط اعترض عليه جوجل كروم يقول أنه ملف ضار لكنني غامرت بفتحه
الملف النصي 3 ميجابايت وهو كبير ويحتوي تقريبا 46ألف سطر
أداة RichTextBox فيها عمليات تنسيق فتستهلك وقت للمعالجة خصوصا في تعدد الأسطر
أداة TextBox ليس فيها عمليات تنسيق، استخدمها فهي أسرع
كود :
TextBox1.Text = IO.File.ReadAllText("file.txt")RE: مشكلة الرفع الى Ritchbox - rabeh.ram - 11-06-17
شكرا جزيلا لك اخي alma2 على وقوفك الدائم معنا جزاك الله الف خير
اما بالنسبة لسلامة الملف فصدقني اخي انه سليم وخالي من اي ملفات ضارت و لا اعرف كيف اعترض عليه الكرزم عندك
انت و الاخوة في المنتدى كل عبارات الشكر قليلة في حقكم فكيف لنا ان نشكر الاحسان بما لا يرضي الله
[b]حلك رائع اخي كما ارجو اضافة منك [/b]
[b]هل قراءة بعض السطور من الملف النصي يعني على سبيل المثال القراءة من السطر 5 الى السطر 9[/b]
[b]واظهار هته الاسطر على التكست بوكس[/b]
RE: مشكلة الرفع الى Ritchbox - alma2 - 11-06-17
كود :
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)RE: مشكلة الرفع الى Ritchbox - rabeh.ram - 11-06-17
دائما مبدع اخي جزاك الله الف خير