SEPARAR TEXTO EM ARQUIVO TEXTO
Pessoal, tenho um arquivo texo assim....
nome1;email1
nome2;email2
nome3;email3
queria separar, por exemplo, pegar campo nome e gravar no campo nome da tabela e pegar o campo email e gravar no outro campo d a tabela...
alguem tem iedia de como faço pra ler esse arquivo txt ???
Valeu.
Badi
nome1;email1
nome2;email2
nome3;email3
queria separar, por exemplo, pegar campo nome e gravar no campo nome da tabela e pegar o campo email e gravar no outro campo d a tabela...
alguem tem iedia de como faço pra ler esse arquivo txt ???
Valeu.
Badi
dim nome as string
dim email as string
dim i as byte
dim Arquivo as string
dim Linha as string
dim j as integer
arquivo = "CAMINHO DE SEU ARQUIVO"
i = freefile
open arquivo for input as #i
do while not eof(i)
line input #i, Linha
j = instr(1, linha, ";")
nome = mid$(linha,1,j)
email = mid$(linha, j + 1)
'salva no banco aqui
loop
close #i
apenas uma observacao - separar por ; é meio complicado - se o nome tiver (por engano) um ; -> vai atrapalhar
dim email as string
dim i as byte
dim Arquivo as string
dim Linha as string
dim j as integer
arquivo = "CAMINHO DE SEU ARQUIVO"
i = freefile
open arquivo for input as #i
do while not eof(i)
line input #i, Linha
j = instr(1, linha, ";")
nome = mid$(linha,1,j)
email = mid$(linha, j + 1)
'salva no banco aqui
loop
close #i
apenas uma observacao - separar por ; é meio complicado - se o nome tiver (por engano) um ; -> vai atrapalhar
Tópico encerrado , respostas não são mais permitidas