+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : قراءة صفحات الانترنت على RichTextBox (/showthread.php?tid=29384)
الصفحات:
1
2
RE: قراءة صفحات الانترنت على RichTextBox - سعود - 09-02-21
(09-02-21, 11:50 PM)ابو روضة كتب : يا سلام عليك أخى سعود " رجل المواقف الصعبة حقاً "
بس مش عارف ليه ظهرت لى هكذا ؟
اكيد الترميز و حله بسيط هل استخدمت الـ ملف htmlal ؟
ام غيره؟
اقصد كيف جلبت النص؟
RE: قراءة صفحات الانترنت على RichTextBox - ابو روضة - 09-02-21
(09-02-21, 11:55 PM)سعود كتب : اكيد الترميز و حله بسيط هل استخدمت الـ ملف htmlal ؟
ام غيره؟
اقصد كيف جلبت النص؟
بعد التعديل البسيط أنظر للمشروع وقت ما وقت حضرتك يسمع لو سمحت طبعا....
RE: قراءة صفحات الانترنت على RichTextBox - ابو روضة - 10-02-21
فضلت معاها والحمدلله أخى سعود عدلت على الكود بتاعك....
كود :
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تبقى الآن مشكلة وأنه يجلب السؤال فقط وطبعا حاولت مع اجابة السؤال اللى فى الموقع
وفعلا جلبها لكنه يجلب أخر قيمة فقط يعنى جلب الاجابة وترك السؤال 
RE: قراءة صفحات الانترنت على RichTextBox - سعود - 10-02-21
إقتباس :لكنه يجلب أخر قيمة فقط يعنى جلب الاجابة وترك السؤالهذي سهلة لان لا توجد في الصفحة الا نودين :
<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
RE: قراءة صفحات الانترنت على RichTextBox - ابو روضة - 10-02-21
(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
تسلم إيدك والله أخى سعود ماشاء الله ولا حول ولا قوة إلا بالله...
زادك الله من واسع فضله...
RE: قراءة صفحات الانترنت على RichTextBox - سعود - 10-02-21
(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
تسلم إيدك والله أخى سعود ماشاء الله ولا حول ولا قوة إلا بالله...زادك الله من واسع فضله...
و اياك و كل من يقرا مشاركتنا هذه
RE: قراءة صفحات الانترنت على RichTextBox - bidaya - 10-02-21
اسمحولي بالتدخل اساتذتي الكرام بهذا المثال كنت اريدة المشاركة به قبل التدخل الاخير للاخ سعود
فيمكن تكون فكرة مفيدة
RE: قراءة صفحات الانترنت على RichTextBox - ابو روضة - 10-02-21
(10-02-21, 03:28 PM)bidaya كتب :اسمحولي بالتدخل اساتذتي الكرام بهذا المثال كنت اريدة المشاركة به قبل التدخل الاخير للاخ سعود
فيمكن تكون فكرة مفيدة
الله يكرم أصلك الطيب حبيب قلبى...
جزاك الله كل الخير.