]]> _
_
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
Try
Dim colValue As String = Row.Buffer.GetString(bufIndex)
Dim dt As DateTime
If DateTime.TryParse(colValue, m_inCulture, m_dts, dt) Then
Call Row.Buffer.SetString(bufIndex, dt.ToString(Me.Format, m_outCulture))
Else
Call FireWarning_(String.Format("Failed to parse date: {0}", colValue))
End If
Catch ex As Exception
Call FireError_(ex.Message)
End Try
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
m_inCulture = CultureInfo.GetCultureInfo(m_icid)
m_outCulture = CultureInfo.GetCultureInfo(m_ocid)
' Initialize parse options.
m_dts = DateTimeStyles.None
Dim optionsList() As String = CStr(Me.Options).Split( _
New String() {ColumnSeparator}, _
StringSplitOptions.None)
For Each opt As String In optionsList
m_dts = m_dts Or CType( _
System.Enum.Parse(GetType(DateTimeStyles), opt), _
DateTimeStyles)
Next
End Sub ' PreExecute
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function Validate(ByRef errMessage As String) As Boolean
Dim result As Boolean
Try
If String.IsNullOrEmpty(Me.Columns) Then
Throw New Exception("Select input columns.")
End If
Dim input As IDTSInput90 = Me.ComponentMetaData.InputCollection(0)
' Setup input columns based on selection.
Dim selectedCols() As String = CStr(Me.Columns).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
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Returns list of available cultures.
Public Function GetCultures() As Object()
Dim result As New ArrayList()
Dim cultures() As CultureInfo = CultureInfo.GetCultures(CultureTypes.AllCultures)
For Each culture As CultureInfo In cultures
Call result.Add(culture.DisplayName)
Next
GetCultures = result.ToArray()
End Function ' GetCultures
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function GetDateParseOptions() As Object()
GetDateParseOptions = System.Enum.GetNames(GetType(DateTimeStyles))
End Function ' GetDateParseOptions
#Region "Properties"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
_
_
_
Public Property Columns() As String
Get
Columns = m_inputCols
End Get
Set(ByVal value As String)
m_inputCols = value
End Set
End Property ' Columns
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
_
_
_
Public Property InputCulture() As String
Get
InputCulture = CultureInfo.GetCultureInfo(m_icid).DisplayName
End Get
Set(ByVal value As String)
m_icid = GetIdFromDisplayName_(value)
End Set
End Property ' InputCulture
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
_
_
_
_
Public Property Options() As String
Get
Options = m_options
End Get
Set(ByVal value As String)
m_options = value
End Set
End Property ' Options
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
_
_
_
Public Property OutputCulture() As String
Get
OutputCulture = CultureInfo.GetCultureInfo(m_ocid).DisplayName
End Get
Set(ByVal value As String)
m_ocid = GetIdFromDisplayName_(value)
End Set
End Property ' OutputCulture
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
_
_
Public Property Format() As String
Get
Format = m_format
End Get
Set(ByVal value As String)
m_format = value
End Set
End Property ' Format
#End Region ' Properties
#Region "Internals"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub FireError_(ByVal message As String)
Dim cancel As Boolean = False
Call MyBase.ComponentMetaData.FireError( _
0, _
"Date Format", _
message, _
String.Empty, _
0, _
cancel)
End Sub ' FireError_
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub FireWarning_(ByVal message As String)
Call MyBase.ComponentMetaData.FireWarning( _
0, _
"Date Format", _
message, _
String.Empty, _
0)
End Sub ' FireError_
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Function GetIdFromDisplayName_(ByVal displayName As String) As Integer
Dim result As Integer = CultureInfo.CurrentCulture.LCID
If Not String.IsNullOrEmpty(displayName) Then
Dim cultures() As CultureInfo = CultureInfo.GetCultures(CultureTypes.AllCultures)
For Each culture As CultureInfo In cultures
If culture.DisplayName.Equals(displayName) Then
' Found culture.
result = culture.LCID
Exit For
End If
Next
End If
GetIdFromDisplayName_ = result
End Function ' GetIdFromDisplayName_
#End Region ' Internals
#Region "Attributes"
Private m_inputCols As String = String.Empty
Private m_icid As Integer = CultureInfo.CurrentCulture.LCID
Private m_options As String
Private m_ocid As Integer = CultureInfo.CurrentCulture.LCID
Private m_format As String
Private m_inputIdx() As Integer
Private m_inCulture As CultureInfo
Private m_outCulture As CultureInfo
Private m_dts As DateTimeStyles
#End Region ' Attributes
End Class ' ScriptMain
]]>ScriptComponent_64d53ca642cd4993b6263101b072b016trueCozyRoc.SqlServer.SSIS.ScriptComponentHostPlus, CozyRoc.SSISPlus, Version=1.0.0.0, Culture=neutral, PublicKeyToken=16cf490bb80c34ea