Coming back to Script Component.

Scenario:

We have a text file and we need to read each row and the output would have multiple rows per row in the input file.

Input File:

"201001","1;3"
"201002","1;2;3;4"

2010-01-01	01
2010-01-03	03
2010-02-01	01
2010-02-02	02
2010-02-03	03
2010-02-04	04

Solution:

Check this post to see how to setup the Script Component.

Code to be used-

C#

using System;
using System.Data;
using Microsoft.SqlServer.Dts.Pipeline.Wrapper;
using Microsoft.SqlServer.Dts.Runtime.Wrapper;

//Add this Namespace for IO Operations
using System.IO;

[Microsoft.SqlServer.Dts.Pipeline.SSISScriptComponentEntryPointAttribute]
public class ScriptMain : UserComponent
{
    //StramReader to read the input file stream
    private StreamReader textReader;

    //String to save the source file path
    private string srcFilePath;

    public override void PreExecute()
    {
        base.PreExecute();
        srcFilePath = @"I:\SSIS\BLOGS\One2Many\Input\one2many.txt";
        //Set the textReader at the PreExecute Phase so that we donot initialize it for each record.
        textReader = new StreamReader(srcFilePath);
    }

    public override void CreateNewOutputRows()
    {
        string nextLine;
        string[] columns;
        string[] col2Split;
        string outputCol1;
        char[] colDelimiters;
        char[] rowDelimiters;
        colDelimiters = ",".ToCharArray();
        rowDelimiters = ";".ToCharArray();

        //Read next line from the file to the string variable
        nextLine = textReader.ReadLine();

        //Read the file till nextLine variable is not NULL ie. EOF
        while (nextLine != null && nextLine.Length>0)
        {
            //Split the records by commas to later extract the data
            columns = nextLine.Split(colDelimiters);

            //split the 2nd part of the string based on semi colun after removing the double quotes
            col2Split = columns[1].Substring(1,columns[1].Length-2).Split(rowDelimiters);

            //Format the column one as per the requirement
            outputCol1 = columns[0].Substring(1, 4) + "-" + columns[0].Substring(5, 2) + "-";

            foreach (string str in col2Split)
            {                
                string outputCol2 = "0"+str;

                //Add output
                this.OutputBuffer.AddRow();

                //Add the column values for the row added above.
                this.OutputBuffer.Col1 = outputCol1+ outputCol2;

                //Left pad the 2nd coutput column with 0.
                this.OutputBuffer.Col2 = outputCol2.Substring(outputCol2.Length-2);
            }

            //Read the next line
            nextLine = textReader.ReadLine();
        }
    }

    public override void PostExecute()
    {
        base.PostExecute();

        //Close the Text reader once the file has been read in the PostExecute Phase.
        textReader.Close();
    }
}

VB.NET

using System;
Imports System.Data
Imports Microsoft.SqlServer.Dts.Pipeline.Wrapper
Imports Microsoft.SqlServer.Dts.Runtime.Wrapper

'Add this Namespace for IO Operations
Imports System.IO

Public Class ScriptMain
	Inherits UserComponent
	'StramReader to read the input file stream
	Private textReader As StreamReader

	'String to save the source file path
	Private srcFilePath As String

	Public Overrides Sub PreExecute()
		MyBase.PreExecute()
		srcFilePath = "I:\SSIS\BLOGS\One2Many\Input\one2many.txt"
		'Set the textReader at the PreExecute Phase so that we donot initialize it for each record.
		textReader = New StreamReader(srcFilePath)
	End Sub

	Public Overrides Sub CreateNewOutputRows()
		Dim nextLine As String
		Dim columns As String()
		Dim col2Split As String()
		Dim outputCol1 As String
		Dim colDelimiters As Char()
		Dim rowDelimiters As Char()
		colDelimiters = ",".ToCharArray()
		rowDelimiters = ";".ToCharArray()

		'Read next line from the file to the string variable
		nextLine = textReader.ReadLine()

		'Read the file till nextLine variable is not NULL ie. EOF
		While nextLine IsNot Nothing AndAlso nextLine.Length > 0
			'Split the records by commas to later extract the data
			columns = nextLine.Split(colDelimiters)

			'split the 2nd part of the string based on semi colun after removing the double quotes
			col2Split = columns(1).Substring(1, columns(1).Length - 2).Split(rowDelimiters)

			'Format the column one as per the requirement
			outputCol1 = columns(0).Substring(1, 4) & "-" & columns(0).Substring(5, 2) & "-"

			For Each str As String In col2Split
				Dim outputCol2 As String = "0" & str

				'Add output
				Me.OutputBuffer.AddRow()

				'Add the column values for the row added above.
				Me.OutputBuffer.Col1 = outputCol1 & outputCol2

				'Left pad the 2nd coutput column with 0.
				Me.OutputBuffer.Col2 = outputCol2.Substring(outputCol2.Length - 2)
			Next

			'Read the next line
			nextLine = textReader.ReadLine()
		End While
	End Sub

	Public Overrides Sub PostExecute()
		MyBase.PostExecute()

		'Close the Text reader once the file has been read in the PostExecute Phase.
		textReader.Close()
	End Sub
End Class

Once you set up the package and execute it you get the following output.

I have uploaded the package here for reference.