Executar acao linha por linha em txt

Question

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!

Answer 1

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.

Answer 2

Boa tarde!

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

Esse codigo so faz na primeira linha.