مساعده بخصوص النصوص - نسخة قابلة للطباعة

مساعده بخصوص النصوص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعده بخصوص النصوص (/showthread.php?tid=36064)

مساعده بخصوص النصوص - اليوم السابع - 10-08-20

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

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

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

RE: مساعده بخصوص النصوص - Anas Mahmoud - 10-08-20

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

كود :

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

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

كود :

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

RE: مساعده بخصوص النصوص - اليوم السابع - 10-08-20

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

كود :

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

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

كود :

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

للأسف لم تظبط

RE: مساعده بخصوص النصوص - Anas Mahmoud - 11-08-20

(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]

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

بالتوفيق