29-03-15, 11:58 PM
الصفحات : 1 2
01-04-15, 11:11 PM
04-04-15, 03:01 AM
04-04-15, 10:29 PM
18-05-15, 07:04 PM
05-08-15, 12:16 PM
شوف الدالة التالية
للاستخدام
تحتاج ملف HtmlAgilityPack اضفه كـreference
هذا بشكل عام ويمكنك زيادة الفلترة على مصدر الصفحة.
استخدم الموقع التالي للتحويل
http://converter.telerik.com/
كود :
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/
05-08-15, 02:27 PM
07-08-15, 10:35 PM
08-08-15, 04:20 AM
(05-08-15, 02:27 PM)سعود كتب : [ -> ]لاول مرة اسوي مثال بالسي شارب .. صحيح معقد فالكلمة TextBox1 خطا بينما الصح textBox
السبب لان السي شارب لغة case sensitve اي (حساسة لحالة الاحرف)
بينما الفيجوال بيسك ليست كذلك
-- ايضا في السي شارب لايوجد auto complete للكود
يعني في الفيجوال بيسك تكتب if وتضغط انتر يكمل عنك الكود
لكن في السي شارب لايوجد ذلك هل تعلم لماذا !!! لان السي شارب مرنة فلها 4 طرق للكتابة
لذلك المحرر لايعرف اي طريقة ستستخدمها فلا يكمل الكود
طبعا مايكروسفت وضعت بديل وهو الضغط على زر tab مرتين كما في الصورة المتحركة:
فلا احد يعتبر محرر السي شارب اغبى من الفيجوال بيسك هههه
طبعا انا جاوبت على السؤال هذا لان في 3 قبلك انتقلو للسي شارب وقالوا ليش المحرر جذي متعب فهذا كان الرد للفائدة
تحياتي
08-08-15, 07:11 AM
الصفحات : 1 2