السلام عليكم
اولا كل سنة وانتم طيبين ورمضان كريم
ثانيا
هذا الرابط يظهر بعض الاشخاص
فكيف يمكننى الحصول على معرف الحساب (المقصود به الايدى او 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 من رابط صفحة كل مستخدم الظاهرين في الصفحة؟
كما هو مبين بالصورة ادناه؟
نعم اخى الفاضل
اعتذر جدا مضطر اقفل لان لدى امتحان غدا
وغدا باذن الله سوف ادخل للموضوع بعد الامتحان
وعليكم السلام ,
تفضل:
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 لكن لم اتمكن .
لذلك اعتذر عن التاخير