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



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


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