تم حل مشكلة المجموعة بهذا الكود
الان كيف تغير كل مجموعة تملك ارقام و احرف الى 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}
كود :
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 = bufferDim TargetGroups() As String = New String() {regex.ToString}


