none
Executar acao linha por linha em txt RRS feed

  • Discussão Geral

  • Boa noite...

    Tenho um sistema no qual le os txt's jogados em uma pasta...

    So que preciso executar uma acao linha por linha nele... E nao consigo.

            Dim linha As String()
    
            linha = File.ReadAllLines(My.Settings.strCaminho + "\" + e.Name)
    
            Dim Info As String = linha(0)
    
            Dim loja As String
    
            Dim cpf As String
    
            Dim saldo As String
    
            Dim nome As String
    
            loja = Info.Substring(0, 4)
    
            cpf = Info.Substring(4, 11)
    
            saldo = Info.Substring(Info.Length - 12, 10)
    
            nome = Info.Substring(15, 40)

    Esse codigo pega os dados que preciso de cada linha do txt... So que isso so funciona na primeira linha...

    Preciso rode esse codigo ate a ultima linha... Alguem pode me ajudar?

    Agradeco desde ja!

    quarta-feira, 22 de agosto de 2018 22:40

Todas as Respostas

  • Boa tarde, CarlosEduardo5. Tudo bem? 

    Obrigado por usar o fórum.

    Essa seria uma questão de "How to/Customização" ou "Break Fix/Erro"?

    Atenciosamente, 

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    quinta-feira, 23 de agosto de 2018 17:51
    Moderador
  • Boa tarde!

    Preciso executar esse codigo para pegar os dados do txt, linha por linha...

    Esse codigo so faz na primeira linha.
    quinta-feira, 23 de agosto de 2018 19:09