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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 431 09-01-24, 08:40 PM
آخر رد: new_programer
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس mh66 1 360 08-11-23, 08:16 AM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
Star [كود] اريد تزويد 45 دقيقة على DateTimePicker1 كل ضغطة Button Ameenh 1 347 01-09-23, 07:13 AM
آخر رد: Asem2
Star [كود] اريد تزويد 45 دقيقة على DateTimePicker1 كل ضغطة Button Ameenh 0 279 01-09-23, 05:56 AM
آخر رد: Ameenh
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 349 05-08-23, 02:29 PM
آخر رد: moh61
  اريد ارسال pdf عبر واتساب عن طريق ال API محتاج تعديل على الكود moh61 0 518 03-08-23, 03:41 PM
آخر رد: moh61

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


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