المشاركات : 340
المواضيع 119
الإنتساب : Jul 2013
السمعة :
6
الشكر: 599
تم شكره 466 مرات في 66 مشاركات
04-04-16, 07:59 PM
(آخر تعديل لهذه المشاركة : 04-04-16, 09:02 PM {2} بواسطة أسامة.)
textbox do event after special char باستخدام خاصية multiline هي مكن الفصل بين النص فى textbox مثلآ يوجد نص مثل هذا
موضوع جديد قسم
اسئلة
هل يمكن الفصل بينهما اذا كان هكذا
"موضوع جديد" , "قسم",
"اسئلة"
يرجى ملاحظة الأقواس كل جملة داخل القوس يتم تغيرها فى textbox لى كلام اخر يطلع الناتج فى الكست الاخرى هكذا
المجموعة رقم 1
المجموعة رقم 2
المجموعة رقم 3
صورة للوضيح اكثر
كود
إقتباس : Dim input As String = "test1 , test2 , test3 , test4 , test5"
Dim splitString As String() = input.Split(","c)
Dim result As String = splitString(0).Trim()
TextBox2.Text = result
مشكلة الكود انه يقراء فقط test1
المشاركات : 1,486
المواضيع 101
الإنتساب : Sep 2012
السمعة :
127
الشكر: 71
تم شكره 6155 مرات في 1035 مشاركات
04-04-16, 09:56 PM
(آخر تعديل لهذه المشاركة : 04-04-16, 10:06 PM {2} بواسطة silverlight.)
PHP كود :
Dim entry As String = "test1 , test2 , test3 , test4 , test5" Dim entries As String() = entry.Split({","c}, StringSplitOptions.RemoveEmptyEntries) TextBox1.Lines = entries
و لكي يكون الكود أكثر دقة استخدم الكود بالشكل التالي
PHP كود :
Dim entry As String = "test1 , test2 , test3 , test4 , test5" Dim entries As String() = entry.Split({","c}, StringSplitOptions.RemoveEmptyEntries) Dim newEntries As List(Of String) = New List(Of String)() For i As Integer = 0 To entries.Length - 1 Dim s As String = entries(i).Trim newEntries.Add(s) Next TextBox1.Lines = newEntries.ToArray
المشاركات : 340
المواضيع 119
الإنتساب : Jul 2013
السمعة :
6
الشكر: 599
تم شكره 466 مرات في 66 مشاركات
(04-04-16, 09:56 PM)silverlight كتب : PHP كود :
Dim entry As String = "test1 , test2 , test3 , test4 , test5" Dim entries As String() = entry.Split({","c}, StringSplitOptions.RemoveEmptyEntries) TextBox1.Lines = entries
و لكي يكون الكود أكثر دقة استخدم الكود بالشكل التالي
PHP كود :
Dim entry As String = "test1 , test2 , test3 , test4 , test5" Dim entries As String() = entry.Split({","c}, StringSplitOptions.RemoveEmptyEntries) Dim newEntries As List(Of String) = New List(Of String)() For i As Integer = 0 To entries.Length - 1 Dim s As String = entries(i).Trim newEntries.Add(s) Next TextBox1.Lines = newEntries.ToArray
جزاك الله خيرآ
|