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