]]> _
_
Public Class ScriptMain
Inherits UserComponent
Private Const ColumnSeparator As String = "," + vbLf
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Overrides Sub Input_ProcessInputRow(ByVal Row As InputBuffer)
Dim colsCount As Integer = m_inputIdx.Length
For colIndex As Integer = 0 To colsCount - 1
Dim bufIndex As Integer = m_inputIdx(colIndex)
If Row.Buffer.IsNull(bufIndex) Then
Continue For
End If
Dim colValue As String = Row.Buffer.GetString(bufIndex)
Select Case Me.Action
Case ActionTypes.Trim
colValue = colValue.Trim(m_trimParam)
Case ActionTypes.TrimStart
colValue = colValue.TrimStart(m_trimParam)
Case ActionTypes.TrimEnd
colValue = colValue.TrimEnd(m_trimParam)
End Select
Call Row.Buffer.SetString(bufIndex, colValue)
Next
End Sub ' Input_ProcessInputRow
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Overrides Sub PreExecute()
Call MyBase.PreExecute()
Dim input As IDTSInput90 = Me.ComponentMetaData.InputCollection(0)
' Setup dynamic input columns indexes.
Dim colsCount As Integer = input.InputColumnCollection.Count
m_inputIdx = New Integer(colsCount - 1) {}
For colIndex As Integer = 0 To colsCount - 1
m_inputIdx(colIndex) = Me.HostComponent.BufferManager.FindColumnByLineageID( _
input.Buffer, _
input.InputColumnCollection(colIndex).LineageID)
Next
If Not String.IsNullOrEmpty(Me.TrimCharacters) Then
' Trim characters specified.
m_trimParam = Regex.Unescape(Me.TrimCharacters).ToCharArray()
End If
End Sub ' PreExecute
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function Validate(ByRef errMessage As String) As Boolean
Dim result As Boolean
Try
Dim input As IDTSInput90 = Me.ComponentMetaData.InputCollection(0)
' Setup input columns based on selection.
Dim selectedCols() As String = CStr(Me.InputColumns).Split( _
New String() {ColumnSeparator}, _
StringSplitOptions.None)
Dim virtInput As IDTSVirtualInput90 = input.GetVirtualInput()
Call input.InputColumnCollection.RemoveAll()
For Each col As String In selectedCols
If Not String.IsNullOrEmpty(col) Then
Dim virtColumn As IDTSVirtualInputColumn90 = virtInput.VirtualInputColumnCollection(col)
Call virtInput.SetUsageType(virtColumn.LineageID, DTSUsageType.UT_READWRITE)
End If
Next
result = True
Catch ex As Exception
result = False
errMessage = ex.Message
End Try
Validate = result
End Function 'Validate
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Overrides Sub OnInputPathAttached(ByVal inputID As Integer)
Call MyBase.OnInputPathAttached(inputID)
' Initialize with all string columns selected.
Dim input As IDTSInput90 = MyBase.ComponentMetaData.InputCollection(0)
Dim virtInput As IDTSVirtualInput90 = input.GetVirtualInput()
For Each column As IDTSVirtualInputColumn90 In virtInput.VirtualInputColumnCollection
If column.DataType <> DataType.DT_STR AndAlso _
column.DataType <> DataType.DT_WSTR AndAlso _
column.DataType <> DataType.DT_TEXT AndAlso _
column.DataType <> DataType.DT_NTEXT Then
Continue For
End If
' String column.
Call virtInput.SetUsageType(column.LineageID, DTSUsageType.UT_READWRITE)
Next
End Sub ' OnInputPathAttached
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Overrides Sub OnInputPathDetached(ByVal inputID As Integer)
MyBase.OnInputPathDetached(inputID)
Dim input As IDTSInput90 = MyBase.ComponentMetaData.InputCollection(0)
Call input.InputColumnCollection.RemoveAll()
End Sub
#Region "Properties"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
_
_
Public Property InputColumns() As String
Get
InputColumns = m_inputCols
End Get
Set(ByVal value As String)
Dim input As IDTSInput90 = MyBase.ComponentMetaData.InputCollection(0)
If input.IsAttached Then
If String.IsNullOrEmpty(value) Then
' Setup based on input columns collection.
value = GetInputCols_()
End If
Else
' Reset when no input is attached.
value = String.Empty
End If
m_inputCols = value
End Set
End Property ' InputColumns
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
_
Public Property Action() As ActionTypes
Get
Action = m_action
End Get
Set(ByVal value As ActionTypes)
m_action = value
End Set
End Property ' Action
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
_
Public Property TrimCharacters() As String
Get
TrimCharacters = m_trimChars
End Get
Set(ByVal value As String)
m_trimChars = value
End Set
End Property ' TrimCharacters
#End Region ' Properties
#Region "Internals"
Private Function GetInputCols_() As String
Dim result As String = String.Empty
Dim input As IDTSInput90 = MyBase.ComponentMetaData.InputCollection(0)
For Each column As IDTSInputColumn90 In input.InputColumnCollection
If Not String.IsNullOrEmpty(result) Then
result += ColumnSeparator
End If
result += column.Name
Next
GetInputCols_ = result
End Function ' GetInputCols_
#End Region ' Internals
#Region "Attributes"
Public Enum ActionTypes
Trim
TrimStart
TrimEnd
End Enum ' ActionTypes
Private m_inputCols As String = String.Empty
Private m_action As ActionTypes = ActionTypes.Trim
Private m_trimChars As String
Private m_inputIdx() As Integer
Private m_trimParam() As Char = Nothing
#End Region ' Attributes
End Class ' ScriptMain
]]>ScriptComponent_122fabc5dc8041c39ddd5498cae718bftrueCozyRoc.SqlServer.SSIS.ScriptComponentHostPlus, CozyRoc.SSISPlus, Version=1.0.0.0, Culture=neutral, PublicKeyToken=16cf490bb80c34ea