Cara como eu estou sem delphi no momento fiz uma rotina rapida aki q
deve te dar uma luz
desculpe se ela nao funcionar corretamente, mas acho q vai te dar uma luz
while not Eof ( arq ) do
begin
readln(arq,linha)
for i:= 0 to Length(linha) do
begin
//==================== verifica se é diferente de " =============
if linha[i]<> '"' then
begin
//==================== Verifica se a proxima poscicao é ",
que indica o final do campo =============
if (linha[i] + linha[i+1]) <> '",' then
valorValido := valor + linha[i]
else
begin
//==================== Trate o valor aki, grave no banco de
dados =============
end;
end;
end;
end;
Ralp Alves Bezerra escreveu:
>
>
> Nobres colegas, estou tentando importar para o meu banco de dados um
> arquivo
> no formato txt com o formato abaixo:
>
> "601","029",201000,"02","01",20100512,"12050002",201005,"04","122","0003","2
> ","002","0000","33901400","100.000,00"
>
> "601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
> ","002","0000","33901400","130.00"
>
> "601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
> ","002","0000","33901400","1.000,00"
>
> "601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
> ","003","0000","33903000","10.000,00"
>
> "601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2
> ","006","0000","33903900","100,00"
>
> Já vasculhei a net e até o momento ainda não consegui nenhum êxito.
>
> Algum dos nobres colegas já efetuou este tipo de importação com um arquivo
> neste formato?
>
> Estou utilizando Delphi 7/Firebird 2.1
>
> Grato.
>
> Ralp Alves
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
__________ Informação do ESET Smart Security, versão da vacina 5276 (20100713)
__________
A mensagem foi verificada pelo ESET Smart Security.
http://www.eset.com
