+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=37652)
سؤال - حسن الجلب - 30-01-21
السلام عليكم ورحمه الله وبركاته
عايز كود يحذف اخر حرف أو كلمه من متغير من نوع نصي واخر لل richtextxbox واخر لل text box وليس عن طريق ال replace
RE: سؤال - ابراهيم ايبو - 30-01-21
السلام عليكم ورحمة الله وبركاته
احي الكريم اليك هذه الاكواد
لحذف أخر حرف من textBox او RitchTextBox
كود :
' حذف أخر حرف لكل من التكست بوكس والريتش بوكس
TextBox1.Text = TextBox1.Text.Trim.Substring(0, TextBox1.TextLength - 2)
RichTextBox1.Text = RichTextBox1.Text.Trim.Substring(0, RichTextBox1.TextLength - 2)كود :
' حذف أخر كلمة من الريتش بوكس
Dim str() As String = RichTextBox1.Text.Trim.Split(" ")
RichTextBox1.Clear()
For i As Integer = 0 To str.Length - 2
RichTextBox1.Text &= str(i) & " "
NextRE: سؤال - حسن الجلب - 31-01-21
شكرا لحضرتك لكن لو تكرمت ممكن تشرحلي الاكواد ده لاني. انت من عادتي اني لازم اعرف الحاجه حتي لو مش هستعملها
RE: سؤال - ابراهيم ايبو - 31-01-21
السلام عليكم اخي حسن
الكود الاول بشقيه للتكست بوكس وللرتش تكتبوكس
هو اننا نقول ان التكست بوكس يساوي نفسه مع حذف الفراغات من الجنبين الايمن والايسر ثم اخذ الحروف من الصفر وحتى طول النص -2 لان الاندكس يبأ من الصفر
اي اننا سنأخذ طول النص منقوصا منه حرف
اما الكود الثاني المتعلق بحذف الكلمة
ايضا نحذف الفراغات من الجانبين ثم نعمل مصفوفة منالكلمات من النص الموجود مقطعا بدلالة الفراغ بين الكلمات
ثم نفرغ الريتش تكست بوكس
ثم نعمل جملة فور على طول المصفوفة -2 بسبب ايضا ان الاندكس يبدأ من الصفر وبذلك نستثني العنصر الاخير وفي كل لفة نضع عنصرا الى الريتش تكست بوكس + فراغ
هذا ببساطة شرح الاكواد
RE: سؤال - حسن الجلب - 31-01-21
شكرا لحضرتك لو سمحت اخر حاجه انا عاوز اتواصل معاك خاص علي الفيس مثلاً