Eu tenho um arquivo txt separado por vírgulas e preciso quebrá-lo para separar os dados contidos no mesmo como eu faço para criar um outro arquivo txt somente com os dados que eu quero ?

' cria o arquivo e também serve para abrir o arquivo existemte para adição de novas linhas

           Open "C:Arquivo.TXT" For Append As #1   

                   Print #1, "CONTEUDO"

           Close #1

 

T+

Dim f As Long

Dim Matriz as Variant, Texto as String

Dim Nome as String, Endereco as String, Telefone as String

 

f = FreeFile

Open "F:TESTE.txt" For Input As #f

Do While Not EOF(f)

    Line Input #f, Texto

 

    Matriz = Split(Texto,",")

    Nome = Matriz(0)

    Endereco = Matriz(1)

    Telefone = Matriz(2)

 

Loop

Close #f

 

Esse ae é um jeito simples, vc adapta ao seu código, qq dúvida posta ae

 

at+