]]> _
Public Class ScriptMain
Inherits UserComponent
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Overrides Sub CreateNewOutputRows()
' Load RSS.
Dim conn As HttpClientConnection = New HttpClientConnection( _
Me.Connections.Http.AcquireConnection(Nothing))
Dim doc As XmlDocument = New XmlDocument()
Using rssStream As Stream = New MemoryStream(conn.DownloadData())
Call doc.Load(rssStream)
End Using
' Push items.
Dim dateString As String
Dim itemsList As XmlNodeList = doc.SelectNodes("rss/channel/item")
For Each item As XmlElement In itemsList
Call Me.OutputBuffer.AddRow()
Me.OutputBuffer.title = GetText_(item("title"))
Me.OutputBuffer.link = GetText_(item("link"))
Me.OutputBuffer.description = GetText_(item("description"))
Me.OutputBuffer.author = GetText_(item("author"))
Me.OutputBuffer.comments = GetText_(item("comments"))
Me.OutputBuffer.guid = GetText_(item("guid"))
' Set pubDate
dateString = GetText_(item("pubDate"))
If Not String.IsNullOrEmpty(dateString) Then
Me.OutputBuffer.pubDate = Convert.ToDateTime(dateString)
End If
' Set source.
Dim sourceElem As XmlElement = item("source")
If Not sourceElem Is Nothing Then
Me.OutputBuffer.source = sourceElem.GetAttribute("url")
End If
Next
End Sub ' CreateNewOutputRows
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function Validate(ByRef errMessage As String) As Boolean
Dim result As Boolean
Try
If String.IsNullOrEmpty(Me.Connection) Then
Throw New ApplicationException("Specify HTTP connection.")
End If
' Store connection information in the runtime connection collection, too.
' Cannot directly use RuntimeConnectionCollection in the property get/set
' because of issues with multi-threading.
Me.ComponentMetaData.RuntimeConnectionCollection("Http").ConnectionManagerID = Me.Connection
result = True
Catch ex As Exception
result = False
errMessage = ex.Message
End Try
Validate = result
End Function 'Validate
#Region "Properties"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
_
_
Public Property Connection() As String
Get
Connection = m_connection
End Get
Set(ByVal value As String)
m_connection = value
End Set
End Property ' Connection
#End Region ' Properties
#Region "Internals"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private ReadOnly Property HttpConnectionType() As String()
Get
HttpConnectionType = New String() {"HTTP"}
End Get
End Property ' HttpConnectionType
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Function GetText_(ByVal element As XmlElement) As String
Dim result As String
If Not element Is Nothing Then
result = element.InnerText
If result.Length > 4000 Then
' Maximum 4000 characters are supported in data flow.
result = result.Substring(0, 4000)
End If
End If
GetText_ = result
End Function ' GetText_
#End Region ' Internals
#Region "Attributes"
Private m_connection As String
#End Region ' Attributes
End Class ' ScriptMain
]]>
ScriptComponent_d0fb2347c68b42f3a13264adbe57442e
true
CozyRoc.SqlServer.SSIS.ScriptComponentHostPlus, CozyRoc.SSISPlus, Version=1.0.0.0, Culture=neutral, PublicKeyToken=16cf490bb80c34ea