المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3378
تم شكره 2456 مرات في 1124 مشاركات
السلام عليكم ورحمة الله وبركاته..
لدى قائمة تشغيل يوتيوب بجلبها داخل الليست بوكس وبقوم بحفظ الروابط بملف نصى بجانب البرنامج بشكل عادى هكذا
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']
وجزاكم الله كل الخير.
المشاركات : 21
المواضيع 0
الإنتساب : Nov 2020
السمعة :
7
الشكر: 99
تم شكره 39 مرات في 20 مشاركات
30-11-20, 10:37 PM
(آخر تعديل لهذه المشاركة : 01-12-20, 12:22 AM {2} بواسطة 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؟
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3378
تم شكره 2456 مرات في 1124 مشاركات
(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()
والكود اللى حضرتك أرسلته أظن ينقصه شيئ...
فلو ينفع حتى بالريجيكس يكون تمام بفضل الله
المشاركات : 21
المواضيع 0
الإنتساب : Nov 2020
السمعة :
7
الشكر: 99
تم شكره 39 مرات في 20 مشاركات
غير واضح ما تريد
اذا كنت تريد حفظ عناصر اللسيت بوكس في ملف نصي
كود :
IO.File.WriteAllLines("urls.txt", ListBox1.Items.OfType(Of String))
ولاعادة العناصر المحفوظه في الملف النصي الى اللسيت بوكس
كود :
ListBox1.Items.AddRange(IO.File.ReadAllLines("urls.txt"))
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3378
تم شكره 2456 مرات في 1124 مشاركات
01-12-20, 12:48 AM
(آخر تعديل لهذه المشاركة : 01-12-20, 12:50 AM {2} بواسطة ابو روضة.)
(01-12-20, 12:43 AM)mir2 كتب : غير واضح ما تريد
اذا كنت تريد حفظ عناصر اللسيت بوكس في ملف نصي
كود :
IO.File.WriteAllLines("urls.txt", ListBox1.Items.OfType(Of String))
ولاعادة العناصر المحفوظه في الملف النصي الى اللسيت بوكس
كود :
ListBox1.Items.AddRange(IO.File.ReadAllLines("urls.txt"))
أريد حفظ العناصر من الليست بوكس الى التكست بوكس بهذا الشكل أخى
بدلا من حفظها هكذا
المشاركات : 21
المواضيع 0
الإنتساب : Nov 2020
السمعة :
7
الشكر: 99
تم شكره 39 مرات في 20 مشاركات
01-12-20, 12:53 AM
(آخر تعديل لهذه المشاركة : 01-12-20, 12:54 AM {2} بواسطة mir2.)
لم افهمك اخي
في مشاركتي الاولى كتبت لك كود يعطيك العناصر بين قوسين [] مثل التي في الصورة وذا كنت تريد وضع في بدايتها list_urls = فيمكنك اضافة السطر التالي بعد الكود في مشاركتي الاولى
كود :
Dim t = "list_urls = " & list_urls
لو توضح هدفك من هذا الشكل النصي يمكن تتضح الصوره
وقد سألتك (هل تريد استعمال مكتبة Newtonsoft.Json؟) ولكنك تجاهلت سؤالي
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3378
تم شكره 2456 مرات في 1124 مشاركات
01-12-20, 12:59 AM
(آخر تعديل لهذه المشاركة : 01-12-20, 01:56 AM {2} بواسطة ابو روضة.)
(01-12-20, 12:53 AM)mir2 كتب : لم افهمك اخي
في مشاركتي الاولى كتبت لك كود يعطيك العناصر بين قوسين [] مثل التي في الصورة وذا كنت تريد وضع في بدايتها list_urls = فيمكنك اضافة السطر التالي بعد الكود في مشاركتي الاولى
كود :
Dim t = "list_urls = " & list_urls
لو توضح هدفك من هذا الشكل النصي يمكن تتضح الصوره
وقد سألتك (هل تريد استعمال مكتبة Newtonsoft.Json؟) ولكنك تجاهلت سؤالي
لم أتجاهل السؤال أخى لكنى بأخذ الأمور من أسفلها الى أعلاها فانتظرت للنهاية كى اذا لم أعثر على الكود
من طريقة أنتقل الى الأخرى وبما أنى لم أتعامل مع مكتبة Json من قبل فأخرتها لآخر شيئ " فقط هذا كل ما فى الامر "
وبخصوص التوضيح من حفظ الروابط بهذا الشكل لآنى معى برنامج بايثون بحمل منه قائمة تشغيل وبضع به
الروابط بهذا الشكل تماما
المشاركات : 21
المواضيع 0
الإنتساب : Nov 2020
السمعة :
7
الشكر: 99
تم شكره 39 مرات في 20 مشاركات
من الخطا الذي ظهر لك يبدو انك تختدم فيجوال ستوديو قديم (اعتقد 2008 او ما قبله)
عدلت لك الكود الذي تستخدمه سابقا
كود :
Dim SW As New StreamWriter("yourfile.txt")
SW.Write("list_urls = [")
For i = 0 To ListBox1.Items.Count - 1
SW.Write("'" & ListBox1.Items(i) & "'")
If i <> ListBox1.Items.Count - 1 Then SW.WriteLine(",")
Next
SW.Write("]")
SW.Close()
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3378
تم شكره 2456 مرات في 1124 مشاركات
(01-12-20, 01:14 AM)mir2 كتب : من الخطا الذي ظهر لك يبدو انك تختدم فيجوال ستوديو قديم (اعتقد 2008 او ما قبله)
عدلت لك الكود الذي تستخدمه سابقا
كود :
Dim SW As New StreamWriter("yourfile.txt")
SW.Write("list_urls = [")
For i = 0 To ListBox1.Items.Count - 1
SW.Write("'" & ListBox1.Items(i) & "'")
If i <> ListBox1.Items.Count - 1 Then SW.WriteLine(",")
Next
SW.Write("]")
SW.Close()
تسلم إيدك...
تمام أخى هذا المطلوب بالحرف...
جزاك الله كل الخيرات أخى..
|