+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] تقسيم جزء من اسطر متعددة. (/showthread.php?tid=13580)
تقسيم جزء من اسطر متعددة. - gator - 22-10-15
السلام عليكم .
لو سمحتو أريد كود تقسيم جزء محدد من الاسطر .. من رقم سطر ألى رقم سطر أخر
مثال من 5 الى 20
كود :
RichTextBox1.Lines(20) الى RichTextBox1.Lines(5)صورة للتوضيح :
![[صورة مرفقة: 1445503722751.png]](http://store2.up-00.com/2015-10/1445503722751.png)
RE: تقسيم جزء من اسطر متعددة. - hassan - 22-10-15
طيب هل تريد حذف الموجود في السطر واستبداله بالمحدد ؟؟؟
RE: تقسيم جزء من اسطر متعددة. - gator - 22-10-15
لا فقط قراءة الجزء المحدد الى نص أخر
RE: تقسيم جزء من اسطر متعددة. - Mr. DotNet - 22-10-15
جرب الكود التالي
مع ابدال قيمة ال For حسب المطلوب
PHP كود :
For i = 5 To 20
RichTextBox2.Text += RichTextBox1.Lines(i).ToString + vbCrLf
Next
RE: تقسيم جزء من اسطر متعددة. - hassan - 22-10-15
اتوقع هاذا المطلوب
PHP كود :
RichTextBox1.Text = RichTextBox1.Text.Replace(RichTextBox1.Lines(5), RichTextBox1.Lines(20))
وشكرا
RE: تقسيم جزء من اسطر متعددة. - gator - 22-10-15
اخي hassan المطلوب نسخ من سطر الى السطر متل الصورة ليس Replace
اخي Mr. DotNet مشكور عالكود بس بزيد سطرين عن الحد المطلوب في حال وضعت 0 الى 5 يقرأها 0 الى 7
RE: تقسيم جزء من اسطر متعددة. - silverlight - 22-10-15
كود :
Dim stringsArray() As String = RichTextBox1.Lines
Dim startIndex As Integer = 5
Dim endIndex As Integer = 20
For i As Integer = startIndex To endIndex
Dim txt As String = stringsArray(i)
' add lines to richTextBox2
RichTextBox2.Text += txt + Environment.NewLine
NextRE: تقسيم جزء من اسطر متعددة. - gator - 22-10-15
مشــــــــــكوريــن جمــيــعــا تــــــم .