BUSCAR DADOS EM ARQUIVO TXT
Boa Tarde
Preciso pegar alguns dados que estão em um arquivo '.TXT'. Eles estão na seguinte ordem:
0,000010088,20041204,12.12,4
..........isto em várias linhas
Não faço muita idéia de como fazer isto, sei que ele consegue jogar os dados em uma recordset.
Se alguem souber me ajudara muito.
Desde já obrigado
[S97][S97]
Preciso pegar alguns dados que estão em um arquivo '.TXT'. Eles estão na seguinte ordem:
0,000010088,20041204,12.12,4
..........isto em várias linhas
Não faço muita idéia de como fazer isto, sei que ele consegue jogar os dados em uma recordset.
Se alguem souber me ajudara muito.
Desde já obrigado
[S97][S97]
vc pode abrir o arquivo e carregar uma variavel de tipo texto
depois - atraves de comando split - voce carrega um array
dim Texto as string
dim i as integer
dim Valores
i=freefile
open ArquivoTxt for input as #i
Texto = input(filelen(arquivotxt), #i)
close #i
Valores = Split(Texto, ",")
for i=lbound(Valores) to ubound(Valores)
debug.print Valores(i)
next i
depois - atraves de comando split - voce carrega um array
dim Texto as string
dim i as integer
dim Valores
i=freefile
open ArquivoTxt for input as #i
Texto = input(filelen(arquivotxt), #i)
close #i
Valores = Split(Texto, ",")
for i=lbound(Valores) to ubound(Valores)
debug.print Valores(i)
next i
Tópico encerrado , respostas não são mais permitidas