[ابو روضة]

(30-11-20, 10:37 PM)mir2 كتب :

Dim list_urls = "[" & String.Join(",", ListBox1.Items.Cast(Of String).Select(Function(x As String) "'" & x & "'")) & كتب :" pid='169286' dateline='1606760201']

هل تريد استعمال مكتبة Newtonsoft.Json؟

جزاك الله خيرا أخى الكريم...

هذا كود الحفظ الذى أستعمله

كود :

Dim SW As New StreamWriter("yourfile.txt")
       For Each S As String In ListBox1.Items
           SW.WriteLine(S)
       Next
       SW.Close()

والكود اللى حضرتك أرسلته أظن ينقصه شيئ...

فلو ينفع حتى بالريجيكس يكون تمام بفضل الله