Pessoal, tenho um arq. txt onde são gerados vários dados, preciso saber como faço para pegar dados de determinadas posições e importa-los par um banco de dados.

 

 

 

Grato pela ajuda.

 

Dim nARQUIVO As Integer

Dim sSTRING As String

nARQUIVO = FreeFile

 

Open "SEUARQUIVO.TXT" for OutPut As #nARQUIVO

Line Input #nARQUIVO, sSTRING

 

CAMPO1 = Mid(sSTRING, 14, 9)

CAMPO2 = Mid(sSTRING, 40, 9)

CAMPO3 = MID(sSTRING, ..., ...)

 

A CHAVE INPUT INDICA QUE O ARQUIVO SERÁ ABERTO SEQUENCIAL. Voce só poderá se deslocar para a frente.

Se houver mais de uma linha no arquivo, não se esqueça de usar EOF, senão ocorrerá um erro.

Poderá ser assim

While Not EOF(nARQUIVO)

 instruções

Wend

Close #nARQUIVO

 

vlu//

 

 

 

 

LCRamos, na linha de comando =>

deve ser usado o comando Input pois com o Output todo o conteudo do arquivo txt é apagado. Obrigado pela ajuda, foi muito útil.