تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد جلب الاسماء مدموجة بالروابط من هذا التاج
#1
السلام عليكم اخوتى
صادفت مشكلة جلب الاسماء من نقطة محدد بالرابط بتاعه من هذا التاج





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
ما اريده هو هذا الاسم  >?⭐ مملكة السعادة ⭐⁦?
مدموج معه الرابط بحيث لما اضغط على الاسم ينقلنى الى الرابط
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#2
استخدم 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 
أما الدمج والضغط فلم أفهم المقصود منها!
الرد
تم الشكر بواسطة: ابو روضة , asemshahen5 , ابراهيم ايبو
#3
(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 
الرد
#4
أخ ابو روضة بالنسبة للكلمة المراد استخلاصها من النص هذا الكود : 


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


اما دمج الرابط بها ... فاين هو الرابط لا يوجد رابط صالح لفتح موقع ماء في النص .....  او ضع رابط الصفحة نفسا وبالامكان التوصل لرابط العنوان المكتوب
الرد
تم الشكر بواسطة: ابو روضة , asemshahen5 , ابراهيم ايبو
#5
شكرا لكم اخوتى جلبتها بال 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 
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد لعبة الأوراق أمجد وضاح 2 186 14-02-20, 12:35 AM
آخر رد: أمجد وضاح
  اريد امثلة على استخدام repeater control لو سمحتم nowiglah 2 117 08-02-20, 11:12 PM
آخر رد: alsalamoni
  شباب اريد طريقة عمل اداة لعمل اشارة فى الانساجرام Mina Botros 0 78 24-01-20, 03:59 PM
آخر رد: Mina Botros
  [سؤال] اريد الربط بين البرنامج وقاعدة بيانات اكسس المرفوعة على الانترنت وشكرا Mina Botros 2 109 24-01-20, 02:50 PM
آخر رد: Mina Botros
  اريد معرفه شئ صعب شويه ولكن لم يصعب عليكم اتمني مشاركه الاخ ابوروضه اليوم السابع 4 219 21-01-20, 05:26 PM
آخر رد: ابو روضة
  اريد يكون رقم الوارد او الصادر بناء على السنة علي كعبي 9 386 25-12-19, 06:50 PM
آخر رد: علي كعبي
  اريد كود البحث او الفلتره عن شئ في الداتا جريد فيو ؟ amrmosa673@gmail.com 2 233 06-12-19, 05:45 PM
آخر رد: amrmosa673@gmail.com
  [سؤال] اريد حل لاستيراد البيانات من الاكسل m.n.hakami 5 280 26-11-19, 09:37 PM
آخر رد: m.n.hakami
Exclamation [VB.NET] اريد كود يقوم بنسخ اي نص موجود في الموقع التي يتم عرضة في الويب بروزر > التفاصيل داخل SnTnt 2 233 15-11-19, 06:33 PM
آخر رد: SnTnt
  [سؤال] اريد المساعده بخصوص التعرف علي اللغه العربيه في صفحه HTML اليوم السابع 2 211 08-11-19, 03:20 AM
آخر رد: اليوم السابع

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم