[Share]Project Ideas

Imports System.Text.RegularExpressions
Imports System.IO
Imports System.Net
Imports System.Text
 
Public Class Form1
 
    Private EntryList As New List(Of RSSEntry)
 
    Private Structure RSSEntry
        Dim Title As String
        Dim Link As String
        Dim Author As String
        Dim PubDate As String
        Dim Description As String
 
        Sub New(ByVal t As String, ByVal l As String, ByVal a As String, ByVal pd As String, ByVal d As String)
            Me.Title = t
            Me.Link = l
            Me.Author = a
            Me.PubDate = pd
            Me.Description = d
        End Sub
    End Structure
 
    Private Sub ExtractRSS(ByVal RSSLink As String)
        Dim RSSFeed As String = GetSource(RSSLink)
        Dim mCollection As MatchCollection = Regex.Matches(RSSFeed, "(?<=<item>).*?(?=</item>)", RegexOptions.Compiled Or RegexOptions.Singleline)
        Dim EntryArray As RSSEntry() = Array.ConvertAll(mCollection.Cast(Of Match).ToArray, Function(m As Match) ParseRSSItem(m.Value))
        EntryList.AddRange(EntryArray)
    End Sub
 
    Private Function ParseRSSItem(ByVal item As String) As RSSEntry
        Dim heading As String = Regex.Match(item, "(?<=<title>).*?(?=(" & Regex.Escape("]]></title>") & "|</title>))").Value.Replace("<![CDATA[", "")
        Dim poster As String = GetBetween(item, "<dc:creator>", "</dc:creator>")
        Dim href As String = GetBetween(item, "<link>", "</link>")
        Dim pDate As String = GetBetween(item, "<pubDate>", "</pubDate>")
        Dim desc As String = GetBetween(item, "<description>", "</description>")
        If desc.StartsWith("<![CDATA[") Then desc = desc.Replace("<![CDATA[", "").Substring(0, desc.Length - ("<![CDATA[".Length + 2))
 
        Dim theEntry As New RSSEntry(heading, href, poster, pDate, desc)
        Return theEntry
    End Function
 
    Private Function GetBetween(ByVal str As String, ByVal pt1 As String, ByVal pt2 As String) As String
        Try
            Dim first As Integer = str.IndexOf(pt1) + pt1.Length
            Dim last As Integer = str.IndexOf(pt2, first)
            Dim subStr As String = str.Substring(first, last - first)
            Return subStr
        Catch ex As Exception
            Return String.Empty
        End Try
    End Function
 
    Private Function GetSource(ByVal URL As String) As String
        Dim outSource As String = String.Empty
        Using wc As New WebClient With {.Encoding = Encoding.UTF8}
            outSource = wc.DownloadString(URL)
        End Using
        Return outSource
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ExtractRSS("http://www.freelancer.com/rss.xml")
        Dim RSSArray As String() = Array.ConvertAll(EntryList.ToArray, Function(en As RSSEntry) String.Concat(en.Title, vbNewLine, en.PubDate, New String(vbNewLine, 2), en.Description, vbNewLine, "___________________"))
        RichTextBox1.Text = String.Join(New String(vbNewLine, 2), RSSArray)
    End Sub
End Class