[عبد الله]

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

كيف يمكن جلب قائمة بآخر 10 فيديوهات لقناة من اليوتيوب ؟

[عبد الله]

للرفع .....

[a_almisery]

ببـرنامج Iskysoft تتــستطيع تــنزيل قــناه بــاكملــها ...

[عبد الله]

(04-04-15, 03:01 AM)a_almisery كتب : ببـرنامج Iskysoft تتــستطيع تــنزيل قــناه بــاكملــها ...

لا أريد تنزيل قناة ( البرامج كثيرة في هذا ) ولكني أريد جلب أسماء الفيديوهات عن طريقة البرنامج حتى أعرف من خلاله إن كان هنالك جديد بالقناة أو لا.

[sherif khalid]

الافضل لك ان تبحث فى دوال YouTube API وتتعلمها اذا كنت ستنشئ برنامج يتعامل مع اليوتيوب

https://developers.google.com/youtube/getting_started

[سعود]

شوف الدالة التالية 

كود :

Private Function getvids(ByVal url As String) As List(Of String)
       Dim lst As New List(Of String)
       Dim wc As New WebClient
       wc.Encoding = Encoding.UTF8
       Dim html As String = wc.DownloadString(TextBox1.Text)
       Dim doc As New HtmlAgilityPack.HtmlDocument
       doc.LoadHtml(html)
       For Each nod As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//a[@class='yt-uix-sessionlink yt-uix-tile-link  spf-link  yt-ui-ellipsis yt-ui-ellipsis-2']")
           lst.Add(nod.InnerText)
       Next
       Return lst
   End Function

للاستخدام

كود :

       For Each itm In getvids(TextBox1.Text)
           ListBox1.Items.Add(itm.Trim)
       Next

تحتاج ملف HtmlAgilityPack اضفه كـreference


هذا بشكل عام ويمكنك زيادة الفلترة على مصدر الصفحة.

استخدم الموقع التالي للتحويل
http://converter.telerik.com/

[سعود]

لاول مرة اسوي مثال بالسي شارب .. صحيح معقد فالكلمة TextBox1  خطا بينما الصح textBox

[عبد الله]

واضح أنك تعمل على فيجوال استوديو الإصدار الأحدث، لأن المثال المرفق يتطلب .net 4.6

جاري تجربة المثال، ومبدئياً المطلوب يتم بمثل هذا الحل الرائع من عضو مبدع كعادته.

اشكرك أخي سعود على المساعدة.

[الشاكي لله]

(05-08-15, 02:27 PM)سعود كتب : لاول مرة اسوي مثال بالسي شارب .. صحيح معقد فالكلمة TextBox1  خطا بينما الصح textBox

السبب لان السي شارب لغة case sensitve اي (حساسة لحالة الاحرف)

بينما الفيجوال بيسك ليست كذلك


-- ايضا في السي شارب لايوجد auto complete للكود
يعني في الفيجوال بيسك تكتب if وتضغط انتر يكمل عنك الكود

لكن في السي شارب لايوجد ذلك هل تعلم لماذا !!! لان السي شارب مرنة فلها 4 طرق للكتابة
لذلك المحرر لايعرف اي طريقة ستستخدمها فلا يكمل الكود

طبعا مايكروسفت وضعت بديل وهو الضغط على زر tab مرتين  كما في الصورة المتحركة:



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


تحياتي

[سعود]

بارك الله فيك
اشكر لك هذه المشاركة المفيدة.