ETL 脚本任务

Public Sub Main()
        '
        ' Add your code here

'
        Dim sbWA As New StringBuilder
        Dim i As
Integer
        Dim arWA As New Collections.ArrayList
        Dim bEOF As
Boolean
        For Each r As DataRow In
CType(Dts.Variables("dsWOACNBR").Value, DataSet).Tables(0).Rows
            i
= i + 1
            bEOF = True

sbWA.Append("','")
            sbWA.Append(r.Item(0).ToString +
r.Item(1).ToString)

If i Mod 100 = 0 Then
                bEOF =
False
                Dim strWA As String = sbWA.ToString

strWA = strWA.Substring(3) '...移除"','"字符，后面计算长度时需补上

arWA.Add(strWA)

sbWA.Remove(0, strWA.Length + 3) '...清空时需补上"','"已移除字符的计数

End If
Next

If bEOF = True Then
Dim strWA As String =
sbWA.ToString
strWA = strWA.Substring(3)
'...移除"','"字符，后面计算长度时需补上

arWA.Add(strWA)

End If

Dts.Variables("arWOACNBR").Value = arWA

Dts.TaskResult = Dts.Results.Success
End Sub

巴特西

ETL 脚本任务

最新文章

热门文章