[سعود]

(09-02-21, 11:50 PM)ابو روضة كتب : يا سلام عليك أخى سعود " رجل المواقف الصعبة حقاً "
بس مش عارف ليه ظهرت لى هكذا ؟

اكيد الترميز و حله بسيط هل استخدمت الـ ملف htmlal ؟
ام غيره؟
اقصد كيف جلبت النص؟

[ابو روضة]

(09-02-21, 11:55 PM)سعود كتب : اكيد الترميز و حله بسيط هل استخدمت الـ ملف htmlal ؟
ام غيره؟
اقصد كيف جلبت النص؟

بعد التعديل البسيط أنظر للمشروع وقت ما وقت حضرتك يسمع لو سمحت طبعا....

[ابو روضة]

فضلت معاها والحمدلله أخى سعود عدلت على الكود بتاعك....

كود :

Private Sub getpost()
       Dim url As String = TextBox1.Text
       Dim wc As New WebClient
       wc.Encoding = Encoding.UTF8
       url = WebUtility.HtmlDecode(url)
       Dim html As String = wc.DownloadString(url)
       Dim h As New HtmlAgilityPack.HtmlWeb
       Dim Encod As New HtmlAgilityPack.HtmlDocument
       Encod.LoadHtml(html)
       Dim d As HtmlAgilityPack.HtmlDocument = h.Load(url, "Get")
       For Each n As HtmlAgilityPack.HtmlNode In Encod.DocumentNode.SelectNodes("/html/body/div/div[2]/section/div[1]/div/div[3]/div/p")
           RichTextBox1.Invoke(Sub() RichTextBox1.Text = Encod.DocumentNode.SelectSingleNode("/html/body/div/div[2]/section/div[1]/div/div[3]/div/p").InnerText.TrimEnd)

           RichTextBox1.Invoke(Sub() RichTextBox1.Text = Encod.DocumentNode.SelectSingleNode("/html/body/div/div[2]/section/div[1]/div/div[5]/div/p").InnerText.TrimEnd)
           Button1.Invoke(Sub() Button1.Text = "تم")
           Button1.Invoke(Sub() Button1.Enabled = True)
           Exit Sub
           Exit For
       Next
   End Sub

تبقى الآن مشكلة وأنه يجلب السؤال فقط وطبعا حاولت مع اجابة السؤال اللى فى الموقع 

وفعلا جلبها لكنه يجلب أخر قيمة فقط يعنى جلب الاجابة وترك السؤال

[سعود]

إقتباس :لكنه يجلب أخر قيمة فقط يعنى جلب الاجابة وترك السؤال 

هذي سهلة لان لا توجد في الصفحة الا نودين :
 <div itemprop="text">
<div itemprop="text">


واحد للسؤال والاخر للجواب تستطيع ترك استخدام جملة For   وتستخدم الاندكس بعد علامة النود

---

PHP كود :

Private Sub getpost()
        Dim h As New HtmlAgilityPack.HtmlWeb
        Dim d As HtmlAgilityPack.HtmlDocument = h.Load("http://islamweb.net/ar/consult/index.php?page=Details&id=2446968", "Get")
        Dim nods As HtmlAgilityPack.HtmlNodeCollection = d.DocumentNode.SelectNodes("//div[@itemprop='text']")
        TextBox1.Invoke(Sub() TextBox1.Text = nods(0).InnerText & vbNewLine & nods(1).InnerText)
        Button1.Invoke(Sub() Button1.Text = "تم")
        Button1.Invoke(Sub() Button1.Enabled = True)
    End Sub 


[ابو روضة]

(10-02-21, 02:58 AM)سعود كتب :

إقتباس :لكنه يجلب أخر قيمة فقط يعنى جلب الاجابة وترك السؤال 

هذي سهلة لان لا توجد في الصفحة الا نودين :
 <div itemprop="text">
<div itemprop="text">


واحد للسؤال والاخر للجواب تستطيع ترك استخدام جملة For   وتستخدم الاندكس بعد علامة النود

---

PHP كود :

Private Sub getpost()
        Dim h As New HtmlAgilityPack.HtmlWeb
        Dim d As HtmlAgilityPack.HtmlDocument = h.Load("http://islamweb.net/ar/consult/index.php?page=Details&id=2446968", "Get")
        Dim nods As HtmlAgilityPack.HtmlNodeCollection = d.DocumentNode.SelectNodes("//div[@itemprop='text']")
        TextBox1.Invoke(Sub() TextBox1.Text = nods(0).InnerText & vbNewLine & nods(1).InnerText)
        Button1.Invoke(Sub() Button1.Text = "تم")
        Button1.Invoke(Sub() Button1.Enabled = True)
    End Sub 


تسلم إيدك والله أخى سعود ماشاء الله ولا حول ولا قوة إلا بالله...

زادك الله من واسع فضله...

[سعود]

(10-02-21, 03:26 AM)ابو روضة كتب :

(10-02-21, 02:58 AM)سعود كتب :

إقتباس :لكنه يجلب أخر قيمة فقط يعنى جلب الاجابة وترك السؤال 

هذي سهلة لان لا توجد في الصفحة الا نودين :
 <div itemprop="text">
<div itemprop="text">


واحد للسؤال والاخر للجواب تستطيع ترك استخدام جملة For   وتستخدم الاندكس بعد علامة النود

---

PHP كود :

Private Sub getpost()
        Dim h As New HtmlAgilityPack.HtmlWeb
        Dim d As HtmlAgilityPack.HtmlDocument = h.Load("http://islamweb.net/ar/consult/index.php?page=Details&id=2446968", "Get")
        Dim nods As HtmlAgilityPack.HtmlNodeCollection = d.DocumentNode.SelectNodes("//div[@itemprop='text']")
        TextBox1.Invoke(Sub() TextBox1.Text = nods(0).InnerText & vbNewLine & nods(1).InnerText)
        Button1.Invoke(Sub() Button1.Text = "تم")
        Button1.Invoke(Sub() Button1.Enabled = True)
    End Sub 


تسلم إيدك والله أخى سعود ماشاء الله ولا حول ولا قوة إلا بالله...

زادك الله من واسع فضله...

 و اياك و كل من يقرا مشاركتنا هذه

[bidaya]

اسمحولي بالتدخل اساتذتي الكرام بهذا المثال كنت اريدة المشاركة به قبل التدخل الاخير للاخ سعود 

فيمكن تكون فكرة مفيدة

[ابو روضة]

(10-02-21, 03:28 PM)bidaya كتب :

اسمحولي بالتدخل اساتذتي الكرام بهذا المثال كنت اريدة المشاركة به قبل التدخل الاخير للاخ سعود 

فيمكن تكون فكرة مفيدة

الله يكرم أصلك الطيب حبيب قلبى...

جزاك الله كل الخير.