GAFA
|
SÃO PAULO
SP - BRASIL
|
|
Postada em 08/09/2004 09:58 hs
Olá, pessoal , não sei como faço para importar um arquivo txt, Alguem pode me ajudar, preciso, importá-lo para a bd access por meio do visual basci, alguem sabe uma rotina q possa me enviar, Preciso formatar odocumento de texto para depois enviar suas informaçoes ao banco de dados, por exemplo , preciso excluir o cabecalho do documento, grato desde já Jean |
|
|
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 08/09/2004 10:15 hs
A importacao é nada mais que uma leitura do arquivo texto e a gravacao do DB. Dim texto Open nome_arquivo_texto For Input As #1 Line Input #1, texto
while not eof(1) nome = mid(texto,1,40) endereco= mid(texto,41,40) ..........outros campos .......le_arquivo do DB...... tb_aux.fields![nome] = nome tb_aux.fields![endereco] = endereco ..... move outros campos do texto para o DB..... tb_aux.update Line Input #1, texto wend Close #1 Se não resolver post mais acho que ja da uma ideia. Obs Escrevi o codigo direto pode ter alguma coisa(ssss) de errado.
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
GAFA
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 08/09/2004 11:02 hs
Euntb preciso excluir as linhas de cabecalho, como posso resolver isso,, Brigado pela ajuda |
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 08/09/2004 11:08 hs
Nãp precisa excluir basta ler e despresar as linhas. Assim. Suponhamos que voce tem 3 linhas de cab. Faca. Line Input #1, texto
Line Input #1, texto
Line Input #1, texto
' Aqui voce le para processar.
Line Input #1, texto while not eof(1) nome = mid(texto,1,40)
Resolveu ?
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
GAFA
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/09/2004 12:48 hs
Vou tentar fz isso, já te falo, grato, jean |
|
|
|
|
