[Anas Mahmoud]

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

كود :

     Function RemoveLinesLinq(Str As String) As String
        Return Str.Split(vbCrLf).Aggregate(Function(x, y) x + y.Trim)
    End Function  

   

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

بالتوفيق