منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

إقتباس :{
"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}}

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

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

كود :

       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, "")

للأسف لم تظبط

(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 التي اعشقها Big Grin

كود :

     Function RemoveLinesLinq(Str As String) As String

        Return Str.Split(vbCrLf).Aggregate(Function(x, y) x + y.Trim)

    End Function

[attachment=25423]

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

بالتوفيق