دخول

***سعود***

ممكن مثال يااخوان لاني جربته وصار يحفظ رابط الصفحة يعني كل المصدر ينمسح ويحفظ فقط رابط الصفحة المطلوب التعديل عليها

كود :

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-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-10-13, 12:13 AM

طيب اخوي الله يعينك علي
تعرف مشاكلي هاليومين والحمدلله بفضل الله ثم مساعدتكم تخطيت اغلبها وهي:
معرفة اسم المرفق ورابطه للتحميل
الصلاحية وذالك بارفاق معلومات الدخول من الكوكيز

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

**الشاكي لله** · 13-10-13, 12:21 AM

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

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

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

هذا الكود فقط للإستبدال

***سعود***

طيب سؤال اخر
لو اردت تخزين المحتوى من استخدام هذه الاداة بطريقة 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 وغيرها

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	[VB.NET] استفسار بخصوص البحث في RichTextBox SerialPort	dubai.eig	2	663	18-06-25, 11:09 AM آخر رد: dubai.eig
	[كود] البحث تلقائياً عند التبديل بين الـ RadioButton	محمد مسافر	8	696	04-10-24, 02:33 AM آخر رد: Taha Okla
	[كود] البحث وتحريك اسهم الداتا جريدفيو عند البحث	محمد مسافر	2	581	19-09-24, 01:14 AM آخر رد: محمد مسافر
	مساعدة البحث بين تاريخين	أبووسم	3	544	16-08-24, 01:37 PM آخر رد: أبووسم
	البحث بالأسم الأول فقط	heem1986	6	635	03-08-24, 04:17 PM آخر رد: heem1986
	[VB.NET] تجاهل التشكيل من الأسماء عند البحث في التيكست بوكس	Khalil chiha	3	532	01-08-24, 10:28 PM آخر رد: Khalil chiha
	يوجد خطاء فى كود البحث بواستطة الكمبوبوكس واجراء مخزن	new_programer	4	405	06-07-24, 12:05 AM آخر رد: Zuhare
	البحث بين تاريخين مع الوقت - من بداية اليوم - حتى اخر اليوم	moh61	3	604	12-06-24, 08:00 PM آخر رد: Taha Okla
	أريد البحث بإستخدام أي جزء من الكلمة و ليس أول جزء منها .	CoderMM	3	612	17-04-24, 01:19 AM آخر رد: Taha Okla
	[VB.NET] البحث باستخدام CheckedListBox لتكون نتيجة التحديد شرط لجملة الاستعلام	ahmedramzyaish	0	437	19-02-24, 03:44 AM آخر رد: ahmedramzyaish