Flat File Source Patterns - SQL Server Integration Services Design Patterns - page 202

Public Class ScriptMain
Inherits UserComponent
Dim iRowNum As Integer = 0
Replace the code in the Input0_ProcessInputRow subroutine with the code
in Listing 7-5 .
Listing 7-5 . Building Input0_ProcessInputRow Subroutine
Public Overrides Sub Input0_ProcessInputRow(ByVal Row As
Input0Buffer)
' increment rownum
iRowNum += 1
Select Case iRowNum
Case 1
' parse
Dim sTmpCount As String = Row.ID
sTmpCount
= Strings.Trim(Strings.Left(Row.ID, Strings.InStr(Row.ID,
" ")))
Dim sTmpDate As String = Row.Name
sTmpDate = Strings.Replace(Row.Name, "
extracted ", "")
' header row
With HeaderBuffer
.AddRow()
.RowCount = Convert.ToInt32(sTmpCount)
.ExtractDateTime
= Convert.ToDateTime(sTmpDate)
End With
Case 2
' ignore
Case 3
'column names