[محمد اسماعيل]

(16-12-19, 09:14 PM)smalw كتب :

(16-12-19, 02:05 PM)محمد اسماعيل كتب : السلام عليكم ورحمة الله  وبركاتة

عندي داتاتابل اقوم بتحميل البيانات اليها اريد حذف اي حرف  بالصفوف لاول خلية  والحرف لا يوجد بالمصفوفة

اريد تعديل الكود التالي :

بمعني لو عندي خلية بها متغير مثلا  a    = maged   بعد حذف الحروف خارج المصفوفة حيث باقي الحروف غير موجودة بالمصفوفة فتحذف

بمعني اخر الابقاء علي الحروف داخل المصفوفة والباقي يحذف

كود :

 Dim chars As Char() = {"a", "s", "v", "t"}
       For i = 0 To dt.Rows.Count - 1
           DataGrid.Rows.Add(New String() {dt.Rows(i).Item(0).ToString})
       Next

كود :

For i = 0 To dt.Rows.Count - 1
   Dim d = dt.Rows(i).Item(0).ToString
   d = Regex.Replace(d, "[^a,s,v,t]", String.Empty, RegexOptions.IgnoreCase)
   DataGrid.Rows.Add(New String() {d})
Next

او

كود :

Dim chars As Char() = {"a", "s", "v", "t"}
For i = 0 To dt.Rows.Count - 1
   Dim d = dt.Rows(i).Item(0).ToString
   d = Regex.Replace(d, "[^" & String.Join(",", chars) & "]", String.Empty, RegexOptions.IgnoreCase)
   DataGrid.Rows.Add(New String() {d})
Next

بشكر حضرتك اولا علي المتابعة الكود اكثر من رائع .

عندي طلب بسيط  لو في رابط حضرتك للتعابير المنطقيةRegex    بحيث اقدر اتعامل مع النوع دة من المشكلات اكون شاكر لحضرتك.