zoukankan      html  css  js  c++  java
  • 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

  • 相关阅读:
    初谈面向对象
    java概述~至数组
    django一对多数据库模型
    Django url()函数详解
    python编码规范
    django的用户管理
    ubuntu下安装搜狗拼音
    乱七八糟的2013
    使用django进行微信公众平台开发
    我们要写的项目
  • 原文地址:https://www.cnblogs.com/lbnnbs/p/4781556.html
Copyright © 2011-2022 走看看