locked
Importar arquivo txt RRS feed

  • Pergunta

  • Ao importar um arquivo TXT onde os dados estão separados por ";" o resultado é o seguinte:

    Porém, destaquei em amarelho, pois esta coluna deve não deve conter registros em branco, ou seja, para os registros que não possui informação, este deve ser associado a informação de "NO_MANAGER"

    A funcionalidade do botão de importar é este:

    Private Sub btnSelecionar_Click(sender As Object, e As EventArgs) Handles btnSelecionar.Click
            Dim arquivo As New OpenFileDialog
            'Filtramos apenas Arquivos com extensão .txt 
            arquivo.Filter = "*.txt|*.txt"
            arquivo.ShowDialog()
            'Atribuimos o Caminho do Arquivo ao Textbox 
            txtArquivo.Text = arquivo.FileName
    
    
            'Importação após seleção do arquivo
            Using leitor As New TextFieldParser(txtArquivo.Text, Encoding.GetEncoding(1252))
    
                'Informamos que será importado com Delimitação 
                leitor.TextFieldType = FileIO.FieldType.Delimited
                'Informamos o Delimitador 
                leitor.SetDelimiters(";")
    
                Dim linhaAtual As String()
                While Not leitor.EndOfData
                    Try
                        linhaAtual = leitor.ReadFields()
                        dgvDados.Rows.Add(linhaAtual(0).ToString, _
                                          linhaAtual(1).ToString, _
                                          linhaAtual(2).ToString, _
                                          linhaAtual(3).ToString, _
                                          linhaAtual(4).ToString, _
                                          linhaAtual(5).ToString, _
                                          linhaAtual(6).ToString, _
                                          linhaAtual(7).ToString, _
                                          linhaAtual(9).ToString, _
                                          linhaAtual(10).ToString, _
                                          linhaAtual(11).ToString, _
                                          linhaAtual(12).ToString, _
                                          linhaAtual(13).ToString, _
                                          linhaAtual(14).ToString, _
                                          linhaAtual(15).ToString, _
                                          linhaAtual(16).ToString, _
                                          linhaAtual(17).ToString, _
                                          linhaAtual(18).ToString, _
                                          linhaAtual(19).ToString, _
                                          linhaAtual(20).ToString, _
                                          linhaAtual(21).ToString, _
                                          linhaAtual(22).ToString, _
                                          linhaAtual(23).ToString, _
                                          linhaAtual(24).ToString, _
                                          linhaAtual(25).ToString, _
                                          linhaAtual(26).ToString, _
                                          linhaAtual(27).ToString, _
                                          linhaAtual(28).ToString, _
                                          linhaAtual(29).ToString, _
                                          linhaAtual(30).ToString, _
                                          linhaAtual(31).ToString, _
                                          linhaAtual(32).ToString, _
                                          linhaAtual(33).ToString, _
                                          linhaAtual(34).ToString, _
                                          linhaAtual(35).ToString, _
                                          linhaAtual(36).ToString, _
                                          linhaAtual(37).ToString, _
                                          linhaAtual(38).ToString, _
                                          linhaAtual(39).ToString, _
                                          linhaAtual(40).ToString, _
                                          linhaAtual(41).ToString, _
                                          linhaAtual(42).ToString, _
                                          linhaAtual(43).ToString, _
                                          linhaAtual(44).ToString, _
                                          linhaAtual(45).ToString, _
                                          linhaAtual(46).ToString, _
                                          linhaAtual(47).ToString)
                    Catch ex As MalformedLineException
                        'Ignoramos a linha atual caso não seja válida 
                        MsgBox("Linha: " & ex.Message & " não é válida e será ignorada.")
                    End Try
                End While
                MsgBox("Arquivo Importado com Sucesso!")
            End Using
        End Sub
    Como posso fazer para implementar esse ajuste ?


    Abraços, Julio Malliotti

    domingo, 1 de março de 2015 20:50

Respostas

Todas as Respostas

  • Ja foi respondido nessa Thread https://social.msdn.microsoft.com/Forums/pt-BR/fd54d506-ff6e-4fa4-b52c-dd434ffb3ccb/preencher-gridview-vazios?forum=vsvbasicpt

    A vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

    • Sugerido como Resposta Mr. GMSOFT segunda-feira, 2 de março de 2015 11:54
    • Marcado como Resposta Ricardo Barbosa Cortes terça-feira, 3 de março de 2015 14:13
    segunda-feira, 2 de março de 2015 11:53
  • Obrigado pela colaboração GMSOFT,

    Malliotti,

    Evite criar threads repetidas, pois isso pode confundir futuros visitantes do fórum que possam ter a mesma dúvida.

    Obrigado,

    Abraço!


    Eduardo Romero

    Esse conteudo e fornecido sem garantias de qualquer tipo, seja expressa ou implicita.

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais facil para os outros visitantes encontrarem a resolucao mais tarde.

    terça-feira, 3 de março de 2015 14:14
    Moderador