منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تفعل حدث بعد حرف & رمز معين
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
textbox do event after special char باستخدام خاصية multiline هي مكن الفصل بين النص فى textbox مثلآ يوجد نص مثل هذا
موضوع جديد  قسم
اسئلة

هل يمكن الفصل بينهما اذا كان هكذا

"موضوع جديد" , "قسم",
"اسئلة"
يرجى ملاحظة الأقواس كل جملة داخل القوس يتم تغيرها فى textbox لى كلام اخر يطلع الناتج فى الكست الاخرى هكذا
المجموعة رقم 1
المجموعة رقم 2
المجموعة رقم 3

صورة للوضيح اكثر
[attachment=10044]

كود
إقتباس :        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
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 
(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 

جزاك الله خيرآ