تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف احذف اول مسافة فقط في تيكست بوكس واجعلها في سطر جديد
#1
السلام عليكم
استخدم هذا الكود
PHP كود :
txtGuestname.Text txtGuestname.Text.Replace(" "Environment.NewLine


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

PHP كود :
mohammed 
salah osman ahmed 
الرد
تم الشكر بواسطة: ابراهيم ايبو
#2
(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
الرد
#3
(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
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#4
إقتباس :كيف اجعل الكود مرن يقبل باي عدد
هنا ياتي دور الدوال Functions 
عدل على الكود ليكون دالة وظيفية.
الرد
تم الشكر بواسطة: dametucorazon , asemshahen5 , ابراهيم ايبو
#5
الحمد لله تمت بنحاج بفضل من رب العالمين
اليكم الكود


كود :
    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)
الرد
تم الشكر بواسطة: asemshahen5 , أبووسم , أبووسم , ابراهيم ايبو
#6
بارك الله فيك و زادك علماً
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد
تم الشكر بواسطة: dametucorazon , asemshahen5 , ابراهيم ايبو
#7
واياك اخي الفاضل
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم