[ممدوح]

جربي هذا الكود ويحتوي على شرح

كود :

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

       ' الاحتفاظ بالنص الأصلي
       Dim txt As String = Me.TextBox1.Text

       ' تحويل النص إلى مصفوفة أحرف مع حذف المكرر
       Dim charArray As Char() = txt.ToCharArray.Distinct.ToArray

       ' لعمل النص الناتج
       Dim res As String = ""

       ' المرور على أحرف المصفوفة
       For Each c As Char In charArray

           ' معرفة تكرار الحرف في النص الأصلي
           Dim cnt As Integer = txt.Count(Function(x As Char) x.Equals(c))

           ' إضافة إلى النص الناتج
           res &= cnt & c

       Next

       ' عرض النص الناتج
       Me.TextBox2.Text = res

   End Sub

---

ToCharArray تحول النص إلى مصفوفة أحرف استعدادا لتطبيق Distinct
Distinct تتجاهل التكرار (وDistinct هي من Linq)
ToArray تحويل ناتج Distinct الى مصفوفة مرة أخرى
Count تعداد وهي تقوم بالعد
Function ضرورية لعمل Count (وCount هي من Linq)
Equals معناها "=" (وEquals هي من Linq) ويمكن بدلا من Equals استخدام الطريقة التقليدية مثل

كود :

x = c
بدلا من
x.Equals(c)