[mir2]

(30-11-20, 10:16 PM)ابو روضة كتب :

السلام عليكم ورحمة الله وبركاته..

لدى قائمة تشغيل يوتيوب بجلبها داخل الليست بوكس وبقوم بحفظ الروابط بملف نصى بجانب البرنامج بشكل عادى هكذا

https://www.youtube.com/watch?v=i4m3gxxHS5g&list=PLFE2C9AB006BC8FFA&index=1     

https://www.youtube.com/watch?v=i4m3gxxH...FA&index=2
https://www.youtube.com/watch?v=i4m3gxxH...FA&index=3

وهكذا مع باقى الروابط...

أنا أريد فظها بهذا الشكل

كود :

list_urls = ['https://www.youtube.com/watch?v=i4m3gxxHS5g&list=PLFE2C9AB006BC8FFA&index=1',
'https://www.youtube.com/watch?v=i4m3gxxHS5g&list=PLFE2C9AB006BC8FFA&index=1',
'https://www.youtube.com/watch?v=-cWcj4qacNE&list=PLFE2C9AB006BC8FFA&index=2',
            'https://www.youtube.com/watch?v=UGE5wCHUQ-U',
            'https://www.youtube.com/watch?v=PSwdfoCfhAc']

وجزاكم الله كل الخير.

كود :

Dim list_urls = "[" & String.Join(",", ListBox1.Items.Cast(Of String).Select(Function(x As String) "'" & x & "'")) & "]"

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