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

لدي محتوي نصي بالشكل ده 

إقتباس :{
           "id": "1272456574_10223260262236160",
           "message": "11 years ago, I used the lyrics of this song as my blog's subheading.",
           "likes": {
              "data": [
                 
              ],
              "summary": {
                 "total_count": 7,
                 "can_like": true,
                 "has_liked": false
              }
           },
           "comments": {
              "data": [
                 
              ],
              "summary": {
                 "order": "ranked",
                 "total_count": 0,
                 "can_comment": false
              }
           }

اريد جعله بالشكل ده 

إقتباس :{"id": "1272456574_10223260262236160","message": "11 years ago, I used the lyrics of this song as my blog's subheading.","likes": {"data": [],"summary": {"total_count": 7,"can_like": true,"has_liked": false}},"comments": {"data": [],"summary": {"order": "ranked","total_count": 0,"can_comment": false}}

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

[Anas Mahmoud]

لازالة الاسطر الجديدة :

كود :

       TextBox1.Text = TextBox1.Text.Replace(vbCrLf, "")

لازالة الاسطر والمسافات :

كود :

       TextBox1.Text = TextBox1.Text.Replace(vbCrLf, "").Replace(" "c, "")

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

(10-08-20, 04:09 PM)Anas Mahmoud كتب : لازالة الاسطر الجديدة :

كود :

       TextBox1.Text = TextBox1.Text.Replace(vbCrLf, "")

لازالة الاسطر والمسافات :

كود :

       TextBox1.Text = TextBox1.Text.Replace(vbCrLf, "").Replace(" "c, "")

للأسف لم تظبط

[Anas Mahmoud]

(10-08-20, 07:48 PM)اليوم السابع كتب : للأسف لم تظبط

فعلا لم تعمل اعتذر عن ذلك 

جرب هذه وستعمل ان شاء الله

كود :

   Function RemoveLines(Str As String) As String
       Dim R As String = ""
       For Each line In Str.Split(vbCrLf)
           R += line.Trim
       Next
       Return R
   End Function

او بتقنية Linq التي اعشقها 

كود :

     Function RemoveLinesLinq(Str As String) As String
        Return Str.Split(vbCrLf).Aggregate(Function(x, y) x + y.Trim)
    End Function  

   

نفس النتيجة في الحالتين

بالتوفيق