_
_
_
Public Class ScriptMain
Inherits UserComponent
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Overrides Sub Input_ProcessInputRow(ByVal Row As InputBuffer)
Row.Soundex = Soundex_(Row.Buffer(m_inputIndex).ToString())
End Sub ' Input_ProcessInputRow
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Overrides Sub PreExecute()
Call MyBase.PreExecute()
Dim input As IDTSInput100 = Me.ComponentMetaData.InputCollection(0)
' Find input column index.
m_inputIndex = Me.HostComponent.BufferManager.FindColumnByLineageID( _
input.Buffer, _
input.InputColumnCollection(Me.InputColumn).LineageID)
End Sub ' PreExecute
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function Validate(ByRef errMessage As String) As Boolean
Dim result As Boolean = True
Try
If String.IsNullOrEmpty(Me.InputColumn) Then
Throw New Exception("Select input column.")
End If
Dim managedComponent As CManagedComponentWrapper = Me.ComponentMetaData.Instantiate()
Dim input As IDTSInput100 = Me.ComponentMetaData.InputCollection(0)
Dim virtInput As IDTSVirtualInput100 = input.GetVirtualInput()
Call input.InputColumnCollection.RemoveAll()
' Setup selected input column.
Dim inputColumn As IDTSInputColumn100 = managedComponent.SetUsageType( _
input.ID, _
virtInput, _
virtInput.VirtualInputColumnCollection(Me.InputColumn).LineageID, _
DTSUsageType.UT_READONLY)
Catch ex As Exception
result = False
errMessage = ex.Message
End Try
Validate = result
End Function 'Validate
#Region "Properties"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
_
_
Public Property InputColumn() As String
Get
InputColumn = m_inputColumn
End Get
Set(ByVal value As String)
m_inputColumn = value
End Set
End Property ' InputColumn
#End Region ' Properties
#Region "Internals"
Private Function Soundex_(ByVal data As String) As String
Dim result As StringBuilder = New StringBuilder()
If Not String.IsNullOrEmpty(data) Then
data = data.ToLower()
Call result.Append(data(0))
Dim prevCode As Integer = -1
Dim length As Integer = data.Length
For i As Integer = 1 To length - 1
Dim letter As Char = data(i)
Dim code As Integer = -1
If "bfpv".IndexOf(letter) > -1 Then
code = 1
ElseIf "cgjkqsxz".IndexOf(letter) > -1 Then
code = 2
ElseIf "dt".IndexOf(letter) > -1 Then
code = 3
ElseIf letter = "l"c Then
code = 4
ElseIf "mn".IndexOf(letter) > -1 Then
code = 5
ElseIf letter = "r"c Then
code = 6
Else
Continue For
End If
If code <> prevCode Then
Call result.Append(code)
End If
If result.Length = 4 Then
Exit For
End If
If code <> -1 Then
prevCode = code
End If
Next
End If
If result.Length < 4 Then
Call result.Append(New String("0"c, 4 - result.Length))
End If
Soundex_ = result.ToString().ToUpper()
End Function ' Soundex_
#End Region ' Internals
#Region "Attributes"
Private m_inputColumn As String
Private m_inputIndex As Integer
#End Region ' Attributes
End Class ' ScriptMain
]]> _
Public Class InputBuffer
Inherits ScriptBufferPlus
Public Sub New(ByVal Component As ScriptComponent, ByVal ObjectID As Integer, ByVal IsInput As Boolean, ByVal Buffer As PipelineBuffer, ByVal OutputMap As OutputNameMap)
MyBase.New(Component, ObjectID, IsInput, Buffer, OutputMap)
End Sub
Public Overrides ReadOnly Property StaticInputColumns() As String()
Get
Return New String() {}
End Get
End Property
Public WriteOnly Property [Soundex]() As String
Set
Me(0) = Value
End Set
End Property
Public WriteOnly Property [Soundex_IsNull] As Boolean
Set
If (value)
SetNull(0)
Else
Throw new InvalidOperationException("IsNull property cannot be set to False. Assign a value to the column instead.")
End If
End Set
End Property
Public Overrides ReadOnly Property StaticOutputColumns() As String()
Get
Return New String() {"Soundex"}
End Get
End Property
Public Overloads Function NextRow() As Boolean
NextRow = MyBase.NextRow()
End Function
Public Overloads Function EndOfRowset() As Boolean
EndOfRowset = MyBase.EndOfRowset
End Function
End Class
]]>{30D016F9-3734-4E33-A861-5E7D899E18F3};{F184B08F-C81C-45F6-A57F-5ABD9991F28F}DebugAnyCPU8.0.307032.0{DC551CC7-337F-4162-B820-88DE594910C8}LibraryMy ProjectScriptComponent_28a12860c6ab4329a9aa37f15b4a2dd8ScriptComponent_28a12860c6ab4329a9aa37f15b4a2dd8v4.0512truefullfalse.\bin\Debug\falsetruetrueprompt4falsetrue.\bin\Release\falsefalsetrueprompt4FalseC:\Program Files (x86)\Microsoft SQL Server\110\SDK\Assemblies\CozyRoc.SSISPlus.2012.dllSSIS_SC110BinaryOnOn]]> _
Public Class UserComponent
Inherits ScriptComponentPlus
Public Connections As New Connections(Me)
Public Variables As New Variables(Me)
Public Overrides Sub ProcessInput(ByVal InputID As Integer, ByVal InputName As String, ByVal Buffer As PipelineBuffer, ByVal OutputMap As OutputNameMap)
If InputID = MyBase.ComponentMetaData.InputCollection("Input").ID Then
Input_ProcessInput(New InputBuffer(Me, InputID, True, Buffer, OutputMap))
End If
End Sub
Public Overridable Sub Input_ProcessInput(ByVal Buffer As InputBuffer)
While Buffer.NextRow()
Input_ProcessInputRow(Buffer)
End While
End Sub
Public Overridable Sub Input_ProcessInputRow(ByVal Row As InputBuffer)
End Sub
End Class
Public Class Connections
Dim ParentComponent As ScriptComponent
_
Public Sub New(ByVal Component As ScriptComponent)
ParentComponent = Component
End Sub
End Class
Public Class Variables
Dim ParentComponent As ScriptComponent
_
Public Sub New(ByVal Component As ScriptComponent)
ParentComponent = Component
End Sub
End Class
]]>msBuildReference;Import;Folder{7C1A2FEC-AA1E-43B9-BDAD-094E6F2D2313}ScriptComponent_28a12860c6ab4329a9aa37f15b4a2dd8ScriptComponent_28a12860c6ab4329a9aa37f15b4a2dd8]]>CozyRoc.SqlServer.SSIS.ScriptComponentHostPlus, CozyRoc.SSISPlus.2012, Version=1.0.0.0, Culture=neutral, PublicKeyToken=16cf490bb80c34eaScriptComponent_28a12860c6ab4329a9aa37f15b4a2dd8VisualBasic