maneira me ajudaram em mais esta empreitada.
Muito obrigado,
Abraço a todos.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Rocha
Enviada em: quarta-feira, 14 de julho de 2010 14:01
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: RES: [delphi-br
Mandei um exemplo pro Ralp que mostra o uso de TStringList para importação
de arquivos, abordando o uso das propriedades QuoteChar, DelimitedText e
Delimiter.
Sds.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Fabricio Colombo
Enviad
: delphi-br@yahoogrupos.com.br
Assunto: RES: RES: [delphi-br] Importação de Arquivo
O arquivo original
http://www.grupog2gestao.com.br/NE201005.txt
De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
[mailto:delphi-br@yahoogrupos.com.br <mailto:
o ter ajudado.
============
===========
Jean Barreiros
Programador/Web-Designer
Delphi|C++|PHP|JavaScript
FireBird|MySql|SQLServer
PostGree|Oracle
msn: delphij...@gmail.com
e-mail: delphij...@yahoo.com.br
===
imento da Rocha
Enviada em: quarta-feira, 14 de julho de 2010 11:57
Para: delphi-br
Assunto: RE: RES: RES: [delphi-br] Importação de Arquivo
Prioridade: Alta
Mas se for prestar bem atenção ao formato do texto, basta remover as
seguintes sequencias de caracteres por ponto-e-vírgula:
1)
delphi-br%40yahoogrupos.com.br> ]
Em nome de Ralp Alves Bezerra
Enviada em: quarta-feira, 14 de julho de 2010 05:56
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
Assunto: RES: RES: [delphi-br] Importação de Arquivo
Pois é, este formato esta me deixando louco
-br@yahoogrupos.com.br
Assunto: RES: RES: [delphi-br] Importação de Arquivo
Prioridade: Alta
Ora, o StringReplace vai retirar as aspas onde apenas haverão aspas, e o
separador será ponto-e-vírgula. Não vejo problema nenhum nisso.
Sds.
De: delphi-br@yahoogrupos.com.br <mailto:delphi
ailto:delphi-br%40yahoogrupos.com.br>
Sent: Tuesday, July 13, 2010 6:14 PM
Subject: RES: RES: [delphi-br] Importação de Arquivo
Simples! Faz um StringReplace() na linha lida fazendo as seguintes trocas:
1) De [,”] para [;]
2) De [“,] para [;]
3) De [“,”] para [;]
Assim, a linha lida terá os
: delphi-br@yahoogrupos.com.br
Assunto: RES: RES: [delphi-br] Importação de Arquivo
Pois é, este formato esta me deixando louco aqui.
Existem os valores do tipo float que também possuem as vírgulas e não são
delimitados por aspas duplas. “100”,10.200,25,”098”
Existem campos em branco “100
lterChagasJr
- Original Message -
From: Marcelo
To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
Sent: Tuesday, July 13, 2010 9:06 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo
Ta certo Walter , não me atentei que tinha campos sem as aspas duplas c
Depois de muito quebrar a cabeça aqui, solicitei a geração de um novo arquivo
para importação. E para minha surpresa, os valores não mais tinham as casas
decimais com vírgula e sim ponto.
Acredito que possa ter ocorrido um erro na geração do arquivo anterior.
Esta é uma das linhas de vári
ogrupos.com.br>
> <mailto:delphi-br%40yahoogrupos.com.br>
> Sent: Tuesday, July 13, 2010 5:04 PM
> Subject: Res: RES: [delphi-br] Importação de Arquivo
>
> Já pensou em dar um StringReplace nas "," trocando por ";" ai voce
> teria um
&g
PE: WalterChagasJr
>
> - Original Message -
> From: Marcelo
> To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> <mailto:delphi-br%40yahoogrupos.com.br>
> Sent: Tuesday, July 13, 2010 5:04 PM
> Subject: Res: RES: [delphi-br] Importa
@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome
de Marcelo
Enviada em: terça-feira, 13 de julho de 2010 21:06
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: RES: [delphi-br] Importação de Arquivo
Ta certo Walter , não me atentei que tinha campos sem as aspas duplas como
O problema é que os campos tem tamanhos variados, não teria como eu dar um copy.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome
de Wagne®_Fix
Enviada em: terça-feira, 13 de julho de 2010 16:26
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: RES: [delphi-br
uot;,"130.00"
>
> como ficaria este caso?
>
> []s
>
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> wchag...@bol.com.br
> http://delphitocorporerm.blogspot.com/
> http://twitter.com/wchagas
> MSN: whitesock...@hotmail.com
> SKYPE: WalterChaga
ter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr
- Original Message -----
From: Marcelo
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, July 13, 2010
gas
MSN: whitesock...@hotmail.com <mailto:whitesockets%40hotmail.com>
SKYPE: WalterChagasJr
- Original Message -
From: Marcelo
To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
Sent: Tuesday, July 13, 2010 5:29 PM
Subject: Res: RES: [delphi-br] Impo
finally
if Assigned(lLinha) then lLinha.Free;
lArquivo.Free;
end;
end;
Sds.
De: Rubem Rocha [mailto:rubem.ro...@dtmanaus.com.br]
Enviada em: terça-feira, 13 de julho de 2010 17:15
Para: 'delphi-br@yahoogrupos.com.br'
Assunto: RES: RES: [delphi-br] Importação de Arquiv
Eu leria linha-a-linha, e cada linha lida retiraria todas as aspas! Depois,
usaria o bom e velho TStringList pra separar os dados da linha, usando as
propriedades DelimitedText e Delimiter.
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de anckerdj
Envia
/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: Marcelo
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, July 13, 2010 5:04 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo
Já pensou em dar um StringReplace nas "," trocando por &
Já pensou em dar um StringReplace nas "," trocando por ";" ai voce teria um
separador padrão ai facaria muito mais facil de trabalhar
De: Ralp Alves Bezerra
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
Assunto: RES: [d
Eu uso COPY, as pessoas podem achar complicado mas eu me dou muito bem... Tem
um
cliente meu que importa mais ou menos uns 1000 dados diários para o Banco e
nunca deu problema...
AssignFile(arq,g);
Reset ( arq );
ReadLn ( arq, linha );
Tot:= 0;
AuxTot := 0;
23 matches
Mail list logo
