[dametucorazon]

السلام عليكم
استخدم هذا الكود

PHP كود :

txtGuestname.Text = txtGuestname.Text.Replace(" ", Environment.NewLine) 


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

PHP كود :

mohammed 
salah osman ahmed 


[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

[dametucorazon]

(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

[سعود]

إقتباس :كيف اجعل الكود مرن يقبل باي عدد

هنا ياتي دور الدوال Functions 
عدل على الكود ليكون دالة وظيفية.

[dametucorazon]

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

كود :

    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)

[أبووسم]

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

[dametucorazon]

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