دخول

***سعود***

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

كود :

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	664	18-06-25, 11:09 AM آخر رد: dubai.eig
	[كود] البحث تلقائياً عند التبديل بين الـ RadioButton	محمد مسافر	8	705	04-10-24, 02:33 AM آخر رد: Taha Okla
	[كود] البحث وتحريك اسهم الداتا جريدفيو عند البحث	محمد مسافر	2	584	19-09-24, 01:14 AM آخر رد: محمد مسافر
	مساعدة البحث بين تاريخين	أبووسم	3	550	16-08-24, 01:37 PM آخر رد: أبووسم
	البحث بالأسم الأول فقط	heem1986	6	643	03-08-24, 04:17 PM آخر رد: heem1986
	[VB.NET] تجاهل التشكيل من الأسماء عند البحث في التيكست بوكس	Khalil chiha	3	535	01-08-24, 10:28 PM آخر رد: Khalil chiha
	يوجد خطاء فى كود البحث بواستطة الكمبوبوكس واجراء مخزن	new_programer	4	410	06-07-24, 12:05 AM آخر رد: Zuhare
	البحث بين تاريخين مع الوقت - من بداية اليوم - حتى اخر اليوم	moh61	3	607	12-06-24, 08:00 PM آخر رد: Taha Okla
	أريد البحث بإستخدام أي جزء من الكلمة و ليس أول جزء منها .	CoderMM	3	617	17-04-24, 01:19 AM آخر رد: Taha Okla
	[VB.NET] البحث باستخدام CheckedListBox لتكون نتيجة التحديد شرط لجملة الاستعلام	ahmedramzyaish	0	442	19-02-24, 03:44 AM آخر رد: ahmedramzyaish