[أسامة]

تم حل مشكلة المجموعة بهذا الكود

كود :

       Dim buffer As String = [String].Empty

       For i As Integer = 0 To TextBox1.Text.Length - 1 Step 4
           If TextBox1.Text.Length - i > 4 Then
               buffer += TextBox1.Text.Substring(i, 4) & " "
           Else
               buffer += TextBox1.Text.Substring(i)
           End If
       Next
       TextBox2.Text = buffer

الان كيف تغير كل مجموعة تملك ارقام و احرف الى 8 و مجموعة التى تحتوى على اشكال الى * عندى الفكرة هكذا اذا كانت تحتوى المجموعة على احرف و ارقام (a-z^1-9) كل مجموعة = 8 لو 4 مجاميع = 8888 لو ثلاث مجاميع و مجموعة اشكال = 88*8 على حسب الترتيب ممكن باستخدام Regex.Match مثل هذا Dim regex As New Regex("^[a-z0-9A-Z]{4}-[a-z0-9A-Z]{4}-[a-z0-9A-Z]{4}")
Dim TargetGroups() As String = New String() {regex.ToString}