Imports System

imports System.Data.SqlClient

imports System.Collections.Generic

imports system.Threading.Tasks

imports System.Data

imports System.io

​

Public Module Module1

​

    Public Sub Main()

        Console.WriteLine("Hello World")

    End Sub

​

    Public Async Function InsertaTagsOtroOperador() As Task

        Dim conexion as new SqlConnection("")

        Using bulkCopy As SqlBulkCopy = New SqlBulkCopy(conexion)

            bulkCopy.DestinationTableName = "TagOtroOperador"

            bulkCopy.BatchSize = 20000

            bulkCopy.BulkCopyTimeout = 0

            Dim tabla As DataTable = New DataTable("TagOtroOperador")

            tabla.Columns.Add("NumeroTag", GetType(String))

            tabla.Columns.Add("IdTipoConvenio", GetType(Integer))

            tabla.Columns.Add("Saldo", GetType(Decimal))

            tabla.Columns.Add("InfoCasetas", GetType(String))

            Dim lector as streamreader = new StreamReader("C:\Archivo.txt")

            do while not lector.EndOfStream

                'For Each t In tagsOtroOperador 

                'Dim linea = "01400011618|0|0.00|04#1#0.0&03#1#0.0&02#1#0.0&01#1#0.0&07#1#0.0&51#1#0.0&52#1#0.0&53#1#0.0&54#1#0.0&55#1#0.0&57#1#0.0"

                Dim linea = lector.ReadLine()

                Dim datos = linea.Split("|")

                Dim NumeroTag = datos(0)

                Dim IdTipoConvenio = integer.Parse(datos(1))

                Dim Saldo = decimal.parse(datos(2))

                dim InfoCasetas = datos(3)

                tabla.Rows.Add(NumeroTag, IdTipoConvenio, Saldo, InfoCasetas)

            loop

​

            Await bulkCopy.WriteToServerAsync(tabla)

        End Using

    End Function

End Module