[سعود]

مثال سريع
اضف موديول واكتب به الدالة التالية:

كود :

Function getnumbersfromstring(ByVal txt As String) As List(Of Integer)
        Dim f As New List(Of Integer)
        For Each t In txt.Split(" ")
            If IsNumeric(t) Then
                f.Add(t)
            End If
        Next
        Return f
    End Function

اضف مربع نص وزر امر واكتب بمربع النص خليط من الارقام والحروف بشرط وضع مسافة بين كل ادخال واخر
وضمن زر الامر اكتب

كود :

Dim all As String = ""
        For Each t In getnumbersfromstring(TextBox1.Text)
            all &= t
        Next
        MsgBox(all)