Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Duvanir.Trigo

Importar .TXT para .MDB especificando a linha de início e fim.

Recommended Posts

Olá pessoal! :D

 

Alguém saberia me dizer se existe a possibilidade de, ao fazer a importação

dos dados de um arquivo .txt para um banco de dados Access, ao realizar es-

te processo haveria a possibilidade de eu estar especificando à partir de qual

Linha deverá iniciar a leitura e em qual deverá encerrar?

 

Será que alguém já enfrentou algum problema do tipo ou saiba como fazer

poderia me ajudar? Desde já agradeço a atenção de todos.

 

Muito Obrigado.

 

Duva. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

abaixo vai um exemplo em cima dele você adapta para o que você precisa.

[]'s

 

<% set objfilesys = server.createobject("scripting.filesystemobject")	set thetextstream = objfilesys.opentextfile("E:\arq.txt",1,false,false)	txt = thetextstream.readall()	txt_array = Split(txt, vbcrlf)	num_ini = 5	num_fim = 10	For I = 0 to UBound(txt_array)		IF I >= num_ini then			monta_insert		end IF		IF I = num_fim then			exit for		End IF	Next %>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Valeu Carlos, muito obrigado pela ajuda.Att.Duva http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

abaixo vai um exemplo em cima dele você adapta para o que você precisa.[]'s

<% set objfilesys = server.createobject("scripting.filesystemobject")	set thetextstream = objfilesys.opentextfile("E:\arq.txt",1,false,false)	txt = thetextstream.readall()	txt_array = Split(txt, vbcrlf)	num_ini = 5	num_fim = 10	For I = 0 to UBound(txt_array)		IF I >= num_ini then			monta_insert		end IF		IF I = num_fim then			exit for		End IF	Next %>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.