]]> _
Public Class ScriptMain
Inherits UserComponent
Private Const ColumnSeparator As String = "," + vbCr
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Overrides Sub Input_ProcessInputRow(ByVal Row As InputBuffer)
m_sb.Length = 0
Dim colsCount As Integer = m_inputIndexes.Length
For colIndex As Integer = 0 To colsCount - 1
Dim bufIndex As Integer = m_inputIndexes(colIndex)
If Row.Buffer.IsNull(bufIndex) Then
Call m_sb.Append("\0")
Else
Call m_sb.Append(Row.Buffer(bufIndex).ToString())
End If
m_sb.Append("\n")
Next
' Setup hash.
m_crc32.Initialize()
Row.Checksum = BitConverter.ToInt32(m_crc32.ComputeHash(Encoding.Unicode.GetBytes(m_sb.ToString())), 0)
End Sub ' Input_ProcessInputRow
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Overrides Sub PreExecute()
Call MyBase.PreExecute()
Dim input As IDTSInput90 = Me.ComponentMetaData.InputCollection(0)
' Initialize.
m_sb = New StringBuilder()
m_crc32 = New CRC32()
' Setup dynamic input columns indexes.
Dim colsCount As Integer = input.InputColumnCollection.Count
m_inputIndexes = New Integer(colsCount - 1) {}
For colIndex As Integer = 0 To colsCount - 1
m_inputIndexes(colIndex) = Me.HostComponent.BufferManager.FindColumnByLineageID( _
input.Buffer, _
input.InputColumnCollection(colIndex).LineageID)
Next
End Sub ' PreExecute
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function Validate(ByRef errMessage As String) As Boolean
Dim result As Boolean
Try
If String.IsNullOrEmpty(Me.InputColumns) Then
Throw New ApplicationException("Select input columns.")
End If
' Setup input columns based on selection.
Dim selectedCols() As String = CStr(Me.InputColumns).Split( _
New String() {ColumnSeparator}, _
StringSplitOptions.None)
Dim input As IDTSInput90 = Me.ComponentMetaData.InputCollection(0)
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_READONLY)
End If
Next
result = True
Catch ex As Exception
result = False
errMessage = ex.Message
End Try
Validate = result
End Function 'Validate
#Region "Properties"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
_
_
_
Public Property InputColumns() As String
Get
InputColumns = m_inputCols
End Get
Set(ByVal value As String)
m_inputCols = value
End Set
End Property ' InputColumns
#End Region ' Properties
#Region "Internals"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Provides multiple input columns selection
Private Class ColumnsEditor
Inherits UITypeEditor
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Overrides Function EditValue( _
ByVal context As ITypeDescriptorContext, _
ByVal provider As IServiceProvider, _
ByVal value As Object) As Object
Dim result As Object = value
If Not context Is Nothing AndAlso _
Not context.Instance Is Nothing AndAlso _
Not context.PropertyDescriptor Is Nothing AndAlso _
Not provider Is Nothing Then
Dim edSvc As IWindowsFormsEditorService = CType(provider.GetService( _
GetType(IWindowsFormsEditorService)), _
IWindowsFormsEditorService)
Dim descriptor As ICustomTypeDescriptor = CType( _
context.Instance, _
ICustomTypeDescriptor)
Dim component As ScriptMain = CType( _
descriptor.GetPropertyOwner(context.PropertyDescriptor), _
ScriptMain)
Dim virtInput As IDTSVirtualInput90 = component.ComponentMetaData.InputCollection(0).GetVirtualInput()
If value Is Nothing Then
value = String.Empty
End If
' Load selected columns.
Dim selectedCols() As String = CStr(value).Split( _
New String() {ColumnSeparator}, _
StringSplitOptions.None)
' Build input columns list.
Dim clb As CheckedListBox = New CheckedListBox()
clb.CheckOnClick = True
clb.BorderStyle = BorderStyle.None
For Each virtCol As IDTSVirtualInputColumn90 In virtInput.VirtualInputColumnCollection
Dim selected As Boolean = ContainsString_(selectedCols, virtCol.Name)
Call clb.Items.Add(virtCol.Name, selected)
Next
Call edSvc.DropDownControl(clb)
' Store selected columns.
Dim selCount As Integer = clb.CheckedItems.Count
If selCount > 0 Then
selectedCols = New String(selCount - 1) {}
For selIndex As Integer = 0 To selCount - 1
Dim col As String = CStr(clb.CheckedItems(selIndex))
selectedCols(selIndex) = col
Next
Call Array.Sort(selectedCols)
result = String.Join(ColumnSeparator, selectedCols)
End If
End If
EditValue = result
End Function ' EditValue
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Overrides Function GetEditStyle( _
ByVal context As ITypeDescriptorContext) As UITypeEditorEditStyle
If Not context Is Nothing AndAlso Not context.Instance Is Nothing Then
Return UITypeEditorEditStyle.DropDown
End If
Return MyBase.GetEditStyle(context)
End Function ' GetEditStyle
#Region "Internals"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Returns true if specified string exists in array.
Private Function ContainsString_(ByVal array() As String, ByVal str As String) As Boolean
Dim result As Boolean = False
For Each item As String In array
If item = str Then
' Found match.
result = True
Exit For
End If
Next
ContainsString_ = result
End Function ' ContainsString_
#End Region ' Internals
#Region "Attributes"
#End Region ' Attributes
End Class ' ColumnsEditor
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The only purpose of this class is to limit edit in grid.
Private Class ColumnsConverter
Inherits TypeConverter
Public Sub New()
End Sub ' New
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Overrides Function CanConvertFrom( _
ByVal context As ITypeDescriptorContext, _
ByVal sourceType As Type) As Boolean
CanConvertFrom = False
End Function ' CanConvertFrom
End Class ' ColumnsConverter
#End Region ' Internals
#Region "Attributes"
Private m_inputCols As String = String.Empty
Private m_sb As StringBuilder
Private m_crc32 As CRC32
Private m_inputIndexes() As Integer
#End Region ' Attributes
End Class ' ScriptMain
]]>>= 8
m_crc = m_crc Xor m_crc32Table(CInt(tabPtr))
Next
End Sub ' HashCore
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Protected Overrides Function HashFinal() As Byte()
Dim result As Byte() = New Byte(4 - 1) {}
Dim finalCRC As ULong = m_crc Xor g_AllOnes
result(0) = CByte((finalCRC >> 24) And CULng(&HFF))
result(1) = CByte((finalCRC >> 16) And CULng(&HFF))
result(2) = CByte((finalCRC >> 8) And CULng(&HFF))
result(3) = CByte(finalCRC And CULng(&HFF))
HashFinal = result
End Function ' HashFinal
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Computes the hash value for the specified Stream.
Public Function ComputeHash(ByVal stream As Stream) As Byte()
Dim buffer As Byte() = New Byte(4096 - 1) {}
Do While True
Dim bytesRead As Integer = stream.Read(buffer, 0, 4096)
If bytesRead = 0 Then
Exit Do
End If
Call HashCore(buffer, 0, bytesRead)
Loop
ComputeHash = HashFinal()
End Function ' ComputeHash
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Overloaded. Computes the hash value for the input data.
Public Function ComputeHash(ByVal buffer As Byte()) As Byte()
ComputeHash = Me.ComputeHash(buffer, 0, buffer.Length)
End Function ' ComputeHash
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Computes the hash value for the input data.
Public Function ComputeHash( _
ByVal buffer As Byte(), _
ByVal offset As Integer, _
ByVal count As Integer) As Byte()
Call Me.HashCore(buffer, offset, count)
ComputeHash = Me.HashFinal()
End Function ' ComputeHash
#Region "Propeties"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Returns the default polynomial (used in WinZip, Ethernet, etc)
Public Shared ReadOnly Property DefaultPolynomial() As UInteger
Get
Return &H4C11DB7
End Get
End Property ' DefaultPolynomial
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Gets or sets the auto-cache setting of this class.
Public Shared Property AutoCache() As Boolean
Get
Return g_autoCache
End Get
Set(ByVal value As Boolean)
g_autoCache = value
End Set
End Property ' AutoCache
#End Region ' Propeties
#Region "Internals"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Builds a crc32 table given a polynomial
Protected Shared Function BuildCRC32Table(ByVal ulPolynomial As UInteger) As UInteger()
Dim result() As UInteger = New UInteger(255) {}
Dim dwSrc As UInteger
' 256 values representing ASCII character codes.
For i As Integer = 0 To 255
dwSrc = CUInt(i)
For j As Integer = 8 To 1 Step -1
If ((dwSrc And 1) = 1) Then
dwSrc = (dwSrc >> 1) Xor ulPolynomial
Else
dwSrc >>= 1
End If
Next
result(i) = dwSrc
Next
BuildCRC32Table = result
End Function ' BuildCRC32Table
#End Region ' Internals
#Region "Attributes"
Protected Shared g_AllOnes As UInteger
Protected Shared g_cachedCRC32Tables As Hashtable
Protected Shared g_autoCache As Boolean
Protected m_crc32Table As UInteger()
Private m_crc As UInteger
#End Region ' Attributes
End Class ' CRC32
]]>ScriptComponent_34de6a2852f74048adcd913b9e905a25trueCozyRoc.SqlServer.SSIS.ScriptComponentHostPlus, CozyRoc.SSISPlus, Version=1.0.0.0, Culture=neutral, PublicKeyToken=16cf490bb80c34ea