txtGuestname.Text = txtGuestname.Text.Replace(" ", Environment.NewLine)
mohammed
salah osman ahmed
(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(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
إقتباس :كيف اجعل الكود مرن يقبل باي عددهنا ياتي دور الدوال Functions
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)