ممكن مثال يااخوان لاني جربته وصار يحفظ رابط الصفحة يعني كل المصدر ينمسح ويحفظ فقط رابط الصفحة المطلوب التعديل عليها
كود :
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")
اعزائي هل توجد مشكلة؟ لانه يحفظ الرابط كمصدر للصفحة
طيب اخوي الله يعينك علي
تعرف مشاكلي هاليومين والحمدلله بفضل الله ثم مساعدتكم تخطيت اغلبها وهي:
معرفة اسم المرفق ورابطه للتحميل
الصلاحية وذالك بارفاق معلومات الدخول من الكوكيز
وتبقى الان الاستبدال ومثل ماتشوف هل اضيف هذه الاكواد الى الاكواد اللي عندي ام هي تغني عنها؟ اذا اخذنا في بالنا الكوكيز والمرفق .
طيب سؤال اخر
لو اردت تخزين المحتوى من استخدام هذه الاداة بطريقة Loadhtml كيف يكون ذلك لانه يظهر خطا حين استخدم الكود التالي:
كود :
dim a as string= doc.loadhtml("url")
فيه كمان خطا
(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()
ابشركم عرفت الطريقة اقصد تمكنت من تطبيق الفكرة عن طريق الـ regex
باذن الله بعد انهاء المشروع سارفعه ليكون مثال يمكن تطبيقه لاي اسم مستخدم وساحاول امكانية استخدام نسخ اخرى مثل ipb,vbulletin وغيرها