تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] البحث عن وسم <a href
#11
ممكن مثال يااخوان لاني جربته وصار يحفظ رابط الصفحة يعني كل المصدر ينمسح ويحفظ فقط رابط الصفحة المطلوب التعديل عليها

كود :
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")

اعزائي هل توجد مشكلة؟ لانه يحفظ الرابط كمصدر للصفحة
الرد }}}
تم الشكر بواسطة:
#12
(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

ذكرت ذلك في احد الردود السابقة في هذا الموضوع

يبدو انك لاتركز !!
الرد }}}
تم الشكر بواسطة: سعود , @@أبورائد@@
#13
طيب اخوي الله يعينك علي
تعرف مشاكلي هاليومين والحمدلله بفضل الله ثم مساعدتكم تخطيت اغلبها وهي:
معرفة اسم المرفق ورابطه للتحميل
الصلاحية وذالك بارفاق معلومات الدخول من الكوكيز

وتبقى الان الاستبدال ومثل ماتشوف هل اضيف هذه الاكواد الى الاكواد اللي عندي ام هي تغني عنها؟ اذا اخذنا في بالنا الكوكيز والمرفق .
الرد }}}
تم الشكر بواسطة:
#14
(13-10-13, 12:13 AM)سعود كتب : طيب اخوي الله يعينك علي
تعرف مشاكلي هاليومين والحمدلله بفضل الله ثم مساعدتكم تخطيت اغلبها وهي:
معرفة اسم المرفق ورابطه للتحميل
الصلاحية وذالك بارفاق معلومات الدخول من الكوكيز

وتبقى الان الاستبدال ومثل ماتشوف هل اضيف هذه الاكواد الى الاكواد اللي عندي ام هي تغني عنها؟ اذا اخذنا في بالنا الكوكيز والمرفق .

لااعلم ماذا تقصد

هذا الكود فقط للإستبدال
الرد }}}
تم الشكر بواسطة:
#15
طيب سؤال اخر
لو اردت تخزين المحتوى من استخدام هذه الاداة بطريقة Loadhtml كيف يكون ذلك لانه يظهر خطا حين استخدم الكود التالي:
كود :
dim a as string= doc.loadhtml("url")

فيه كمان خطا
الرد }}}
تم الشكر بواسطة:
#16
(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() 
الرد }}}
تم الشكر بواسطة: سعود
#17
ابشركم عرفت الطريقة اقصد تمكنت من تطبيق الفكرة عن طريق الـ regex
باذن الله بعد انهاء المشروع سارفعه ليكون مثال يمكن تطبيقه لاي اسم مستخدم وساحاول امكانية استخدام نسخ اخرى مثل ipb,vbulletin وغيرها
الرد }}}
تم الشكر بواسطة: ابو روضة



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم