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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اذا امكن احدكم من مساعدتي اريد مثل الصوره لمنع تكرار الاسم mostafa12 2 129 منذ 11 ساعة مضت
آخر رد: mostafa12
  اريد كود لسكون المنظومة بعد 5 دقائق من عدم استعمالها mawadaalmogrbi 6 687 09-10-19, 06:23 PM
آخر رد: Rabeea Qbaha
  [سؤال] اريد تعلم الفيجوال اسلام القاضي 1 86 19-09-19, 03:37 PM
آخر رد: Rabeea Qbaha
  [Acces2010] اريد مساعدة فى حل هذا الخطأ Mina Botros 10 218 15-09-19, 02:15 AM
آخر رد: Mina Botros
Exclamation [سؤال] اريد انشاء كريستال ريبورت بدون قاعدة بيانات NewUser 3 174 13-09-19, 02:44 AM
آخر رد: Rabeea Qbaha
  اريد كود ضرورى خالد كامل1 4 156 05-09-19, 03:55 PM
آخر رد: خالد كامل1
  [سؤال] لدي جدول به اسعار اريد السعر من خلال رقم الكلاس مرفق الكود dametucorazon 5 218 01-09-19, 03:44 PM
آخر رد: dametucorazon
  [سؤال] اريد طريقة فعالة لحذف Webbrowser cache قبل تحميل صفحة جديدة dametucorazon 2 147 27-08-19, 07:16 PM
آخر رد: dametucorazon
  [VB.NET] اريد مساعدة في حل مشكله صغيرة e-coder 2 146 24-08-19, 06:04 AM
آخر رد: youcef3zino
  [كود] اريد كود تغير لون مؤشر الكتابه في التكست بوكس اليوم السابع 1 143 20-08-19, 12:56 AM
آخر رد: اسامه الهرماوي

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


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