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

عندي هذا النص في متغير اريد ان اجلعه في سطر واحد بدلا من انه اسفل بعض 

  "likes": {
     "data": [
       
     ],
     "summary": {
        "total_count": 181
     }

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

عندي هذا النص في متغير اريد ان اجلعه في سطر واحد بدلا من انه اسفل بعض 

  "likes": {
     "data": [
       
     ],
     "summary": {
        "total_count": 181
     }

????

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
تفضل

كود :

 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

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

السلام عليكم ورحمة الله وبركاته
تفضل

كود :

 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

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