(15-03-16, 11:10 PM)myalsailamy كتب : اتمنى اني فهمتك كويس //
كود :
Dim result As String = ""
Dim TargetGroups() As String = New String() {"4AS", "E5T", "E65", "Z7S"}
Dim strGroups() As String = TextBox1.Text.Split(" ")
If strGroups.Length > 0 Then
For Each Group As String In strGroups
If TargetGroups.Contains(Group.Trim) = True Then
result += "8"
Else
result += "*"
End If
Next
End If
TextBox2.Text = result
جزاك الله خير اخى لاكن يوجد مشكلة ان 4AS", "E5T", "E65", "Z7S متغير على حسب التكست فى التكست بوكس يعنى ممكن يكون WTY 78Z 49Q XCF FG8 9WG الا يوجد حل لهذا ؟يمكن بهذه الطريقة تقسيم التكست كل مجموعة تحتوى على 3 حروف اة حروف و ارقام او ... لاكن كيف !


