Prezados

 

Preciso converter um arquivo texto para um banco de dados, so que este ARQUIVO TEXTO, tem cabeçalho em todas as paginas eu eu preciso ler apenas os dados do arquivo e nao ler o cabeçalho.

 

LayOut do arquivo Texto

 

5 linhas de cabeçalho

54 linhas de dados

open "x:arquivo" for input as #1

dim conta as integer

dim conteudo as string

do while not eof(1)

    if conta > 5 then

       'Aqui fazer tudo que quiser com o conteudo

    endif

loop