09-02-21, 11:55 PM
(09-02-21, 11:50 PM)ابو روضة كتب : [ -> ]يا سلام عليك أخى سعود " رجل المواقف الصعبة حقاً "
بس مش عارف ليه ظهرت لى هكذا ؟
اكيد الترميز و حله بسيط هل استخدمت الـ ملف htmlal ؟
ام غيره؟
اقصد كيف جلبت النص؟
الصفحات : 1 2
09-02-21, 11:59 PM
10-02-21, 02:45 AM
فضلت معاها والحمدلله أخى سعود عدلت على الكود بتاعك....
كود :
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تبقى الآن مشكلة وأنه يجلب السؤال فقط وطبعا حاولت مع اجابة السؤال اللى فى الموقع
وفعلا جلبها لكنه يجلب أخر قيمة فقط يعنى جلب الاجابة وترك السؤال 
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
تسلم إيدك والله أخى سعود ماشاء الله ولا حول ولا قوة إلا بالله...
زادك الله من واسع فضله...
10-02-21, 03:44 AM
(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
تسلم إيدك والله أخى سعود ماشاء الله ولا حول ولا قوة إلا بالله...زادك الله من واسع فضله...
و اياك و كل من يقرا مشاركتنا هذه
10-02-21, 03:28 PM
10-02-21, 07:42 PM
الصفحات : 1 2