تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعده بخصوص النصوص
#1
لدي محتوي نصي بالشكل ده 
إقتباس :{
           "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}}
او بمعني اخر اريد ان يكون المحتوي النصي كله في سطر واحد وليس صفوف اسفل بعضها لبعض 
وشاكر لكم جميعا
الرد
تم الشكر بواسطة:
#2
لازالة الاسطر الجديدة :
كود :
       TextBox1.Text = TextBox1.Text.Replace(vbCrLf, "")

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

كود :
       TextBox1.Text = TextBox1.Text.Replace(vbCrLf, "").Replace(" "c, "")
الرد
#3
(10-08-20, 04:09 PM)Anas Mahmoud كتب : لازالة الاسطر الجديدة :
كود :
       TextBox1.Text = TextBox1.Text.Replace(vbCrLf, "")

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

كود :
       TextBox1.Text = TextBox1.Text.Replace(vbCrLf, "").Replace(" "c, "")

للأسف لم تظبط
الرد
#4
(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  

   

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

بالتوفيق


الملفات المرفقة
.zip   RemoveLines.zip (الحجم : 55.48 ك ب / التحميلات : 2)
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] السلام عليكم موضوعي بخصوص ضغط وفك الضغط ولدي استفسارات اليوم السابع 0 73 11-11-20, 11:41 PM
آخر رد: اليوم السابع
  سؤال بخصوص الضريبة و الخصم في الفاتورة sofiane-phy 2 187 30-10-20, 11:06 PM
آخر رد: sofiane-phy
  ممكن حل للمشكلة بخصوص Crystal Report Alanwalker 3 269 27-10-20, 06:27 PM
آخر رد: ZaerAllail
  [VB.NET] سوال بخصوص اداه JbsaPrintDataGridView.dll للطباعه jassim316 5 1,123 26-10-20, 10:52 PM
آخر رد: A.elessawy
  محتاج مساعده وشكرا مقدما اليوم السابع 2 145 26-10-20, 01:11 PM
آخر رد: اليوم السابع
  ممكن مساعدة بخصوص تحزيم المشروع Alanwalker 3 266 25-10-20, 03:57 AM
آخر رد: ٍOfelas
  [VB.NET] مساعدة بخصوص webbrowser ميدو الفنان 1 176 22-10-20, 12:55 AM
آخر رد: ميدو الفنان
  استفسار بخصوص تنفيذ امر عبر CMD momani33 0 103 14-10-20, 01:40 AM
آخر رد: momani33
  سؤال بخصوص Maximized ابو روضة 4 262 07-10-20, 09:25 PM
آخر رد: ابو روضة
  مساعدة بخصوص تنفيد البرنامج بعد تحزيمه ببرنامج Advanced Installer ٍOfelas 20 787 06-10-20, 10:54 PM
آخر رد: ٍOfelas

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم