Converter TXT para banco de dados

[ravazio 0]

PessoalPreciso ler um arquivo em formato TXT para gravar as informações em um BD Access.O arquivo TXT contém informações da seguinte forma, campos separados por vírgula ",":JOÃO,20060425,12.76,35.67JOÃO,20060424,14.45,31.56JOÃO,20060423,11.27,39.31JOÃO,20060422,10.84,36.79MARCOS,20060422,45.48,32.67MARCOS,20060421,48.32,35.12MARCOS,20060420,41.78,32.85...E assim por diante. São milhares de linhas.Quero que inserir estes valores na Tabela com o seguinte layout:NOME_____DATA____________VALOR1____VALOR2JOÃO_____25/04/06__________12,76_____35,67JOÃO_____24/04/06__________14,45_____31,56MARCOS__22/04/06__________45,48_____32,67MARCOS__21/04/06__________48,32_____35,12Note que tem que "reorganizar" a Data e converter "." para "," nos valores. Os detalhes da conexão com o BD não precisa.. preciso apenas dos comandos para esta conversão e inclusão no BD.Agradeço desde já.Vinicius

[Salgado 4]

Vou lhe dizer as funções ASP que vai usar para isso, entendendo que já saiba fazer a leitura do arquivo usando o FSO, pode ser?

Split para dividir em uma Matriz de linhas, depois novamente em cada linha para dividir os dados.

Para formatar a data usará as funções Left, Mid e Right

Para trocar o "." usará o Replace.

[ravazio 0]

Vou lhe dizer as funções ASP que vai usar para isso, entendendo que já saiba fazer a leitura do arquivo usando o FSO, pode ser?Split para dividir em uma Matriz de linhas, depois novamente em cada linha para dividir os dados.Para formatar a data usará as funções Left, Mid e RightPara trocar o "." usará o Replace.

Sim sei usar o FSO e as demais funções, mas como nunca fiz isso, tenho uma certa dificuldade na montagem do código, ou seja, dizer quais os "pedaços" das linhas que devem ser lidas e colocadas na referida tabela. Se tiver algum código de exemplo...Vinicius

[Salgado 4]

Bem basicão:

MatrizGeral = Split(DadosLidos,VBCRLF) 'Quebra pelo "enter"
PARA x=LBound(MatrizGeral ATÉ UBound(MatrizGeral) 'Varre a matriz
MatrizLinha = Split(MatrizGeral(x),",") 'Pega a posição x da matriz e quebra pelas ","
Nome = MatrizLinha(0)
Data = MatrizLinha(1)
Valor1 = MatrizLinha(2)
Valor2 = MatrizLinha(3)
'Daqui para baixo trata e insere no BD
PRÓXIMO