منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كيف احذف اول مسافة فقط في تيكست بوكس واجعلها في سطر جديد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=31166)

كيف احذف اول مسافة فقط في تيكست بوكس واجعلها في سطر جديد - dametucorazon - 01-09-19

السلام عليكم
استخدم هذا الكود
PHP كود :
txtGuestname.Text = txtGuestname.Text.Replace(" ", Environment.NewLine) 


هو فقط يبدل كل المسافات بسطر جديد
اريد فقط اول مسافة
mohammed salah osman ahmed
اريد النتيجة

PHP كود :
mohammed 
salah osman ahmed 


RE: كيف احذف اول مسافة فقط في تيكست بوكس واجعلها في سطر جديد - fouadhdfouad - 01-09-19

(01-09-19, 10:02 PM)dametucorazon كتب : السلام عليكم
استخدم هذا الكود
PHP كود :
txtGuestname.Text = txtGuestname.Text.Replace(" ", Environment.NewLine) 


هو فقط يبدل كل المسافات بسطر جديد
اريد فقط اول مسافة
mohammed salah osman ahmed
اريد النتيجة

PHP كود :
mohammed 
salah osman ahmed 
تفضل اخي الكريم ما طلبت

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim str() As String = TextBox1.Text.Split(" ")
       TextBox2.AppendText(str(0) + vbCrLf + str(1) + " " + str(2) + " " + str(3))
   End Sub


RE: كيف احذف اول مسافة فقط في تيكست بوكس واجعلها في سطر جديد - dametucorazon - 02-09-19

(01-09-19, 11:42 PM)fouadhdfouad كتب :
(01-09-19, 10:02 PM)dametucorazon كتب : السلام عليكم
استخدم هذا الكود
PHP كود :
txtGuestname.Text = txtGuestname.Text.Replace(" ", Environment.NewLine) 


هو فقط يبدل كل المسافات بسطر جديد
اريد فقط اول مسافة
mohammed salah osman ahmed
اريد النتيجة

PHP كود :
mohammed 
salah osman ahmed 
تفضل اخي الكريم ما طلبت

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim str() As String = TextBox1.Text.Split(" ")
       TextBox2.AppendText(str(0) + vbCrLf + str(1) + " " + str(2) + " " + str(3))
   End Sub
شكرا لك اخي الفاضل لكن اذا قلت القيمة عن العدد او زادت تعطي خطا
كيف اجعل الكود مرن يقبل باي عدد هنا اخر شي STR3

RE: كيف احذف اول مسافة فقط في تيكست بوكس واجعلها في سطر جديد - سعود - 02-09-19

إقتباس :كيف اجعل الكود مرن يقبل باي عدد
هنا ياتي دور الدوال Functions 
عدل على الكود ليكون دالة وظيفية.

RE: كيف احذف اول مسافة فقط في تيكست بوكس واجعلها في سطر جديد - dametucorazon - 02-09-19

الحمد لله تمت بنحاج بفضل من رب العالمين
اليكم الكود


كود :
    TextBox2.Text = TextBox2.Text.Split(" "c)(0) & vbCrLf & TextBox2.Text.Substring(TextBox2.Text.IndexOf(" "c) + 1, TextBox2.Text.Length - TextBox2.Text.Split(" "c)(0).Length - 1)


RE: كيف احذف اول مسافة فقط في تيكست بوكس واجعلها في سطر جديد - أبووسم - 02-09-19

بارك الله فيك و زادك علماً

RE: كيف احذف اول مسافة فقط في تيكست بوكس واجعلها في سطر جديد - dametucorazon - 02-09-19

واياك اخي الفاضل