سورس Rss

[YasserDivaR]

سلام دوستان
من یه سری سورس RSS می خوام که فید سایت رو بخونه و نمایش بده و همچنین پست رو نمایش بده و لینک هم نمایش بده، ممنون میشم کمکم کنید
زیاد باشه لطفا

[meys34]

گوگل سرچ کردی چیزی پیدا نکردی؟

آخه سوال شما خیلی کلی هست و راحت مطلب در موردش پیدا میشه...

اگر مشکلی در اجرای کد دارید یا می خوایید کد هایی که هست رو به چیزی که میخواید تغییر بدید،
بایستی بیشتر در موردش توضیح بدید تا اساتید سایت درست متوجه منظورتون بشن...

برای دسترسی کلی به rss اینو امتحان کنید ببینید جواب میده:

Private rss As Object

Private Sub Form_Load()
Set rss = CreateObject("msxml2.domdocument")
rss.async = False
rss.Load ("http://www.developerfusion.com/rss/contentrss.aspx?type=articles&language=all")
Set myItem = rss.getElementsByTagName("item")
For i = 0 To myItem.length - 1
List1.AddItem myItem(i).getElementsByTagName( "title" ).Item(0).firstChild.nodeValue
Next i
End Sub


Private Sub List1_Click()
Text1.Text = rss.getElementsByTagName( "item" ).Item(List1.ListIndex).getElementsByTagName( "title" ).Item(0).firstChild.nodeValue
Text2.Text = rss.getElementsByTagName( "item" ).Item(List1.ListIndex).getElementsByTagName( "link" ).Item(0).firstChild.nodeValue
Text3.Text = rss.getElementsByTagName( "item" ).Item(List1.ListIndex).getElementsByTagName( "description" ).Item(0).firstChild.nodeValue
Text4.Text = rss.getElementsByTagName( "item" ).Item(List1.ListIndex).xml


End Sub

منبع:http://www.developerfusion.com/thread/21793/rss-reader/

[YasserDivaR]

میخوام تصاویر و کلیه فایل های موجود رو هم درون یک webbrowser
نمایش بده و فارسی رو هم ساپورت کنه
سورسی که ارسال کردین درسته
ولی یه جوری باشه که تصاویر موجود رو هم نمایش بده

[meys34]

فارسی رو هم ساپورت کنه

سلام

لینک rss رو بگید لطفا...

[YasserDivaR]

http://hexofking.parsiblog.com/rss

تصویر رو هم نشون بده

[meys34]

Private rss As Object

Private Sub Form_Load()

Dim myItem As Object

Set rss = CreateObject("msxml2.domdocument")
rss.async = False
rss.Load ("http://hexofking.parsiblog.com/rss")
Set myItem = rss.getElementsByTagName("item")

Dim HtmlData As String
For i = 0 To myItem.length - 1
HtmlData = HtmlData & _
"<h2 style='border-bottom: 1px solid #CCCCCC;'><a href='" & _
myItem(i).getElementsByTagName( "link" ).Item(0).firstChild.nodeValue & "'>" & _
myItem(i).getElementsByTagName( "title" ).Item(0).firstChild.nodeValue & _
"</a></h2>" & _
myItem(i).getElementsByTagName( "description" ).Item(0).firstChild.nodeValue & "<br><br>"
Next i

Set myItem = Nothing


WebBrowser1.Silent = True
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.Write HtmlData
WebBrowser1.Document.body.Style.direction = "rtl"
End Sub

[YasserDivaR]

سلام میشه توضیح بدین که msxml2.domdocument باید از قسمت رفرنس لود کرد
اسم دقیقش چیه

[meys34]

سرچ کردم:

Microsoft XML

من 6 رو انتخاب کردم...

Microsoft XML,v6.0

Private rss As New MSXML2.DOMDocument60

[YasserDivaR]

HtmlData = HtmlData & _
"<h2 style='border-bottom: 1px solid #CCCCCC;'><a href='" & _
myItem(i).getElementsByTagName("link").Item(0).fir stChild.nodeValue & "'>" & _
myItem(i).getElementsByTagName("title").Item(0).fi rstChild.nodeValue & _
"</a></h2>" & _
myItem(i).getElementsByTagName("description").Item (0).firstChild.nodeValue & ""






ارور syntax میده دوست عزیز

[YasserDivaR]

کسی میتونه نمونه سورس بزاره

[meys34]

بله ببخشید حق با شماست...

ولی مشکل از ادیتور سایت مون هست....

دقت کنید:
myItem(i).getElementsByTagName("link").Item(0).firstChild.nodeValue
جاهایی که پرانتز در کنار علامت " هست کلمه بعدی میریزه به هم...

درستش اینه که باید یه فاصله بین پرانتز و " باشه تا با ادیتور سایت مشکل پیدا نکنه:
myItem(i).getElementsByTagName( "link" ).Item(0).firstChild.nodeValue

اگر دقت کنید تو پست اولی که دادم این مورد رو حواسم بوده و رعایت کردم...

به هر حال پست بالایی رو اصلاح کردم یکبار دیگه امتحان کنید...