تقييم الموضوع :
  • 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 ك ب / التحميلات : 12)
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] سؤال بخصوص الترقيم التلقائي اليدوي yosif 5 340 16-04-26, 01:05 AM
آخر رد: أبو خالد الشكري
  فائدة بخصوص التعامل مع علامات التنصيص مع {سؤال} justforit 4 520 02-11-25, 11:19 PM
آخر رد: justforit
  [VB.NET] بخصوص تشفير FoxLearn.License h2551996 1 777 17-07-25, 09:18 PM
آخر رد: h2551996
  [VB.NET] استفسار بخصوص البحث في RichTextBox SerialPort dubai.eig 2 829 18-06-25, 11:09 AM
آخر رد: dubai.eig
  [سؤال] SkinSoft VisualStyler.Net v2.4 طلب بخصوص ali.alfoly 6 1,027 24-12-24, 03:23 PM
آخر رد: عبد العزيز البسكري
  [سؤال] بخصوص حفظ my settings محمد العامر 8 917 12-11-24, 08:49 PM
آخر رد: محمد العامر
  [سؤال] بخصوص حفظ اعدادات المشروع في Settings محمد العامر 4 708 07-11-24, 05:34 AM
آخر رد: محمد العامر
  سؤال بخصوص القريد DOX.1 6 920 31-08-24, 06:24 PM
آخر رد: justforit
  مساعده فى عمل نسخه احتياطيه خالد كامل1 1 405 13-08-24, 10:39 AM
آخر رد: تركي الحلواني
  [سؤال] بخصوص الفلترة كومبو بوكس في الفيجوال ستوديو؟ Mena Sabet 2 695 06-05-24, 02:22 AM
آخر رد: Mena Sabet

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


يقوم بقرائة الموضوع: