Автор:
Артем Донцов | добавлено: 09.03.2012, 23:21 | просмотров: 2135 (1+) | комментариев:
0 | рейтинг:
x0
Простенькая RSS читалка, написана с использованием .NET Framework 4 и дополнительной библиотекой xNet для загрузки и парсинга RSS ленты.
Imports xNet.Text.StringHelper
Imports System.Text
Imports System.Net
Public Class Feed
Public URL As String
Public RSS(500) As RSSFeed
Dim Links() As String
Dim Titles() As String
Dim Description() As String
Public Structure RSSFeed
Dim URL As String
Dim Title As String
Dim Description As String
End Structure
Public Sub SubStr(ByVal source As String)
Links = source.Substrings("<link>", "</link>")
Titles = source.Substrings("<title>", "</title>")
'Description = source.Substrings("<description>", "</description>")
End Sub
Public Function GetSource()
Return xNet.Net.HttpClient.GetText(URL)
End Function
Public Sub Sort()
For i = 0 To Links.Length - 1
RSS(i).URL = Links(i)
RSS(i).Title = Titles(i)
'RSS(i).Description = Description(i)
Next
End Sub
End Class