]]> _
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 IDTSInput90 = 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 IDTSInput90 = Me.ComponentMetaData.InputCollection(0)
Dim virtInput As IDTSVirtualInput90 = input.GetVirtualInput()
Call input.InputColumnCollection.RemoveAll()
' Setup selected input column.
Dim inputColumn As IDTSInputColumn90 = 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
]]>ScriptComponent_28a12860c6ab4329a9aa37f15b4a2dd8trueCozyRoc.SqlServer.SSIS.ScriptComponentHostPlus, CozyRoc.SSISPlus, Version=1.0.0.0, Culture=neutral, PublicKeyToken=16cf490bb80c34ea