スクリプト タスクによる空のフラット ファイルの検出
新規 : 2005 年 12 月 5 日
フラット ファイル ソースでは、フラット ファイルを処理する前にデータ行が含まれるかどうかを判定しません。データ行を含まないファイルをスキップすることにより、パッケージの効率、特に多数のフラット ファイルを繰り返し処理するパッケージの効率を向上させることができます。スクリプト タスクによって、パッケージがデータ フローの処理を開始する前に空のフラット ファイルを確認できます。
メモ : |
---|
複数のパッケージでより簡単に再利用できるタスクを作成する場合は、このスクリプト タスク サンプルのコードを基にした、カスタム タスクの作成を検討してください。詳細については、「カスタム タスクの開発」を参照してください。 |
説明
次の例では、System.IO 名前空間のメソッドを使用して、フラット ファイル接続マネージャで指定されたフラット ファイルをテストし、ファイルが空かどうか、または列ヘッダーなどの必要な非データ行や空の行だけが含まれるかどうかを確認します。このスクリプトは最初にファイルのサイズをチェックします。サイズがゼロ バイトの場合、ファイルは空です。ファイル サイズがゼロより大きい場合、行がなくなるまで、または必要な非データ行の数を超えるまでファイルから行を読み取ります。ファイル内の行数が必要な非データ行の数以下の場合、そのファイルは空と見なされます。結果はユーザー変数内のブール値として返されます。この値は、パッケージの制御フローでの分岐に使用できます。FireInformation メソッドでは、[出力] ウィンドウにも結果が表示されます。
このスクリプト タスクの例を構成するには
EmptyFlatFileTest という名前のフラット ファイル接続マネージャを作成して構成します。
FFNonDataRows
という名前の整数変数を作成し、その値をフラット ファイルで必要な、非データ行の数に設定します。FFIsEmpty
という名前のブール変数を作成します。スクリプト タスクの ReadOnlyVariables プロパティに
FFNonDataRows
変数を追加します。スクリプト タスクの ReadWriteVariables プロパティに
FFIsEmpty
変数を追加します。コードに System.IO 名前空間をインポートします。
単一のフラット ファイル接続マネージャを使用する代わりに、Foreach File 列挙子を含むファイルを繰り返し処理する場合、接続マネージャからではなく列挙値が格納される変数からファイル名とパスを取得するように、次のサンプル コードを変更する必要があります。
コード
Public Sub Main()
Dim nonDataRows As Integer = _
DirectCast(Dts.Variables("FFNonDataRows").Value, Integer)
Dim ffConnection As String = _
DirectCast(Dts.Connections("EmptyFlatFileTest").AcquireConnection(Nothing), _
String)
Dim flatFileInfo As New FileInfo(ffConnection)
' If file size is 0 bytes, flat file does not contain data.
Dim fileSize As Long = flatFileInfo.Length
If fileSize > 0 Then
Dim lineCount As Integer = 0
Dim line As String
Dim fsFlatFile As New StreamReader(ffConnection)
Do Until fsFlatFile.EndOfStream
line = fsFlatFile.ReadLine
lineCount += 1
' If line count > expected number of non-data rows,
' flat file contains data (default value).
If lineCount > nonDataRows Then
Exit Do
End If
' If line count <= expected number of non-data rows,
' flat file does not contain data.
If lineCount <= nonDataRows Then
Dts.Variables("FFIsEmpty").Value = True
End If
Loop
Else
Dts.Variables("FFIsEmpty").Value = True
End If
Dim fireAgain As Boolean = False
Dts.Events.FireInformation(0, "Script Task", _
String.Format("{0}: {1}", ffConnection, _
Dts.Variables("FFIsEmpty").Value.ToString), _
String.Empty, 0, fireAgain)
Dts.TaskResult = Dts.Results.Success
End Sub