منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) (/showthread.php?tid=20522)

الصفحات: 1 2

برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) - الماجيك مسعد - 25-05-17

السلام عليكم

اولا كل سنة وانتم طيبين ورمضان كريم

ثانيا
هذا الرابط يظهر بعض الاشخاص

فكيف يمكننى الحصول على معرف الحساب (المقصود به الايدى او ID او id)

و اسم الحساب او المعرف فقط

حاولت بهذا الكود ولكن لم ينجح

ارجو المساعدة فى تعديل الكود او بكود اخر ينفذ العملية المطلوبة

كود :
Dim text As String = ""
            text = FAUTH.GetContant(url) ' هذا الفنكشن يقوم بجلب سورس الصفحة
            Dim regex As Regex = New Regex("{(.*?)}")
            Dim htmlDocument As HtmlDocument = New HtmlDocument()
            htmlDocument.LoadHtml(text)
            If htmlDocument.DocumentNode IsNot Nothing Then
                For Each htmlNode As HtmlNode In CType(htmlDocument.DocumentNode.SelectNodes("//div[@id='BrowseResultsContainer']"), IEnumerable(Of HtmlNode))
                    If htmlNode IsNot Nothing Then

شكرا لكم جميعا

RE: برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) - سعود - 25-05-17

افضل شيء تستخدم ادوات خاصة بفيس بوك من غيرها تحتاج تعديل متكرر بمصدر البرنامج..
قمت بزيارة الصفحة ووجدتها معطلة.
لو امكن نسخ المصدر للصفحة ووضعه هنا او رفع نسخة من الصفحة على استضافة اخرى وتعطينا الرابط لنجرب بشكل مباشر بدل الاضطرار للتسجيل بفيس بوك.

RE: برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) - الماجيك مسعد - 25-05-17

(25-05-17, 02:08 AM)سعود كتب : افضل شيء تستخدم ادوات خاصة بفيس بوك  من غيرها تحتاج تعديل متكرر بمصدر البرنامج..
قمت بزيارة الصفحة ووجدتها معطلة.
لو امكن نسخ المصدر للصفحة  ووضعه هنا او  رفع نسخة من الصفحة على استضافة اخرى وتعطينا الرابط لنجرب بشكل مباشر بدل الاضطرار للتسجيل  بفيس بوك.

اولا اشكرك جدا على الرغبة فى المساعدة

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

بالنسبة للصفحة اعتذر جدا عن ذلك

تفضل هذا سورس الصفحة كامل

http://www.elmagek.net/up/do.php?id=385

او تقدر تحمله من المرفقات

RE: برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) - سعود - 25-05-17

هل تريد استخلاص الـ id من رابط صفحة كل مستخدم  الظاهرين في الصفحة؟
كما هو مبين بالصورة ادناه؟


RE: برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) - الماجيك مسعد - 25-05-17

نعم اخى الفاضل
اعتذر جدا مضطر اقفل لان لدى امتحان غدا

وغدا باذن الله سوف ادخل للموضوع بعد الامتحان

RE: برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) - w4po - 25-05-17

وعليكم السلام ,

تفضل:
Regex pattern:
"_glj.*?profile.*?id=?\D(\d.*?)\D.*?_5d-5.>(.*?)<.*?glp"

Code:

كود :
Dim r As New Regex("_glj.*?profile.*?id=?\D(\d.*?)\D.*?_5d-5.>(.*?)<.*?glp")

Dim matches As MatchCollection = r.Matches(input)
For i As Integer = 0 To matches.Count - 1
    Dim id As String = matches(i).Groups(1).Value
    Dim name As String = matches(i).Groups(2).Value
Next i


RE: برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) - الماجيك مسعد - 25-05-17

تسلم بس دا بالريجكس
انا عايزها بنفس طريقة الكود
عشان اعرف الخطأ فين
وعشان عايز افهم الاداة دى لانى هستخدمها فى مشاريع تانية
ولما قصدت كود تانى بنفس المهمة كنت اقصد كود تانى بس باستخدام نفس الاداة
(25-05-17, 08:08 AM)w4po كتب :
وعليكم السلام ,

تفضل:
Regex pattern:
"_glj.*?profile.*?id=?\D(\d.*?)\D.*?_5d-5.>(.*?)<.*?glp"

Code:

كود :
Dim r As New Regex("_glj.*?profile.*?id=?\D(\d.*?)\D.*?_5d-5.>(.*?)<.*?glp")

Dim matches As MatchCollection = r.Matches(input)
For i As Integer = 0 To matches.Count - 1
Dim id As String = matches(i).Groups(1).Value
Dim name As String = matches(i).Groups(2).Value
Next i

تسلم بس دا بالريجكس
انا عايزها بنفس طريقة الكود
عشان اعرف الخطأ فين
وعشان عايز افهم الاداة دى لانى هستخدمها فى مشاريع تانية
ولما قصدت كود تانى بنفس المهمة كنت اقصد كود تانى بس باستخدام نفس الاداة

RE: برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) - الماجيك مسعد - 25-05-17

بانتظار محاولة باقى الاعضاء

RE: برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) - الماجيك مسعد - 26-05-17

هل من مساعد؟

RE: برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) - سعود - 26-05-17

ممكن تستخدم كود قد تحتاج التعديل عليه ليلبي طلبك لكن قم بتجربته.
PHP كود :
                                       Dim str As String = """https://www\.facebook\.com/profile\.php\?id=([0-9]{1,}).*?;"""
                                        Dim reg As New Regex(str, RegexOptions.IgnoreCase)
                                        Dim mc As MatchCollection = reg.Matches(html)
                                        For Each ma As Match In mc
                                            If ma.Success Then
                                                TextBox2.AppendText(ma.Groups(1).Value & vbNewLine)
                                            End If
                                        Next 
سبب تاخري في الرد اني احاول قدر المستطاع ان استفيد من امكانات HtmlAgilityPack لكن لم اتمكن .
لذلك اعتذر عن التاخير