منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - اريد جلب الاسماء مدموجة بالروابط من هذا التاج

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

PHP كود :

<a href="/groups/569796860038987?refid=46&amp;__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>&nbsp;·&nbsp;</span>&rlm;٢٨&nbsp;ألف&rlm; عضو<span>&nbsp;·&nbsp;</span>أكثر من 10 منشورات في اليوم</div><div class="cj">⭐ نحن نريد السعادة للجميع ⭐...</div><div class="cj"></div></a> 

ما اريده هو هذا الاسم >?⭐ مملكة السعادة ⭐⁦?
مدموج معه الرابط بحيث لما اضغط على الاسم ينقلنى الى الرابط

استخدم 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 

أما الدمج والضغط فلم أفهم المقصود منها!

(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 

أخ ابو روضة بالنسبة للكلمة المراد استخلاصها من النص هذا الكود :

PHP كود :

 Dim result As String = "<a href="" / groups / 569796860038987?refid=46&amp;__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>&nbsp;·&nbsp;</span>&rlm;٢٨&nbsp;ألف&rlm; عضو<span>&nbsp;·&nbsp;</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) 

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

شكرا لكم اخوتى جلبتها بال 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 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ابو روضة

Beginer

ابو روضة

سامي محمد

ابو روضة