]]> _
_
Public Class ScriptMain
Inherits UserComponent
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Overrides Sub CreateNewOutputRows()
Dim colsIdx As Hashtable = GetColumnsIdx_()
' Get rows.
Dim rows() As String = GetRows_(Me.Data)
Dim rowsCount As Integer = rows.Length
' Get column names.
Dim columns() As String = GetColumns_(rows(0))
Dim colsCount As Integer = columns.Length
For rowIndex As Integer = 1 To rowsCount - 1 ' First row is column names.
Call Me.OutputBuffer.AddRow()
Dim data() As String = GetColumns_(rows(rowIndex))
For colIndex As Integer = 0 To colsCount - 1
If colIndex >= data.Length Then
' This line ends earlier
Exit For
End If
Dim value As String = data(colIndex)
Dim bufIndex As Integer = CInt(colsIdx(columns(colIndex)))
If String.IsNullOrEmpty(value) Then
Call Me.OutputBuffer.Buffer.SetNull(bufIndex)
Else
Me.OutputBuffer.Buffer(bufIndex) = value
End If
Next
Next
Call Me.OutputBuffer.SetEndOfRowset()
End Sub ' CreateNewOutputRows
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function Validate(ByRef errMessage As String) As Boolean
Dim result As Boolean = True
Try
If String.IsNullOrEmpty(Me.Data) Then
Throw New Exception("Specify data.")
End If
Dim output As IDTSOutput90 = MyBase.ComponentMetaData.OutputCollection(0)
If output.OutputColumnCollection.Count = 0 Then
' Setup collection output columns.
Call SetupOutputColumns_()
End If
Catch ex As Exception
result = False
errMessage = ex.Message
End Try
Validate = result
End Function ' Validate
#Region "Properties"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
_
_
Public Property Data() As String
Get
Data = m_data
End Get
Set(ByVal value As String)
If m_data <> value Then
If Not String.IsNullOrEmpty(m_data) Then
If GetRows_(m_data)(0) <> GetRows_(value)(0) Then
' Force output columns to be setup.
If Me.ComponentMetaData.OutputCollection.Count > 0 Then
Dim output As IDTSOutput90 = Me.ComponentMetaData.OutputCollection(0)
Call output.OutputColumnCollection.RemoveAll()
End If
End If
End If
m_data = value
End If
End Set
End Property ' Data
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
_
Public Property ColumnDelimiter() As String
Get
ColumnDelimiter = m_colDelimiter
End Get
Set(ByVal value As String)
m_colDelimiter = value
End Set
End Property ' ColumnDelimiter
#End Region ' Properties
#Region "Internals"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub SetupOutputColumns_()
' First line in test data defines column names.
Dim columns() As String = GetColumns_(GetRows_(Me.Data)(0))
Dim output As IDTSOutput90 = MyBase.ComponentMetaData.OutputCollection(0)
Call output.OutputColumnCollection.RemoveAll()
For Each column As String In columns
Dim outColumn As IDTSOutputColumn90 = output.OutputColumnCollection.[New]()
outColumn.Name = column.Trim()
Call outColumn.SetDataTypeProperties(DataType.DT_WSTR, 250, 0, 0, 0)
Next
End Sub ' SetupOutputColumns_
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Setup column name -> buffer index map.
Private Function GetColumnsIdx_() As Hashtable
Dim result As Hashtable = New Hashtable
Dim output As IDTSOutput90 = Me.ComponentMetaData.OutputCollection(0)
Dim colsCount As Integer = output.OutputColumnCollection.Count
For colIndex As Integer = 0 To colsCount - 1
Dim column As IDTSOutputColumn90 = output.OutputColumnCollection(colIndex)
' Setup buffer index.
Call result.Add( _
column.Name, _
Me.HostComponent.BufferManager.FindColumnByLineageID( _
output.Buffer, _
column.LineageID))
Next
GetColumnsIdx_ = result
End Function ' GetColumnsIdx_
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Function GetRows_(ByVal data As String) As String()
GetRows_ = data.Split(New String() {vbLf}, StringSplitOptions.RemoveEmptyEntries)
End Function ' GetRows_
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Function GetColumns_(ByVal row As String) As String()
GetColumns_ = row.Split(New String() {Me.ColumnDelimiter}, StringSplitOptions.None)
End Function ' GetColumns_
#End Region ' Internals
#Region "Attributes"
Private m_data As String
Private m_colDelimiter As String
#End Region ' Attributes
End Class ' ScriptMain
]]>
ScriptComponent_221f90294f004536ba9a4d9fdf0d984d
true
CozyRoc.SqlServer.SSIS.ScriptComponentHostPlus, CozyRoc.SSISPlus, Version=1.0.0.0, Culture=neutral, PublicKeyToken=16cf490bb80c34ea