+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] البحث عن وسم <a href (/showthread.php?tid=502)
الصفحات:
1
2
RE: البحث عن وسم <a href - سعود - 12-10-13
ممكن مثال يااخوان لاني جربته وصار يحفظ رابط الصفحة يعني كل المصدر ينمسح ويحفظ فقط رابط الصفحة المطلوب التعديل عليها
كود :
Dim doc As New HtmlAgilityPack.HtmlDocument()
doc.LoadHtml("i:\threads\thread_489.htm")
Dim n As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectSingleNode("//a[@href='anylink.com/attachment.php?aid=300']")
If n IsNot Nothing Then
n.SetAttributeValue("href", "www.google.com") 'استبدال الرابط'
End If
doc.Save("i:\threads\edited-thread_489.htm")اعزائي هل توجد مشكلة؟ لانه يحفظ الرابط كمصدر للصفحة
RE: البحث عن وسم <a href - الشاكي لله - 12-10-13
(12-10-13, 11:32 PM)سعود كتب : ممكن مثال يااخوان لاني جربته وصار يحفظ رابط الصفحة يعني كل المصدر ينمسح ويحفظ فقط رابط الصفحة المطلوب التعديل عليها
كود :
Dim doc As New HtmlAgilityPack.HtmlDocument()
doc.LoadHtml("i:\threads\thread_489.htm")
Dim n As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectSingleNode("//a[@href='anylink.com/attachment.php?aid=300']")
If n IsNot Nothing Then
n.SetAttributeValue("href", "www.google.com") 'استبدال الرابط'
End If
doc.Save("i:\threads\edited-thread_489.htm")
اعزائي هل توجد مشكلة؟ لانه يحفظ الرابط كمصدر للصفحة
اخي سعود توجد دالتين
وحدة اسمها Load والاخرى LoadHtml
Load : تحميل ملف html من جهازك
LoadHtml : تحميل Html من خلال متغير نصي (String)
فالحل يكون باستخدام Load بدل LoadHtml
ذكرت ذلك في احد الردود السابقة في هذا الموضوع
يبدو انك لاتركز !!
RE: البحث عن وسم <a href - سعود - 13-10-13
طيب اخوي الله يعينك علي
تعرف مشاكلي هاليومين والحمدلله بفضل الله ثم مساعدتكم تخطيت اغلبها وهي:
معرفة اسم المرفق ورابطه للتحميل
الصلاحية وذالك بارفاق معلومات الدخول من الكوكيز
وتبقى الان الاستبدال ومثل ماتشوف هل اضيف هذه الاكواد الى الاكواد اللي عندي ام هي تغني عنها؟ اذا اخذنا في بالنا الكوكيز والمرفق .
RE: البحث عن وسم <a href - الشاكي لله - 13-10-13
(13-10-13, 12:13 AM)سعود كتب : طيب اخوي الله يعينك علي
تعرف مشاكلي هاليومين والحمدلله بفضل الله ثم مساعدتكم تخطيت اغلبها وهي:
معرفة اسم المرفق ورابطه للتحميل
الصلاحية وذالك بارفاق معلومات الدخول من الكوكيز
وتبقى الان الاستبدال ومثل ماتشوف هل اضيف هذه الاكواد الى الاكواد اللي عندي ام هي تغني عنها؟ اذا اخذنا في بالنا الكوكيز والمرفق .
لااعلم ماذا تقصد
هذا الكود فقط للإستبدال
RE: البحث عن وسم <a href - سعود - 13-10-13
طيب سؤال اخر
لو اردت تخزين المحتوى من استخدام هذه الاداة بطريقة Loadhtml كيف يكون ذلك لانه يظهر خطا حين استخدم الكود التالي:
كود :
dim a as string= doc.loadhtml("url")فيه كمان خطا
RE: البحث عن وسم <a href - الشاكي لله - 13-10-13
(13-10-13, 12:26 AM)سعود كتب : طيب سؤال اخر
لو اردت تخزين المحتوى من استخدام هذه الاداة بطريقة Loadhtml كيف يكون ذلك لانه يظهر خطا حين استخدم الكود التالي:
كود :
dim a as string= doc.loadhtml("url")
فيه كمان خطا
PHP كود :
Dim html As String = "<html><head>.......</head></html>"
'load'
Dim doc As New HtmlAgilityPack.HtmlDocument()
doc.LoadHtml(html)
.....
.....
'save'
Dim sw As New System.IO.StringWriter()
doc.Save(sw)
Dim newHtml As String = sw.ToString()
لما تريد تسحب html من صفحة موجودة على الانترنت
نستخدم htmlWeb
هكذا :
PHP كود :
'load'
Dim doc As New HtmlAgilityPack.HtmlDocument()
Dim hWeb As New HtmlAgilityPack.HtmlWeb()
doc = hWeb.Load("http://google.com")
.....
.....
'save'
Dim sw As New System.IO.StringWriter()
doc.Save(sw)
Dim newHtml As String = sw.ToString()
RE: البحث عن وسم <a href - سعود - 13-10-13
ابشركم عرفت الطريقة اقصد تمكنت من تطبيق الفكرة عن طريق الـ regex
باذن الله بعد انهاء المشروع سارفعه ليكون مثال يمكن تطبيقه لاي اسم مستخدم وساحاول امكانية استخدام نسخ اخرى مثل ipb,vbulletin وغيرها