22/11/2010 Development / asp.net

Surgiu uma situação no trabalho, que precisava ler um arquivo txt, no qual as colunas estavam delimitadas pelo controle TAB.

Segue o código de exemplo:

        Dim delimiter As Char = ControlChars.Tab
        Dim delimitedText() As String

        Dim file As New System.IO.FileInfo(filepath)
        If file.Exists Then

            Dim doc As New StreamReader(filepath)
            While doc.Peek >= 0
                delimitedText = doc.ReadLine().Split(delimiter)

                'DADOS BÁSICOS DO PROCESSO
                '*************************************************************************
                If delimitedText(0) = "2" Then
                    c.ExecuteNonQuery("INSERT INTO TABELA (CMP1, CMP2, CMP3) VALUES ('" & delimitedText(1) & "','" & delimitedText(2) & "','" & Convert.ToDateTime(DateTime.ParseExact(delimitedText(4), "ddMMyyyy", System.Globalization.CultureInfo.CurrentCulture)).ToString("dd/MM/yyyy") & "')")
                End If

            End While

        End If