میلاد علوی
چهارشنبه 06 اسفند 1393, 15:40 عصر
با عرض سلام من کد زیر رو برای لود rss استفاده می کنم اما برای لود لینک خبر ها ارور میده چکار کنم
لطفا کمکم کنید
Set RSSss = CreateObject("msxml2.domdocument")
RSSss.async = False
RSSss.Load ("http://www.iribnews.ir/RSS/RSS_AllSiteNews.aspx")
Me.Refresh
Set myItem = RSSss.getElementsByTagName("item")
ListView1.ListItems.Clear
For i = 0 To myItem.Length - 1
ListView1.ListItems.Add i + 1, , myItem(i).getElementsByTagName("title").Item(0).FirstChild.nodeValue
ListView1.ListItems(i + 1).ListSubItems.Add 1, , myItem(i).getElementsByTagName("LINK").Item(1).FirstChild.nodeValue
ListView1.ListItems(i + 1).ListSubItems.Add 2, , myItem(i).getElementsByTagName("description").Item(0).FirstChild.nodeValue
ListView1.ListItems(i + 1).ListSubItems.Add 3, , myItem(i).getElementsByTagName("pubDate").Item(0).FirstChild.nodeValue
Next i
لطفا کمکم کنید
Set RSSss = CreateObject("msxml2.domdocument")
RSSss.async = False
RSSss.Load ("http://www.iribnews.ir/RSS/RSS_AllSiteNews.aspx")
Me.Refresh
Set myItem = RSSss.getElementsByTagName("item")
ListView1.ListItems.Clear
For i = 0 To myItem.Length - 1
ListView1.ListItems.Add i + 1, , myItem(i).getElementsByTagName("title").Item(0).FirstChild.nodeValue
ListView1.ListItems(i + 1).ListSubItems.Add 1, , myItem(i).getElementsByTagName("LINK").Item(1).FirstChild.nodeValue
ListView1.ListItems(i + 1).ListSubItems.Add 2, , myItem(i).getElementsByTagName("description").Item(0).FirstChild.nodeValue
ListView1.ListItems(i + 1).ListSubItems.Add 3, , myItem(i).getElementsByTagName("pubDate").Item(0).FirstChild.nodeValue
Next i