تقييم الموضوع :
  • 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 , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد كود لطباعة Report viewer تلقائيا مجرد م اقوم بفتح النافذه يتم وضع الكود بال Load mohamedgadain61 16 468 منذ 3 دقيقة مضت
آخر رد: حريف برمجة
  اظهار الاسماء باواخر التاريخ العيدروس 6 84 31-03-20, 09:55 PM
آخر رد: العيدروس
  اريد كود فتح صندوق الكاشير المحاسبي تلقائيا مجرد الضغط على Button mohamedgadain61 13 382 26-03-20, 06:29 PM
آخر رد: mohamedgadain61
  [VB.NET] اريد كود لسحب رابط من موقع لكن السورس مشفر MoSami 0 56 20-03-20, 06:02 PM
آخر رد: MoSami
  [VB.NET] اضافة عدد معين على كل الاسماء دفعة واحدة EMADSSS 4 113 20-03-20, 02:25 PM
آخر رد: EMADSSS
Lightbulb [سؤال] اريد المساعدة فى عمل برنامج Mina Botros 0 76 22-02-20, 09:44 PM
آخر رد: Mina Botros
  اريد لعبة الأوراق أمجد وضاح 4 285 21-02-20, 08:32 PM
آخر رد: أمجد وضاح
Lightbulb [سؤال] اريد المساعدة فى عمل برنامج Mina Botros 0 90 21-02-20, 03:13 PM
آخر رد: Mina Botros
  اريد امثلة على استخدام repeater control لو سمحتم nowiglah 2 178 08-02-20, 11:12 PM
آخر رد: alsalamoni
  شباب اريد طريقة عمل اداة لعمل اشارة فى الانساجرام Mina Botros 0 119 24-01-20, 03:59 PM
آخر رد: Mina Botros

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


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