03-05-14, 12:54 AM
حتى اسهل المسالة حاولوا استخلاص الروابط من هذه الصفحة http://vb4arb.com/vb4/forumdisplay.php?65 اقصد روابط المواضيع بحيث استبدلها بروابط عادي لصفحات محملة.
الصفحات : 1 2
03-05-14, 12:54 AM
03-05-14, 12:55 AM
-
أنا جربت وضع On Error Resume Next بعد For Each مباشرة لتلافي الأخطاء.........جرب
تم استخدام Distinct لحذف المكرر.....
أنا جربت وضع On Error Resume Next بعد For Each مباشرة لتلافي الأخطاء.........جرب
تم استخدام Distinct لحذف المكرر.....
كود :
Dim htmldoc As HtmlDocument = New HtmlDocument()
htmldoc.Load("abc.html")
Dim hrefs, classs As New List(Of String)
For Each link As HtmlNode In htmldoc.DocumentNode.SelectNodes("a")
On Error Resume Next
hrefs.Add(link.Attributes("href").Value)
classs.Add(link.Attributes("class").Value)
Next
MsgBox("hrefs:" & vbNewLine & Join(hrefs.Distinct.ToArray, vbNewLine))
MsgBox("classes:" & vbNewLine & Join(classs.Distinct.ToArray, vbNewLine))03-05-14, 01:09 AM
لا اخي ما ينفع استخدم الطريقة on error لاني اريد البرنامج يعمل بكل مااريد منه.
حاول تقتنص النص من المصدر التالي
حاول تقتنص النصوص بهذا التنسيق
حاول تقتنص النص من المصدر التالي
كود :
view-source:http://vb4arb.com/vb4/forumdisplay.php?65كود :
<a class="title" href="showthread.php?180-قوانين-كتابة-المواضيع" id="thread_title_180">قوانين كتابة المواضيع</a>03-05-14, 01:11 AM
اظن ساصنع قوالب من عندي....
03-05-14, 01:20 AM
-
تم تعديل المثال السابق وذلك باستخدام If HtmlNode.Attributes("...") IsNot Nothing وهي الطريقة الصحيحة في مثل هذه الحالة....تم استخدام Distinct لحذف المكرر.....
تم تعديل المثال السابق وذلك باستخدام If HtmlNode.Attributes("...") IsNot Nothing وهي الطريقة الصحيحة في مثل هذه الحالة....تم استخدام Distinct لحذف المكرر.....
كود :
Dim htmldoc As HtmlDocument = New HtmlDocument()
htmldoc.Load("abc.html")
Dim hrefs, classs As New List(Of String)
For Each link As HtmlNode In htmldoc.DocumentNode.SelectNodes("//a")
If link.Attributes("href") IsNot Nothing Then hrefs.Add(link.Attributes("href").Value)
If link.Attributes("class") IsNot Nothing Then classs.Add(link.Attributes("class").Value)
Next
MsgBox("hrefs:" & vbNewLine & Join(hrefs.Distinct.ToArray, vbNewLine))
MsgBox("classes:" & vbNewLine & Join(classs.Distinct.ToArray, vbNewLine))04-05-14, 06:46 PM
بصراحة Regulatexpression فيها مرونة ولكن تحتاج خبرة بكل معايير البحث تم ايجاد المطلوب عبرها.
اما htmlagilitypack فهي رائعة ايضا وكالسابقة تماما لكنها تكون مفيدة اكثر مع الوسوم التي تحتوي id او النودز التي تحتوي فقط على واحد Attributes
كل هذا فقط من تجربتي وليس حصر او تقييم لها وانما لما قدرت عليه.
ولله الحمد تمكنت من تجهيز مشروع خاص لمنتديات vbuletin 4 بقيت التشطيبات الاخيرة.
وفقكم الله لكل مافيه رضاه.
اما htmlagilitypack فهي رائعة ايضا وكالسابقة تماما لكنها تكون مفيدة اكثر مع الوسوم التي تحتوي id او النودز التي تحتوي فقط على واحد Attributes
كل هذا فقط من تجربتي وليس حصر او تقييم لها وانما لما قدرت عليه.
ولله الحمد تمكنت من تجهيز مشروع خاص لمنتديات vbuletin 4 بقيت التشطيبات الاخيرة.
وفقكم الله لكل مافيه رضاه.
الصفحات : 1 2