]]> _
_
Public Class ScriptMain
Inherits UserComponent
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Overrides Sub Input_ProcessInputRow(ByVal Row As InputBuffer)
Dim matches As MatchCollection = m_regex.Matches(Row.Buffer(m_inputColumn).ToString())
For Each match As Match In matches
Call Me.OutputBuffer.AddRow()
' Extract group values.
For Each pair As DictionaryEntry In m_outColsIdx
Dim group As Group = match.Groups(CStr(pair.Key))
If group.Success Then
Me.OutputBuffer.Buffer(CInt(pair.Value)) = group.Value
End If
Next
Next
End Sub ' Input_ProcessInputRow
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Overrides Sub PreExecute()
Call MyBase.PreExecute()
' Setup regular expression.
m_regex = New Regex( _
Me.Pattern, _
RegexOptions.Compiled Or RegexOptions.IgnoreCase Or _
RegexOptions.Singleline Or RegexOptions.CultureInvariant)
' Setup input column.
Dim input As IDTSInput90 = Me.ComponentMetaData.InputCollection(0)
m_inputColumn = Me.HostComponent.BufferManager.FindColumnByLineageID( _
input.Buffer, _
input.InputColumnCollection(Me.Column).LineageID)
' Setup output columns.
m_outColsIdx = 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 m_outColsIdx.Add( _
column.Name, _
Me.HostComponent.BufferManager.FindColumnByLineageID( _
output.Buffer, _
column.LineageID))
Next
End Sub ' PreExecute
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function Validate(ByRef errMessage As String) As Boolean
Dim result As Boolean = True
Try
If String.IsNullOrEmpty(Me.Column) Then
Throw New ApplicationException("Select input column.")
End If
If String.IsNullOrEmpty(Me.Pattern) Then
Throw New ApplicationException("Specify regular expression.")
End If
' Setup input columns based on selection.
Dim input As IDTSInput90 = Me.ComponentMetaData.InputCollection(0)
Call input.InputColumnCollection.RemoveAll()
Dim virtInput As IDTSVirtualInput90 = input.GetVirtualInput()
Dim virtColumn As IDTSVirtualInputColumn90 = virtInput.VirtualInputColumnCollection(Me.Column)
Call virtInput.SetUsageType(virtColumn.LineageID, DTSUsageType.UT_READONLY)
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 Column() As String
Get
Column = m_column
End Get
Set(ByVal value As String)
m_column = value
End Set
End Property ' Column
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
_
_
Public Property Pattern() As String
Get
Pattern = m_pattern
End Get
Set(ByVal value As String)
If m_pattern <> value Then
If Not String.IsNullOrEmpty(m_pattern) Then
' Force output columns to be setup.
Dim output As IDTSOutput90 = Me.ComponentMetaData.OutputCollection(0)
Call output.OutputColumnCollection.RemoveAll()
End If
m_pattern = value
End If
End Set
End Property ' Pattern
#End Region ' Properties
#Region "Internals"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub SetupOutputColumns_()
' Get group names.
Dim regex As Regex = New Regex(Me.Pattern)
Dim groups() As String = regex.GetGroupNames()
Dim output As IDTSOutput90 = Me.ComponentMetaData.OutputCollection(0)
Call output.OutputColumnCollection.RemoveAll()
Dim groupsCount As Integer = groups.Length
For groupIndex As Integer = 1 To groupsCount - 1 ' First group refers to the whole input.
Dim column As IDTSOutputColumn90 = output.OutputColumnCollection.[New]()
column.Name = groups(groupIndex)
Call column.SetDataTypeProperties(DataType.DT_WSTR, 250, 0, 0, 0)
Next
End Sub ' SetupOutputColumns_
#End Region ' Internals
#Region "Attributes"
Private m_column As String
Private m_pattern As String
Private m_regex As Regex
Private m_inputColumn As Integer
Private m_outColsIdx As Hashtable
#End Region ' Attributes
End Class ' ScriptMain
]]>ScriptComponent_a47b3d3b8dc346a1bae8d2cff6cfc479trueCozyRoc.SqlServer.SSIS.ScriptComponentHostPlus, CozyRoc.SSISPlus, Version=1.0.0.0, Culture=neutral, PublicKeyToken=16cf490bb80c34ea