[أسامة]

(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 حروف اة حروف و ارقام او ... لاكن كيف !