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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اريد تعلم الفيجوال اسلام القاضي 1 59 19-09-19, 03:37 PM
آخر رد: Rabeea Qbaha
  [Acces2010] اريد مساعدة فى حل هذا الخطأ Mina Botros 10 177 15-09-19, 02:15 AM
آخر رد: Mina Botros
Exclamation [سؤال] اريد انشاء كريستال ريبورت بدون قاعدة بيانات NewUser 3 139 13-09-19, 02:44 AM
آخر رد: Rabeea Qbaha
  اريد كود ضرورى خالد كامل1 4 132 05-09-19, 03:55 PM
آخر رد: خالد كامل1
  [سؤال] لدي جدول به اسعار اريد السعر من خلال رقم الكلاس مرفق الكود dametucorazon 5 192 01-09-19, 03:44 PM
آخر رد: dametucorazon
  [سؤال] اريد طريقة فعالة لحذف Webbrowser cache قبل تحميل صفحة جديدة dametucorazon 2 118 27-08-19, 07:16 PM
آخر رد: dametucorazon
  [VB.NET] اريد مساعدة في حل مشكله صغيرة e-coder 2 123 24-08-19, 06:04 AM
آخر رد: youcef3zino
  [كود] اريد كود تغير لون مؤشر الكتابه في التكست بوكس اليوم السابع 1 116 20-08-19, 12:56 AM
آخر رد: اسامه الهرماوي
  [VB.NET] اريد التعديل ع كود للكتابه ع صورة e-coder 5 206 19-08-19, 12:47 AM
آخر رد: ابراهيم ايبو
  [سؤال] اريد كود للتعامل مع الكومبو بوكس أمجد وضاح 3 186 17-08-19, 04:28 PM
آخر رد: أمجد وضاح

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


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