[الماجيك مسعد]

السلام عليكم

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

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

فكيف يمكننى الحصول على معرف الحساب (المقصود به الايدى او 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

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

[سعود]

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

[الماجيك مسعد]

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

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

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

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

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

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

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

[سعود]

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

[الماجيك مسعد]

نعم اخى الفاضل

---

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

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

[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

[الماجيك مسعد]

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

---

(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

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

[الماجيك مسعد]

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

[الماجيك مسعد]

هل من مساعد؟

[سعود]

ممكن تستخدم كود قد تحتاج التعديل عليه ليلبي طلبك لكن قم بتجربته.

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 لكن لم اتمكن .
لذلك اعتذر عن التاخير