[اليوم السابع]

(21-07-20, 03:49 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل

كود :

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       TextBox1.Text = TextBox1.Text.Replace(" ", "")
       Dim AllData() As String = TextBox1.Text.Split(" ")

       For i As Integer = 0 To AllData.Length - 1
           TextBox2.Text &= AllData(i) & " "
       Next
   End Sub

شكرا لك يا قائد