+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد جلب الاسماء مدموجة بالروابط من هذا التاج (/showthread.php?tid=30817)
اريد جلب الاسماء مدموجة بالروابط من هذا التاج - ابو روضة - 09-08-19
السلام عليكم اخوتى
صادفت مشكلة جلب الاسماء من نقطة محدد بالرابط بتاعه من هذا التاج
PHP كود :
<a href="/groups/569796860038987?refid=46&__xts__%5B0%5D=12.%7B%22unit_id_click_type%22%3A%22graph_search_results_item_in_module_tapped%22%2C%22click_type%22%3A%22result%22%2C%22module_id%22%3A0%2C%22result_id%22%3A569796860038987%2C%22session_id%22%3A%22699729ba6fa2edb1d2f01da8125e2adc%22%2C%22module_role%22%3A%22ENTITY_GROUPS%22%2C%22unit_id%22%3A%22browse_rl%3A2fe763a3-1045-4cde-8935-91fecce667c4%22%2C%22browse_result_type%22%3A%22browse_type_group%22%2C%22unit_id_result_id%22%3A569796860038987%2C%22module_result_position%22%3A10%7D"><div class="cg"><div class="ch">?⭐ مملكة السعادة ⭐?</div></div><div class="ci"><span>مجموعة</span><span> · </span>‏٢٨ ألف‏ عضو<span> · </span>أكثر من 10 منشورات في اليوم</div><div class="cj">⭐ نحن نريد السعادة للجميع ⭐...</div><div class="cj"></div></a>
مدموج معه الرابط بحيث لما اضغط على الاسم ينقلنى الى الرابط
RE: اريد جلب الاسماء مدموجة بالروابط من هذا التاج - Beginer - 09-08-19
استخدم RegEx لقراءة البيانات هكذا
PHP كود :
Dim t = Regex.Match(s, "<div class=""ch"">(.+?)</div>").Groups(1).Value
Dim h = "https://facebook.com" & Regex.Match(s, "<a href=""(.+?)"">").Groups(1).Value
RE: اريد جلب الاسماء مدموجة بالروابط من هذا التاج - ابو روضة - 09-08-19
(09-08-19, 11:05 PM)Beginer كتب : استخدم RegEx لقراءة البيانات هكذا
أما الدمج والضغط فلم أفهم المقصود منها!PHP كود :
Dim t = Regex.Match(s, "<div class=""ch"">(.+?)</div>").Groups(1).Value
Dim h = "https://facebook.com" & Regex.Match(s, "<a href=""(.+?)"">").Groups(1).Value
لم ينفع اخى هذا الكود وما اريده مشابهه لهذا الكود أى الأسم مع الرابط
PHP كود :
Dim web As New WebClient()
web.Encoding = Encoding.UTF8
Dim result As String = web.DownloadString("https://www.alukah.net/fatawa_counsels/3002/")
Dim a12 As MatchCollection = Regex.Matches(result, "<a id=""ctl00_MainContentPlaceHolder_.*?"" title="".*?"" href=""(.*?)"">(.*?)<\/a>", RegexOptions.IgnoreCase Or RegexOptions.Singleline)
For i = 0 To a12.Count - 1
lst.Add("https://www.alukah.net" & a12(i).Groups(1).Value)
ListBox1.Items.Add(a12(i).Groups(2).Value)
Next
RE: اريد جلب الاسماء مدموجة بالروابط من هذا التاج - سامي محمد - 10-08-19
أخ ابو روضة بالنسبة للكلمة المراد استخلاصها من النص هذا الكود :
PHP كود :
Dim result As String = "<a href="" / groups / 569796860038987?refid=46&__xts__%5B0%5D=12.%7B%22unit_id_click_type%22%3A%22graph_search_results_item_in_module_tapped%22%2C%22click_type%22%3A%22Result%22%2C%22module_id%22%3A0%2C%22Result_id%22%3A569796860038987%2C%22Session_id%22%3A%22699729ba6fa2edb1d2f01da8125e2adc%22%2C%22module_role%22%3A%22ENTITY_GROUPS%22%2C%22unit_id%22%3A%22browse_rl%3A2fe763a3-1045-4cde-8935-91Fecce667c4%22%2C%22browse_result_type%22%3A%22browse_type_group%22%2C%22unit_id_result_id%22%3A569796860038987%2C%22module_result_position%22%3A10%7D""><div class=""cg""><div class=""ch"">?⭐ مملكة السعادة ⭐?</div></div><div class=""ci""><span>مجموعة</span><span> · </span>‏٢٨ ألف‏ عضو<span> · </span>أكثر من 10 منشورات في اليوم</div><div class=""cj"">⭐ نحن نريد السعادة للجميع ⭐...</div><div class=""cj""></div></a> "
Dim a12 As MatchCollection = Regex.Matches(result, "class=""ch"">\?\s*(.+?)\s*\?", RegexOptions.IgnoreCase)
MsgBox(a12(0).Groups(1).Value)
اما دمج الرابط بها ... فاين هو الرابط لا يوجد رابط صالح لفتح موقع ماء في النص ..... او ضع رابط الصفحة نفسا وبالامكان التوصل لرابط العنوان المكتوب
RE: اريد جلب الاسماء مدموجة بالروابط من هذا التاج - ابو روضة - 10-08-19
شكرا لكم اخوتى جلبتها بال HtmlAgilityPack بعد عناء
PHP كود :
'جلب الروابط
For Each w As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='BrowseResultsContainer']/div[1]/div/div/div/table/tbody/tr/td[2]/a")
lst.Add("https://mbasic.facebook.com/" & w.Attributes("href").Value)
Next
'جلب الاسماء
For Each s As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='BrowseResultsContainer']/div[1]/div/div/div/table/tbody/tr/td[2]/a/div[1]/div")
ListBox1.Items.Add(s.InnerText.Trim)
Next