Re: [delphi-br] Importação ignora 1ª linha do arq uivo

[Marcos Bernardo]

Comece do 0 (ZERO)

abraço
Marcos Bernardo

Em 26 de julho de 2010 09:05, Ralp Alves Bezerra escreveu:

>
>
> Pois é Rubem, desculpe por não citar seu nome. Foram tantas as pessoas que
> tentaram ajudar que as vezes cometemos estes deslizes.
>
> Já no caso da importação, aqui realmente ele não reconhece a primeira linha
> do arquivo. Será que é por causa da extensão (.DCD)? Este é o padrão
> utilizado pelo tribunal aqui do Ceará.
>
> Abraço.
>
>
> De: delphi-br@yahoogrupos.com.br  [mailto:
> delphi-br@yahoogrupos.com.br ] Em
> nome de Rubem Rocha
> Enviada em: sexta-feira, 23 de julho de 2010 15:21
>
> Para: delphi-br@yahoogrupos.com.br 
> Assunto: RES: [delphi-br] Importação ignora 1ª linha do arquivo
> Prioridade: Alta
>
>
> Analisei o fonte (que por sinal, fui eu que implementei inicialmente) e até
> rodei ele com um arquivo de exemplo que o Ralp mandou para mim na época.
> Não
> vi nada de anormal. Ele sempre pega todas as linhas do texto.
>
> Sds.
>
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br   delphi-br%40yahoogrupos.com.br >
> [mailto:delphi-br@yahoogrupos.com.br  delphi-br%40yahoogrupos.com.br >
>
> ] Em
> nome de Dirlei Dionísio
> Enviada em: sexta-feira, 23 de julho de 2010 12:19
> Para: delphi-br@yahoogrupos.com.br  delphi-br%40yahoogrupos.com.br >
> Assunto: Re: [delphi-br] Importação ignora 1ª linha do arquivo
>
> Ler código dentro de email é terrível. Se vc colocar o código no Pastebin (
> http://pastebin.com) vai nos ajudar a te ajudar.
>
> --
> Dirlei Dionísio
> Novo artigo: // Não comente seu código
> http://MaisQueBomCodigo.blogspot.com
>
> Em 23 de julho de 2010 10:11, Ralp Alves Bezerra 
> 
> <mailto:ralprd%40gmail.com > >escreveu:
>
>
> >
> >
> > Nobres colegas,
> >
> > Recentemente tive um problema com a importação de um arquivo.
> >
> > Com a ajuda dos nobres colegas e o envio de um exemplo pelo Walter,
> > consegui
> > sanar o problema.
> >
> > A importação foi realizada. Porém, fazendo uma analise mais detalhada,
> > notei
> > que primeira linha do arquivo nunca é importada. Fica sempre faltando o
> > primeiro registro do arquivo.
> >
> > Estou postando abaixo o código utilizado. Se alguns dos nobres colegas
> > poder
> > me ajudar fico grato.
> >
> > Abraço.
> >
> > unit ufAnaliseDados;
> >
> > interface
> >
> > uses
> >
> > Classes, Forms, DB, Controls, Grids, DBGrids, DBClient, DBXpress, FMTBcd,
> >
> > DBXAutoInc, Provider, SqlExpr, RXCtrls, RXDBCtrl, Buttons, ExtCtrls,
> >
> > XiPanel, Dialogs, JvDialogs, XiProgressBar;
> >
> > type
> >
> > TfrmSIMNE = class(TForm)
> >
> > XiPanel1: TXiPanel;
> >
> > btImportar: TSpeedButton;
> >
> > dbgDados: TDBGrid;
> >
> > DBGrid1: TDBGrid;
> >
> > srcDados: TDataSource;
> >
> > JvOpenDialog1: TJvOpenDialog;
> >
> > Barra: TXiProgressBar;
> >
> > procedure btImportarClick(Sender: TObject);
> >
> > private
> >
> > fDadosTratados: TStringList;
> >
> > fCdsDadosTratados: TClientDataSet;
> >
> > procedure PrepararDados;
> >
> > procedure AnalisarArquivo;
> >
> > procedure CriarDataSet;
> >
> > procedure LiberarDados;
> >
> > public
> >
> > constructor Create(AOwner: TComponent); override;
> >
> > destructor Destroy; override;
> >
> > end;
> >
> > var
> >
> > frmSIMNE: TfrmSIMNE;
> >
> > implementation
> >
> > uses SysUtils, uDM, uImportaProcesso;
> >
> > {$R *.dfm}
> >
> > { TfrmAnaliseDados }
> >
> > procedure TfrmSIMNE.CriarDataSet;
> >
> > var
> >
> > i: integer;
> >
> > lLinhaDados: TStringList;
> >
> > begin
> >
> > { Cria o ClientDataSet }
> >
> > fCdsDadosTratados := TClientDataSet.Create(Self);
> >
> > { Define os campos que o ClientDataSet terá }
> >
> > with fCdsDadosTratados.FieldDefs do
> >
> > for i := 1 to 16 do
> >
> > Add(Format('Campo%2.2d', [i]), ftString, 40);
> >
> > { Cria o ClientDataset com os campos definidos }
> >
> > fCdsDadosTratados.CreateDataSet;
> >
> > { Preenche o ClientDataSet com os dados tratados }
> >
> > lLinhaDados := TStringList.Create;
> >
> > try
> >
> > lLinhaDados.Delimiter := ',';
> >
> > lLinhaDados.QuoteChar := '"';
> >
> > while fDa

RES: [delphi-br] Importação ignora 1ª linha do a rquivo

[Rubem Rocha]

Me mande esse arquivo pr’eu analisá-lo.

Sds.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Ralp Alves Bezerra
Enviada em: segunda-feira, 26 de julho de 2010 08:05
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Importação ignora 1ª linha do arquivo

 

  

Pois é Rubem, desculpe por não citar seu nome. Foram tantas as pessoas que
tentaram ajudar que as vezes cometemos estes deslizes.

Já no caso da importação, aqui realmente ele não reconhece a primeira linha
do arquivo. Será que é por causa da extensão (.DCD)? Este é o padrão
utilizado pelo tribunal aqui do Ceará.

Abraço.

De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
] Em
nome de Rubem Rocha
Enviada em: sexta-feira, 23 de julho de 2010 15:21
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Assunto: RES: [delphi-br] Importação ignora 1ª linha do arquivo
Prioridade: Alta

Analisei o fonte (que por sinal, fui eu que implementei inicialmente) e até
rodei ele com um arquivo de exemplo que o Ralp mandou para mim na época. Não
vi nada de anormal. Ele sempre pega todas as linhas do texto.

Sds.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
<mailto:delphi-br%40yahoogrupos.com.br>
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
<mailto:delphi-br%40yahoogrupos.com.br>
] Em
nome de Dirlei Dionísio
Enviada em: sexta-feira, 23 de julho de 2010 12:19
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
<mailto:delphi-br%40yahoogrupos.com.br> 
Assunto: Re: [delphi-br] Importação ignora 1ª linha do arquivo

Ler código dentro de email é terrível. Se vc colocar o código no Pastebin (
http://pastebin.com) vai nos ajudar a te ajudar.

--
Dirlei Dionísio
Novo artigo: // Não comente seu código
http://MaisQueBomCodigo.blogspot.com

Em 23 de julho de 2010 10:11, Ralp Alves Bezerra mailto:ralprd%40gmail.com> 
<mailto:ralprd%40gmail.com> >escreveu:

>
>
> Nobres colegas,
>
> Recentemente tive um problema com a importação de um arquivo.
>
> Com a ajuda dos nobres colegas e o envio de um exemplo pelo Walter,
> consegui
> sanar o problema.
>
> A importação foi realizada. Porém, fazendo uma analise mais detalhada,
> notei
> que primeira linha do arquivo nunca é importada. Fica sempre faltando o
> primeiro registro do arquivo.
>
> Estou postando abaixo o código utilizado. Se alguns dos nobres colegas
> poder
> me ajudar fico grato.
>
> Abraço.
>
> unit ufAnaliseDados;
>
> interface
>
> uses
>
> Classes, Forms, DB, Controls, Grids, DBGrids, DBClient, DBXpress, FMTBcd,
>
> DBXAutoInc, Provider, SqlExpr, RXCtrls, RXDBCtrl, Buttons, ExtCtrls,
>
> XiPanel, Dialogs, JvDialogs, XiProgressBar;
>
> type
>
> TfrmSIMNE = class(TForm)
>
> XiPanel1: TXiPanel;
>
> btImportar: TSpeedButton;
>
> dbgDados: TDBGrid;
>
> DBGrid1: TDBGrid;
>
> srcDados: TDataSource;
>
> JvOpenDialog1: TJvOpenDialog;
>
> Barra: TXiProgressBar;
>
> procedure btImportarClick(Sender: TObject);
>
> private
>
> fDadosTratados: TStringList;
>
> fCdsDadosTratados: TClientDataSet;
>
> procedure PrepararDados;
>
> procedure AnalisarArquivo;
>
> procedure CriarDataSet;
>
> procedure LiberarDados;
>
> public
>
> constructor Create(AOwner: TComponent); override;
>
> destructor Destroy; override;
>
> end;
>
> var
>
> frmSIMNE: TfrmSIMNE;
>
> implementation
>
> uses SysUtils, uDM, uImportaProcesso;
>
> {$R *.dfm}
>
> { TfrmAnaliseDados }
>
> procedure TfrmSIMNE.CriarDataSet;
>
> var
>
> i: integer;
>
> lLinhaDados: TStringList;
>
> begin
>
> { Cria o ClientDataSet }
>
> fCdsDadosTratados := TClientDataSet.Create(Self);
>
> { Define os campos que o ClientDataSet terá }
>
> with fCdsDadosTratados.FieldDefs do
>
> for i := 1 to 16 do
>
> Add(Format('Campo%2.2d', [i]), ftString, 40);
>
> { Cria o ClientDataset com os campos definidos }
>
> fCdsDadosTratados.CreateDataSet;
>
> { Preenche o ClientDataSet com os dados tratados }
>
> lLinhaDados := TStringList.Create;
>
> try
>
> lLinhaDados.Delimiter := ',';
>
> lLinhaDados.QuoteChar := '"';
>
> while fDadosTratados.Count > 0 do
>
> begin
>
> fCdsDadosTratados.Append;
>
> lLinhaDados.DelimitedText := fDadosTratados[0];
>
> for i := 0 to 15 do
>
> fCdsDadosTratados.Fields[i].AsString := lLinhaDados[i];
>
> fDadosTratados.Delete(0);
>
> end;
>
> finally
>
> lLinhaDados.Free;
>
> en

RES: [delphi-br] Importação ignora 1ª linha do a rquivo

[Ralp Alves Bezerra]

Pois é Rubem, desculpe por não citar seu nome. Foram tantas as pessoas que
tentaram ajudar que as vezes cometemos estes deslizes.

 

Já no caso da importação, aqui realmente ele não reconhece a primeira linha
do arquivo. Será que é por causa da extensão (.DCD)? Este é o padrão
utilizado pelo tribunal aqui do Ceará.

 

Abraço.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Rocha
Enviada em: sexta-feira, 23 de julho de 2010 15:21
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Importação ignora 1ª linha do arquivo
Prioridade: Alta

 

  

Analisei o fonte (que por sinal, fui eu que implementei inicialmente) e até
rodei ele com um arquivo de exemplo que o Ralp mandou para mim na época. Não
vi nada de anormal. Ele sempre pega todas as linhas do texto.

Sds.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
] Em
nome de Dirlei Dionísio
Enviada em: sexta-feira, 23 de julho de 2010 12:19
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Assunto: Re: [delphi-br] Importação ignora 1ª linha do arquivo

Ler código dentro de email é terrível. Se vc colocar o código no Pastebin (
http://pastebin.com) vai nos ajudar a te ajudar.

--
Dirlei Dionísio
Novo artigo: // Não comente seu código
http://MaisQueBomCodigo.blogspot.com

Em 23 de julho de 2010 10:11, Ralp Alves Bezerra mailto:ralprd%40gmail.com> >escreveu:

>
>
> Nobres colegas,
>
> Recentemente tive um problema com a importação de um arquivo.
>
> Com a ajuda dos nobres colegas e o envio de um exemplo pelo Walter,
> consegui
> sanar o problema.
>
> A importação foi realizada. Porém, fazendo uma analise mais detalhada,
> notei
> que primeira linha do arquivo nunca é importada. Fica sempre faltando o
> primeiro registro do arquivo.
>
> Estou postando abaixo o código utilizado. Se alguns dos nobres colegas
> poder
> me ajudar fico grato.
>
> Abraço.
>
> unit ufAnaliseDados;
>
> interface
>
> uses
>
> Classes, Forms, DB, Controls, Grids, DBGrids, DBClient, DBXpress, FMTBcd,
>
> DBXAutoInc, Provider, SqlExpr, RXCtrls, RXDBCtrl, Buttons, ExtCtrls,
>
> XiPanel, Dialogs, JvDialogs, XiProgressBar;
>
> type
>
> TfrmSIMNE = class(TForm)
>
> XiPanel1: TXiPanel;
>
> btImportar: TSpeedButton;
>
> dbgDados: TDBGrid;
>
> DBGrid1: TDBGrid;
>
> srcDados: TDataSource;
>
> JvOpenDialog1: TJvOpenDialog;
>
> Barra: TXiProgressBar;
>
> procedure btImportarClick(Sender: TObject);
>
> private
>
> fDadosTratados: TStringList;
>
> fCdsDadosTratados: TClientDataSet;
>
> procedure PrepararDados;
>
> procedure AnalisarArquivo;
>
> procedure CriarDataSet;
>
> procedure LiberarDados;
>
> public
>
> constructor Create(AOwner: TComponent); override;
>
> destructor Destroy; override;
>
> end;
>
> var
>
> frmSIMNE: TfrmSIMNE;
>
> implementation
>
> uses SysUtils, uDM, uImportaProcesso;
>
> {$R *.dfm}
>
> { TfrmAnaliseDados }
>
> procedure TfrmSIMNE.CriarDataSet;
>
> var
>
> i: integer;
>
> lLinhaDados: TStringList;
>
> begin
>
> { Cria o ClientDataSet }
>
> fCdsDadosTratados := TClientDataSet.Create(Self);
>
> { Define os campos que o ClientDataSet terá }
>
> with fCdsDadosTratados.FieldDefs do
>
> for i := 1 to 16 do
>
> Add(Format('Campo%2.2d', [i]), ftString, 40);
>
> { Cria o ClientDataset com os campos definidos }
>
> fCdsDadosTratados.CreateDataSet;
>
> { Preenche o ClientDataSet com os dados tratados }
>
> lLinhaDados := TStringList.Create;
>
> try
>
> lLinhaDados.Delimiter := ',';
>
> lLinhaDados.QuoteChar := '"';
>
> while fDadosTratados.Count > 0 do
>
> begin
>
> fCdsDadosTratados.Append;
>
> lLinhaDados.DelimitedText := fDadosTratados[0];
>
> for i := 0 to 15 do
>
> fCdsDadosTratados.Fields[i].AsString := lLinhaDados[i];
>
> fDadosTratados.Delete(0);
>
> end;
>
> finally
>
> lLinhaDados.Free;
>
> end;
>
> { Vincula o ClientDataSet ao DataSource associado ao DBGrid }
>
> srcDados.DataSet := fCdsDadosTratados;
>
> end;
>
> procedure TfrmSIMNE.AnalisarArquivo;
>
> var
>
> lQtde, lCampos: integer;
>
> lArquivo, lLinhaDados: TStringList;
>
> sLinhaDados: string;
>
> begin
>
> If JvOpenDialog1.Execute then
>
> Begin
>
> lArquivo := TStringList.Create;
>
> try
>
> lArquivo.LoadFromFile(JvOpenDialog1.FileName);
>
> lCampos := 0;
>
> lLinhaDados := TStringList.Create;
>
> try
>
> lLinhaDados

RES: [delphi-br] Importação ignora 1ª linha do a rquivo

[Ralp Alves Bezerra]

Seguindo o conselho do colega Dirlei postei o código no pastebin.

http://pastebin.com/f46svY5b

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Dirlei Dionísio
Enviada em: sexta-feira, 23 de julho de 2010 13:19
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Importação ignora 1ª linha do arquivo

Ler código dentro de email é terrível. Se vc colocar o código no Pastebin (
http://pastebin.com) vai nos ajudar a te ajudar.


--
Dirlei Dionísio
Novo artigo: // Não comente seu código
http://MaisQueBomCodigo.blogspot.com


Em 23 de julho de 2010 10:11, Ralp Alves Bezerra escreveu:

>
>
> Nobres colegas,
>
> Recentemente tive um problema com a importação de um arquivo.
>
> Com a ajuda dos nobres colegas e o envio de um exemplo pelo Walter, 
> consegui sanar o problema.
>
> A importação foi realizada. Porém, fazendo uma analise mais detalhada, 
> notei que primeira linha do arquivo nunca é importada. Fica sempre 
> faltando o primeiro registro do arquivo.
>
> Estou postando abaixo o código utilizado. Se alguns dos nobres colegas 
> poder me ajudar fico grato.
>
> Abraço.
>
> unit ufAnaliseDados;
>
> interface
>
> uses
>
> Classes, Forms, DB, Controls, Grids, DBGrids, DBClient, DBXpress, 
> FMTBcd,
>
> DBXAutoInc, Provider, SqlExpr, RXCtrls, RXDBCtrl, Buttons, ExtCtrls,
>
> XiPanel, Dialogs, JvDialogs, XiProgressBar;
>
> type
>
> TfrmSIMNE = class(TForm)
>
> XiPanel1: TXiPanel;
>
> btImportar: TSpeedButton;
>
> dbgDados: TDBGrid;
>
> DBGrid1: TDBGrid;
>
> srcDados: TDataSource;
>
> JvOpenDialog1: TJvOpenDialog;
>
> Barra: TXiProgressBar;
>
> procedure btImportarClick(Sender: TObject);
>
> private
>
> fDadosTratados: TStringList;
>
> fCdsDadosTratados: TClientDataSet;
>
> procedure PrepararDados;
>
> procedure AnalisarArquivo;
>
> procedure CriarDataSet;
>
> procedure LiberarDados;
>
> public
>
> constructor Create(AOwner: TComponent); override;
>
> destructor Destroy; override;
>
> end;
>
> var
>
> frmSIMNE: TfrmSIMNE;
>
> implementation
>
> uses SysUtils, uDM, uImportaProcesso;
>
> {$R *.dfm}
>
> { TfrmAnaliseDados }
>
> procedure TfrmSIMNE.CriarDataSet;
>
> var
>
> i: integer;
>
> lLinhaDados: TStringList;
>
> begin
>
> { Cria o ClientDataSet }
>
> fCdsDadosTratados := TClientDataSet.Create(Self);
>
> { Define os campos que o ClientDataSet terá }
>
> with fCdsDadosTratados.FieldDefs do
>
> for i := 1 to 16 do
>
> Add(Format('Campo%2.2d', [i]), ftString, 40);
>
> { Cria o ClientDataset com os campos definidos }
>
> fCdsDadosTratados.CreateDataSet;
>
> { Preenche o ClientDataSet com os dados tratados }
>
> lLinhaDados := TStringList.Create;
>
> try
>
> lLinhaDados.Delimiter := ',';
>
> lLinhaDados.QuoteChar := '"';
>
> while fDadosTratados.Count > 0 do
>
> begin
>
> fCdsDadosTratados.Append;
>
> lLinhaDados.DelimitedText := fDadosTratados[0];
>
> for i := 0 to 15 do
>
> fCdsDadosTratados.Fields[i].AsString := lLinhaDados[i];
>
> fDadosTratados.Delete(0);
>
> end;
>
> finally
>
> lLinhaDados.Free;
>
> end;
>
> { Vincula o ClientDataSet ao DataSource associado ao DBGrid }
>
> srcDados.DataSet := fCdsDadosTratados;
>
> end;
>
> procedure TfrmSIMNE.AnalisarArquivo;
>
> var
>
> lQtde, lCampos: integer;
>
> lArquivo, lLinhaDados: TStringList;
>
> sLinhaDados: string;
>
> begin
>
> If JvOpenDialog1.Execute then
>
> Begin
>
> lArquivo := TStringList.Create;
>
> try
>
> lArquivo.LoadFromFile(JvOpenDialog1.FileName);
>
> lCampos := 0;
>
> lLinhaDados := TStringList.Create;
>
> try
>
> lLinhaDados.Delimiter := ',';
>
> while lArquivo.Count > 0 do
>
> begin
>
> sLinhaDados := lArquivo[0];
>
> lLinhaDados.DelimitedText := sLinhaDados;
>
> lLinhaDados.QuoteChar := '"';
>
> lQtde := lLinhaDados.Count;
>
> if lCampos = 0 then
>
> lCampos := lQtde
>
> else if lQtde <> lCampos then
>
> raise Exception.CreateFmt(
>
> 'Quantidade de campos das linhas de dados é variável.' +
>
> sLineBreak + sLineBreak +
>
> sLinhaDados +
>
> sLineBreak + sLineBreak +
>
> '(%d <> %d).', [lQtde, lCampos])
>
> else
>
> fDadosTratados.Add(sLinhaDados);
>
> lArquivo.Delete(0);
>
> end;
>
> finally
>
> lLinhaDados.Free;
>
> end;
>
> finally
>
> lArquivo.Free;
>
> end;
>
> end;
>
> end;
>
> construct

Re: [delphi-br] Importação ignora 1ª linha do arquivo

[Cláudio Duarte S . Moraes]

 Na parte:

procedure TfrmSIMNE.CriarDataSet;

var

  i: integer;

  lLinhaDados: TStringList;

begin

  { Cria o ClientDataSet }

  fCdsDadosTratados := TClientDataSet.Create(Self);



  { Define os campos que o ClientDataSet terá }

  with fCdsDadosTratados.FieldDefs do

for i := 1 to 16 do

  Add(Format('Campo%2.2d', [i]), ftString, 40);

 como sao os itens do ClientDataSet, entao, faca:

for i := 0 to Count(fCdsDadosTratados.FieldDefs)-1 do

e por ai vai.



***
*** Cláudio Duarte S. de Moraes ***
**   Gerente de T. I.   ***
***  Magazine Sapatos   ***
**    (82) 2121-0323    ***
**    (82) 9101-7609***
** skype: claudio.dsm**
***


--- Em sex, 23/7/10, Ralp Alves Bezerra  escreveu:

> De: Ralp Alves Bezerra 
> Assunto: [delphi-br] Importação ignora 1ª linha do arquivo
> Para: delphi-br@yahoogrupos.com.br
> Data: Sexta-feira, 23 de Julho de 2010, 10:11
> Nobres colegas, 
> 
>  
> 
> Recentemente tive um problema com a importação de um
> arquivo.
> 
>  
> 
> Com a ajuda dos nobres colegas e o envio de um exemplo pelo
> Walter, consegui
> sanar o problema.
> 
>  
> 
> A importação foi realizada. Porém, fazendo uma analise
> mais detalhada, notei
> que primeira linha do arquivo nunca é importada. Fica
> sempre faltando o
> primeiro registro do arquivo.
> 
>  
> 
> Estou postando abaixo o código utilizado. Se alguns dos
> nobres colegas poder
> me ajudar fico grato.
> 
>  
> 
> Abraço.
> 
>  
> 
> unit ufAnaliseDados;
> 
>  
> 
> interface
> 
>  
> 
> uses
> 
>   Classes, Forms, DB, Controls, Grids, DBGrids,
> DBClient, DBXpress, FMTBcd,
> 
>   DBXAutoInc, Provider, SqlExpr, RXCtrls, RXDBCtrl,
> Buttons, ExtCtrls,
> 
>   XiPanel, Dialogs, JvDialogs, XiProgressBar;
> 
>  
> 
> type
> 
>   TfrmSIMNE = class(TForm)
> 
>     XiPanel1: TXiPanel;
> 
>     btImportar: TSpeedButton;
> 
>     dbgDados: TDBGrid;
> 
>     DBGrid1: TDBGrid;
> 
>     srcDados: TDataSource;
> 
>     JvOpenDialog1: TJvOpenDialog;
> 
>     Barra: TXiProgressBar;
> 
>     procedure btImportarClick(Sender: TObject);
> 
>   private
> 
>     fDadosTratados: TStringList;
> 
>     fCdsDadosTratados: TClientDataSet;
> 
>     procedure PrepararDados;
> 
>     procedure AnalisarArquivo;
> 
>     procedure CriarDataSet;
> 
>     procedure LiberarDados;
> 
>   public
> 
>     constructor Create(AOwner: TComponent);
> override;
> 
>     destructor Destroy; override;
> 
>   end;
> 
>  
> 
> var
> 
>   frmSIMNE: TfrmSIMNE;
> 
>  
> 
> implementation
> 
>  
> 
> uses SysUtils, uDM, uImportaProcesso;
> 
>  
> 
> {$R *.dfm}
> 
>  
> 
> { TfrmAnaliseDados }
> 
>  
> 
> procedure TfrmSIMNE.CriarDataSet;
> 
> var
> 
>   i: integer;
> 
>   lLinhaDados: TStringList;
> 
> begin
> 
>   { Cria o ClientDataSet }
> 
>   fCdsDadosTratados := TClientDataSet.Create(Self);
> 
>  
> 
>   { Define os campos que o ClientDataSet terá }
> 
>   with fCdsDadosTratados.FieldDefs do
> 
>     for i := 1 to 16 do
> 
>       Add(Format('Campo%2.2d', [i]),
> ftString, 40);
> 
>  
> 
>   { Cria o ClientDataset com os campos definidos }
> 
>   fCdsDadosTratados.CreateDataSet;
> 
>  
> 
>   { Preenche o ClientDataSet com os dados tratados }
> 
>   lLinhaDados := TStringList.Create;
> 
>   try
> 
>     lLinhaDados.Delimiter := ',';
> 
>     lLinhaDados.QuoteChar := '"';
> 
>     while fDadosTratados.Count > 0 do
> 
>     begin
> 
>       fCdsDadosTratados.Append;
> 
>       lLinhaDados.DelimitedText :=
> fDadosTratados[0];
> 
>       for i := 0 to 15 do
> 
>        
> fCdsDadosTratados.Fields[i].AsString := lLinhaDados[i];
> 
>       fDadosTratados.Delete(0);
> 
>     end;
> 
>   finally
> 
>     lLinhaDados.Free;
> 
>   end;
> 
>  
> 
>   { Vincula o ClientDataSet ao DataSource associado ao
> DBGrid }
> 
>   srcDados.DataSet := fCdsDadosTratados;
> 
> end;
> 
>  
> 
> procedure TfrmSIMNE.AnalisarArquivo;
> 
> var
> 
>   lQtde, lCampos: integer;
> 
>   lArquivo, lLinhaDados: TStringList;
> 
>   sLinhaDados: string;
> 
> begin
> 
>   If JvOpenDialog1.Execute then
> 
>   Begin
> 
>     lArquivo := TStringList.Create;
> 
>     try
> 
>      
> lArquivo.LoadFromFile(JvOpenDialog1.FileName);
> 
>       lCampos := 0;
> 
>       lLinhaDados := TS

RES: [delphi-br] Importação ignora 1ª linha do a rquivo

[Rubem Rocha]

Analisei o fonte (que por sinal, fui eu que implementei inicialmente) e até
rodei ele com um arquivo de exemplo que o Ralp mandou para mim na época. Não
vi nada de anormal. Ele sempre pega todas as linhas do texto.

Sds.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Dirlei Dionísio
Enviada em: sexta-feira, 23 de julho de 2010 12:19
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Importação ignora 1ª linha do arquivo

Ler código dentro de email é terrível. Se vc colocar o código no Pastebin (
http://pastebin.com) vai nos ajudar a te ajudar.


--
Dirlei Dionísio
Novo artigo: // Não comente seu código
http://MaisQueBomCodigo.blogspot.com


Em 23 de julho de 2010 10:11, Ralp Alves Bezerra escreveu:

>
>
> Nobres colegas,
>
> Recentemente tive um problema com a importação de um arquivo.
>
> Com a ajuda dos nobres colegas e o envio de um exemplo pelo Walter,
> consegui
> sanar o problema.
>
> A importação foi realizada. Porém, fazendo uma analise mais detalhada,
> notei
> que primeira linha do arquivo nunca é importada. Fica sempre faltando o
> primeiro registro do arquivo.
>
> Estou postando abaixo o código utilizado. Se alguns dos nobres colegas
> poder
> me ajudar fico grato.
>
> Abraço.
>
> unit ufAnaliseDados;
>
> interface
>
> uses
>
> Classes, Forms, DB, Controls, Grids, DBGrids, DBClient, DBXpress, FMTBcd,
>
> DBXAutoInc, Provider, SqlExpr, RXCtrls, RXDBCtrl, Buttons, ExtCtrls,
>
> XiPanel, Dialogs, JvDialogs, XiProgressBar;
>
> type
>
> TfrmSIMNE = class(TForm)
>
> XiPanel1: TXiPanel;
>
> btImportar: TSpeedButton;
>
> dbgDados: TDBGrid;
>
> DBGrid1: TDBGrid;
>
> srcDados: TDataSource;
>
> JvOpenDialog1: TJvOpenDialog;
>
> Barra: TXiProgressBar;
>
> procedure btImportarClick(Sender: TObject);
>
> private
>
> fDadosTratados: TStringList;
>
> fCdsDadosTratados: TClientDataSet;
>
> procedure PrepararDados;
>
> procedure AnalisarArquivo;
>
> procedure CriarDataSet;
>
> procedure LiberarDados;
>
> public
>
> constructor Create(AOwner: TComponent); override;
>
> destructor Destroy; override;
>
> end;
>
> var
>
> frmSIMNE: TfrmSIMNE;
>
> implementation
>
> uses SysUtils, uDM, uImportaProcesso;
>
> {$R *.dfm}
>
> { TfrmAnaliseDados }
>
> procedure TfrmSIMNE.CriarDataSet;
>
> var
>
> i: integer;
>
> lLinhaDados: TStringList;
>
> begin
>
> { Cria o ClientDataSet }
>
> fCdsDadosTratados := TClientDataSet.Create(Self);
>
> { Define os campos que o ClientDataSet terá }
>
> with fCdsDadosTratados.FieldDefs do
>
> for i := 1 to 16 do
>
> Add(Format('Campo%2.2d', [i]), ftString, 40);
>
> { Cria o ClientDataset com os campos definidos }
>
> fCdsDadosTratados.CreateDataSet;
>
> { Preenche o ClientDataSet com os dados tratados }
>
> lLinhaDados := TStringList.Create;
>
> try
>
> lLinhaDados.Delimiter := ',';
>
> lLinhaDados.QuoteChar := '"';
>
> while fDadosTratados.Count > 0 do
>
> begin
>
> fCdsDadosTratados.Append;
>
> lLinhaDados.DelimitedText := fDadosTratados[0];
>
> for i := 0 to 15 do
>
> fCdsDadosTratados.Fields[i].AsString := lLinhaDados[i];
>
> fDadosTratados.Delete(0);
>
> end;
>
> finally
>
> lLinhaDados.Free;
>
> end;
>
> { Vincula o ClientDataSet ao DataSource associado ao DBGrid }
>
> srcDados.DataSet := fCdsDadosTratados;
>
> end;
>
> procedure TfrmSIMNE.AnalisarArquivo;
>
> var
>
> lQtde, lCampos: integer;
>
> lArquivo, lLinhaDados: TStringList;
>
> sLinhaDados: string;
>
> begin
>
> If JvOpenDialog1.Execute then
>
> Begin
>
> lArquivo := TStringList.Create;
>
> try
>
> lArquivo.LoadFromFile(JvOpenDialog1.FileName);
>
> lCampos := 0;
>
> lLinhaDados := TStringList.Create;
>
> try
>
> lLinhaDados.Delimiter := ',';
>
> while lArquivo.Count > 0 do
>
> begin
>
> sLinhaDados := lArquivo[0];
>
> lLinhaDados.DelimitedText := sLinhaDados;
>
> lLinhaDados.QuoteChar := '"';
>
> lQtde := lLinhaDados.Count;
>
> if lCampos = 0 then
>
> lCampos := lQtde
>
> else if lQtde <> lCampos then
>
> raise Exception.CreateFmt(
>
> 'Quantidade de campos das linhas de dados é variável.' +
>
> sLineBreak + sLineBreak +
>
> sLinhaDados +
>
> sLineBreak + sLineBreak +
>
> '(%d <> %d).', [lQtde, lCampos])
>
> else
>
> fDadosTratados.Add(sLinhaDados);
>
> lArquivo.Delete(0);
>
> end;
>
> finally
>
> lLinhaDad

Re: [delphi-br] Importação ignora 1ª linha do arq uivo

[Dirlei Dionísio]

Ler código dentro de email é terrível. Se vc colocar o código no Pastebin (
http://pastebin.com) vai nos ajudar a te ajudar.


--
Dirlei Dionísio
Novo artigo: // Não comente seu código
http://MaisQueBomCodigo.blogspot.com


Em 23 de julho de 2010 10:11, Ralp Alves Bezerra escreveu:

>
>
> Nobres colegas,
>
> Recentemente tive um problema com a importação de um arquivo.
>
> Com a ajuda dos nobres colegas e o envio de um exemplo pelo Walter,
> consegui
> sanar o problema.
>
> A importação foi realizada. Porém, fazendo uma analise mais detalhada,
> notei
> que primeira linha do arquivo nunca é importada. Fica sempre faltando o
> primeiro registro do arquivo.
>
> Estou postando abaixo o código utilizado. Se alguns dos nobres colegas
> poder
> me ajudar fico grato.
>
> Abraço.
>
> unit ufAnaliseDados;
>
> interface
>
> uses
>
> Classes, Forms, DB, Controls, Grids, DBGrids, DBClient, DBXpress, FMTBcd,
>
> DBXAutoInc, Provider, SqlExpr, RXCtrls, RXDBCtrl, Buttons, ExtCtrls,
>
> XiPanel, Dialogs, JvDialogs, XiProgressBar;
>
> type
>
> TfrmSIMNE = class(TForm)
>
> XiPanel1: TXiPanel;
>
> btImportar: TSpeedButton;
>
> dbgDados: TDBGrid;
>
> DBGrid1: TDBGrid;
>
> srcDados: TDataSource;
>
> JvOpenDialog1: TJvOpenDialog;
>
> Barra: TXiProgressBar;
>
> procedure btImportarClick(Sender: TObject);
>
> private
>
> fDadosTratados: TStringList;
>
> fCdsDadosTratados: TClientDataSet;
>
> procedure PrepararDados;
>
> procedure AnalisarArquivo;
>
> procedure CriarDataSet;
>
> procedure LiberarDados;
>
> public
>
> constructor Create(AOwner: TComponent); override;
>
> destructor Destroy; override;
>
> end;
>
> var
>
> frmSIMNE: TfrmSIMNE;
>
> implementation
>
> uses SysUtils, uDM, uImportaProcesso;
>
> {$R *.dfm}
>
> { TfrmAnaliseDados }
>
> procedure TfrmSIMNE.CriarDataSet;
>
> var
>
> i: integer;
>
> lLinhaDados: TStringList;
>
> begin
>
> { Cria o ClientDataSet }
>
> fCdsDadosTratados := TClientDataSet.Create(Self);
>
> { Define os campos que o ClientDataSet terá }
>
> with fCdsDadosTratados.FieldDefs do
>
> for i := 1 to 16 do
>
> Add(Format('Campo%2.2d', [i]), ftString, 40);
>
> { Cria o ClientDataset com os campos definidos }
>
> fCdsDadosTratados.CreateDataSet;
>
> { Preenche o ClientDataSet com os dados tratados }
>
> lLinhaDados := TStringList.Create;
>
> try
>
> lLinhaDados.Delimiter := ',';
>
> lLinhaDados.QuoteChar := '"';
>
> while fDadosTratados.Count > 0 do
>
> begin
>
> fCdsDadosTratados.Append;
>
> lLinhaDados.DelimitedText := fDadosTratados[0];
>
> for i := 0 to 15 do
>
> fCdsDadosTratados.Fields[i].AsString := lLinhaDados[i];
>
> fDadosTratados.Delete(0);
>
> end;
>
> finally
>
> lLinhaDados.Free;
>
> end;
>
> { Vincula o ClientDataSet ao DataSource associado ao DBGrid }
>
> srcDados.DataSet := fCdsDadosTratados;
>
> end;
>
> procedure TfrmSIMNE.AnalisarArquivo;
>
> var
>
> lQtde, lCampos: integer;
>
> lArquivo, lLinhaDados: TStringList;
>
> sLinhaDados: string;
>
> begin
>
> If JvOpenDialog1.Execute then
>
> Begin
>
> lArquivo := TStringList.Create;
>
> try
>
> lArquivo.LoadFromFile(JvOpenDialog1.FileName);
>
> lCampos := 0;
>
> lLinhaDados := TStringList.Create;
>
> try
>
> lLinhaDados.Delimiter := ',';
>
> while lArquivo.Count > 0 do
>
> begin
>
> sLinhaDados := lArquivo[0];
>
> lLinhaDados.DelimitedText := sLinhaDados;
>
> lLinhaDados.QuoteChar := '"';
>
> lQtde := lLinhaDados.Count;
>
> if lCampos = 0 then
>
> lCampos := lQtde
>
> else if lQtde <> lCampos then
>
> raise Exception.CreateFmt(
>
> 'Quantidade de campos das linhas de dados é variável.' +
>
> sLineBreak + sLineBreak +
>
> sLinhaDados +
>
> sLineBreak + sLineBreak +
>
> '(%d <> %d).', [lQtde, lCampos])
>
> else
>
> fDadosTratados.Add(sLinhaDados);
>
> lArquivo.Delete(0);
>
> end;
>
> finally
>
> lLinhaDados.Free;
>
> end;
>
> finally
>
> lArquivo.Free;
>
> end;
>
> end;
>
> end;
>
> constructor TfrmSIMNE.Create(AOwner: TComponent);
>
> begin
>
> inherited Create(AOwner);
>
> PrepararDados;
>
> AnalisarArquivo;
>
> CriarDataSet;
>
> end;
>
> destructor TfrmSIMNE.Destroy;
>
> begin
>
> LiberarDados;
>
> inherited Destroy;
>
> end;
>
> procedure TfrmSIMNE.LiberarDados;
>
> begin
>
> if Assigned(fDadosTratados) then
>
> fDadosTratados.Free;
>
> if Assigned(fCdsDadosTratados) then
>
> begin
>
> fCdsDadosTratados.Close;
>
> fCdsDadosTratados.Free;
>
> end;
>
> end;
>
> procedure TfrmSIMNE.PrepararDados;
>
> begin
>
> fDadosTratados := TStringList.Create
>
> end;
>
> procedure TfrmSIMNE.btImportarClick(Sender: TObject);
>
> begin
>
> DM.cds_SIM601.Open;
>
> Try
>
> DM.cds_SIM601.DisableControls;
>
> fCdsDadosTratados.First;
>
> fCdsDadosTratados.DisableControls;
>
> Barra.Position:=0;
>
> Barra.Max:=fCdsDadosTratados.RecordCount;
>
> while not fCdsDadosTratados.Eof do
>
> Begin
>
> DM.cds_SIM601.Insert;
>
> DM.cds_SIM601.fieldbyname('Numero_NE').AsString
> :=fCdsDadosTratados.Fields[6].AsString;
>
> DM.cds_SIM601.fieldbyname('NP_Numero_Sub_Empenho').AsString
> :=fCdsDadosTratados.Fields[7].AsString;
>
> DM.cds_SIM601.fieldbyname('NP_Numero_NP').AsStri

[delphi-br] Importação ignora 1ª linha do arquivo

[Ralp Alves Bezerra]

Nobres colegas, 

 

Recentemente tive um problema com a importação de um arquivo.

 

Com a ajuda dos nobres colegas e o envio de um exemplo pelo Walter, consegui
sanar o problema.

 

A importação foi realizada. Porém, fazendo uma analise mais detalhada, notei
que primeira linha do arquivo nunca é importada. Fica sempre faltando o
primeiro registro do arquivo.

 

Estou postando abaixo o código utilizado. Se alguns dos nobres colegas poder
me ajudar fico grato.

 

Abraço.

 

unit ufAnaliseDados;

 

interface

 

uses

  Classes, Forms, DB, Controls, Grids, DBGrids, DBClient, DBXpress, FMTBcd,

  DBXAutoInc, Provider, SqlExpr, RXCtrls, RXDBCtrl, Buttons, ExtCtrls,

  XiPanel, Dialogs, JvDialogs, XiProgressBar;

 

type

  TfrmSIMNE = class(TForm)

XiPanel1: TXiPanel;

btImportar: TSpeedButton;

dbgDados: TDBGrid;

DBGrid1: TDBGrid;

srcDados: TDataSource;

JvOpenDialog1: TJvOpenDialog;

Barra: TXiProgressBar;

procedure btImportarClick(Sender: TObject);

  private

fDadosTratados: TStringList;

fCdsDadosTratados: TClientDataSet;

procedure PrepararDados;

procedure AnalisarArquivo;

procedure CriarDataSet;

procedure LiberarDados;

  public

constructor Create(AOwner: TComponent); override;

destructor Destroy; override;

  end;

 

var

  frmSIMNE: TfrmSIMNE;

 

implementation

 

uses SysUtils, uDM, uImportaProcesso;

 

{$R *.dfm}

 

{ TfrmAnaliseDados }

 

procedure TfrmSIMNE.CriarDataSet;

var

  i: integer;

  lLinhaDados: TStringList;

begin

  { Cria o ClientDataSet }

  fCdsDadosTratados := TClientDataSet.Create(Self);

 

  { Define os campos que o ClientDataSet terá }

  with fCdsDadosTratados.FieldDefs do

for i := 1 to 16 do

  Add(Format('Campo%2.2d', [i]), ftString, 40);

 

  { Cria o ClientDataset com os campos definidos }

  fCdsDadosTratados.CreateDataSet;

 

  { Preenche o ClientDataSet com os dados tratados }

  lLinhaDados := TStringList.Create;

  try

lLinhaDados.Delimiter := ',';

lLinhaDados.QuoteChar := '"';

while fDadosTratados.Count > 0 do

begin

  fCdsDadosTratados.Append;

  lLinhaDados.DelimitedText := fDadosTratados[0];

  for i := 0 to 15 do

fCdsDadosTratados.Fields[i].AsString := lLinhaDados[i];

  fDadosTratados.Delete(0);

end;

  finally

lLinhaDados.Free;

  end;

 

  { Vincula o ClientDataSet ao DataSource associado ao DBGrid }

  srcDados.DataSet := fCdsDadosTratados;

end;

 

procedure TfrmSIMNE.AnalisarArquivo;

var

  lQtde, lCampos: integer;

  lArquivo, lLinhaDados: TStringList;

  sLinhaDados: string;

begin

  If JvOpenDialog1.Execute then

  Begin

lArquivo := TStringList.Create;

try

  lArquivo.LoadFromFile(JvOpenDialog1.FileName);

  lCampos := 0;

  lLinhaDados := TStringList.Create;

  try

lLinhaDados.Delimiter := ',';

while lArquivo.Count > 0 do

begin

  sLinhaDados := lArquivo[0];

  lLinhaDados.DelimitedText := sLinhaDados;

  lLinhaDados.QuoteChar := '"';

  lQtde := lLinhaDados.Count;

  if lCampos = 0 then

lCampos := lQtde

  else if lQtde <> lCampos then

raise Exception.CreateFmt(

  'Quantidade de campos das linhas de dados é variável.' +

  sLineBreak + sLineBreak +

  sLinhaDados +

  sLineBreak + sLineBreak +

  '(%d <> %d).', [lQtde, lCampos])

  else

fDadosTratados.Add(sLinhaDados);

  lArquivo.Delete(0);

end;

  finally

lLinhaDados.Free;

  end;

finally

  lArquivo.Free;

end;

  end;

end;

 

constructor TfrmSIMNE.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

  PrepararDados;

  AnalisarArquivo;

  CriarDataSet;

end;

 

destructor TfrmSIMNE.Destroy;

begin

  LiberarDados;

  inherited Destroy;

end;

 

procedure TfrmSIMNE.LiberarDados;

begin

  if Assigned(fDadosTratados) then

fDadosTratados.Free;

  if Assigned(fCdsDadosTratados) then

  begin

fCdsDadosTratados.Close;

fCdsDadosTratados.Free;

  end;

end;

 

procedure TfrmSIMNE.PrepararDados;

begin

  fDadosTratados := TStringList.Create

end;

 

procedure TfrmSIMNE.btImportarClick(Sender: TObject);

begin

  DM.cds_SIM601.Open;

  Try

DM.cds_SIM601.DisableControls;

fCdsDadosTratados.First;

fCdsDadosTratados.DisableControls;

Barra.Position:=0;

Barra.Max:=fCdsDadosTratados.RecordCount;

while not fCdsDadosTratados.Eof do

Begin

DM.cds_SIM601.Insert;

DM.cds_SIM601.fieldbyname('Numero_NE').AsString
:=fCdsDadosTratados.Fields[6].AsString;

DM.cds_SIM601.fieldbyname('NP_Numero_Sub_Empenho').AsString
:=fCdsDadosTratados.Fields[7].AsString;

DM.cds_SIM601.fieldbyname('NP_Numero_NP').AsString
:=fCdsDadosTratados.Fields[8].AsString;

DM.cds_SIM601.fieldbyname('NP_Data_Ref_Doc').AsString
:=fCdsD

Re: RES: [delphi-br] Importação de Arquivo

[Fabricio Colombo]

 Quando utiliza o DelimitedText, ele respeita o conteúdo contido entre aspas
duplas, e agora que os decimas estão com ponto, pode usar o TStringList que
vai funcionar.

Faça o teste abaixo com uma linha do arquivo.

var
  vList: TStringList;
begin
  vList := TStringList.Create;
  try
vList.Delimiter := ',';
vList.DelimitedText :=  SuaLinha;

Memo1.Lines.Assign(vList);
  finally
vList.Free;
  end;



Em 14 de julho de 2010 13:15, Rubem Rocha escreveu:

>
>
> Ok. Identifiquei que são 38 campos em cada linha de dados. Só preciso saber
> o significado e tipo de dados de cada um deles.
>
> Sds.
>
> De: delphi-br@yahoogrupos.com.br  [mailto:
> delphi-br@yahoogrupos.com.br ] Em nome de
> Ralp Alves Bezerra
> Enviada em: quarta-feira, 14 de julho de 2010 11:07
>
> Para: 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   delphi-br%40yahoogrupos.com.br >
> [mailto:delphi-br@yahoogrupos.com.br  delphi-br%40yahoogrupos.com.br > ] Em
> nome de Rubem Rocha
>
> Enviada em: quarta-feira, 14 de julho de 2010 11:00
> Para: delphi-br@yahoogrupos.com.br  delphi-br%40yahoogrupos.com.br >
> Assunto: RES: RES: [delphi-br] Importação de Arquivo
> Prioridade: Alta
>
> Cara, me manda um exemplo de arquivo TXT nesse formato. Penso que não seja
> tão cabeludo esse problema pra resolver. Vou montar um exemplo de análise de
> texto nesse formato, mostrando o conteúdo em um DBGrid. Tenho certeza que
> isso não é dilema ou paradoxo tão complexo pra ser resolvido. Se estiver
> como você que necessita, eu posto o exemplo na área de arquivos da lista pro
> povo todo ver que isso é simples de resolver.
>
> Sds.
>
> De: delphi-br@yahoogrupos.com.br   delphi-br%40yahoogrupos.com.br >
> <mailto:delphi-br%40yahoogrupos.com.br >
> [mailto:delphi-br@yahoogrupos.com.br  delphi-br%40yahoogrupos.com.br >
> <mailto: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  delphi-br%40yahoogrupos.com.br >
> <mailto:delphi-br%40yahoogrupos.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”,””,10.200,25,”098”
>
> Esta sendo um grande dilema.
>
> Abraço.
>
> De: delphi-br@yahoogrupos.com.br   delphi-br%40yahoogrupos.com.br >
> <mailto:delphi-br%40yahoogrupos.com.br >
> <mailto:delphi-br%40yahoogrupos.com.br >
> [mailto:delphi-br@yahoogrupos.com.br  delphi-br%40yahoogrupos.com.br >
> <mailto:delphi-br%40yahoogrupos.com.br >
> <mailto:delphi-br%40yahoogrupos.com.br >
> ] Em nome de Marcelo
>
> Enviada em: terça-feira, 13 de julho de 2010 21:06
> Para: delphi-br@yahoogrupos.com.br  delphi-br%40yahoogrupos.com.br >
> <mailto:delphi-br%40yahoogrupos.com.br >
> <mailto:delphi-br%40yahoogrupos.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
> separação. Já trabalhei comarquivos txt parecido com este mas todos os
> campos
> vinham separados por aspas duplas. Agora este caso tem que analisar um
> pouco.
> De: sWalter Chagas (Bol)  wchagasj%40bol.com.br >  wchagasj%40bol.com.br >  wchagasj%40bol.com.br >  wchagasj%40bol.com.br > >
> Para: delphi-br@yahoogrupos.com.br  delphi-br%40yahoogrupos.com.br >
> <mailto:delphi-br%40yahoogrupos.com.br >
> <mailto:delphi-br%40yahoogrupos.com.br >
> <mailto:delphi-br%40yahoogrupos.com.br >
>
> Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16
> Assunto: Re: RES: [delphi-br] Importação de Arquivo
>
> Não não não não.
>
> Da forma como você está propondo, voce supoe que entre os valores do tipo
> String
> (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas
> e se
> vier dois ou mais na sequência?? Veja o caso abaixo:
>
>
> "601","029",2.010,98,1.011,32,"01",20100517,17,05,20,10,"04","122","0003","2
> ","002","","33901400","130.00"
>
> como ficaria este caso?
>
> []s
>
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> wchag...@bol.com.br  
> <mailto:wchagasj%40bol.com.br>
> <mailto:wchagasj%40bol.com.br >  wchagasj%40bol.com.br >

RES: RES: [delphi-br] Importação de Arquivo (Res olvido)

[Ralp Alves Bezerra]

Gostaria de agradecer a todos na lista que se despuseram a sanar minha
dúvida.

 

O exemplo que o Rubem Rocha enviou serviu como uma luva.

 

Gostaria de agradecer também ao nobres colegas Daniel Azevedo, Fabricio
Colombo, Jean Barreiros, Walter Chagas, Marcos Douglas e a todos que de
alguma 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] Importação de Arquivo
Prioridade: Alta

 

  

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-br%40yahoogrupos.com.br>
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
] Em
nome de Fabricio Colombo
Enviada em: quarta-feira, 14 de julho de 2010 09:23
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Assunto: Re: RES: [delphi-br] Importação de Arquivo

var
vList: TStringList;
begin
vList := TStringList.Create;
try
vList.Delimiter := ',';
vList.DelimitedText := SuaLinha;

Memo1.Lines.Assign(vList);
finally
vList.Free;
end;

Quando utiliza o DelimitedText, ele respeita o conteúdo contido entre aspas
duplas, e agora que os decimas estão com ponto, vai funcionar perfeitamente.

Em 14 de julho de 2010 10:03, Ralp Alves Bezerra mailto:ralprd%40gmail.com> >escreveu:

>
>
> 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árias dentro do arquivo.
>
>
"601","029",201000,"02","01",20100512,"12050002",201005,"04","122","0003","2
","002","","33901400","O","Valor
> que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria
> para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da
> APRECE, no periodo de
>
14/05/2010.",11400.00,250.00,11150.00,"","",0,"",0,"F","7","777","PE
DRO
> ROGERIO MORAIS","RUA PROFESSOR NICACIO, S/N
> CENTRO","00883663126","6257","BELA CRUZ","CE",0,"","","01192619366"
>
> Os valores agora não tem mais vírgulas nas casas decimais. Porém, no
> histórico:"Valor que se empenha p/ fazer face as despesas com Concessao de
> 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais
> na Sede da APRECE, no periodo de 14/05/2010." existe a utilização de
> vírgulas. Sendo assim, não posso converter as vírgulas para ponto e
vírgula.
>
> Outro caso, é a existência de campos em branco: "BELA
> CRUZ","CE",0,"","","01192619366".
>
> Como devo proceder a partir de agora?
>
> Abraços.
>
> De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
 [mailto:
> delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
] Em nome de
> Marcos Douglas
> Enviada em: quarta-feira, 14 de julho de 2010 09:22
>
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>

> Assunto: Re: RES: [delphi-br] Importação de Arquivo
>
> 2010/7/14 Walter Chagas (Bol) mailto:wchagasj%40bol.com.br> 
 wchagasj%40bol.com.br > >:
>
> > Ruben, torno a questionar.
> >
> > E se tiver dois valores float na sequencia? Lembre-se que os valores
> float não vem entre aspas.
>
> Li todos os emails desta thread e gostaria de fazer um comentário.
> Se não há um padrão[1] no arquivo então, conceitualmente, este arquivo
> está errado e não pode ser lido com 100% de certeza, ou seja, algo
> deverá ser "interpretado" da melhor forma possível, caso o sistema
> encontre uma "anomalia".
>
> [1] Alguns conceitos utilizados em muitos arquivos textos formatados:
> - cada coluna tem um número determinado de caracteres
> - delimitador único para cada coluna: os arquivos csv são exemplos,
> mas quando há vírgulas dentro de um dado, este é quotado com aspas.
> - prefixos para cada tipo de informação: uma letra, simbolo, etc
> - prefixo+sufixo que delimitam uma informação: ex é uma sequencia de
> caracteres como [[informação]]
> - etc.
>
> Abraço,
> MD.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>





[As partes desta mensagem que não continham texto foram removidas]

RES: RES: [delphi-br] Importação de Arquivo

[Rubem Rocha]

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
Enviada em: quarta-feira, 14 de julho de 2010 09:23
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Importação de Arquivo

var
  vList: TStringList;
begin
  vList := TStringList.Create;
  try
vList.Delimiter := ',';
vList.DelimitedText :=  SuaLinha;

Memo1.Lines.Assign(vList);
  finally
vList.Free;
  end;

 Quando utiliza o DelimitedText, ele respeita o conteúdo contido entre aspas
duplas, e agora que os decimas estão com ponto, vai funcionar perfeitamente.

Em 14 de julho de 2010 10:03, Ralp Alves Bezerra escreveu:

>
>
> 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árias dentro do arquivo.
>
>
"601","029",201000,"02","01",20100512,"12050002",201005,"04","122","0003","2
","002","","33901400","O","Valor
> que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria
> para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da
> APRECE, no periodo de
>
14/05/2010.",11400.00,250.00,11150.00,"","",0,"",0,"F","7","777","PE
DRO
> ROGERIO MORAIS","RUA PROFESSOR NICACIO, S/N
> CENTRO","00883663126","6257","BELA CRUZ","CE",0,"","","01192619366"
>
> Os valores agora não tem mais vírgulas nas casas decimais. Porém, no
> histórico:"Valor que se empenha p/ fazer face as despesas com Concessao de
> 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais
> na Sede da APRECE, no periodo de 14/05/2010." existe a utilização de
> vírgulas. Sendo assim, não posso converter as vírgulas para ponto e
vírgula.
>
> Outro caso, é a existência de campos em branco: "BELA
> CRUZ","CE",0,"","","01192619366".
>
> Como devo proceder a partir de agora?
>
> Abraços.
>
> De: delphi-br@yahoogrupos.com.br  [mailto:
> delphi-br@yahoogrupos.com.br ] Em nome de
> Marcos Douglas
> Enviada em: quarta-feira, 14 de julho de 2010 09:22
>
> Para: delphi-br@yahoogrupos.com.br 
> Assunto: Re: RES: [delphi-br] Importação de Arquivo
>
> 2010/7/14 Walter Chagas (Bol)  wchagasj%40bol.com.br > >:
>
> > Ruben, torno a questionar.
> >
> > E se tiver dois valores float na sequencia? Lembre-se que os valores
> float não vem entre aspas.
>
> Li todos os emails desta thread e gostaria de fazer um comentário.
> Se não há um padrão[1] no arquivo então, conceitualmente, este arquivo
> está errado e não pode ser lido com 100% de certeza, ou seja, algo
> deverá ser "interpretado" da melhor forma possível, caso o sistema
> encontre uma "anomalia".
>
> [1] Alguns conceitos utilizados em muitos arquivos textos formatados:
> - cada coluna tem um número determinado de caracteres
> - delimitador único para cada coluna: os arquivos csv são exemplos,
> mas quando há vírgulas dentro de um dado, este é quotado com aspas.
> - prefixos para cada tipo de informação: uma letra, simbolo, etc
> - prefixo+sufixo que delimitam uma informação: ex é uma sequencia de
> caracteres como [[informação]]
> - etc.
>
> Abraço,
> MD.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>

Re: RES: RES: [delphi-br] Importação de Arqui vo

[Daniel Azevedo]

blz Ralp  a rotina ... mas nao testei pq fiz meio de cabeça sem usar o 
delphi
mas a ideia acho q é essa mesmo

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:
>  
>
> Desculpe Daniel, troquei o seu nome pelo do Walter.
>
> Não sei o que houve aqui em meu micro. Meu outlook parou de funcionar 
> e não consigo recuperar minhas mensagens.
>
> Poderia me enviar novamente a rotina?
>
> Abraço.
>
> De: delphi-br@yahoogrupos.com.br 
> <mailto:delphi-br%40yahoogrupos.com.br> 
> [mailto:delphi-br@yahoogrupos.com.br 
> <mailto:delphi-br%40yahoogrupos.com.br>] Em nome de Daniel Azevedo
> Enviada em: terça-feira, 13 de julho de 2010 17:24
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> Assunto: Re: RES: [delphi-br] Importação de Arquivo
>
> A rotina q te mandei faz justamente isso, ignora as virgulas
> pega a Aspas + a virgula ", para identificar o final do campo valido
> quero dizer... foi esta a intenção
> mais a noite vou estar com o delphi e posso fazer a rotina funcionar
> caso ela nao tenha funcionado
>
> se ate la nao tiver resolvido eu monto uma e ja faço os testes
> e te entrego funfando
>
> Walter Chagas (Bol) escreveu:
> >
> >
> > é mas e a virgula dos valores decimais??
> >
> > É um enigma essa parada daí.
> >
> > []s
> >
> >
> > Walter Alves Chagas Junior
> > Belo Horizonte - MG - Brazil
> > wchag...@bol.com.br <mailto:wchagasj%40bol.com.br> 
> <mailto:wchagasj%40bol.com.br> <mailto:wchagasj%40bol.com.br>
> > http://delphitocorporerm.blogspot.com/
> > http://twitter.com/wchagas
> > MSN: whitesock...@hotmail.com <mailto:whitesockets%40hotmail.com> 
> <mailto:whitesockets%40hotmail.com> <mailto:whitesockets%40hotmail.com>
> > SKYPE: WalterChagasJr
> >
> > - Original Message -
> > From: Marcelo
> > To: delphi-br@yahoogrupos.com.br 
> <mailto:delphi-br%40yahoogrupos.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ção de Arquivo
> >
> > 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 mailto:ralprd%40gmail.com> 
> <mailto:ralprd%40gmail.com> <mailto:ralprd%40gmail.com>>
> > Para: delphi-br@yahoogrupos.com.br 
> <mailto:delphi-br%40yahoogrupos.com.br> 
> <mailto:delphi-br%40yahoogrupos.com.br> 
> <mailto:delphi-br%40yahoogrupos.com.br>
> > Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
> > Assunto: RES: [delphi-br] Importação de Arquivo
> >
> > Não estou conseguindo montar uma rotina para pegar os dados contidos
> > dentro
> > das aspas duplas e delimitadas por vírgula.
> >
> > Existe um campo no formato "100.000,00" que também contém vírgulas 
> em seu
> > conteúdo.
> >
> > De: delphi-br@yahoogrupos.com.br 
> <mailto:delphi-br%40yahoogrupos.com.br> 
> <mailto:delphi-br%40yahoogrupos.com.br>
> > <mailto:delphi-br%40yahoogrupos.com.br>
> > [mailto:delphi-br@yahoogrupos.com.br 
> <mailto:delphi-br%40yahoogrupos.com.br> 
> <mailto:delphi-br%40yahoogrupos.com.br>
> > <mailto:delphi-br%40yahoogrupos.com.br>] Em
> > nome de Rubem Nascimento da Rocha
> > Enviada em: terça-feira, 13 de julho de 2010 15:54
> > Para: delphi-br
> > Assunto: RE: [delphi-br] Importação de Arquivo
> > Prioridade: Alta
> >
> > Qual é exatamente a sua dificuldade?
> >
> > Sds.
> >
> > To: delphi-br@yahoogrupos.com.br 
> <mailto:delphi-br%40yahoogrupos.com.br> 
> <mailto:delphi-br%40yahoogrupos.com.br>
> > <mailto:delphi-br%40yahoogrupos.com.br>
> > <mailto:delphi-br%40yahoogrupos.com.br>
> > From: ral...@gmail.com <mailto:ralprd%40gmail.com> 
> <mailto:ralprd%40gmail.com> <mailto:ralprd%

Re: RES: [delphi-br] Importação de Arquivo

[Fabricio Colombo]

var
  vList: TStringList;
begin
  vList := TStringList.Create;
  try
vList.Delimiter := ',';
vList.DelimitedText :=  SuaLinha;

Memo1.Lines.Assign(vList);
  finally
vList.Free;
  end;

 Quando utiliza o DelimitedText, ele respeita o conteúdo contido entre aspas
duplas, e agora que os decimas estão com ponto, vai funcionar perfeitamente.

Em 14 de julho de 2010 10:03, Ralp Alves Bezerra escreveu:

>
>
> 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árias dentro do arquivo.
>
> "601","029",201000,"02","01",20100512,"12050002",201005,"04","122","0003","2","002","","33901400","O","Valor
> que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria
> para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da
> APRECE, no periodo de
> 14/05/2010.",11400.00,250.00,11150.00,"","",0,"",0,"F","7","777","PEDRO
> ROGERIO MORAIS","RUA PROFESSOR NICACIO, S/N
> CENTRO","00883663126","6257","BELA CRUZ","CE",0,"","","01192619366"
>
> Os valores agora não tem mais vírgulas nas casas decimais. Porém, no
> histórico:"Valor que se empenha p/ fazer face as despesas com Concessao de
> 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais
> na Sede da APRECE, no periodo de 14/05/2010." existe a utilização de
> vírgulas. Sendo assim, não posso converter as vírgulas para ponto e vírgula.
>
> Outro caso, é a existência de campos em branco: "BELA
> CRUZ","CE",0,"","","01192619366".
>
> Como devo proceder a partir de agora?
>
> Abraços.
>
> De: delphi-br@yahoogrupos.com.br  [mailto:
> delphi-br@yahoogrupos.com.br ] Em nome de
> Marcos Douglas
> Enviada em: quarta-feira, 14 de julho de 2010 09:22
>
> Para: delphi-br@yahoogrupos.com.br 
> Assunto: Re: RES: [delphi-br] Importação de Arquivo
>
> 2010/7/14 Walter Chagas (Bol)   wchagasj%40bol.com.br > >:
>
> > Ruben, torno a questionar.
> >
> > E se tiver dois valores float na sequencia? Lembre-se que os valores
> float não vem entre aspas.
>
> Li todos os emails desta thread e gostaria de fazer um comentário.
> Se não há um padrão[1] no arquivo então, conceitualmente, este arquivo
> está errado e não pode ser lido com 100% de certeza, ou seja, algo
> deverá ser "interpretado" da melhor forma possível, caso o sistema
> encontre uma "anomalia".
>
> [1] Alguns conceitos utilizados em muitos arquivos textos formatados:
> - cada coluna tem um número determinado de caracteres
> - delimitador único para cada coluna: os arquivos csv são exemplos,
> mas quando há vírgulas dentro de um dado, este é quotado com aspas.
> - prefixos para cada tipo de informação: uma letra, simbolo, etc
> - prefixo+sufixo que delimitam uma informação: ex é uma sequencia de
> caracteres como [[informação]]
> - etc.
>
> Abraço,
> MD.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>


[As partes desta mensagem que não continham texto foram removidas]





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RES: RES: [delphi-br] Importação de Arquivo

[Rubem Rocha]

Ok. Identifiquei que são 38 campos em cada linha de dados. Só preciso saber o 
significado e tipo de dados de cada um deles.

Sds.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome 
de Ralp Alves Bezerra
Enviada em: quarta-feira, 14 de julho de 2010 11:07
Para: 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:delphi-br%40yahoogrupos.com.br> ] 
Em nome de Rubem Rocha
Enviada em: quarta-feira, 14 de julho de 2010 11:00
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Assunto: RES: RES: [delphi-br] Importação de Arquivo
Prioridade: Alta

Cara, me manda um exemplo de arquivo TXT nesse formato. Penso que não seja tão 
cabeludo esse problema pra resolver. Vou montar um exemplo de análise de texto 
nesse formato, mostrando o conteúdo em um DBGrid. Tenho certeza que isso não é 
dilema ou paradoxo tão complexo pra ser resolvido. Se estiver como você que 
necessita, eu posto o exemplo na área de arquivos da lista pro povo todo ver 
que isso é simples de resolver.

Sds.

De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> [mailto:delphi-br@yahoogrupos.com.br 
<mailto:delphi-br%40yahoogrupos.com.br>  
<mailto: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>  
<mailto:delphi-br%40yahoogrupos.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”,””,10.200,25,”098”

Esta sendo um grande dilema.

Abraço.

De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> 
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> 
] Em nome de Marcelo
Enviada em: terça-feira, 13 de julho de 2010 21:06
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.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 
separação. Já trabalhei comarquivos txt parecido com este mas todos os campos 
vinham separados por aspas duplas. Agora este caso tem que analisar um pouco.
De: sWalter Chagas (Bol) mailto:wchagasj%40bol.com.br>  
<mailto:wchagasj%40bol.com.br> <mailto:wchagasj%40bol.com.br> 
<mailto:wchagasj%40bol.com.br> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> 
<mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16
Assunto: Re: RES: [delphi-br] Importação de Arquivo

Não não não não.

Da forma como você está propondo, voce supoe que entre os valores do tipo 
String 
(que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se 
vier dois ou mais na sequência?? Veja o caso abaixo:

"601","029",2.010,98,1.011,32,"01",20100517,17,05,20,10,"04","122","0003","2
","002","","33901400","130.00"

como ficaria este caso?

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br <mailto:wchagasj%40bol.com.br>  
<mailto:wchagasj%40bol.com.br> <mailto:wchagasj%40bol.com.br> 
<mailto:wchagasj%40bol.com.br> 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com <mailto:whitesockets%40hotmail.com>  
<mailto:whitesockets%40hotmail.com> <mailto:whitesockets%40hotmail.com> 
<mailto:whitesockets%40hotmail.com> 
SKYPE: WalterChagasJr

- Original Message - 
From: Marcelo 
To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> 
<mailto:delphi-br%40yahoogrupos.com.br> 
Sent: Tuesday, July 13, 2010 5:29 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo

tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores 
decimais não será substituida. Ai ele terá um separador padrão o ponto e 
virgula. d

Res: RES: RES: RES: [delphi-br] Importação de Arquivo

[Jean Barreiros]

você nao viu a solução que eu mandei ontem?

=

segue a forma de você resolver: 
(
Eu coloquei um ClientDatSet no form e criei 15 Fields chamdos: 
campo1...2..3..4..15 como string
e campo16 como Float, os tamanhos são de acordo a cada campo do txt
)

procedure TForm1.Button1Click(Sender: TObject);
var arq: TextFile; linha:string;
begin
ClientDataSet1.CreateDataSet;
AssignFile(arq,'dados.txt');
Reset(arq);
while not Eof(arq) do
begin
ClientDataSet1.Append;
ReadLn(arq,linha);//Ler os dados da linha;
linha := StringReplace(linha,',',';',[rfReplaceAll]);
linha := StringReplace(linha,'"','',[rfReplaceAll]);
//Delete(linha,1,1);//apaga a 1ª aspas duplas;
ClientDataSet1.Fields[0].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[1].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[2].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[3].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[4].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[5].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[6].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[7].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[8].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[9].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[10].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[11].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[12].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[13].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[14].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
linha := StringReplace(linha,'.','',[rfReplaceAll]);//Transforma os '.' em 
',' para separar a casa de milar;
linha := StringReplace(linha,';',',',[rfReplaceAll]);//Transforma os ';' em 
'.' para separar a casa decimal;
ClientDataSet1.Fields[15].AsFloat := 
StrToFloat(linha);//FormatFloat('###,###,#0.00',StrToFloat(linha));
ClientDataSet1.Post;
end;
end;

espero 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
===





De: Ralp Alves Bezerra 
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 14 de Julho de 2010 12:45:15
Assunto: RES: RES: RES: [delphi-br] Importação de Arquivo

  
Desculpe pessoal é porque eu realmente nunca importei um arquivo de texto
com esta estrutura.

Seguindo a dica do Rubem, consegui esta procedure para tratar o arquivo
antes da importação:

procedure  FileReplaceString( const FileName, searchstring, replacestring:
string  );
var
fs: TFileStream;
S: string ;
begin
fs := TFileStream.Create(FileName, fmOpenread or fmShareDenyNone);
try
SetLength(S, fs.Size);
fs.ReadBuffer(S[1], fs.Size);
finally
fs.Free;
end ;
S  := StringReplace(S, SearchString, replaceString, [rfReplaceAll,
rfIgnoreCase]);
fs := TFileStream.Create(FileName, fmCreate);
try
fs.WriteBuffer(S[1], Length(S));
finally
fs.Free;
end ;

Estou utilizando da seguinte maneira:

StringReplace(Entrada, ',"'  ,  ';'  , [rfReplaceAll] );
StringReplace(Entrada, '",'  ,  ';'  , [rfReplaceAll] );
StringReplace(Entrada, '","'  ,  ';'  , [rfReplaceAll] );

Funcionou parcialmente. O problema agora é com os campos do tipo float que
não estão entre aspas duplas. Eles continuam com a vírgula na delimitação.

E se eu substituir as vírgulas por ponto e vírgula, a vírgula do histórico
também muda. Ai gera o problema.

;0254;Atender as necessidades das Escolas deste Municipio, conforme Termo de
Contrato no 021/2010.;2295.32,787.00,1508.32,

Abraço.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Nascimento da Rocha
Enviada em: quarta-feira, 14

RES: RES: RES: [delphi-br] Importação de Arquivo

[Ralp Alves Bezerra]

Desculpe pessoal é porque eu realmente nunca importei um arquivo de texto
com esta estrutura.

Seguindo a dica do Rubem, consegui esta procedure para tratar o arquivo
antes da importação:

procedure  FileReplaceString( const FileName, searchstring, replacestring:
string  );
var
fs: TFileStream;
S: string ;
begin
  fs := TFileStream.Create(FileName, fmOpenread or fmShareDenyNone);
  try
SetLength(S, fs.Size);
fs.ReadBuffer(S[1], fs.Size);
  finally
fs.Free;
  end ;
S  := StringReplace(S, SearchString, replaceString, [rfReplaceAll,
rfIgnoreCase]);
fs := TFileStream.Create(FileName, fmCreate);
  try
fs.WriteBuffer(S[1], Length(S));
  finally
fs.Free;
  end ;

Estou utilizando da seguinte maneira:

StringReplace(Entrada, ',"'  ,  ';'  , [rfReplaceAll] );
StringReplace(Entrada, '",'  ,  ';'  , [rfReplaceAll] );
StringReplace(Entrada, '","'  ,  ';'  , [rfReplaceAll] );

Funcionou parcialmente. O problema agora é com os campos do tipo float que
não estão entre aspas duplas. Eles continuam com a vírgula na delimitação.

E se eu substituir as vírgulas por ponto e vírgula, a vírgula do histórico
também muda. Ai gera o problema.

;0254;Atender as necessidades das Escolas deste Municipio, conforme Termo de
Contrato no 021/2010.;2295.32,787.00,1508.32,

Abraço.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Nascimento 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) '","';

2) ',"';

3) '",'

 

Isso não impacta, por exemplo, no conteúdo de um campo literal(string) como
o que vc ilustrou. Pensei q isto estivesse claro!

 

Sds.
 


To: delphi-br@yahoogrupos.com.br
From: ral...@gmail.com
Date: Wed, 14 Jul 2010 11:54:06 -0300
Subject: RES: RES: [delphi-br] Importação de Arquivo

  



O que ocorre é o seguinte:

Neste arquivo texto contém um campo histórico da seguinte forma. exemplo:
“Pagamento efetuado em 25/14, visto que houve atraso.” 

Note que existe uma vírgula dentro do histórico.

Retirar as aspas duplas é beleza, porém, se for substituir as vírgulas por
ponto e vírgula, a vírgula contida dentro do campo histórico também será
substituída por ponto e vírgula. (é vírgula demais!)

Neste caso, pode ser interpretada como novo campo.

Será que existe alguma maneira de antes de eliminar as aspas duplas e
substituir as vírgulas por ponto e vírgula, efetuar uma pesquisa em tudo que
se encontra dentro das aspas duplas e se for encontrada alguma vírgula a
mesma ser eliminada?

Abraço.

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 11:03
Para: delphi-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-br%40yahoogrupos.com.br>
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
] Em nome de Walter Chagas (Bol) Enviada em: quarta-feira, 14 de julho de
2010 08:00
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
Assunto: Re: RES: [delphi-br] Importação de Arquivo

Ruben, torno a questionar.

E se tiver dois valores float na sequencia? Lembre-se que os valores float
não vem entre aspas.

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br <mailto:wchagasj%40bol.com.br>
<mailto:wchagasj%40bol.com.br> http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com <mailto:whitesockets%40hotmail.com>
<mailto:whitesockets%40hotmail.com>
SKYPE: WalterChagasJr

- Original Message -
From: Rubem Rocha
To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
<mailto: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 valores dos campos delimitados por
ponto-e-vírgula! Bem mais fácil pra ler, não?

Sds.

De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
<mailto:delphi-br%40yahoogrupos.com.br> [mailto:delphi-br@yahoogrupos.com.br
<mailto:delphi-br%40yahoogrupos.com.br>
<mailto:delphi-br%40yahoogrupos.com.br> ] Em nome de Walter Chagas (Bol)
Enviada em: terça-feira, 13 de julho de 2010 17:06
P

RES: RES: [delphi-br] Importação de Arquivo

[Ralp Alves Bezerra]

O arquivo original

 

http://www.grupog2gestao.com.br/NE201005.txt

 

 

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 11:00
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: RES: [delphi-br] Importação de Arquivo
Prioridade: Alta

 

  

Cara, me manda um exemplo de arquivo TXT nesse formato. Penso que não seja tão 
cabeludo esse problema pra resolver. Vou montar um exemplo de análise de texto 
nesse formato, mostrando o conteúdo em um DBGrid. Tenho certeza que isso não é 
dilema ou paradoxo tão complexo pra ser resolvido. Se estiver como você que 
necessita, eu posto o exemplo na área de arquivos da lista pro povo todo ver 
que isso é simples de resolver.

Sds.

De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
[mailto:delphi-br@yahoogrupos.com.br <mailto: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 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”,””,10.200,25,”098”

Esta sendo um grande dilema.

Abraço.

De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> [mailto:delphi-br@yahoogrupos.com.br 
<mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> ] Em nome de Marcelo
Enviada em: terça-feira, 13 de julho de 2010 21:06
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.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 
separação. Já trabalhei comarquivos txt parecido com este mas todos os campos 
vinham separados por aspas duplas. Agora este caso tem que analisar um pouco.
De: sWalter Chagas (Bol) mailto:wchagasj%40bol.com.br>  
<mailto:wchagasj%40bol.com.br> <mailto:wchagasj%40bol.com.br> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16
Assunto: Re: RES: [delphi-br] Importação de Arquivo

Não não não não.

Da forma como você está propondo, voce supoe que entre os valores do tipo 
String 
(que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se 
vier dois ou mais na sequência?? Veja o caso abaixo:

"601","029",2.010,98,1.011,32,"01",20100517,17,05,20,10,"04","122","0003","2
","002","","33901400","130.00"

como ficaria este caso?

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br <mailto:wchagasj%40bol.com.br>  
<mailto:wchagasj%40bol.com.br> <mailto:wchagasj%40bol.com.br> 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com <mailto:whitesockets%40hotmail.com>  
<mailto:whitesockets%40hotmail.com> <mailto:whitesockets%40hotmail.com> 
SKYPE: WalterChagasJr

- Original Message - 
From: Marcelo 
To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> 
Sent: Tuesday, July 13, 2010 5:29 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo

tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores 
decimais não será substituida. Ai ele terá um separador padrão o ponto e 
virgula. depois fica facil.


De: Walter Chagas (Bol) mailto:wchagasj%40bol.com.br>  
<mailto:wchagasj%40bol.com.br> <mailto:wchagasj%40bol.com.br> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
Assunto: Re: RES: [delphi-br] Importação de Arquivo

é mas e a virgula dos valores decimais??

É um enigma essa parada daí.

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br <mailto:wchagasj%40bol.com.br>  
<mailto:wchagasj%40bol.com.br> <mailto:wchagasj%40bol.com.br> 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com <mailto:whitesockets%40hotmail.com>  
<mailto:whitesockets%40hotmail.com> <mailto:whitesockets%40hotmail.com> 
SKYPE: WalterChagasJr

- Original Messa

RES: RES: [delphi-br] Importação de Arquivo

[Ralp Alves Bezerra]

O que ocorre é o seguinte:

 

Neste arquivo texto contém um campo histórico da seguinte forma. exemplo: 
“Pagamento efetuado em 25/14, visto que houve atraso.” 

Note que existe uma vírgula dentro do histórico.

 

Retirar as aspas duplas é beleza, porém, se for substituir as vírgulas por 
ponto e vírgula, a vírgula contida dentro do campo histórico também será 
substituída por ponto e vírgula. (é vírgula demais!)

 

Neste caso, pode ser interpretada como novo campo.

 

Será que existe alguma maneira de antes de eliminar as aspas duplas e 
substituir as vírgulas por ponto e vírgula, efetuar uma pesquisa em tudo que se 
encontra dentro das aspas duplas e se for encontrada alguma vírgula a mesma ser 
eliminada?

 

Abraço.

 

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 11:03
Para: delphi-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-br%40yahoogrupos.com.br>  
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> ] 
Em nome de Walter Chagas (Bol)
Enviada em: quarta-feira, 14 de julho de 2010 08:00
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Assunto: Re: RES: [delphi-br] Importação de Arquivo

Ruben, torno a questionar.

E se tiver dois valores float na sequencia? Lembre-se que os valores float não 
vem entre aspas.

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br <mailto:wchagasj%40bol.com.br>  
<mailto:wchagasj%40bol.com.br> 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com <mailto:whitesockets%40hotmail.com>  
<mailto:whitesockets%40hotmail.com> 
SKYPE: WalterChagasJr

- Original Message - 
From: Rubem Rocha 
To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto: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 valores dos campos delimitados por ponto-e-vírgula! 
Bem mais fácil pra ler, não?

Sds.

De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> [mailto:delphi-br@yahoogrupos.com.br 
<mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> ] Em nome de Walter Chagas (Bol)
Enviada em: terça-feira, 13 de julho de 2010 17:06
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> 
Assunto: Re: RES: [delphi-br] Importação de Arquivo

Não não não não.

Da forma como você está propondo, voce supoe que entre os valores do tipo 
String (que são delimitados por aspas duplas) pode vir apenas um valor float. 
Mas e se vier dois ou mais na sequência?? Veja o caso abaixo:

"601","029",2.010,98,1.011,32,"01",20100517,17,05,20,10,"04","122","0003","2
","002","","33901400","130.00"

como ficaria este caso?

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br <mailto:wchagasj%40bol.com.br>  
<mailto:wchagasj%40bol.com.br> <mailto:wchagasj%40bol.com.br> 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com <mailto:whitesockets%40hotmail.com>  
<mailto:whitesockets%40hotmail.com> <mailto:whitesockets%40hotmail.com> 
SKYPE: WalterChagasJr

- Original Message - 
From: Marcelo 
To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> 
Sent: Tuesday, July 13, 2010 5:29 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo

tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores 
decimais não será substituida. Ai ele terá um separador padrão o ponto e 
virgula. depois fica facil.


De: Walter Chagas (Bol) mailto:wchagasj%40bol.com.br>  
<mailto:wchagasj%40bol.com.br> <mailto:wchagasj%40bol.com.br> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
Assunto: Re: RES: [delphi-br] Importação de Arquivo

é mas e a virgula dos valores decimais??

É um enigma 

RES: RES: [delphi-br] Importação de Arquivo

[Rubem Rocha]

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...@yahoogrupos.com.br] Em nome 
de Walter Chagas (Bol)
Enviada em: quarta-feira, 14 de julho de 2010 08:00
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Importação de Arquivo

 

  

Ruben, torno a questionar.

E se tiver dois valores float na sequencia? Lembre-se que os valores float não 
vem entre aspas.

[]s


Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br <mailto:wchagasj%40bol.com.br> 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com <mailto:whitesockets%40hotmail.com> 
SKYPE: WalterChagasJr

- Original Message - 
From: Rubem Rocha 
To: delphi-br@yahoogrupos.com.br <mailto: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 valores dos campos delimitados por ponto-e-vírgula! 
Bem mais fácil pra ler, não?

Sds.

De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> ] 
Em nome de Walter Chagas (Bol)
Enviada em: terça-feira, 13 de julho de 2010 17:06
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Assunto: Re: RES: [delphi-br] Importação de Arquivo

Não não não não.

Da forma como você está propondo, voce supoe que entre os valores do tipo 
String (que são delimitados por aspas duplas) pode vir apenas um valor float. 
Mas e se vier dois ou mais na sequência?? Veja o caso abaixo:

"601","029",2.010,98,1.011,32,"01",20100517,17,05,20,10,"04","122","0003","2
","002","","33901400","130.00"

como ficaria este caso?

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br <mailto:wchagasj%40bol.com.br>  
<mailto:wchagasj%40bol.com.br> 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com <mailto:whitesockets%40hotmail.com>  
<mailto:whitesockets%40hotmail.com> 
SKYPE: 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:29 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo

tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores 
decimais não será substituida. Ai ele terá um separador padrão o ponto e 
virgula. depois fica facil.


De: Walter Chagas (Bol) mailto:wchagasj%40bol.com.br>  
<mailto:wchagasj%40bol.com.br> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
Assunto: Re: RES: [delphi-br] Importação de Arquivo

é mas e a virgula dos valores decimais??

É um enigma essa parada daí.

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br <mailto:wchagasj%40bol.com.br>  
<mailto:wchagasj%40bol.com.br> 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com <mailto:whitesockets%40hotmail.com>  
<mailto:whitesockets%40hotmail.com> 
SKYPE: 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ção de Arquivo

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 mailto:ralprd%40gmail.com>  
<mailto:ralprd%40gmail.com> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
Assunto: RES: [delphi-br] Importação de Arquivo

Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.

Existe um campo no formato "100.000,00" que também contém vírgulas em seu
conteúdo.

De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> [mailto:delphi-br@yahoogrupos.com.br 
<mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:d

RES: RES: [delphi-br] Importação de Arquivo

[Rubem Rocha]

Cara, me manda um exemplo de arquivo TXT nesse formato. Penso que não seja tão 
cabeludo esse problema pra resolver. Vou montar um exemplo de análise de texto 
nesse formato, mostrando o conteúdo em um DBGrid. Tenho certeza que isso não é 
dilema ou paradoxo tão complexo pra ser resolvido. Se estiver como você que 
necessita, eu posto o exemplo na área de arquivos da lista pro povo todo ver 
que isso é simples de resolver.

 

Sds.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.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
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”,””,10.200,25,”098”

Esta sendo um grande dilema.

Abraço.

De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> ] 
Em nome de Marcelo
Enviada em: terça-feira, 13 de julho de 2010 21:06
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.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 
separação. Já trabalhei comarquivos txt parecido com este mas todos os campos 
vinham separados por aspas duplas. Agora este caso tem que analisar um pouco.
De: sWalter Chagas (Bol) mailto:wchagasj%40bol.com.br>  
<mailto:wchagasj%40bol.com.br> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16
Assunto: Re: RES: [delphi-br] Importação de Arquivo

Não não não não.

Da forma como você está propondo, voce supoe que entre os valores do tipo 
String 
(que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se 
vier dois ou mais na sequência?? Veja o caso abaixo:

"601","029",2.010,98,1.011,32,"01",20100517,17,05,20,10,"04","122","0003","2
","002","","33901400","130.00"

como ficaria este caso?

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br <mailto:wchagasj%40bol.com.br>  
<mailto:wchagasj%40bol.com.br> 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com <mailto:whitesockets%40hotmail.com>  
<mailto:whitesockets%40hotmail.com> 
SKYPE: 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:29 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo

tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores 
decimais não será substituida. Ai ele terá um separador padrão o ponto e 
virgula. depois fica facil.


De: Walter Chagas (Bol) mailto:wchagasj%40bol.com.br>  
<mailto:wchagasj%40bol.com.br> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
Assunto: Re: RES: [delphi-br] Importação de Arquivo

é mas e a virgula dos valores decimais??

É um enigma essa parada daí.

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br <mailto:wchagasj%40bol.com.br>  
<mailto:wchagasj%40bol.com.br> 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com <mailto:whitesockets%40hotmail.com>  
<mailto:whitesockets%40hotmail.com> 
SKYPE: 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ção de Arquivo

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 mailto:ralprd%40gmail.com>  
<mailto:ralprd%40gmail.com> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
Assunto: RES: [delphi-br] Importação de Arquivo

Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.

Existe um campo no formato "100.000,00" que também contém vírgulas em seu
conteúdo.

De

RES: RES: [delphi-br] Importação de Arquivo

[Ralp Alves Bezerra]

Com certeza, agora acho que vai dar certo.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome 
de Walter Chagas (Bol)
Enviada em: quarta-feira, 14 de julho de 2010 09:40
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Importação de Arquivo

 

  

Esse txt daí foi osso viu...

[]s


Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br <mailto:wchagasj%40bol.com.br> 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
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 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 como 
separação. Já trabalhei comarquivos txt parecido com este mas todos os campos 
vinham separados por aspas duplas. Agora este caso tem que analisar um pouco.
De: sWalter Chagas (Bol) mailto:wchagasj%40bol.com.br> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16
Assunto: Re: RES: [delphi-br] Importação de Arquivo

Não não não não.

Da forma como você está propondo, voce supoe que entre os valores do tipo 
String 
(que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se 
vier dois ou mais na sequência?? Veja o caso abaixo:

"601","029",2.010,98,1.011,32,"01",20100517,17,05,20,10,"04","122","0003","2
","002","","33901400","130.00"

como ficaria este caso?

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br <mailto:wchagasj%40bol.com.br> 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
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] Importação de Arquivo

tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores 
decimais não será substituida. Ai ele terá um separador padrão o ponto e 
virgula. depois fica facil.


De: Walter Chagas (Bol) mailto:wchagasj%40bol.com.br> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
Assunto: Re: RES: [delphi-br] Importação de Arquivo

é mas e a virgula dos valores decimais??

É um enigma essa parada daí.

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br <mailto:wchagasj%40bol.com.br> 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
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:04 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo

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 mailto:ralprd%40gmail.com> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
Assunto: RES: [delphi-br] Importação de Arquivo

Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.

Existe um campo no formato "100.000,00" que também contém vírgulas em seu
conteúdo.

De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> ] 
Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 13 de julho de 2010 15:54
Para: delphi-br
Assunto: RE: [delphi-br] Importação de Arquivo
Prioridade: Alta

Qual é exatamente a sua dificuldade?

Sds.

To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> 
From: ral...@gmail.com <mailto:ralprd%40gmail.com>  <mailto:ralprd%40gmail.com> 
Date: Tue, 13 Jul 2010 15:50:44 -0300
Subject: [delphi-br] Importação de Arquivo

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","","33901400"

Re: RES: [delphi-br] Importação de Arquivo

[Walter Chagas (Bol)]

Agora ficou barbada vei.

Use esta função minha que vai funcionar, se o separador de dados for a virgula

Voce poe a String num loop e declara-a na função como Frase e a virgula vai ser 
a parte.
em cada passada no loop, ela vai tirando uma parte da string delimitada pela 
virgula e te retorna o dado.


function ParteTexto(var Frase: string; Parte: string): string;
//
// Retorna uma parte de um texto antes de um caractere especificado
//
var
  i,max: integer;
  buff: string;
begin
  i := 1;
  buff := '';
  max := length(parte);
  while (i <= length(Frase)) and (buff <> parte) do
  begin
buff := buff + Frase[i];
if length(buff) > max then
  buff := copy(buff,2,max);
inc(i);
  end;
  if buff = Parte then
  begin
Result := copy(Frase,1,i - max -1);
Frase := copy(Frase,i,length(Frase)+1 -i);
  end
  else
  begin
Result := Frase;
Frase := '';
  end;
end;


[]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: WalterChagasJr


  - Original Message - 
  From: Ralp Alves Bezerra 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, July 14, 2010 10:03 AM
  Subject: RES: RES: [delphi-br] Importação de Arquivo



  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árias dentro do arquivo.

  
"601","029",201000,"02","01",20100512,"12050002",201005,"04","122","0003","2","002","","33901400","O","Valor
 que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria para 
ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da APRECE, no 
periodo de 
14/05/2010.",11400.00,250.00,11150.00,"","",0,"",0,"F","7","777","PEDRO 
ROGERIO MORAIS","RUA PROFESSOR NICACIO, S/N 
CENTRO","00883663126","6257","BELA CRUZ","CE",0,"","","01192619366"

  Os valores agora não tem mais vírgulas nas casas decimais. Porém, no 
histórico:"Valor que se empenha p/ fazer face as despesas com Concessao de 
01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na 
Sede da APRECE, no periodo de 14/05/2010." existe a utilização de vírgulas. 
Sendo assim, não posso converter as vírgulas para ponto e vírgula.

  Outro caso, é a existência de campos em branco: "BELA 
CRUZ","CE",0,"","","01192619366".

  Como devo proceder a partir de agora?

  Abraços.

  De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em 
nome de Marcos Douglas
  Enviada em: quarta-feira, 14 de julho de 2010 09:22
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: RES: [delphi-br] Importação de Arquivo

  2010/7/14 Walter Chagas (Bol) mailto:wchagasj%40bol.com.br> >:
  > Ruben, torno a questionar.
  >
  > E se tiver dois valores float na sequencia? Lembre-se que os valores float 
não vem entre aspas.

  Li todos os emails desta thread e gostaria de fazer um comentário.
  Se não há um padrão[1] no arquivo então, conceitualmente, este arquivo
  está errado e não pode ser lido com 100% de certeza, ou seja, algo
  deverá ser "interpretado" da melhor forma possível, caso o sistema
  encontre uma "anomalia".

  [1] Alguns conceitos utilizados em muitos arquivos textos formatados:
  - cada coluna tem um número determinado de caracteres
  - delimitador único para cada coluna: os arquivos csv são exemplos,
  mas quando há vírgulas dentro de um dado, este é quotado com aspas.
  - prefixos para cada tipo de informação: uma letra, simbolo, etc
  - prefixo+sufixo que delimitam uma informação: ex é uma sequencia de
  caracteres como [[informação]]
  - etc.

  Abraço,
  MD.

  [As partes desta mensagem que não continham texto foram removidas]



  

[As partes desta mensagem que não continham texto foram removidas]

Re: RES: [delphi-br] Importação de Arquivo

[Marcos Douglas]

2010/7/14 Ralp Alves Bezerra :
> 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árias dentro do arquivo.
>
>
>
> "601","029",201000,"02","01",20100512,"12050002",201005,"04","122","0003","2","002","","33901400","O","Valor
>  que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria 
> para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da 
> APRECE, no periodo de 
> 14/05/2010.",11400.00,250.00,11150.00,"","",0,"",0,"F","7","777","PEDRO
>  ROGERIO MORAIS","RUA PROFESSOR NICACIO, S/N  
> CENTRO","00883663126","6257","BELA CRUZ","CE",0,"","","01192619366"
>
>
>
> Os valores agora não tem mais vírgulas nas casas decimais. Porém, no 
> histórico:"Valor que se empenha p/ fazer face as despesas com Concessao de 
> 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na 
> Sede da APRECE, no periodo de 14/05/2010."  existe a utilização de vírgulas. 
> Sendo assim, não posso converter as vírgulas para ponto e vírgula.
>
>
>
> Outro caso, é a existência de campos em branco:  "BELA 
> CRUZ","CE",0,"","","01192619366".
>
>
>
> Como devo proceder a partir de agora?

Agora vc tem um arquivo CSV padrão. Veja:
http://en.wikipedia.org/wiki/Comma-separated_values

Próximo tarefa é usar este link:
http://www.google.com.br/#hl=pt-BR&q=delphi+csv+file+reading&aq=f&aqi=&aql=&oq=&gs_rfai=&fp=bf16b567d30845cc

...se não quiser fazer vc mesmo.


Abraço
MD.

Re: RES: [delphi-br] Importação de Arquivo

[Walter Chagas (Bol)]

Esse txt daí foi osso viu...

[]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: WalterChagasJr


  - Original Message - 
  From: Marcelo 
  To: delphi-br@yahoogrupos.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 como 
  separação. Já trabalhei comarquivos txt parecido com este mas todos os campos 
  vinham separados por aspas duplas. Agora este caso tem que analisar um pouco.
  De: sWalter Chagas (Bol) 
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16
  Assunto: Re: RES: [delphi-br] Importação de Arquivo

  Não não não não.

  Da forma como você está propondo, voce supoe que entre os valores do tipo 
String 
  (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e 
se 
  vier dois ou mais na sequência?? Veja o caso abaixo:

  "601","029",2.010,98,1.011,32,"01",20100517,17,05,20,10,"04","122","0003","2
  ","002","","33901400","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: WalterChagasJr

  - Original Message - 
  From: Marcelo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, July 13, 2010 5:29 PM
  Subject: Res: RES: [delphi-br] Importação de Arquivo

  tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos 
valores 
  decimais não será substituida. Ai ele terá um separador padrão o ponto e 
  virgula. depois fica facil.

  
  De: Walter Chagas (Bol) 
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
  Assunto: Re: RES: [delphi-br] Importação de Arquivo

  é mas e a virgula dos valores decimais??

  É um enigma essa parada daí.

  []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: 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 ";" 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: [delphi-br] Importação de Arquivo

  Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
  das aspas duplas e delimitadas por vírgula.

  Existe um campo no formato "100.000,00" que também contém vírgulas em seu
  conteúdo.

  De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
  nome de Rubem Nascimento da Rocha
  Enviada em: terça-feira, 13 de julho de 2010 15:54
  Para: delphi-br
  Assunto: RE: [delphi-br] Importação de Arquivo
  Prioridade: Alta

  Qual é exatamente a sua dificuldade?

  Sds.

  To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
  From: ral...@gmail.com <mailto:ralprd%40gmail.com> 
  Date: Tue, 13 Jul 2010 15:50:44 -0300
  Subject: [delphi-br] Importação de Arquivo

  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","","33901400","100.000,00"

  "601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
  ","002","","33901400","130.00"

  "601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
  ","002","","33901400","1.000,00"

  "601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
  ","003","","33903000","10.000,00"

  "601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","

RES: RES: [delphi-br] Importação de Arquivo

[Ralp Alves Bezerra]

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árias dentro do arquivo.

 

"601","029",201000,"02","01",20100512,"12050002",201005,"04","122","0003","2","002","","33901400","O","Valor
 que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria para 
ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da APRECE, no 
periodo de 
14/05/2010.",11400.00,250.00,11150.00,"","",0,"",0,"F","7","777","PEDRO 
ROGERIO MORAIS","RUA PROFESSOR NICACIO, S/N  
CENTRO","00883663126","6257","BELA CRUZ","CE",0,"","","01192619366"

 

Os valores agora não tem mais vírgulas nas casas decimais. Porém, no 
histórico:"Valor que se empenha p/ fazer face as despesas com Concessao de 
01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na 
Sede da APRECE, no periodo de 14/05/2010."  existe a utilização de vírgulas. 
Sendo assim, não posso converter as vírgulas para ponto e vírgula.

 

Outro caso, é a existência de campos em branco:  "BELA 
CRUZ","CE",0,"","","01192619366".

 

Como devo proceder a partir de agora?

 

Abraços.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome 
de Marcos Douglas
Enviada em: quarta-feira, 14 de julho de 2010 09:22
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Importação de Arquivo

 

  

2010/7/14 Walter Chagas (Bol) mailto:wchagasj%40bol.com.br> >:
> Ruben, torno a questionar.
>
> E se tiver dois valores float na sequencia? Lembre-se que os valores float 
> não vem entre aspas.

Li todos os emails desta thread e gostaria de fazer um comentário.
Se não há um padrão[1] no arquivo então, conceitualmente, este arquivo
está errado e não pode ser lido com 100% de certeza, ou seja, algo
deverá ser "interpretado" da melhor forma possível, caso o sistema
encontre uma "anomalia".

[1] Alguns conceitos utilizados em muitos arquivos textos formatados:
- cada coluna tem um número determinado de caracteres
- delimitador único para cada coluna: os arquivos csv são exemplos,
mas quando há vírgulas dentro de um dado, este é quotado com aspas.
- prefixos para cada tipo de informação: uma letra, simbolo, etc
- prefixo+sufixo que delimitam uma informação: ex é uma sequencia de
caracteres como [[informação]]
- etc.

Abraço,
MD.





[As partes desta mensagem que não continham texto foram removidas]

Re: RES: [delphi-br] Importação de Arquivo

[anckerdj]

Marcos Douglas wrote:
> 2010/7/14 Walter Chagas (Bol) :
>   
>> Ruben, torno a questionar.
>>
>> E se tiver dois valores float na sequencia? Lembre-se que os valores float 
>> não vem entre aspas.
>> 
>
> Li todos os emails desta thread e gostaria de fazer um comentário.
> Se não há um padrão[1] no arquivo então, conceitualmente, este arquivo
> está errado e não pode ser lido com 100% de certeza, ou seja, algo
> deverá ser "interpretado" da melhor forma possível, caso o sistema
> encontre uma "anomalia".
>
>
> [1] Alguns conceitos utilizados em muitos arquivos textos formatados:
> - cada coluna tem um número determinado de caracteres
> - delimitador único para cada coluna: os arquivos csv são exemplos,
> mas quando há vírgulas dentro de um dado, este é quotado com aspas.
> - prefixos para cada tipo de informação: uma letra, simbolo, etc
> - prefixo+sufixo que delimitam uma informação: ex é uma sequencia de
> caracteres como [[informação]]
> - etc.
>   
Concordo com o Marcos mas se mesmo com dificuldade pode-se identificar
um padrão é possível utilizar um parser/autômato... como se fosse
avaliar uma expressão regular mesmo com repetições (float) ou não.

Tente, antes de tudo, escrever uma linguagem formal da sua linha e
depois utilize as possíveis soluções.

[]'s
ancker

Re: RES: [delphi-br] Importação de Arquivo

[Marcos Douglas]

2010/7/14 Walter Chagas (Bol) :
> Ruben, torno a questionar.
>
> E se tiver dois valores float na sequencia? Lembre-se que os valores float 
> não vem entre aspas.

Li todos os emails desta thread e gostaria de fazer um comentário.
Se não há um padrão[1] no arquivo então, conceitualmente, este arquivo
está errado e não pode ser lido com 100% de certeza, ou seja, algo
deverá ser "interpretado" da melhor forma possível, caso o sistema
encontre uma "anomalia".


[1] Alguns conceitos utilizados em muitos arquivos textos formatados:
- cada coluna tem um número determinado de caracteres
- delimitador único para cada coluna: os arquivos csv são exemplos,
mas quando há vírgulas dentro de um dado, este é quotado com aspas.
- prefixos para cada tipo de informação: uma letra, simbolo, etc
- prefixo+sufixo que delimitam uma informação: ex é uma sequencia de
caracteres como [[informação]]
- etc.


Abraço,
MD.

Re: RES: [delphi-br] Importação de Arquivo

[Walter Chagas (Bol)]

Ruben, torno a questionar.

E se tiver dois valores float na sequencia? Lembre-se que os valores float não 
vem entre aspas.

[]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: WalterChagasJr


  - Original Message - 
  From: Rubem Rocha 
  To: delphi-br@yahoogrupos.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 valores dos campos delimitados por 
ponto-e-vírgula! Bem mais fácil pra ler, não?

  Sds.

  De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em 
nome de Walter Chagas (Bol)
  Enviada em: terça-feira, 13 de julho de 2010 17:06
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: RES: [delphi-br] Importação de Arquivo

  Não não não não.

  Da forma como você está propondo, voce supoe que entre os valores do tipo 
String (que são delimitados por aspas duplas) pode vir apenas um valor float. 
Mas e se vier dois ou mais na sequência?? Veja o caso abaixo:

  "601","029",2.010,98,1.011,32,"01",20100517,17,05,20,10,"04","122","0003","2
  ","002","","33901400","130.00"

  como ficaria este caso?

  []s

  Walter Alves Chagas Junior
  Belo Horizonte - MG - Brazil
  wchag...@bol.com.br <mailto:wchagasj%40bol.com.br> 
  http://delphitocorporerm.blogspot.com/
  http://twitter.com/wchagas
  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] Importação de Arquivo

  tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos 
valores 
  decimais não será substituida. Ai ele terá um separador padrão o ponto e 
  virgula. depois fica facil.

  
  De: Walter Chagas (Bol) mailto:wchagasj%40bol.com.br> >
  Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
  Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
  Assunto: Re: RES: [delphi-br] Importação de Arquivo

  é mas e a virgula dos valores decimais??

  É um enigma essa parada daí.

  []s

  Walter Alves Chagas Junior
  Belo Horizonte - MG - Brazil
  wchag...@bol.com.br <mailto:wchagasj%40bol.com.br> 
  http://delphitocorporerm.blogspot.com/
  http://twitter.com/wchagas
  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:04 PM
  Subject: Res: RES: [delphi-br] Importação de Arquivo

  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 mailto:ralprd%40gmail.com> >
  Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
  Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
  Assunto: RES: [delphi-br] Importação de Arquivo

  Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
  das aspas duplas e delimitadas por vírgula.

  Existe um campo no formato "100.000,00" que também contém vírgulas em seu
  conteúdo.

  De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> ] 
Em
  nome de Rubem Nascimento da Rocha
  Enviada em: terça-feira, 13 de julho de 2010 15:54
  Para: delphi-br
  Assunto: RE: [delphi-br] Importação de Arquivo
  Prioridade: Alta

  Qual é exatamente a sua dificuldade?

  Sds.

  To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
<mailto:delphi-br%40yahoogrupos.com.br> 
  From: ral...@gmail.com <mailto:ralprd%40gmail.com> 
<mailto:ralprd%40gmail.com> 
  Date: Tue, 13 Jul 2010 15:50:44 -0300
  Subject: [delphi-br] Importação de Arquivo

  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","","33901400","100.000,00"

  "601","029",201000,"02","01",20100517,"17050003",201005,&qu

RES: RES: [delphi-br] Importação de Arquivo

[Ralp Alves Bezerra]

Desculpe Daniel, troquei o seu nome pelo do Walter.

Não sei o que houve aqui em meu micro. Meu outlook parou de funcionar e não 
consigo recuperar minhas mensagens.

Poderia me enviar novamente a rotina?

Abraço.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome 
de Daniel Azevedo
Enviada em: terça-feira, 13 de julho de 2010 17:24
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Importação de Arquivo

 

  

A rotina q te mandei faz justamente isso, ignora as virgulas
pega a Aspas + a virgula ", para identificar o final do campo valido
quero dizer... foi esta a intenção
mais a noite vou estar com o delphi e posso fazer a rotina funcionar 
caso ela nao tenha funcionado

se ate la nao tiver resolvido eu monto uma e ja faço os testes
e te entrego funfando

Walter Chagas (Bol) escreveu:
> 
>
> é mas e a virgula dos valores decimais??
>
> É um enigma essa parada daí.
>
> []s
>
>
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> wchag...@bol.com.br <mailto:wchagasj%40bol.com.br>  
> <mailto:wchagasj%40bol.com.br>
> http://delphitocorporerm.blogspot.com/
> http://twitter.com/wchagas
> MSN: whitesock...@hotmail.com <mailto:whitesockets%40hotmail.com>  
> <mailto:whitesockets%40hotmail.com>
> SKYPE: 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ção de Arquivo
>
> 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 mailto:ralprd%40gmail.com>  
> <mailto:ralprd%40gmail.com>>
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
> <mailto:delphi-br%40yahoogrupos.com.br>
> Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
> Assunto: RES: [delphi-br] Importação de Arquivo
>
> Não estou conseguindo montar uma rotina para pegar os dados contidos 
> dentro
> das aspas duplas e delimitadas por vírgula.
>
> Existe um campo no formato "100.000,00" que também contém vírgulas em seu
> conteúdo.
>
> De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
> <mailto:delphi-br%40yahoogrupos.com.br> 
> [mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
> <mailto:delphi-br%40yahoogrupos.com.br>] Em
> nome de Rubem Nascimento da Rocha
> Enviada em: terça-feira, 13 de julho de 2010 15:54
> Para: delphi-br
> Assunto: RE: [delphi-br] Importação de Arquivo
> Prioridade: Alta
>
> Qual é exatamente a sua dificuldade?
>
> Sds.
>
> To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
> <mailto:delphi-br%40yahoogrupos.com.br> 
> <mailto:delphi-br%40yahoogrupos.com.br>
> From: ral...@gmail.com <mailto:ralprd%40gmail.com>  
> <mailto:ralprd%40gmail.com> 
> <mailto:ralprd%40gmail.com>
> Date: Tue, 13 Jul 2010 15:50:44 -0300
> Subject: [delphi-br] Importação de Arquivo
>
> 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","","33901400","100.000,00"
>
> "601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
> ","002","","33901400","130.00"
>
> "601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
> ","002","","33901400","1.000,00"
>
> "601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
> ","003","","33903000","10.000,00"
>
> "601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2
> ","006","","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
>

__ Informa磯 do ESET Smart Security, vers㯠da vacina 5276 (20100713) 
__

A mensagem foi verificada pelo ESET Smart Security.

http://www.eset.com





[As partes desta mensagem que não continham texto foram removidas]

RES: RES: [delphi-br] Importação de Arquivo

[Ralp Alves Bezerra]

Ok Walter, vou testar aqui e posto o resultado.

 

Abraço.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome 
de Daniel Azevedo
Enviada em: terça-feira, 13 de julho de 2010 17:24
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Importação de Arquivo

 

  

A rotina q te mandei faz justamente isso, ignora as virgulas
pega a Aspas + a virgula ", para identificar o final do campo valido
quero dizer... foi esta a intenção
mais a noite vou estar com o delphi e posso fazer a rotina funcionar 
caso ela nao tenha funcionado

se ate la nao tiver resolvido eu monto uma e ja faço os testes
e te entrego funfando

Walter Chagas (Bol) escreveu:
> 
>
> é mas e a virgula dos valores decimais??
>
> É um enigma essa parada daí.
>
> []s
>
>
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> wchag...@bol.com.br <mailto:wchagasj%40bol.com.br>  
> <mailto:wchagasj%40bol.com.br>
> http://delphitocorporerm.blogspot.com/
> http://twitter.com/wchagas
> MSN: whitesock...@hotmail.com <mailto:whitesockets%40hotmail.com>  
> <mailto:whitesockets%40hotmail.com>
> SKYPE: 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ção de Arquivo
>
> 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 mailto:ralprd%40gmail.com>  
> <mailto:ralprd%40gmail.com>>
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
> <mailto:delphi-br%40yahoogrupos.com.br>
> Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
> Assunto: RES: [delphi-br] Importação de Arquivo
>
> Não estou conseguindo montar uma rotina para pegar os dados contidos 
> dentro
> das aspas duplas e delimitadas por vírgula.
>
> Existe um campo no formato "100.000,00" que também contém vírgulas em seu
> conteúdo.
>
> De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
> <mailto:delphi-br%40yahoogrupos.com.br> 
> [mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
> <mailto:delphi-br%40yahoogrupos.com.br>] Em
> nome de Rubem Nascimento da Rocha
> Enviada em: terça-feira, 13 de julho de 2010 15:54
> Para: delphi-br
> Assunto: RE: [delphi-br] Importação de Arquivo
> Prioridade: Alta
>
> Qual é exatamente a sua dificuldade?
>
> Sds.
>
> To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
> <mailto:delphi-br%40yahoogrupos.com.br> 
> <mailto:delphi-br%40yahoogrupos.com.br>
> From: ral...@gmail.com <mailto:ralprd%40gmail.com>  
> <mailto:ralprd%40gmail.com> 
> <mailto:ralprd%40gmail.com>
> Date: Tue, 13 Jul 2010 15:50:44 -0300
> Subject: [delphi-br] Importação de Arquivo
>
> 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","","33901400","100.000,00"
>
> "601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
> ","002","","33901400","130.00"
>
> "601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
> ","002","","33901400","1.000,00"
>
> "601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
> ","003","","33903000","10.000,00"
>
> "601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2
> ","006","","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
>

__ Informa磯 do ESET Smart Security, vers㯠da vacina 5276 (20100713) 
__

A mensagem foi verificada pelo ESET Smart Security.

http://www.eset.com





[As partes desta mensagem que não continham texto foram removidas]

RES: [delphi-br] Importação de Arquivo

[Gustavo Teruel]

Ralp,

Eu coloquei um Edit, um memo e um botão no form, no evento onclick do botão
eu coloquei o código abaixo, este código gera uma linha para cada informação
do registro, ai é só fazer o looping no memo.


var
  Str: TStringList;
begin
Str:=TStringList.Create;
Str.Delimiter:=',';
Str.DelimitedText:=Edit1.Text;
Memo1.Text:=Str.Text;
end;

Teruel

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Ralp Alves Bezerra
Enviada em: terça-feira, 13 de julho de 2010 15:51
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Importação de Arquivo

  
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","","33901400","100.000,00"

"601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
","002","","33901400","130.00"

"601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
","002","","33901400","1.000,00"

"601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
","003","","33903000","10.000,00"

"601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2
","006","","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]

Re: RES: [delphi-br] Importação de Arquivo

[Daniel Azevedo]

A rotina q te mandei faz justamente isso, ignora as virgulas
pega a Aspas + a virgula ", para identificar o final do campo valido
quero dizer... foi esta a intenção
mais a noite vou estar com o delphi e posso fazer a rotina funcionar 
caso ela nao tenha funcionado

se ate la nao tiver resolvido eu monto uma e ja faço os testes
e te entrego funfando



Walter Chagas (Bol) escreveu:
>  
>
> é mas e a virgula dos valores decimais??
>
> É um enigma essa parada daí.
>
> []s
>
>
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> wchag...@bol.com.br <mailto:wchagasj%40bol.com.br>
> http://delphitocorporerm.blogspot.com/
> http://twitter.com/wchagas
> 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:04 PM
> Subject: Res: RES: [delphi-br] Importação de Arquivo
>
> 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 mailto:ralprd%40gmail.com>>
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
> Assunto: RES: [delphi-br] Importação de Arquivo
>
> Não estou conseguindo montar uma rotina para pegar os dados contidos 
> dentro
> das aspas duplas e delimitadas por vírgula.
>
> Existe um campo no formato "100.000,00" que também contém vírgulas em seu
> conteúdo.
>
> De: delphi-br@yahoogrupos.com.br 
> <mailto:delphi-br%40yahoogrupos.com.br> 
> [mailto:delphi-br@yahoogrupos.com.br 
> <mailto:delphi-br%40yahoogrupos.com.br>] Em
> nome de Rubem Nascimento da Rocha
> Enviada em: terça-feira, 13 de julho de 2010 15:54
> Para: delphi-br
> Assunto: RE: [delphi-br] Importação de Arquivo
> Prioridade: Alta
>
> Qual é exatamente a sua dificuldade?
>
> Sds.
>
> To: delphi-br@yahoogrupos.com.br 
> <mailto:delphi-br%40yahoogrupos.com.br> 
> <mailto:delphi-br%40yahoogrupos.com.br>
> From: ral...@gmail.com <mailto:ralprd%40gmail.com> 
> <mailto:ralprd%40gmail.com>
> Date: Tue, 13 Jul 2010 15:50:44 -0300
> Subject: [delphi-br] Importação de Arquivo
>
> 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","","33901400","100.000,00"
>
> "601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
> ","002","","33901400","130.00"
>
> "601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
> ","002","","33901400","1.000,00"
>
> "601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
> ","003","","33903000","10.000,00"
>
> "601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2
> ","006","","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
>



__ Informa��o do ESET Smart Security, vers�o da vacina 5276 (20100713) 
__

A mensagem foi verificada pelo  ESET Smart Security.

http://www.eset.com

RES: RES: [delphi-br] Importação de Arquivo

[Ralp Alves Bezerra]

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”,””,10.200,25,”098”

 

Esta sendo um grande dilema.

 

Abraço.

 

De: delphi-br@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 
separação. Já trabalhei comarquivos txt parecido com este mas todos os campos 
vinham separados por aspas duplas. Agora este caso tem que analisar um pouco.
De: sWalter Chagas (Bol) mailto:wchagasj%40bol.com.br> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16
Assunto: Re: RES: [delphi-br] Importação de Arquivo

Não não não não.

Da forma como você está propondo, voce supoe que entre os valores do tipo 
String 
(que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se 
vier dois ou mais na sequência?? Veja o caso abaixo:

"601","029",2.010,98,1.011,32,"01",20100517,17,05,20,10,"04","122","0003","2
","002","","33901400","130.00"

como ficaria este caso?

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br <mailto:wchagasj%40bol.com.br> 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
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] Importação de Arquivo

tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores 
decimais não será substituida. Ai ele terá um separador padrão o ponto e 
virgula. depois fica facil.


De: Walter Chagas (Bol) mailto:wchagasj%40bol.com.br> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
Assunto: Re: RES: [delphi-br] Importação de Arquivo

é mas e a virgula dos valores decimais??

É um enigma essa parada daí.

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br <mailto:wchagasj%40bol.com.br> 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
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:04 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo

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 mailto:ralprd%40gmail.com> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
Assunto: RES: [delphi-br] Importação de Arquivo

Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.

Existe um campo no formato "100.000,00" que também contém vírgulas em seu
conteúdo.

De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> ] 
Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 13 de julho de 2010 15:54
Para: delphi-br
Assunto: RE: [delphi-br] Importação de Arquivo
Prioridade: Alta

Qual é exatamente a sua dificuldade?

Sds.

To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> 
From: ral...@gmail.com <mailto:ralprd%40gmail.com>  <mailto:ralprd%40gmail.com> 
Date: Tue, 13 Jul 2010 15:50:44 -0300
Subject: [delphi-br] Importação de Arquivo

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","","33901400","100.000,00"

"601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
","002","","33901400","130.00"

"601","029",201000,&q

RES: RES: [delphi-br] Importação de Arquivo

[Ralp Alves Bezerra]

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] Importação de Arquivo

 

  

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;

while not Eof ( arq ) do begin
AuxLinha := '';
AuxPed := '';
AuxChassi := '';
AuxLinha := Copy(linha,53,1);
AuxPed := Copy(linha,1,10);
AuxChassi := Copy(linha,51,10);
end;


De: Ralp Alves Bezerra mailto:ralprd%40gmail.com> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
Assunto: RES: [delphi-br] Importação de Arquivo

Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.

Existe um campo no formato "100.000,00" que também contém vírgulas em seu
conteúdo.

De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> ] 
Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 13 de julho de 2010 15:54
Para: delphi-br
Assunto: RE: [delphi-br] Importação de Arquivo
Prioridade: Alta

Qual é exatamente a sua dificuldade?

Sds.

To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> 
From: ral...@gmail.com <mailto:ralprd%40gmail.com>  <mailto:ralprd%40gmail.com> 
Date: Tue, 13 Jul 2010 15:50:44 -0300
Subject: [delphi-br] Importação de Arquivo

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","","33901400","100.000,00"

"601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
","002","","33901400","130.00"

"601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
","002","","33901400","1.000,00"

"601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
","003","","33903000","10.000,00"

"601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2
","006","","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

__
CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
VEJA COMO.
http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
<http://www.windowslive.com.br/public/tip.aspx/view/84?product=2 
<http://www.windowslive.com.br/public/tip.aspx/view/84?product=2&ocid=WLCRM:> 
&ocid=WLCRM:
Live:Hotmail:Tagline:senDimensao:CONVERSECO85:->
&ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]





[As partes desta mensagem que não continham texto foram removidas]

RES: RES: [delphi-br] Importação de Arquivo

[Ralp Alves Bezerra]

O que ocorre é que dentro deste arquivo existem campos em branco.

Ex.: "100","","098"

Eis umas das dificuldades.

Abraço.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Dirlei Dionísio
Enviada em: terça-feira, 13 de julho de 2010 22:28
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Importação de Arquivo

É só parsear o conteúdo byte a byte pra identificar o que está dentro de
aspas duplas. Se for encontrada uma aspa dupla, você sabe que até que uma
outra aspa dupla seja encontrada, uma eventual vírgula fará parte do dado.


--
Dirlei Dionísio
Novo artigo: 5 dicas para aproveitar sua inteligência e criatividade
http://MaisQueBomCodigo.blogspot.com


Em 13 de julho de 2010 21:06, Marcelo  escreveu:

>
>
>
>
> Ta certo Walter , não me atentei que tinha campos sem as aspas duplas 
> como separação. Já trabalhei comarquivos txt parecido com este mas 
> todos os campos vinham separados por aspas duplas. Agora este caso tem 
> que analisar um pouco.
> De: sWalter Chagas (Bol) >
>
> Para: delphi-br@yahoogrupos.com.br 
> Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16
>
> Assunto: Re: RES: [delphi-br] Importação de Arquivo
>
> Não não não não.
>
> Da forma como você está propondo, voce supoe que entre os valores do 
> tipo String (que são delimitados por aspas duplas) pode vir apenas um 
> valor float. Mas e se vier dois ou mais na sequência?? Veja o caso 
> abaixo:
>
>
> "601","029",2.010,98,1.011,32,"01",20100517,17,05,20,10,"04","122","00
> 03","2
> ","002","","33901400","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: WalterChagasJr
>
> - Original Message -
> From: Marcelo
> To: delphi-br@yahoogrupos.com.br 
> Sent: Tuesday, July 13, 2010 5:29 PM
> Subject: Res: RES: [delphi-br] Importação de Arquivo
>
> tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos 
> valores decimais não será substituida. Ai ele terá um separador padrão 
> o ponto e virgula. depois fica facil.
>
> 
> De: Walter Chagas (Bol) >
> Para: delphi-br@yahoogrupos.com.br 
> Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
> Assunto: Re: RES: [delphi-br] Importação de Arquivo
>
> é mas e a virgula dos valores decimais??
>
> É um enigma essa parada daí.
>
> []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: 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 ";" 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: [delphi-br] Importação de Arquivo
>
> Não estou conseguindo montar uma rotina para pegar os dados contidos 
> dentro das aspas duplas e delimitadas por vírgula.
>
> Existe um campo no formato "100.000,00" que também contém vírgulas em 
> seu conteúdo.
>
> De: delphi-br@yahoogrupos.com.br  [mailto:
> delphi-br@yahoogrupos.com.br ] Em nome 
> de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 
> 2010 15:54
> Para: delphi-br
> Assunto: RE: [delphi-br] Importação de Arquivo
> Prioridade: Alta
>
> Qual é exatamente a sua dificuldade?
>
> Sds.
>
> To: delphi-br@yahoogrupos.com.br   delphi-br%40yahoogrupos.com.br >
> From: ral...@gmail.com  
> <mailto:ralprd%40gmail.com>
>
> Date: Tue, 13 Jul 2010 15:50:44 -0300
> Subject: [delphi-br] Importação de Arquivo
>
> 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","00
> 03","2 ","002","","33901400","100.000,00"
>
>
> "601","029",201000,"02&qu

Re: RES: [delphi-br] Importação de Arquivo

[Dirlei Dionísio]

É só parsear o conteúdo byte a byte pra identificar o que está dentro de
aspas duplas. Se for encontrada uma aspa dupla, você sabe que até que uma
outra aspa dupla seja encontrada, uma eventual vírgula fará parte do dado.


--
Dirlei Dionísio
Novo artigo: 5 dicas para aproveitar sua inteligência e criatividade
http://MaisQueBomCodigo.blogspot.com


Em 13 de julho de 2010 21:06, Marcelo  escreveu:

>
>
>
>
> Ta certo Walter , não me atentei que tinha campos sem as aspas duplas como
> separação. Já trabalhei comarquivos txt parecido com este mas todos os
> campos
> vinham separados por aspas duplas. Agora este caso tem que analisar um
> pouco.
> De: sWalter Chagas (Bol) >
>
> Para: delphi-br@yahoogrupos.com.br 
> Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16
>
> Assunto: Re: RES: [delphi-br] Importação de Arquivo
>
> Não não não não.
>
> Da forma como você está propondo, voce supoe que entre os valores do tipo
> String
> (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas
> e se
> vier dois ou mais na sequência?? Veja o caso abaixo:
>
>
> "601","029",2.010,98,1.011,32,"01",20100517,17,05,20,10,"04","122","0003","2
> ","002","","33901400","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: WalterChagasJr
>
> - Original Message -
> From: Marcelo
> To: delphi-br@yahoogrupos.com.br 
> Sent: Tuesday, July 13, 2010 5:29 PM
> Subject: Res: RES: [delphi-br] Importação de Arquivo
>
> tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos
> valores
> decimais não será substituida. Ai ele terá um separador padrão o ponto e
> virgula. depois fica facil.
>
> 
> De: Walter Chagas (Bol) >
> Para: delphi-br@yahoogrupos.com.br 
> Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
> Assunto: Re: RES: [delphi-br] Importação de Arquivo
>
> é mas e a virgula dos valores decimais??
>
> É um enigma essa parada daí.
>
> []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: 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 ";" 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: [delphi-br] Importação de Arquivo
>
> Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
> das aspas duplas e delimitadas por vírgula.
>
> Existe um campo no formato "100.000,00" que também contém vírgulas em seu
> conteúdo.
>
> De: delphi-br@yahoogrupos.com.br  [mailto:
> delphi-br@yahoogrupos.com.br ] Em
> nome de Rubem Nascimento da Rocha
> Enviada em: terça-feira, 13 de julho de 2010 15:54
> Para: delphi-br
> Assunto: RE: [delphi-br] Importação de Arquivo
> Prioridade: Alta
>
> Qual é exatamente a sua dificuldade?
>
> Sds.
>
> To: delphi-br@yahoogrupos.com.br   delphi-br%40yahoogrupos.com.br >
> From: ral...@gmail.com  
> <mailto:ralprd%40gmail.com>
>
> Date: Tue, 13 Jul 2010 15:50:44 -0300
> Subject: [delphi-br] Importação de Arquivo
>
> 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","","33901400","100.000,00"
>
>
> "601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
> ","002","","33901400","130.00"
>
>
> "601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
> ","002","","33901400","

Res: RES: [delphi-br] Importação de Arquivo

[Marcelo]

Ta certo Walter , não me atentei que tinha campos sem as aspas duplas como 
separação. Já trabalhei comarquivos txt parecido com este mas todos os campos 
vinham separados por aspas duplas. Agora este caso tem que analisar um pouco.
De: sWalter Chagas (Bol) 
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16
Assunto: Re: RES: [delphi-br] Importação de Arquivo
  
Não não não não.

Da forma como você está propondo, voce supoe que entre os valores do tipo 
String 
(que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se 
vier dois ou mais na sequência?? Veja o caso abaixo:

"601","029",2.010,98,1.011,32,"01",20100517,17,05,20,10,"04","122","0003","2
","002","","33901400","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: WalterChagasJr

- Original Message ----- 
From: Marcelo 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, July 13, 2010 5:29 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo

tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores 
decimais não será substituida. Ai ele terá um separador padrão o ponto e 
virgula. depois fica facil.


De: Walter Chagas (Bol) 
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
Assunto: Re: RES: [delphi-br] Importação de Arquivo

é mas e a virgula dos valores decimais??

É um enigma essa parada daí.

[]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: 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 ";" 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: [delphi-br] Importação de Arquivo

Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.

Existe um campo no formato "100.000,00" que também contém vírgulas em seu
conteúdo.

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 13 de julho de 2010 15:54
Para: delphi-br
Assunto: RE: [delphi-br] Importação de Arquivo
Prioridade: Alta

Qual é exatamente a sua dificuldade?

Sds.

To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
From: ral...@gmail.com <mailto:ralprd%40gmail.com> 
Date: Tue, 13 Jul 2010 15:50:44 -0300
Subject: [delphi-br] Importação de Arquivo

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","","33901400","100.000,00"

"601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
","002","","33901400","130.00"

"601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
","002","","33901400","1.000,00"

"601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
","003","","33903000","10.000,00"

"601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2
","006","","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

__
CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
VEJA COMO.
http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
<http://www.windowslive.com.br/public/tip.aspx/view/84?product=2&ocid=WLCRM:
Live:Hotmail:Tagline:senDimensao:CONVERSECO85:->
&ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]


 


  

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Importação de Arquivo

[Prisma - GMAIL]

  Walter,

Acredito que o StringReplace resolva a parada sem problemas:

MeuTextoCorrigido :=  StringReplace(MeuTexto,'","','";"',[rfReplaceAll]);


Sucesso !!

Moacir

Em 13/07/2010 17:09, Walter Chagas (Bol) escreveu:
> é mas e a virgula dos valores decimais??
>
> É um enigma essa parada daí.
>
> []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: 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 ";" 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: [delphi-br] Importação de Arquivo
>
>Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
>das aspas duplas e delimitadas por vírgula.
>
>Existe um campo no formato "100.000,00" que também contém vírgulas em seu
>conteúdo.
>
>De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
>nome de Rubem Nascimento da Rocha
>Enviada em: terça-feira, 13 de julho de 2010 15:54
>Para: delphi-br
>Assunto: RE: [delphi-br] Importação de Arquivo
>Prioridade: Alta
>
>Qual é exatamente a sua dificuldade?
>
>Sds.
>
>To: delphi-br@yahoogrupos.com.br<mailto:delphi-br%40yahoogrupos.com.br>
>From: ral...@gmail.com<mailto:ralprd%40gmail.com>
>Date: Tue, 13 Jul 2010 15:50:44 -0300
>Subject: [delphi-br] Importação de Arquivo
>
>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","","33901400","100.000,00"
>
>
> "601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
>","002","","33901400","130.00"
>
>
> "601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
>","002","","33901400","1.000,00"
>
>
> "601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
>","003","","33903000","10.000,00"
>
>
> "601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2
>","006","","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
>
>__
>CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
>VEJA COMO.
>http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
>
> <http://www.windowslive.com.br/public/tip.aspx/view/84?product=2&ocid=WLCRM:
>Live:Hotmail:Tagline:senDimensao:CONVERSECO85:->
>&ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-
>
>[As partes desta mensagem que não continham texto foram removidas]
>
>[As partes desta mensagem que não continham texto foram removidas]
>
>[As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> 
>



[As partes desta mensagem que não continham texto foram removidas]

Res: RES: RES: [delphi-br] Importação de Ar quivo

[Jean Barreiros]

segue a forma de você resolver: 
(
Eu coloquei um ClientDatSet no form e criei 15 Fields chamdos: 
campo1...2..3..4..15 como string
e campo16 como Float, os tamanhos são de acordo a cada campo do txt
)

procedure TForm1.Button1Click(Sender: TObject);
var arq: TextFile; linha:string;
begin
  ClientDataSet1.CreateDataSet;
  AssignFile(arq,'dados.txt');
  Reset(arq);
  while not Eof(arq) do
  begin
ClientDataSet1.Append;
ReadLn(arq,linha);//Ler os dados da linha;
linha := StringReplace(linha,',',';',[rfReplaceAll]);
linha := StringReplace(linha,'"','',[rfReplaceAll]);
//Delete(linha,1,1);//apaga a 1ª aspas duplas;
ClientDataSet1.Fields[0].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[1].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[2].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[3].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[4].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[5].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[6].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[7].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[8].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[9].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[10].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[11].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[12].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[13].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[14].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
linha := StringReplace(linha,'.','',[rfReplaceAll]);//Transforma os '.' em 
',' para separar a casa de milar;
linha := StringReplace(linha,';',',',[rfReplaceAll]);//Transforma os ';' em 
'.' para separar a casa decimal;
ClientDataSet1.Fields[15].AsFloat := 
StrToFloat(linha);//FormatFloat('###,###,#0.00',StrToFloat(linha));
ClientDataSet1.Post;
  end;
end;

espero 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
===





De: Rubem Rocha 
Para: Rubem Rocha ; delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Julho de 2010 18:20:12
Assunto: RES: RES: [delphi-br] Importação de Arquivo

  
Em termos de código, ficaria assim:

{ Troca as virgulas e aspas por ponto-e-vírgula }

function NormalizaLinha(sLinha: string): string;

begin

Result := sLinha;

Result := StringReplace(Result, '","', ';', [rfReplaceAll]);

Result := StringReplace(Result, ',"', ';',  [rfReplaceAll]);

Result := StringReplace(Result, '",', ';',  [rfReplaceAll]);

end;

procedure ImportarArquivo(NomeArquivo: string);

var

sLinha: string;

lArquivo, lLinha: TStringList;

begin

if not FileExists(NomeArquivo) then

Exit;

lArquivo := TStringList.Create;

try

lArquivo.LoadFromFile(NomeArquivo);

while lArquivo.Count > 0 do

begin

if not Assigned(lLinha) then

begin

lLinha := TStringList.Create;

lLinha.Delimiter := ';';

end;

sLinha := NormalizeLinha(lArquivo[0]);

lLinha.DelimitedText := sLinha;

{ Aqui, o StringList lLinha contém, em cada posição

dentro dele, um valor separado. Aqui, poste o código

para efetuar a importação do registro!  }

lArquivo.Delete(0);

end;

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 Arquivo
Prioridade: Alta

Simples! Faz um StringReplace() na linha 

RES: RES: [delphi-br] Importação de Arquivo

[Rubem Rocha]

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 valores dos campos delimitados por ponto-e-vírgula! 
Bem mais fácil pra ler, não?

 

Sds.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome 
de Walter Chagas (Bol)
Enviada em: terça-feira, 13 de julho de 2010 17:06
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Importação de Arquivo

 

  

Não não não não.

Da forma como você está propondo, voce supoe que entre os valores do tipo 
String (que são delimitados por aspas duplas) pode vir apenas um valor float. 
Mas e se vier dois ou mais na sequência?? Veja o caso abaixo:

"601","029",2.010,98,1.011,32,"01",20100517,17,05,20,10,"04","122","0003","2
","002","","33901400","130.00"

como ficaria este caso?

[]s


Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br <mailto:wchagasj%40bol.com.br> 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
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] Importação de Arquivo

tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores 
decimais não será substituida. Ai ele terá um separador padrão o ponto e 
virgula. depois fica facil.


De: Walter Chagas (Bol) mailto:wchagasj%40bol.com.br> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
Assunto: Re: RES: [delphi-br] Importação de Arquivo

é mas e a virgula dos valores decimais??

É um enigma essa parada daí.

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br <mailto:wchagasj%40bol.com.br> 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
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:04 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo

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 mailto:ralprd%40gmail.com> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
Assunto: RES: [delphi-br] Importação de Arquivo

Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.

Existe um campo no formato "100.000,00" que também contém vírgulas em seu
conteúdo.

De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> ] 
Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 13 de julho de 2010 15:54
Para: delphi-br
Assunto: RE: [delphi-br] Importação de Arquivo
Prioridade: Alta

Qual é exatamente a sua dificuldade?

Sds.

To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
<mailto:delphi-br%40yahoogrupos.com.br> 
From: ral...@gmail.com <mailto:ralprd%40gmail.com>  <mailto:ralprd%40gmail.com> 
Date: Tue, 13 Jul 2010 15:50:44 -0300
Subject: [delphi-br] Importação de Arquivo

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","","33901400","100.000,00"

"601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
","002","","33901400","130.00"

"601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
","002","","33901400","1.000,00"

"601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
","003","","33903000","10.000,00"

"601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2
","006","","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]

RES: RES: [delphi-br] Importação de Arquivo

[Rubem Rocha]

Em termos de código, ficaria assim:

 

{ Troca as virgulas e aspas por ponto-e-vírgula }

function NormalizaLinha(sLinha: string): string;

begin

  Result := sLinha;

  Result := StringReplace(Result, '","', ';', [rfReplaceAll]);

  Result := StringReplace(Result, ',"', ';',  [rfReplaceAll]);

  Result := StringReplace(Result, '",', ';',  [rfReplaceAll]);

end;

 

procedure ImportarArquivo(NomeArquivo: string);

var

  sLinha: string;

  lArquivo, lLinha: TStringList;

begin

  if not FileExists(NomeArquivo) then

Exit;

  lArquivo := TStringList.Create;

  try

lArquivo.LoadFromFile(NomeArquivo);

while lArquivo.Count > 0 do

begin

  if not Assigned(lLinha) then

  begin

lLinha := TStringList.Create;

lLinha.Delimiter := ';';

  end;

  sLinha := NormalizeLinha(lArquivo[0]);

  lLinha.DelimitedText := sLinha;

 

  { Aqui, o StringList lLinha contém, em cada posição

dentro dele, um valor separado. Aqui, poste o código

para efetuar a importação do registro!  }

 

  lArquivo.Delete(0);

end;

  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 Arquivo
Prioridade: Alta

 

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 valores dos campos delimitados por ponto-e-vírgula! 
Bem mais fácil pra ler, não?

 

Sds.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome 
de Walter Chagas (Bol)
Enviada em: terça-feira, 13 de julho de 2010 17:06
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Importação de Arquivo

 

  

Não não não não.

Da forma como você está propondo, voce supoe que entre os valores do tipo 
String (que são delimitados por aspas duplas) pode vir apenas um valor float. 
Mas e se vier dois ou mais na sequência?? Veja o caso abaixo:

"601","029",2.010,98,1.011,32,"01",20100517,17,05,20,10,"04","122","0003","2
","002","","33901400","130.00"

como ficaria este caso?

[]s


Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br <mailto:wchagasj%40bol.com.br> 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
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] Importação de Arquivo

tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores 
decimais não será substituida. Ai ele terá um separador padrão o ponto e 
virgula. depois fica facil.

____________
De: Walter Chagas (Bol) mailto:wchagasj%40bol.com.br> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
Assunto: Re: RES: [delphi-br] Importação de Arquivo

é mas e a virgula dos valores decimais??

É um enigma essa parada daí.

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br <mailto:wchagasj%40bol.com.br> 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
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:04 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo

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 mailto:ralprd%40gmail.com> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
Assunto: RES: [delphi-br] Importação de Arquivo

Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.

Existe um campo no formato "100.000,00" que também contém vírgulas em seu
conteúdo.

De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> ] 
Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 13 de julho de 2010 15:54
Para: delphi-br
Assunto:

Re: RES: [delphi-br] Importação de Arquivo

[Walter Chagas (Bol)]

Não não não não.

Da forma como você está propondo, voce supoe que entre os valores do tipo 
String (que são delimitados por aspas duplas) pode vir apenas um valor float. 
Mas e se vier dois ou mais na sequência?? Veja o caso abaixo:

"601","029",2.010,98,1.011,32,"01",20100517,17,05,20,10,"04","122","0003","2
","002","","33901400","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: WalterChagasJr


  - Original Message - 
  From: Marcelo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, July 13, 2010 5:29 PM
  Subject: Res: RES: [delphi-br] Importação de Arquivo





  tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos 
valores 
  decimais não será substituida. Ai ele terá um separador padrão o ponto e 
  virgula. depois fica facil.

  
  De: Walter Chagas (Bol) 
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
  Assunto: Re: RES: [delphi-br] Importação de Arquivo

  é mas e a virgula dos valores decimais??

  É um enigma essa parada daí.

  []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: 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 ";" 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: [delphi-br] Importação de Arquivo

  Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
  das aspas duplas e delimitadas por vírgula.

  Existe um campo no formato "100.000,00" que também contém vírgulas em seu
  conteúdo.

  De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
  nome de Rubem Nascimento da Rocha
  Enviada em: terça-feira, 13 de julho de 2010 15:54
  Para: delphi-br
  Assunto: RE: [delphi-br] Importação de Arquivo
  Prioridade: Alta

  Qual é exatamente a sua dificuldade?

  Sds.

  To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
  From: ral...@gmail.com <mailto:ralprd%40gmail.com> 
  Date: Tue, 13 Jul 2010 15:50:44 -0300
  Subject: [delphi-br] Importação de Arquivo

  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","","33901400","100.000,00"

  "601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
  ","002","","33901400","130.00"

  "601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
  ","002","","33901400","1.000,00"

  "601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
  ","003","","33903000","10.000,00"

  "601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2
  ","006","","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

  __
  CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
  VEJA COMO.
  http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
  <http://www.windowslive.com.br/public/tip.aspx/view/84?product=2&ocid=WLCRM:
  Live:Hotmail:Tagline:senDimensao:CONVERSECO85:->
  &ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-

  [As partes desta mensagem que não continham texto foram removidas]

  [As partes desta mensagem que não continham texto foram removidas]

  [As partes desta mensagem que não continham texto foram removidas]

  [As partes desta mensagem que não continham texto foram removidas]

  [As partes desta mensagem que não continham texto foram removidas]



  

[As partes desta mensagem que não continham texto foram removidas]

RES: RES: [delphi-br] Importação de Arquivo

[Rubem Rocha]

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
Enviada em: terça-feira, 13 de julho de 2010 16:38
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Importação de Arquivo

 

  

Ralp Alves Bezerra wrote:
> Não estou conseguindo montar uma rotina para pegar os dados contidos
dentro
> das aspas duplas e delimitadas por vírgula.
>
> 
>
> Existe um campo no formato "100.000,00" que também contém vírgulas em seu
> conteúdo.
>
> 
"601","029",201000,"02","01",20100512,"12050002",201005,"04","122","0003","2
","002","","33901400","100.000,00"

Use um parser simples (autômato) e vai funcionar sempre.

[]'s



 



[As partes desta mensagem que não continham texto foram removidas]

Re: RES: [delphi-br] Importação de Arquiv o

[anckerdj]

Ralp Alves Bezerra wrote:
> Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
> das aspas duplas e delimitadas por vírgula.
>
>  
>
> Existe um campo no formato "100.000,00" que também contém vírgulas em seu
> conteúdo.
>
>   
"601","029",201000,"02","01",20100512,"12050002",201005,"04","122","0003","2
","002","","33901400","100.000,00"


Use um parser simples (autômato) e vai funcionar sempre.

[]'s
marcelo

Res: RES: [delphi-br] Importação de Arquivo

[Marcelo]

tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores 
decimais não será substituida. Ai ele terá um separador padrão o ponto e 
virgula. depois fica facil.



De: Walter Chagas (Bol) 
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
Assunto: Re: RES: [delphi-br] Importação de Arquivo

  
é mas e a virgula dos valores decimais??

É um enigma essa parada daí.

[]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: 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 ";" 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: [delphi-br] Importação de Arquivo

Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.

Existe um campo no formato "100.000,00" que também contém vírgulas em seu
conteúdo.

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 13 de julho de 2010 15:54
Para: delphi-br
Assunto: RE: [delphi-br] Importação de Arquivo
Prioridade: Alta

Qual é exatamente a sua dificuldade?

Sds.

To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
From: ral...@gmail.com <mailto:ralprd%40gmail.com> 
Date: Tue, 13 Jul 2010 15:50:44 -0300
Subject: [delphi-br] Importação de Arquivo

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","","33901400","100.000,00"

"601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
","002","","33901400","130.00"

"601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
","002","","33901400","1.000,00"

"601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
","003","","33903000","10.000,00"

"601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2
","006","","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

__
CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
VEJA COMO.
http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
<http://www.windowslive.com.br/public/tip.aspx/view/84?product=2&ocid=WLCRM:
Live:Hotmail:Tagline:senDimensao:CONVERSECO85:->
&ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]


 


  

[As partes desta mensagem que não continham texto foram removidas]

Re: RES: [delphi-br] Importação de Arquivo

[Walter Chagas (Bol)]

é mas e a virgula dos valores decimais??

É um enigma essa parada daí.

[]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: 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 ";" 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: [delphi-br] Importação de Arquivo

  Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
  das aspas duplas e delimitadas por vírgula.

  Existe um campo no formato "100.000,00" que também contém vírgulas em seu
  conteúdo.

  De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
  nome de Rubem Nascimento da Rocha
  Enviada em: terça-feira, 13 de julho de 2010 15:54
  Para: delphi-br
  Assunto: RE: [delphi-br] Importação de Arquivo
  Prioridade: Alta

  Qual é exatamente a sua dificuldade?

  Sds.

  To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
  From: ral...@gmail.com <mailto:ralprd%40gmail.com> 
  Date: Tue, 13 Jul 2010 15:50:44 -0300
  Subject: [delphi-br] Importação de Arquivo

  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","","33901400","100.000,00"

  "601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
  ","002","","33901400","130.00"

  "601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
  ","002","","33901400","1.000,00"

  "601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
  ","003","","33903000","10.000,00"

  "601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2
  ","006","","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

  __
  CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
  VEJA COMO.
  http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
  <http://www.windowslive.com.br/public/tip.aspx/view/84?product=2&ocid=WLCRM:
  Live:Hotmail:Tagline:senDimensao:CONVERSECO85:->
  &ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-

  [As partes desta mensagem que não continham texto foram removidas]

  [As partes desta mensagem que não continham texto foram removidas]

  [As partes desta mensagem que não continham texto foram removidas]



  

[As partes desta mensagem que não continham texto foram removidas]

Re: RES: [delphi-br] Importação de Arquivo

[Walter Chagas (Bol)]

é mas e a virgula dos valores decimais??

É um enigma essa parada daí.

[]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: 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 ";" 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: [delphi-br] Importação de Arquivo

  Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
  das aspas duplas e delimitadas por vírgula.

  Existe um campo no formato "100.000,00" que também contém vírgulas em seu
  conteúdo.

  De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
  nome de Rubem Nascimento da Rocha
  Enviada em: terça-feira, 13 de julho de 2010 15:54
  Para: delphi-br
  Assunto: RE: [delphi-br] Importação de Arquivo
  Prioridade: Alta

  Qual é exatamente a sua dificuldade?

  Sds.

  To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
  From: ral...@gmail.com <mailto:ralprd%40gmail.com> 
  Date: Tue, 13 Jul 2010 15:50:44 -0300
  Subject: [delphi-br] Importação de Arquivo

  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","","33901400","100.000,00"

  "601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
  ","002","","33901400","130.00"

  "601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
  ","002","","33901400","1.000,00"

  "601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
  ","003","","33903000","10.000,00"

  "601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2
  ","006","","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

  __
  CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
  VEJA COMO.
  http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
  <http://www.windowslive.com.br/public/tip.aspx/view/84?product=2&ocid=WLCRM:
  Live:Hotmail:Tagline:senDimensao:CONVERSECO85:->
  &ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-

  [As partes desta mensagem que não continham texto foram removidas]

  [As partes desta mensagem que não continham texto foram removidas]

  [As partes desta mensagem que não continham texto foram removidas]



  

[As partes desta mensagem que não continham texto foram removidas]

Res: RES: [delphi-br] Importação de Arquivo

[Marcelo]

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: [delphi-br] Importação de Arquivo

  
Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.

Existe um campo no formato "100.000,00" que também contém vírgulas em seu
conteúdo.

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 13 de julho de 2010 15:54
Para: delphi-br
Assunto: RE: [delphi-br] Importação de Arquivo
Prioridade: Alta

Qual é exatamente a sua dificuldade?

Sds.

To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
From: ral...@gmail.com <mailto:ralprd%40gmail.com> 
Date: Tue, 13 Jul 2010 15:50:44 -0300
Subject: [delphi-br] Importação de Arquivo

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","","33901400","100.000,00"

"601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
","002","","33901400","130.00"

"601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
","002","","33901400","1.000,00"

"601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
","003","","33903000","10.000,00"

"601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2
","006","","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

__
CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
VEJA COMO.
http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
<http://www.windowslive.com.br/public/tip.aspx/view/84?product=2&ocid=WLCRM:
Live:Hotmail:Tagline:senDimensao:CONVERSECO85:->
&ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]


 


  

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Importação de Arquivo

[Daniel Azevedo]

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","","33901400","100.000,00"
>
> "601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
> ","002","","33901400","130.00"
>
> "601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
> ","002","","33901400","1.000,00"
>
> "601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
> ","003","","33903000","10.000,00"
>
> "601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2
> ","006","","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

Re: Res: RES: [delphi-br] Importação de Arqui vo

[Darkzad]

  Acho que você pode usar a função ExtractStrings. Ela é parcida com a 
função explode do PHP e é nativa do Delphi.

function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: 
PChar; Strings: TStrings): Integer;

* Separator - É um array onde você pode definir vários separadores
* WhiteSpace - É um Array onde você define os caracteres que devem
  ser Ignorados quando ocorrerem no inicio da String.
* Content - É a String de onde se deseja extrais as substrings

A Função retorna o número de Substrings extraídas.

Veja um pequeno exemplo de utilização:

procedure TForm1.Button1Click(Sender: TObject);
const
SDados = 'Cristiano Martins Alves; 28 Anos; Casado; São Paulo; SP';
var
Lista: TStringList;
iRetorno:Integer;
begin
Lista := TStringList.Create;
try
iRetorno := ExtractStrings([';'],[' '],PChar(sDados),Lista);
if iRetorno > 0 then
ShowMessage(Lista.Text);
finally
FreeAndNil(Lista);
end;
end;

Desde já
DarkZad


Em 13-07-2010 16:25, Wagne®_Fix escreveu:
>
> 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;
>
> while not Eof ( arq ) do begin
> AuxLinha := '';
> AuxPed := '';
> AuxChassi := '';
> AuxLinha := Copy(linha,53,1);
> AuxPed := Copy(linha,1,10);
> AuxChassi := Copy(linha,51,10);
> end;
>
> 
> De: Ralp Alves Bezerra mailto:ralprd%40gmail.com>>
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
> Assunto: RES: [delphi-br] Importação de Arquivo
>
> Não estou conseguindo montar uma rotina para pegar os dados contidos 
> dentro
> das aspas duplas e delimitadas por vírgula.
>
> Existe um campo no formato "100.000,00" que também contém vírgulas em seu
> conteúdo.
>
> De: delphi-br@yahoogrupos.com.br 
> <mailto:delphi-br%40yahoogrupos.com.br> 
> [mailto:delphi-br@yahoogrupos.com.br 
> <mailto:delphi-br%40yahoogrupos.com.br>] Em
> nome de Rubem Nascimento da Rocha
> Enviada em: terça-feira, 13 de julho de 2010 15:54
> Para: delphi-br
> Assunto: RE: [delphi-br] Importação de Arquivo
> Prioridade: Alta
>
> Qual é exatamente a sua dificuldade?
>
> Sds.
>
> To: delphi-br@yahoogrupos.com.br 
> <mailto:delphi-br%40yahoogrupos.com.br> 
> <mailto:delphi-br%40yahoogrupos.com.br>
> From: ral...@gmail.com <mailto:ralprd%40gmail.com> 
> <mailto:ralprd%40gmail.com>
> Date: Tue, 13 Jul 2010 15:50:44 -0300
> Subject: [delphi-br] Importação de Arquivo
>
> 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","","33901400","100.000,00"
>
> "601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
> ","002","","33901400","130.00"
>
> "601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
> ","002","","33901400","1.000,00"
>
> "601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
> ","003","","33903000","10.000,00"
>
> "601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2
> ","006","","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
>
> __
> CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
> VEJA COMO.
> http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
> <http://www.windowslive.com.br/public/tip.aspx/view/84?product=2&ocid=WLCRM: 
> <http://www.windowslive.com.br/public/tip.aspx/view/84?product=2&ocid=WLCRM:>
> Live:Hotmail:Tagline:senDimensao:CONVERSECO85:->
> &ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 



[As partes desta mensagem que não continham texto foram removidas]

Res: RES: [delphi-br] Importação de Arquivo

[Wagne®_Fix]

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;

  while not Eof ( arq ) do begin
AuxLinha:= '';
AuxPed  := '';
AuxChassi   := '';
AuxLinha:= Copy(linha,53,1);
AuxPed  := Copy(linha,1,10);
AuxChassi   := Copy(linha,51,10);
  end;





De: Ralp Alves Bezerra 
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
Assunto: RES: [delphi-br] Importação de Arquivo

  
Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.

Existe um campo no formato "100.000,00" que também contém vírgulas em seu
conteúdo.

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 13 de julho de 2010 15:54
Para: delphi-br
Assunto: RE: [delphi-br] Importação de Arquivo
Prioridade: Alta

Qual é exatamente a sua dificuldade?

Sds.

To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
From: ral...@gmail.com <mailto:ralprd%40gmail.com> 
Date: Tue, 13 Jul 2010 15:50:44 -0300
Subject: [delphi-br] Importação de Arquivo

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","","33901400","100.000,00"

"601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
","002","","33901400","130.00"

"601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
","002","","33901400","1.000,00"

"601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
","003","","33903000","10.000,00"

"601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2
","006","","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

__
CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
VEJA COMO.
http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
<http://www.windowslive.com.br/public/tip.aspx/view/84?product=2&ocid=WLCRM:
Live:Hotmail:Tagline:senDimensao:CONVERSECO85:->
&ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]


 


  

[As partes desta mensagem que não continham texto foram removidas]

RES: [delphi-br] Importação de Arquivo

[Ralp Alves Bezerra]

Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.

 

Existe um campo no formato "100.000,00" que também contém vírgulas em seu
conteúdo.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 13 de julho de 2010 15:54
Para: delphi-br
Assunto: RE: [delphi-br] Importação de Arquivo
Prioridade: Alta

 

  


Qual é exatamente a sua dificuldade?

Sds.


To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
From: ral...@gmail.com <mailto:ralprd%40gmail.com> 
Date: Tue, 13 Jul 2010 15:50:44 -0300
Subject: [delphi-br] Importação de Arquivo

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","","33901400","100.000,00"

"601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
","002","","33901400","130.00"

"601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
","002","","33901400","1.000,00"

"601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
","003","","33903000","10.000,00"

"601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2
","006","","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


__
CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
VEJA COMO.
http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
<http://www.windowslive.com.br/public/tip.aspx/view/84?product=2&ocid=WLCRM:
Live:Hotmail:Tagline:senDimensao:CONVERSECO85:->
&ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-

[As partes desta mensagem que não continham texto foram removidas]





[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Importação de Arquivo

[Ralp Alves Bezerra]

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","","33901400","100.000,00"

"601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
","002","","33901400","130.00"

"601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
","002","","33901400","1.000,00"

"601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
","003","","33903000","10.000,00"

"601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2
","006","","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]

Re: [delphi-br] Importação de Arquivo XML F armacia

[SOM MARCOS]

Olá Nilson..
 
Ralei bastante ano passado para ler um arquivo XML e gerar um textgo 
Para importação ...
 
Abaixo tem alguns links e textos que pesquisei na web ... 
 
espero ter ajudado ...
 
Marcos Oliveira - Goiânia.-

 
http://www.caiooliveira.com.br/?cat=5
 
http://devmedia.com.br/articles/viewcomp.asp?comp=12237
 
 
http://devmedia.com.br/articles/viewcomp.asp?comp=12307   ler cep com código da 
cidade
 
-- Em sáb, 24/4/10, Nilson C A Junior  
escreveu:


De: Nilson C A Junior 
Assunto: [delphi-br] Importação de Arquivo XML Farmacia
Para: delphi-br@yahoogrupos.com.br
Data: Sábado, 24 de Abril de 2010, 13:03


  



Alguem da lista teria um exemplo de importação de arquivo XML de farmácia ?
Estou sendo muito cobrado pelos meus clientes, e por estar terminando O PAF
estou super apertado.

Agradeço a todos antecipadamente

Nilson Jr.

28 3553 0262

28 9976 1927

28 8811 0500

bancodeideias - assinatura

[As partes desta mensagem que não continham texto foram removidas]









  

[As partes desta mensagem que não continham texto foram removidas]

RES: [delphi-br] Importação de Arquivo XML Farmacia

[Nilson C A Junior]

Desculpem pelo email pouco esclarecedor,

 

O Arquivo XML que me refiro, são arquivos referentes a notas Fiscais
eletrônicas, de entrada de medicamentos, etc ...

 

Quando a farmácia recebe o DANFE, a empresa que emite a nota envia um
arquivo XML com os produtos, que pode ser importada para dar entrada
diretamente no sistema.

 

Acho que ficou mais Claro

 

Nilson Jr.

28 3553 0262

28 9976 1927

28 8811 0500

bancodeideias - assinatura

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Josimar Zimermann
Enviada em: segunda-feira, 26 de abril de 2010 10:53
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Importação de Arquivo XML Farmacia

 

  

Olá Sr. Nilson!

Eu desconheço qualquer modelo de documentos XML usado por farmácias,
mas se você conhece o padrão do arquivo do arquivo poderá implementar algo
para fazer a importação utilizando o *TXMLDocument.* Mas já lhe aviso de 
antemão
que você terá que se desdobrar para achar documentação sobre esse documento.
Contudo, ele é muito fácil de utilizar.

Espero ter ajudado!

Em 24/4/2010 13:03, Nilson C A Junior escreveu:
>
> Alguem da lista teria um exemplo de importação de arquivo XML de 
> farmácia ?
> Estou sendo muito cobrado pelos meus clientes, e por estar terminando 
> O PAF
> estou super apertado.
>
> Agradeço a todos antecipadamente
>
> Nilson Jr.
>
> 28 3553 0262
>
> 28 9976 1927
>
> 28 8811 0500
>
> bancodeideias - assinatura
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 

[As partes desta mensagem que não continham texto foram removidas]





__ Information from ESET Smart Security, version of virus signature
database 5063 (20100426) __

The message was checked by ESET Smart Security.

http://www.eset.com

 

__ Information from ESET Smart Security, version of virus signature
database 5063 (20100426) __

 

The message was checked by ESET Smart Security.

 

http://www.eset.com



[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Importação de Arquivo X ML Farmacia

[Josimar Zimermann]

Olá Sr. Nilson!

Eu desconheço qualquer modelo de documentos XML usado por farmácias,
mas se você conhece o padrão do arquivo do arquivo poderá implementar algo
para fazer a importação utilizando o *TXMLDocument.* Mas já lhe aviso de 
antemão
que você terá que se desdobrar para achar documentação sobre esse documento.
Contudo, ele é muito fácil de utilizar.

Espero ter ajudado!

Em 24/4/2010 13:03, Nilson C A Junior escreveu:
>
> Alguem da lista teria um exemplo de importação de arquivo XML de 
> farmácia ?
> Estou sendo muito cobrado pelos meus clientes, e por estar terminando 
> O PAF
> estou super apertado.
>
> Agradeço a todos antecipadamente
>
> Nilson Jr.
>
> 28 3553 0262
>
> 28 9976 1927
>
> 28 8811 0500
>
> bancodeideias - assinatura
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 



[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Importação de Arquivo XML Farmacia

[Nilson C A Junior]

Alguem da lista teria um exemplo de importação de arquivo XML de farmácia ?
Estou sendo muito cobrado pelos meus clientes, e por estar terminando O PAF
estou super apertado.

 

Agradeço a todos antecipadamente

 

Nilson Jr.

28 3553 0262

28 9976 1927

28 8811 0500

bancodeideias - assinatura

 



[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Importação de base de dados

[Marcelo]

IbDataPump da clever components é free e sempre me atendeu bem

--- Em sáb, 17/10/09, Tupy... nambá  escreveu:

De: Tupy... nambá 
Assunto: Re: [delphi-br] Importação de base de dados
Para: delphi-br@yahoogrupos.com.br
Data: Sábado, 17 de Outubro de 2009, 8:33












 
 





  Uberdam,



Existe  sim como fazê-lo, e se precisar de um profissional para realizar este 
trabalho, já realizei este tipo de trabalho por mais de uma vez e me coloco a 
disposição.



Abraço,

Roberto Camargo.



 _ _ __

From: berdamzinho 

To: delphi...@yahoogrup os.com.br

Sent: Fri, October 16, 2009 4:45:39 PM

Subject: Re: [delphi-br] Importação de base de dados



crie a sua



eljusticeirobhz@ ymail.com escreveu:

> 

>

> Estou precisando importar de uma base de dados para outra.

>

> Já usei o dump do delphi e também do SQL , mas o meu problema é que em 

> uma base de dados tens uns campos, outra tem outros campos, nomes 

> diferentes etc. .campos que não podem ser "null".

>

> Preciso de uma ferramenta bem visual e fácil para isso.. alguém 

> conhece alguma 

>

> 



-- 

 - - - -

Uberdam Cavaletti

Programador Delphi

Formado em Tecnologia da Informação

Pós-graduado em desenvolvimento Java.

Professor Tópicos Especias em BD - Unoesc Xanxerê

Professor Estruturas de Dados- Unoesc Xanxerê



http://buscatextual .cnpq.br/ buscatextual/ visualizacv. jsp?id=K4251629Y 0

 - - - -



[As partes desta mensagem que não continham texto foram removidas]




 

  




 






















  

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Importação de base de dados

[berdamzinho]

quem enfrenta o problema é o amigo ali debaixo eljusticeirobhz
eu apenas respondi a pergunta

valeu

Tupy... nambá escreveu:
>  
>
> Uberdam,
>
> Existe sim como fazê-lo, e se precisar de um profissional para 
> realizar este trabalho, já realizei este tipo de trabalho por mais de 
> uma vez e me coloco a disposição.
>
> Abraço,
> Roberto Camargo.
>
> 
> From: berdamzinho  <mailto:berdamzinho%40yahoo.com.br>>
> To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> Sent: Fri, October 16, 2009 4:45:39 PM
> Subject: Re: [delphi-br] Importação de base de dados
>
> crie a sua
>
> eljusticeirobhz@ ymail.com escreveu:
> >
> >
> > Estou precisando importar de uma base de dados para outra.
> >
> > Já usei o dump do delphi e também do SQL , mas o meu problema é que em
> > uma base de dados tens uns campos, outra tem outros campos, nomes
> > diferentes etc. .campos que não podem ser "null".
> >
> > Preciso de uma ferramenta bem visual e fácil para isso.. alguém
> > conhece alguma 
> >
> >
>
> -- 
>  - - - -
> Uberdam Cavaletti
> Programador Delphi
> Formado em Tecnologia da Informação
> Pós-graduado em desenvolvimento Java.
> Professor Tópicos Especias em BD - Unoesc Xanxerê
> Professor Estruturas de Dados - Unoesc Xanxerê
>
> http://buscatextual .cnpq.br/ buscatextual/ visualizacv. 
> jsp?id=K4251629Y 0
>  - - - -
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 

-- 

Uberdam Cavaletti
Programador Delphi
Formado em Tecnologia da Informação
Pós-graduado em desenvolvimento Java.
Professor Tópicos Especias em BD - Unoesc Xanxerê
Professor Estruturas de Dados- Unoesc Xanxerê

http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0

Re: [delphi-br] Importação de base de dados

[Tupy . . . nambá]

Uberdam,

Existe  sim como fazê-lo, e se precisar de um profissional para realizar este 
trabalho, já realizei este tipo de trabalho por mais de uma vez e me coloco a 
disposição.

Abraço,
Roberto Camargo.





From: berdamzinho 
To: delphi-br@yahoogrupos.com.br
Sent: Fri, October 16, 2009 4:45:39 PM
Subject: Re: [delphi-br] Importação de base de dados

  
crie a sua

eljusticeirobhz@ ymail.com escreveu:
> 
>
> Estou precisando importar de uma base de dados para outra.
>
> Já usei o dump do delphi e também do SQL , mas o meu problema é que em 
> uma base de dados tens uns campos, outra tem outros campos, nomes 
> diferentes etc. .campos que não podem ser "null".
>
> Preciso de uma ferramenta bem visual e fácil para isso.. alguém 
> conhece alguma 
>
> 

-- 
 - - - -
Uberdam Cavaletti
Programador Delphi
Formado em Tecnologia da Informação
Pós-graduado em desenvolvimento Java.
Professor Tópicos Especias em BD - Unoesc Xanxerê
Professor Estruturas de Dados- Unoesc Xanxerê

http://buscatextual .cnpq.br/ buscatextual/ visualizacv. jsp?id=K4251629Y 0
 - - - -


   


  

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Importação de base de dados

[berdamzinho]

crie a sua

eljusticeiro...@ymail.com escreveu:
>  
>
> Estou precisando importar de uma base de dados para outra.
>
> Já usei o dump do delphi e também do SQL , mas o meu problema é que em 
> uma base de dados tens uns campos, outra tem outros campos, nomes 
> diferentes etc. .campos que não podem ser "null".
>
> Preciso de uma ferramenta bem visual e fácil para isso.. alguém 
> conhece alguma 
>
> 

-- 

Uberdam Cavaletti
Programador Delphi
Formado em Tecnologia da Informação
Pós-graduado em desenvolvimento Java.
Professor Tópicos Especias em BD - Unoesc Xanxerê
Professor Estruturas de Dados- Unoesc Xanxerê

http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0

[delphi-br] Importação de base de dados

[eljusticeiro...@ymail.com]

Estou precisando importar de uma base de dados para outra. 

Já usei o dump do delphi e também do SQL , mas o meu problema é que em uma base 
de dados tens uns campos, outra tem outros campos, nomes diferentes etc. 
.campos que não podem ser "null". 


Preciso de uma ferramenta bem visual e fácil para isso.. alguém conhece alguma 

[delphi-br] Importação e BDE

[HP]

Boa Tarde pessoal!

Estou com um pequeno problema...tenho um sistema de contabilidade e preciso 
fazer uma importacao de outro sistema que usa DBF como base de dados...to 
usando o BDE pra acessar esses DBF's...ai agora vem o problema...Crio o Alias e 
apos importar mando deletar o Alias ai o usuario manda importar outra empresa 
só que o BDE ta criando o Alias com o mesmo caminho do anterior...

 try
  while Session.IsAlias('importacao') do
   Session.DeleteAlias('importacao');

  { Adiciona o alias }
 Session.AddStandardAlias('importacao', edt_caminho_pasta.Text, 'DBASE');
  { Salva o arquivo de configuração do BDE }
 Session.SaveConfigFile;

  [Importação]

  finally
   {Deleta o alias}
   while Session.IsAlias('importacao') do
 Session.DeleteAlias('importacao');
 end;

Esse ai é o código que estou usando para criar o deletar o AliasAlguem pode 
mim da uma ajuda sobre a questao dele criar novamente com o caminho do anterior?

HP.

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Importação e Exportação de dados

[Robson]

De onde pra onde?
q tipo de dados?
banco de dados, texto, planilha
 
 
Kaputz, Robson
Skype: kaputz_gri
 
"Não pude escolher muitas coisas que nasceram comigo, mas posso escolher meu 
amigo..E nessa busca empenho a minha própria alma, pois com uma Amizade 
Verdadeira, a vida se torna mais simples, mais rica e mais bela..." Charlie 
Chaplin .
"Keep the Dream Alive"



- Mensagem original 
De: Sérgio - Jundiaí / SP <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sábado, 27 de Outubro de 2007 7:48:44
Assunto: [delphi-br] Importação e Exportação de dados



alguém poderia me indicar algum material ou site pois gostaria muito de 
entender o funcionamento.

Um abraço

Sérgio

[As partes desta mensagem que não continham texto foram removidas]





  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Importação e Exportação de dados

[Sérgio - Jundiaí / SP]

alguém poderia me indicar algum material ou site pois gostaria muito de 
entender o funcionamento.

Um abraço

Sérgio

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Importação de Dados

[Eduardo Silva dos Santos]

Olá Ricado César, estou à disposição para qualquer *dúvida, pq mySQL não da
problema.*
hehheh, até mais.


Em 14/06/07, Ricardo César Cardoso <[EMAIL PROTECTED]> escreveu:
>
>   Obrigado mesmo, Eduardo!
>
> Agora já sei quem eu vou atormentar com problemas no MySQL. ;)
>
> Sds,
> Ricardo.
>
> Eduardo Silva dos Santos <[EMAIL PROTECTED] >
> escreveu: Olá *Ricardo, *
> * *
> Recomendo você usar o MySQL 5.0, use somente tabelas InnoDB, elas te dão
> uma baita segurança e suporte a transação/integridade referencial e mais
> um
> monte de coisa.
>
> Para componentes de acesso FREE, recomento o Zeos 6.5 mesmo.
> Para componentes pagos recomento o MyDac 5, www.crlab.com
>
> eu trabalho com MySQL ha bastante tempo e tenho uma grande experiência com
> o
> mesmo, qualquer coisa estou à disposição.
>
> Em 12/06/07, Ricardo César Cardoso <[EMAIL 
> PROTECTED]>
> escreveu:
> >
> > Só tenho algumas dúvidas Eduardo.
> >
> > Vou trabalhar com o mySQL 5 e gostaria de saber se existe algum driver
> > (free é claro) pra acessá-lo pelo Delphi. E como componentes de acesso,
> > posso usar diretamente o ZEOS 6.5 ou vc recomenda algum outro? Existe
> > alguma recomendação ao criar as tabelas ou a base de dados como usar ou
> não
> > usar MyISAM e usar ou não usar InnoDB?
> >
> > Grato,
> > Ricardo.
> >
> > Eduardo Silva dos Santos <[EMAIL PROTECTED]<
> eduardo.drd%40gmail.com>>
> > escreveu: hehehe, por isso que gosto do MySQL, um simples *Show Tables*;
> > resolve
> > esse problema.
> >
> > Em 04/06/07, Jorge Ericsson <[EMAIL PROTECTED]
> >
> > escreveu:
> > >
> > > Problema resolvido, mas caso alguém queira a instrução para carregar
> > > tabelas
> > > e campos do SQL Server que eu montei segue abaixo:
> > >
> > > with ADOQuery1 do
> > > begin
> > > Close;
> > > Sql.Clear;
> > > Sql.Add('SELECT so.name as [Nome_Tabela] FROM SysObjects so WITH
> > > (NOLOCK)');
> > > Sql.Add('Where so.type = ''u'' and so.name like ''TB%'' order by
> so.name
> > > ');
> > > //Somente Tabelas
> > > Open;
> > > DBCmbTabelas.Items.Clear;
> > > while not eof do
> > > begin
> > > DBCmbTabelas.Items.Add(ADOQuery1.FieldbyName('Nome_Tabela').Value);
> > > ADOQuery1.Next;
> > > end;
> > > end;
> > >
> > > Instrução para extração da Tabela informada no ComboBox
> > >
> > > Screen.Cursor := crSqlWait;
> > > with ADOQueryTabelas do
> > > begin
> > > Close;
> > > Sql.Clear;
> > > Sql.Add('SELECT so.name as [Nome_Tabela], sc.name as [Nome_Columa],
> > > st.name as [Tipo_Dado], sc.length as [Precisao]');
> > > Sql.Add('FROM SysObjects so WITH (NOLOCK)');
> > > Sql.Add('INNER JOIN SysColumns sc on so.id = sc.id');
> > > Sql.Add('INNER JOIN SysTypes st on st.xtype = sc.xtype');
> > > Sql.Add('where so.type = ''u'' and so.name = :prTabela');
> > > Sql.Add('order by sc.colorder');
> > > Parameters.ParamByName('prTabela').Value := TRIM(DBCmbTabelas.Text);
> > > Open;
> > > vSqlInstrucao := '';
> > > vSqlInstrucao := 'SELECT ';
> > > vSqlOrdenado := ADOQueryTabelas.FieldbyName('Nome_Columa').Value;
> > > while not eof do
> > > begin
> > > vSqlInstrucao := vSqlInstrucao +
> > > ADOQueryTabelas.FieldbyName('Nome_Columa').Value
> > > + ', ';
> > > Next;
> > > end;
> > > vSqlInstrucao := Copy(vSqlInstrucao,1,Length(vSqlInstrucao)-2);
> > > vSqlInstrucao := vSqlInstrucao +' FROM '+ ADOQueryTabelas.FieldbyName
> > > ('Nome_Tabela').Value;
> > > vSqlInstrucao := vSqlInstrucao +' ORDER BY '+ vSqlOrdenado;
> > > end;
> > > edtInstrucao.Clear;
> > > edtInstrucao.Text := vSqlInstrucao;
> > > btnInstrucaoMEC.Onclick(Sender);
> > > Screen.Cursor := crDefault;
> > >
> > > I love you GOOGLE.
> > >
> > > Em 04/06/07, Ricardo César Cardoso <[EMAIL 
> > > PROTECTED]
> 
> > >
> > > escreveu:
> > > >
> > > > Olha amigo, com relação ao Oracle apareceu alguma coisa sobre este
> > > > assunto na semana passada. Dá uma olhada nas mensagens antigas do
> > grupo
> > > que
> > > > tem alguma coisa.
> > > >
> > > > Quanto ao SQL Server, me lembro que já vi isso, mas não tenho mais o
> > > > link... nesse caso vai ter que buscar mesmo pelo Google.
> > > >
> > > > Sds,
> > > > Ricardo.
> > > >
> > > > Jorge Ericsson <[EMAIL PROTECTED] 
> > > >  40gmail.com> > 40gmail.com> > > 40gmail.com>>
> > > > escreveu: Olá amigos delphianos,
> > > >
> > > >
> > > > Estou desenvolvendo uma ferramenta de migração de dados SQL-SERVER X
> > > > ORACLE
> > > > e gostaria de saber como faço para pegar parâmetros como nome da
> > tabela,
> > > > todos os seus campos e tipos de campos.
> > > >
> > > > Obs: Com o nome da tabela eu necessito montar uma instrução SELECT
> > > > capturar
> > > > os dados e inserir em uma TQuery os mesmos dados.
> > > >
> > > > Desculpe se não fui muito claro.
> > > >
> > > > Grato,
> > > >
> > > > Jorge Ericsson S. Pinheiro
> > > > Analista/Projetista de Sistemas
> > > > Ericsson Sistemas e Soluções
> > > > http://www.jericssonsup.com.br
> > > > 61 9667-4785 / 3966-4535
> > > > Brasília- DF
> > > >
> > > > [As partes desta mensagem que não continham texto foram removidas]
> > > >
> > >

Re: [delphi-br] Importação de Dados

[Ricardo César Cardoso]

Obrigado mesmo, Eduardo! 

Agora já sei quem eu vou atormentar com problemas no MySQL. ;)

Sds,
Ricardo.

Eduardo Silva dos Santos <[EMAIL PROTECTED]> escreveu:  
Olá *Ricardo, *
 * *
  Recomendo você usar o MySQL 5.0, use somente tabelas InnoDB, elas te dão
 uma baita segurança e suporte a transação/integridade referencial e mais um
 monte de coisa.
 
 Para componentes de acesso FREE, recomento o Zeos 6.5 mesmo.
  Para componentes pagos recomento o MyDac 5, www.crlab.com
 
 eu trabalho com MySQL ha bastante tempo e tenho uma grande experiência com o
 mesmo, qualquer coisa estou à disposição.
 
 Em 12/06/07, Ricardo César Cardoso <[EMAIL PROTECTED]> escreveu:
 >
 >   Só tenho algumas dúvidas Eduardo.
 >
 > Vou trabalhar com o mySQL 5 e gostaria de saber se existe algum driver
 > (free é claro) pra acessá-lo pelo Delphi. E como componentes de acesso,
 > posso usar diretamente o ZEOS 6.5 ou vc recomenda algum outro? Existe
 > alguma recomendação ao criar as tabelas ou a base de dados como usar ou não
 > usar MyISAM e usar ou não usar InnoDB?
 >
 > Grato,
 > Ricardo.
 >
 > Eduardo Silva dos Santos <[EMAIL PROTECTED] >
 > escreveu: hehehe, por isso que gosto do MySQL, um simples *Show Tables*;
 > resolve
 > esse problema.
 >
 > Em 04/06/07, Jorge Ericsson <[EMAIL PROTECTED]>
 > escreveu:
 > >
 > > Problema resolvido, mas caso alguém queira a instrução para carregar
 > > tabelas
 > > e campos do SQL Server que eu montei segue abaixo:
 > >
 > > with ADOQuery1 do
 > > begin
 > > Close;
 > > Sql.Clear;
 > > Sql.Add('SELECT so.name as [Nome_Tabela] FROM SysObjects so WITH
 > > (NOLOCK)');
 > > Sql.Add('Where so.type = ''u'' and so.name like ''TB%'' order by so.name
 > > ');
 > > //Somente Tabelas
 > > Open;
 > > DBCmbTabelas.Items.Clear;
 > > while not eof do
 > > begin
 > > DBCmbTabelas.Items.Add(ADOQuery1.FieldbyName('Nome_Tabela').Value);
 > > ADOQuery1.Next;
 > > end;
 > > end;
 > >
 > > Instrução para extração da Tabela informada no ComboBox
 > >
 > > Screen.Cursor := crSqlWait;
 > > with ADOQueryTabelas do
 > > begin
 > > Close;
 > > Sql.Clear;
 > > Sql.Add('SELECT so.name as [Nome_Tabela], sc.name as [Nome_Columa],
 > > st.name as [Tipo_Dado], sc.length as [Precisao]');
 > > Sql.Add('FROM SysObjects so WITH (NOLOCK)');
 > > Sql.Add('INNER JOIN SysColumns sc on so.id = sc.id');
 > > Sql.Add('INNER JOIN SysTypes st on st.xtype = sc.xtype');
 > > Sql.Add('where so.type = ''u'' and so.name = :prTabela');
 > > Sql.Add('order by sc.colorder');
 > > Parameters.ParamByName('prTabela').Value := TRIM(DBCmbTabelas.Text);
 > > Open;
 > > vSqlInstrucao := '';
 > > vSqlInstrucao := 'SELECT ';
 > > vSqlOrdenado := ADOQueryTabelas.FieldbyName('Nome_Columa').Value;
 > > while not eof do
 > > begin
 > > vSqlInstrucao := vSqlInstrucao +
 > > ADOQueryTabelas.FieldbyName('Nome_Columa').Value
 > > + ', ';
 > > Next;
 > > end;
 > > vSqlInstrucao := Copy(vSqlInstrucao,1,Length(vSqlInstrucao)-2);
 > > vSqlInstrucao := vSqlInstrucao +' FROM '+ ADOQueryTabelas.FieldbyName
 > > ('Nome_Tabela').Value;
 > > vSqlInstrucao := vSqlInstrucao +' ORDER BY '+ vSqlOrdenado;
 > > end;
 > > edtInstrucao.Clear;
 > > edtInstrucao.Text := vSqlInstrucao;
 > > btnInstrucaoMEC.Onclick(Sender);
 > > Screen.Cursor := crDefault;
 > >
 > > I love you GOOGLE.
 > >
 > > Em 04/06/07, Ricardo César Cardoso <[EMAIL 
 > > PROTECTED]
 > >
 > > escreveu:
 > > >
 > > > Olha amigo, com relação ao Oracle apareceu alguma coisa sobre este
 > > > assunto na semana passada. Dá uma olhada nas mensagens antigas do
 > grupo
 > > que
 > > > tem alguma coisa.
 > > >
 > > > Quanto ao SQL Server, me lembro que já vi isso, mas não tenho mais o
 > > > link... nesse caso vai ter que buscar mesmo pelo Google.
 > > >
 > > > Sds,
 > > > Ricardo.
 > > >
 > > > Jorge Ericsson <[EMAIL PROTECTED] 
 > > >  40gmail.com> > 40gmail.com>>
 > > > escreveu: Olá amigos delphianos,
 > > >
 > > >
 > > > Estou desenvolvendo uma ferramenta de migração de dados SQL-SERVER X
 > > > ORACLE
 > > > e gostaria de saber como faço para pegar parâmetros como nome da
 > tabela,
 > > > todos os seus campos e tipos de campos.
 > > >
 > > > Obs: Com o nome da tabela eu necessito montar uma instrução SELECT
 > > > capturar
 > > > os dados e inserir em uma TQuery os mesmos dados.
 > > >
 > > > Desculpe se não fui muito claro.
 > > >
 > > > Grato,
 > > >
 > > > Jorge Ericsson S. Pinheiro
 > > > Analista/Projetista de Sistemas
 > > > Ericsson Sistemas e Soluções
 > > > http://www.jericssonsup.com.br
 > > > 61 9667-4785 / 3966-4535
 > > > Brasília- DF
 > > >
 > > > [As partes desta mensagem que não continham texto foram removidas]
 > > >
 > > >
 > > >
 > > > _
 > > >
 > > > -
 > > > Novo Yahoo! Cadê? - Experimente uma nova busca.
 > > >
 > > > [As partes desta mensagem que não continham texto foram removidas]
 > > >
 > > >
 > > >
 > >
 > > --
 > > Jorge Ericsson S. Pinheiro
 > > Analista/Projetista de Sistemas
 > > Ericsson Sistemas e Soluções
 > > http:/

Re: [delphi-br] Importação de Dados

[Eduardo Silva dos Santos]

*Jorge,*
Inconsistências e problemas no MySQL 5 ???

cite alguns por favor...  eu uso MySQL desde a versão 3.2 e nunca vi
problemas que justificasse tal mudança.


Em 13/06/07, Jorge Ericsson <[EMAIL PROTECTED]> escreveu:
>
>   Eu utilizo o MySql 4 por causa de algumas inconsistência e problemas que
> encontrei no MySql 5.
>
> Mas resolvi migra toda a minha aplicação Delphi+Mysql 4+ADO para
> Delphi+Firebird 2.0+IBX.
>
> Não sei se fiz um bom negócio mais ainda tó migrando tabela por tabela e
> ajustando aos poucos.
>
> Se alguém tiver uma idéia melhor, por favor postem-me...
>
> Valew.
>
> Em 12/06/07, Ricardo César Cardoso <[EMAIL 
> PROTECTED]>
> escreveu:
> >
> > Só tenho algumas dúvidas Eduardo.
> >
> > Vou trabalhar com o mySQL 5 e gostaria de saber se existe algum driver
> > (free é claro) pra acessá-lo pelo Delphi. E como componentes de acesso,
> > posso usar diretamente o ZEOS 6.5 ou vc recomenda algum outro? Existe
> > alguma recomendação ao criar as tabelas ou a base de dados como usar ou
> não
> > usar MyISAM e usar ou não usar InnoDB?
> >
> > Grato,
> > Ricardo.
> >
> > Eduardo Silva dos Santos <[EMAIL PROTECTED]<
> eduardo.drd%40gmail.com>>
> > escreveu: hehehe, por isso que gosto do MySQL, um simples *Show Tables*;
> > resolve
> >
> > esse problema.
> >
> > Em 04/06/07, Jorge Ericsson <[EMAIL PROTECTED]
> >
> > escreveu:
> > >
> > > Problema resolvido, mas caso alguém queira a instrução para carregar
> > > tabelas
> > > e campos do SQL Server que eu montei segue abaixo:
> > >
> > > with ADOQuery1 do
> > > begin
> > > Close;
> > > Sql.Clear;
> > > Sql.Add('SELECT so.name as [Nome_Tabela] FROM SysObjects so WITH
> > > (NOLOCK)');
> > > Sql.Add('Where so.type = ''u'' and so.name like ''TB%'' order by
> so.name
> > > ');
> > > //Somente Tabelas
> > > Open;
> > > DBCmbTabelas.Items.Clear;
> > > while not eof do
> > > begin
> > > DBCmbTabelas.Items.Add(ADOQuery1.FieldbyName('Nome_Tabela').Value);
> > > ADOQuery1.Next;
> > > end;
> > > end;
> > >
> > > Instrução para extração da Tabela informada no ComboBox
> > >
> > > Screen.Cursor := crSqlWait;
> > > with ADOQueryTabelas do
> > > begin
> > > Close;
> > > Sql.Clear;
> > > Sql.Add('SELECT so.name as [Nome_Tabela], sc.name as [Nome_Columa],
> > > st.name as [Tipo_Dado], sc.length as [Precisao]');
> > > Sql.Add('FROM SysObjects so WITH (NOLOCK)');
> > > Sql.Add('INNER JOIN SysColumns sc on so.id = sc.id');
> > > Sql.Add('INNER JOIN SysTypes st on st.xtype = sc.xtype');
> > > Sql.Add('where so.type = ''u'' and so.name = :prTabela');
> > > Sql.Add('order by sc.colorder');
> > > Parameters.ParamByName('prTabela').Value := TRIM(DBCmbTabelas.Text);
> > > Open;
> > > vSqlInstrucao := '';
> > > vSqlInstrucao := 'SELECT ';
> > > vSqlOrdenado := ADOQueryTabelas.FieldbyName('Nome_Columa').Value;
> > > while not eof do
> > > begin
> > > vSqlInstrucao := vSqlInstrucao +
> > > ADOQueryTabelas.FieldbyName('Nome_Columa').Value
> > > + ', ';
> > > Next;
> > > end;
> > > vSqlInstrucao := Copy(vSqlInstrucao,1,Length(vSqlInstrucao)-2);
> > > vSqlInstrucao := vSqlInstrucao +' FROM '+ ADOQueryTabelas.FieldbyName
> > > ('Nome_Tabela').Value;
> > > vSqlInstrucao := vSqlInstrucao +' ORDER BY '+ vSqlOrdenado;
> > > end;
> > > edtInstrucao.Clear;
> > > edtInstrucao.Text := vSqlInstrucao;
> > > btnInstrucaoMEC.Onclick(Sender);
> > > Screen.Cursor := crDefault;
> > >
> > > I love you GOOGLE.
> > >
> > > Em 04/06/07, Ricardo César Cardoso <[EMAIL 
> > > PROTECTED]
> 
> > >
> > > escreveu:
> > > >
> > > > Olha amigo, com relação ao Oracle apareceu alguma coisa sobre este
> > > > assunto na semana passada. Dá uma olhada nas mensagens antigas do
> > grupo
> > > que
> > > > tem alguma coisa.
> > > >
> > > > Quanto ao SQL Server, me lembro que já vi isso, mas não tenho mais o
> > > > link... nesse caso vai ter que buscar mesmo pelo Google.
> > > >
> > > > Sds,
> > > > Ricardo.
> > > >
> > > > Jorge Ericsson <[EMAIL PROTECTED] 
> > > >  40gmail.com> > 40gmail.com> > > 40gmail.com>>
> > > > escreveu: Olá amigos delphianos,
> > > >
> > > >
> > > > Estou desenvolvendo uma ferramenta de migração de dados SQL-SERVER X
> > > > ORACLE
> > > > e gostaria de saber como faço para pegar parâmetros como nome da
> > tabela,
> > > > todos os seus campos e tipos de campos.
> > > >
> > > > Obs: Com o nome da tabela eu necessito montar uma instrução SELECT
> > > > capturar
> > > > os dados e inserir em uma TQuery os mesmos dados.
> > > >
> > > > Desculpe se não fui muito claro.
> > > >
> > > > Grato,
> > > >
> > > > Jorge Ericsson S. Pinheiro
> > > > Analista/Projetista de Sistemas
> > > > Ericsson Sistemas e Soluções
> > > > http://www.jericssonsup.com.br
> > > > 61 9667-4785 / 3966-4535
> > > > Brasília- DF
> > > >
> > > > [As partes desta mensagem que não continham texto foram removidas]
> > > >
> > > >
> > > >
> > > > _
> > > >
> > > > -
> > > > Novo Yahoo! Cadê? - Experimente uma nova busca.
> > > >
> > > > [As partes desta mensagem que não continham texto foram re

Re: [delphi-br] Importação de Dados

[Jorge Ericsson]

Eu utilizo o MySql 4 por causa de algumas inconsistência e problemas que
encontrei no MySql 5.

Mas resolvi migra toda a minha aplicação Delphi+Mysql 4+ADO para
Delphi+Firebird 2.0+IBX.

Não sei se fiz um bom negócio mais ainda tó migrando tabela por tabela e
ajustando aos poucos.

Se alguém tiver uma idéia melhor, por favor postem-me...

Valew.


Em 12/06/07, Ricardo César Cardoso <[EMAIL PROTECTED]> escreveu:
>
>   Só tenho algumas dúvidas Eduardo.
>
> Vou trabalhar com o mySQL 5 e gostaria de saber se existe algum driver
> (free é claro) pra acessá-lo pelo Delphi. E como componentes de acesso,
> posso usar diretamente o ZEOS 6.5 ou vc recomenda algum outro? Existe
> alguma recomendação ao criar as tabelas ou a base de dados como usar ou não
> usar MyISAM e usar ou não usar InnoDB?
>
> Grato,
> Ricardo.
>
> Eduardo Silva dos Santos <[EMAIL PROTECTED] >
> escreveu: hehehe, por isso que gosto do MySQL, um simples *Show Tables*;
> resolve
>
> esse problema.
>
> Em 04/06/07, Jorge Ericsson <[EMAIL PROTECTED]>
> escreveu:
> >
> > Problema resolvido, mas caso alguém queira a instrução para carregar
> > tabelas
> > e campos do SQL Server que eu montei segue abaixo:
> >
> > with ADOQuery1 do
> > begin
> > Close;
> > Sql.Clear;
> > Sql.Add('SELECT so.name as [Nome_Tabela] FROM SysObjects so WITH
> > (NOLOCK)');
> > Sql.Add('Where so.type = ''u'' and so.name like ''TB%'' order by so.name
> > ');
> > //Somente Tabelas
> > Open;
> > DBCmbTabelas.Items.Clear;
> > while not eof do
> > begin
> > DBCmbTabelas.Items.Add(ADOQuery1.FieldbyName('Nome_Tabela').Value);
> > ADOQuery1.Next;
> > end;
> > end;
> >
> > Instrução para extração da Tabela informada no ComboBox
> >
> > Screen.Cursor := crSqlWait;
> > with ADOQueryTabelas do
> > begin
> > Close;
> > Sql.Clear;
> > Sql.Add('SELECT so.name as [Nome_Tabela], sc.name as [Nome_Columa],
> > st.name as [Tipo_Dado], sc.length as [Precisao]');
> > Sql.Add('FROM SysObjects so WITH (NOLOCK)');
> > Sql.Add('INNER JOIN SysColumns sc on so.id = sc.id');
> > Sql.Add('INNER JOIN SysTypes st on st.xtype = sc.xtype');
> > Sql.Add('where so.type = ''u'' and so.name = :prTabela');
> > Sql.Add('order by sc.colorder');
> > Parameters.ParamByName('prTabela').Value := TRIM(DBCmbTabelas.Text);
> > Open;
> > vSqlInstrucao := '';
> > vSqlInstrucao := 'SELECT ';
> > vSqlOrdenado := ADOQueryTabelas.FieldbyName('Nome_Columa').Value;
> > while not eof do
> > begin
> > vSqlInstrucao := vSqlInstrucao +
> > ADOQueryTabelas.FieldbyName('Nome_Columa').Value
> > + ', ';
> > Next;
> > end;
> > vSqlInstrucao := Copy(vSqlInstrucao,1,Length(vSqlInstrucao)-2);
> > vSqlInstrucao := vSqlInstrucao +' FROM '+ ADOQueryTabelas.FieldbyName
> > ('Nome_Tabela').Value;
> > vSqlInstrucao := vSqlInstrucao +' ORDER BY '+ vSqlOrdenado;
> > end;
> > edtInstrucao.Clear;
> > edtInstrucao.Text := vSqlInstrucao;
> > btnInstrucaoMEC.Onclick(Sender);
> > Screen.Cursor := crDefault;
> >
> > I love you GOOGLE.
> >
> > Em 04/06/07, Ricardo César Cardoso <[EMAIL 
> > PROTECTED]
> >
> > escreveu:
> > >
> > > Olha amigo, com relação ao Oracle apareceu alguma coisa sobre este
> > > assunto na semana passada. Dá uma olhada nas mensagens antigas do
> grupo
> > que
> > > tem alguma coisa.
> > >
> > > Quanto ao SQL Server, me lembro que já vi isso, mas não tenho mais o
> > > link... nesse caso vai ter que buscar mesmo pelo Google.
> > >
> > > Sds,
> > > Ricardo.
> > >
> > > Jorge Ericsson <[EMAIL PROTECTED]  40gmail.com> > 40gmail.com>>
> > > escreveu: Olá amigos delphianos,
> > >
> > >
> > > Estou desenvolvendo uma ferramenta de migração de dados SQL-SERVER X
> > > ORACLE
> > > e gostaria de saber como faço para pegar parâmetros como nome da
> tabela,
> > > todos os seus campos e tipos de campos.
> > >
> > > Obs: Com o nome da tabela eu necessito montar uma instrução SELECT
> > > capturar
> > > os dados e inserir em uma TQuery os mesmos dados.
> > >
> > > Desculpe se não fui muito claro.
> > >
> > > Grato,
> > >
> > > Jorge Ericsson S. Pinheiro
> > > Analista/Projetista de Sistemas
> > > Ericsson Sistemas e Soluções
> > > http://www.jericssonsup.com.br
> > > 61 9667-4785 / 3966-4535
> > > Brasília- DF
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> > > _
> > >
> > > -
> > > Novo Yahoo! Cadê? - Experimente uma nova busca.
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> >
> > --
> > Jorge Ericsson S. Pinheiro
> > Analista/Projetista de Sistemas
> > Ericsson Sistemas e Soluções
> > http://www.jericssonsup.com.br
> > 61 9667-4785 / 3966-4535
> > Brasília- DF
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> --
> Eduardo Silva dos Santos
> DRD Sistemas.
> (27) 3218-4201
> MSN: [EMAIL PROTECTED] 
> Site: http://www.drdsistemas.com/
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> _
>
> -
> Novo Yahoo! Cadê? - Expe

Re: [delphi-br] Importação de Dados

[Eduardo Silva dos Santos]

Olá *Ricardo, *
* *
 Recomendo você usar o MySQL 5.0, use somente tabelas InnoDB, elas te dão
uma baita segurança e suporte a transação/integridade referencial e mais um
monte de coisa.

 Para componentes de acesso FREE, recomento o Zeos 6.5 mesmo.
 Para componentes pagos recomento o MyDac 5, www.crlab.com

eu trabalho com MySQL ha bastante tempo e tenho uma grande experiência com o
mesmo, qualquer coisa estou à disposição.


Em 12/06/07, Ricardo César Cardoso <[EMAIL PROTECTED]> escreveu:
>
>   Só tenho algumas dúvidas Eduardo.
>
> Vou trabalhar com o mySQL 5 e gostaria de saber se existe algum driver
> (free é claro) pra acessá-lo pelo Delphi. E como componentes de acesso,
> posso usar diretamente o ZEOS 6.5 ou vc recomenda algum outro? Existe
> alguma recomendação ao criar as tabelas ou a base de dados como usar ou não
> usar MyISAM e usar ou não usar InnoDB?
>
> Grato,
> Ricardo.
>
> Eduardo Silva dos Santos <[EMAIL PROTECTED] >
> escreveu: hehehe, por isso que gosto do MySQL, um simples *Show Tables*;
> resolve
> esse problema.
>
> Em 04/06/07, Jorge Ericsson <[EMAIL PROTECTED]>
> escreveu:
> >
> > Problema resolvido, mas caso alguém queira a instrução para carregar
> > tabelas
> > e campos do SQL Server que eu montei segue abaixo:
> >
> > with ADOQuery1 do
> > begin
> > Close;
> > Sql.Clear;
> > Sql.Add('SELECT so.name as [Nome_Tabela] FROM SysObjects so WITH
> > (NOLOCK)');
> > Sql.Add('Where so.type = ''u'' and so.name like ''TB%'' order by so.name
> > ');
> > //Somente Tabelas
> > Open;
> > DBCmbTabelas.Items.Clear;
> > while not eof do
> > begin
> > DBCmbTabelas.Items.Add(ADOQuery1.FieldbyName('Nome_Tabela').Value);
> > ADOQuery1.Next;
> > end;
> > end;
> >
> > Instrução para extração da Tabela informada no ComboBox
> >
> > Screen.Cursor := crSqlWait;
> > with ADOQueryTabelas do
> > begin
> > Close;
> > Sql.Clear;
> > Sql.Add('SELECT so.name as [Nome_Tabela], sc.name as [Nome_Columa],
> > st.name as [Tipo_Dado], sc.length as [Precisao]');
> > Sql.Add('FROM SysObjects so WITH (NOLOCK)');
> > Sql.Add('INNER JOIN SysColumns sc on so.id = sc.id');
> > Sql.Add('INNER JOIN SysTypes st on st.xtype = sc.xtype');
> > Sql.Add('where so.type = ''u'' and so.name = :prTabela');
> > Sql.Add('order by sc.colorder');
> > Parameters.ParamByName('prTabela').Value := TRIM(DBCmbTabelas.Text);
> > Open;
> > vSqlInstrucao := '';
> > vSqlInstrucao := 'SELECT ';
> > vSqlOrdenado := ADOQueryTabelas.FieldbyName('Nome_Columa').Value;
> > while not eof do
> > begin
> > vSqlInstrucao := vSqlInstrucao +
> > ADOQueryTabelas.FieldbyName('Nome_Columa').Value
> > + ', ';
> > Next;
> > end;
> > vSqlInstrucao := Copy(vSqlInstrucao,1,Length(vSqlInstrucao)-2);
> > vSqlInstrucao := vSqlInstrucao +' FROM '+ ADOQueryTabelas.FieldbyName
> > ('Nome_Tabela').Value;
> > vSqlInstrucao := vSqlInstrucao +' ORDER BY '+ vSqlOrdenado;
> > end;
> > edtInstrucao.Clear;
> > edtInstrucao.Text := vSqlInstrucao;
> > btnInstrucaoMEC.Onclick(Sender);
> > Screen.Cursor := crDefault;
> >
> > I love you GOOGLE.
> >
> > Em 04/06/07, Ricardo César Cardoso <[EMAIL 
> > PROTECTED]
> >
> > escreveu:
> > >
> > > Olha amigo, com relação ao Oracle apareceu alguma coisa sobre este
> > > assunto na semana passada. Dá uma olhada nas mensagens antigas do
> grupo
> > que
> > > tem alguma coisa.
> > >
> > > Quanto ao SQL Server, me lembro que já vi isso, mas não tenho mais o
> > > link... nesse caso vai ter que buscar mesmo pelo Google.
> > >
> > > Sds,
> > > Ricardo.
> > >
> > > Jorge Ericsson <[EMAIL PROTECTED]  40gmail.com> > 40gmail.com>>
> > > escreveu: Olá amigos delphianos,
> > >
> > >
> > > Estou desenvolvendo uma ferramenta de migração de dados SQL-SERVER X
> > > ORACLE
> > > e gostaria de saber como faço para pegar parâmetros como nome da
> tabela,
> > > todos os seus campos e tipos de campos.
> > >
> > > Obs: Com o nome da tabela eu necessito montar uma instrução SELECT
> > > capturar
> > > os dados e inserir em uma TQuery os mesmos dados.
> > >
> > > Desculpe se não fui muito claro.
> > >
> > > Grato,
> > >
> > > Jorge Ericsson S. Pinheiro
> > > Analista/Projetista de Sistemas
> > > Ericsson Sistemas e Soluções
> > > http://www.jericssonsup.com.br
> > > 61 9667-4785 / 3966-4535
> > > Brasília- DF
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> > > _
> > >
> > > -
> > > Novo Yahoo! Cadê? - Experimente uma nova busca.
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> >
> > --
> > Jorge Ericsson S. Pinheiro
> > Analista/Projetista de Sistemas
> > Ericsson Sistemas e Soluções
> > http://www.jericssonsup.com.br
> > 61 9667-4785 / 3966-4535
> > Brasília- DF
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> --
> Eduardo Silva dos Santos
> DRD Sistemas.
> (27) 3218-4201
> MSN: [EMAIL PROTECTED] 
> Site: http://www.drdsistemas.com/
>
> [As partes desta mensagem que não continham texto foram removid

Re: [delphi-br] Importação de Dados

[Jorge Ericsson]

Problema resolvido, mas caso alguém queira a instrução para carregar tabelas
e campos do SQL Server que eu montei segue abaixo:

with ADOQuery1 do
 begin
  Close;
  Sql.Clear;
  Sql.Add('SELECT so.name as [Nome_Tabela] FROM SysObjects so WITH
(NOLOCK)');
  Sql.Add('Where so.type = ''u'' and so.name like ''TB%'' order by so.name');
//Somente Tabelas
  Open;
  DBCmbTabelas.Items.Clear;
  while not eof do
  begin
   DBCmbTabelas.Items.Add(ADOQuery1.FieldbyName('Nome_Tabela').Value);
   ADOQuery1.Next;
  end;
 end;

Instrução para extração da Tabela informada no ComboBox

Screen.Cursor := crSqlWait;
with ADOQueryTabelas do
begin
 Close;
 Sql.Clear;
 Sql.Add('SELECT so.name as [Nome_Tabela], sc.name as [Nome_Columa],
st.name as [Tipo_Dado], sc.length as [Precisao]');
 Sql.Add('FROM SysObjects so WITH (NOLOCK)');
 Sql.Add('INNER JOIN SysColumns sc on so.id = sc.id');
 Sql.Add('INNER JOIN SysTypes st on st.xtype = sc.xtype');
 Sql.Add('where so.type = ''u'' and so.name = :prTabela');
 Sql.Add('order by sc.colorder');
 Parameters.ParamByName('prTabela').Value := TRIM(DBCmbTabelas.Text);
 Open;
 vSqlInstrucao := '';
 vSqlInstrucao := 'SELECT ';
 vSqlOrdenado  := ADOQueryTabelas.FieldbyName('Nome_Columa').Value;
 while not eof do
 begin
  vSqlInstrucao := vSqlInstrucao +
ADOQueryTabelas.FieldbyName('Nome_Columa').Value
+ ', ';
  Next;
 end;
 vSqlInstrucao := Copy(vSqlInstrucao,1,Length(vSqlInstrucao)-2);
 vSqlInstrucao := vSqlInstrucao +' FROM '+ ADOQueryTabelas.FieldbyName
('Nome_Tabela').Value;
 vSqlInstrucao := vSqlInstrucao +' ORDER BY '+ vSqlOrdenado;
end;
edtInstrucao.Clear;
edtInstrucao.Text := vSqlInstrucao;
btnInstrucaoMEC.Onclick(Sender);
Screen.Cursor := crDefault;

I love you GOOGLE.



Em 04/06/07, Ricardo César Cardoso <[EMAIL PROTECTED]> escreveu:
>
>   Olha amigo, com relação ao Oracle apareceu alguma coisa sobre este
> assunto na semana passada. Dá uma olhada nas mensagens antigas do grupo que
> tem alguma coisa.
>
> Quanto ao SQL Server, me lembro que já vi isso, mas não tenho mais o
> link... nesse caso vai ter que buscar mesmo pelo Google.
>
> Sds,
> Ricardo.
>
> Jorge Ericsson <[EMAIL PROTECTED] >
> escreveu: Olá amigos delphianos,
>
>
> Estou desenvolvendo uma ferramenta de migração de dados SQL-SERVER X
> ORACLE
> e gostaria de saber como faço para pegar parâmetros como nome da tabela,
> todos os seus campos e tipos de campos.
>
> Obs: Com o nome da tabela eu necessito montar uma instrução SELECT
> capturar
> os dados e inserir em uma TQuery os mesmos dados.
>
> Desculpe se não fui muito claro.
>
> Grato,
>
> Jorge Ericsson S. Pinheiro
> Analista/Projetista de Sistemas
> Ericsson Sistemas e Soluções
> http://www.jericssonsup.com.br
> 61 9667-4785 / 3966-4535
> Brasília- DF
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> _
>
> -
> Novo Yahoo! Cadê? - Experimente uma nova busca.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericssonsup.com.br
61 9667-4785 / 3966-4535
Brasília- DF


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Importação de Dados

[Ricardo César Cardoso]

Olha amigo, com relação ao Oracle apareceu alguma coisa sobre este assunto na 
semana passada. Dá uma olhada nas mensagens antigas do grupo que tem alguma 
coisa.

Quanto ao SQL Server, me lembro que já vi isso, mas não tenho mais o link... 
nesse caso vai ter que buscar mesmo pelo Google.

Sds,
Ricardo.

Jorge Ericsson <[EMAIL PROTECTED]> escreveu:  
Olá amigos delphianos,
 
 Estou desenvolvendo uma ferramenta de migração de dados SQL-SERVER X ORACLE
 e gostaria de saber como faço para pegar parâmetros como nome da tabela,
 todos os seus campos e tipos de campos.
 
 Obs: Com o nome da tabela eu necessito montar uma instrução SELECT capturar
 os dados e inserir em uma TQuery os mesmos dados.
 
 Desculpe se não fui muito claro.
 
 Grato,
 
 Jorge Ericsson S. Pinheiro
 Analista/Projetista de Sistemas
 Ericsson Sistemas e Soluções
 http://www.jericssonsup.com.br
 61 9667-4785 / 3966-4535
 Brasília- DF
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 _



   
-
Novo Yahoo! Cadê? - Experimente uma nova busca. 

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Importação de Dados

[Jorge Ericsson]

Olá amigos delphianos,

Estou desenvolvendo uma ferramenta de migração de dados SQL-SERVER X ORACLE
e gostaria de saber como faço para pegar parâmetros como nome da tabela,
todos os seus campos e tipos de campos.

Obs: Com o nome da tabela eu necessito montar uma instrução SELECT capturar
os dados e inserir em uma TQuery os mesmos dados.

Desculpe se não fui muito claro.

Grato,

Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericssonsup.com.br
61 9667-4785 / 3966-4535
Brasília- DF


[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Importação

[Fabio Passos]

Olá pessoal
  Sou iniciante no Delphi e gostaria de uma ajuda de vcs.
  Estou tentando fazer uma importação de uma planilha Excel para o Delphi 
(utilizo o Delphi 2005). Já fiz o script que localiza o arquivo e carrega numa 
DBGrid porém não consigo fazer a inclusão no banco MySQL-Front 3.2. 
  Alguém poderia ajudar-me nesse problema?
   
Atenciosamente,
   
  
  Fábio Passos 
  Niplan Engenharia
Lider de Tecnologia da Informação



 __
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Importação de arquivo texto para DBF com 2 casas decimais

[fabianojd]

   Estou com um problema:

   Estou tentando importar para um arquivo DBF com Type numeric: Width 
12  e  Dec 2.

   O problema é o seguinte, a função que eu sei converte apenas os 
valores antes da virgula.

   No arquivo texto as coluna 137 até 148 é: 0015454. No arquivo 
texto não tem virgula.

   Gostaria de saber o que estou fazendo errado. 
 
   Estou usando: TFarmaMED_PCO1.Value:=StrToFloat(Copy
(Entrada,137,11));

   Agradeço desde já.




-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

Re: [delphi-br] Importação arquivo txt

[Evandro Siqueira]

No site da firebase (www.firebase.com.br) existe um excelente artigo sobre como 
importar e exportar dados para o firebird. (Estou pressupondo que vc está 
utilizando Interbase ou firebird)

[]'s
Evandro Siqueira
Programador
Recife/PE
  - Original Message - 
  From: Cristiano Rodrigo Gomes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, August 10, 2005 9:38 AM
  Subject: [delphi-br] Importação arquivo txt


  Bom dia a todos, com certeza alguém já postou aqui porém não consegui 
  encontrar nas mensagens do grupo.

  Se alguém puder me passar ou postar aqui mesmo um exemplo bem simples de 
  importação de dados de arquivo txt vou ficar muito grato.

  Cristiano.

  _
  MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com



  -- 
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]




--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



[As partes desta mensagem que não continham texto foram removidas]





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

Re: [delphi-br] Importação arquivo txt

[Rodrigo Pereira]

Use a classe TStringList

  já tem tudo pronto!

- Original Message -
From: "Mauricio Almeida Filho" <[EMAIL PROTECTED]>
To: 
Sent: Wednesday, August 10, 2005 10:45 AM
Subject: Re: [delphi-br] Importação arquivo txt


>
> Carrega o arquivo num MEMO invisível (ou criado dinamicamente) com
LoadFromFile,
> depois vc faz a leitura dos dados usando os métodos do próprio MEMO, é a
forma
> + fácil !
>
>
> Citando Cristiano Rodrigo Gomes <[EMAIL PROTECTED]>:
>
> > Bom dia a todos, com certeza alguém já postou aqui porém não consegui
> > encontrar nas mensagens do grupo.
> >
> > Se alguém puder me passar ou postar aqui mesmo um exemplo bem simples de
> > importação de dados de arquivo txt vou ficar muito grato.
> >
> > Cristiano.
> >
> > _
> > MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
> >
> >
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> > Para ver as mensagens antigas, acesse:
> >  http://br.groups.yahoo.com/group/delphi-br/messages
> >
> > Para falar com o moderador, envie um e-mail para:
> >  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> >
> > Links do Yahoo! Grupos
> >
> >
> >
> >
> >
> >
> >
> >
>
>
> Mauricio Almeida Filho
> Diretor de Negócios * 81 9242-2292
> MSN : [EMAIL PROTECTED]
>
> Unit Software
> Empresa Virtual, Solução Real
> Desenvolvimento e implantação de sistemas aplicativos comerciais,
instalação
> de redes, manutenção em hardware, construção de home pages.
> Sistemas para Escolas, Locadoras, Comércio varejista, Transportadoras,
> Factorings, Oficinas.
>
> ---
> Este e-mail foi enviado por http://www.nlink.com.br
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
>  http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
>  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>






-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

Re: [delphi-br] Importação arquivo txt

[Mauricio Almeida Filho]

Carrega o arquivo num MEMO invisível (ou criado dinamicamente) com LoadFromFile,
depois vc faz a leitura dos dados usando os métodos do próprio MEMO, é a forma
+ fácil !


Citando Cristiano Rodrigo Gomes <[EMAIL PROTECTED]>:

> Bom dia a todos, com certeza alguém já postou aqui porém não consegui
> encontrar nas mensagens do grupo.
>
> Se alguém puder me passar ou postar aqui mesmo um exemplo bem simples de
> importação de dados de arquivo txt vou ficar muito grato.
>
> Cristiano.
>
> _
> MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
>
>
>
> --
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
> Para ver as mensagens antigas, acesse:
>  http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
>  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>


Mauricio Almeida Filho
Diretor de Negócios * 81 9242-2292
MSN : [EMAIL PROTECTED]

Unit Software
Empresa Virtual, Solução Real
Desenvolvimento e implantação de sistemas aplicativos comerciais, instalação
de redes, manutenção em hardware, construção de home pages.
Sistemas para Escolas, Locadoras, Comércio varejista, Transportadoras,
Factorings, Oficinas.

---
Este e-mail foi enviado por http://www.nlink.com.br


-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

[delphi-br] Importação arquivo txt

[Cristiano Rodrigo Gomes]

Bom dia a todos, com certeza alguém já postou aqui porém não consegui 
encontrar nas mensagens do grupo.

Se alguém puder me passar ou postar aqui mesmo um exemplo bem simples de 
importação de dados de arquivo txt vou ficar muito grato.

Cristiano.

_
MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

RES: [delphi-br] Importação dos contatos do Outlook

[Eduardo Silva ®]

O problema é que o outlook terá que ser aberto, fazer a exportação e tal, eu
queria fazer tudo direto da minha aplicação
  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Jéferson
  Enviada em: sexta-feira, 29 de julho de 2005 10:43
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Importação dos contatos do Outlook


  Porque vc não importa os contatos a partir do arquivo *.csv que o outlook
  gera?

  Se tiver problema em trabalhar com a extensão "csv" renomeie o arquivo
para
  "txt"...

  Dentro deste arquivo terão os dados dos contatos separados por  " ; "
ponto
  e virgula.

  Abraço.

  --
  Jéferson Mehlecke
  Porto Alegre - RS
  - Original Message -
  From: "Eduardo Silva ®" <[EMAIL PROTECTED]>
  To: "Grupo Delphi-br" 
  Sent: Friday, July 29, 2005 9:45 AM
  Subject: [delphi-br] Importação dos contatos do Outlook


  | Galera to precisando de uma rotina que pegue os contatos (e demais
campos)
  | do Outlook.
  |
  | Alguém pode me dar uma mão?
  |
  |
  | ~\\|//~
  | -(o o)-
  | o--oOOOo--(_)--oOOOo-o
  | ||
  | |   Eduardo de Almeida Silva |
  | |   Câmara Municipal de Lençóis Paulista |
  | |  [EMAIL PROTECTED]  -   (14)3263-0326   |
  | ||
  | |.oooO   Oooo.   |
  | o(   )---(   )---o
  |   \ ( ) /
  |\_)   (_/
  |
  |
  |
  | --
  | <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
  |
  | Para ver as mensagens antigas, acesse:
  |  http://br.groups.yahoo.com/group/delphi-br/messages
  |
  | Para falar com o moderador, envie um e-mail para:
  |  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
  |
  | Links do Yahoo! Grupos
  |
  |
  |
  |
  |
  |
  |
  |





  ___
  Yahoo! Acesso Grátis - Internet rápida e grátis.
  Instale o discador agora! http://br.acesso.yahoo.com/


  --
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]





--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.



  __ NOD32 1.1182 (20050729) Information __

  This message was checked by NOD32 antivirus system.
  http://www.nod32.com


[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

Re: [delphi-br] Importação dos contatos do Outlook

[Jéferson]

Porque vc não importa os contatos a partir do arquivo *.csv que o outlook
gera?

Se tiver problema em trabalhar com a extensão "csv" renomeie o arquivo para
"txt"...

Dentro deste arquivo terão os dados dos contatos separados por  " ; " ponto
e virgula.

Abraço.

--
Jéferson Mehlecke
Porto Alegre - RS
- Original Message - 
From: "Eduardo Silva ®" <[EMAIL PROTECTED]>
To: "Grupo Delphi-br" 
Sent: Friday, July 29, 2005 9:45 AM
Subject: [delphi-br] Importação dos contatos do Outlook


| Galera to precisando de uma rotina que pegue os contatos (e demais campos)
| do Outlook.
|
| Alguém pode me dar uma mão?
|
|
| ~\\|//~
| -(o o)-
| o--oOOOo--(_)--oOOOo-o
| ||
| |   Eduardo de Almeida Silva |
| |   Câmara Municipal de Lençóis Paulista |
| |  [EMAIL PROTECTED]  -   (14)3263-0326   |
| ||
| |.oooO   Oooo.   |
| o(   )---(   )---o
|   \ ( ) /
|\_)   (_/
|
|
|
| -- 
| <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
|
| Para ver as mensagens antigas, acesse:
|  http://br.groups.yahoo.com/group/delphi-br/messages
|
| Para falar com o moderador, envie um e-mail para:
|  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
|
| Links do Yahoo! Grupos
|
|
|
|
|
|
|
|





___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

[delphi-br] Importação dos contatos do Outlook

[Eduardo Silva ®]

Galera to precisando de uma rotina que pegue os contatos (e demais campos)
do Outlook.

Alguém pode me dar uma mão?


~\\|//~
-(o o)-
o--oOOOo--(_)--oOOOo-o
||
|   Eduardo de Almeida Silva |
|   Câmara Municipal de Lençóis Paulista |
|  [EMAIL PROTECTED]  -   (14)3263-0326   |
||
|.oooO   Oooo.   |
o(   )---(   )---o
  \ ( ) /
   \_)   (_/



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

[delphi-br] Importação

[luciano]

Pessoal

Importei várias várias tabelas DBF para firebird com um rotina de leitura e
gravação destas tabelas. Até aí tudo bem. O problema surgiu quando tentei
fazer a importação de uma destas tabelas DBF que contem um campo memo, ao
fazer uma query para ler esta tabela apresenta uma mensagem de erro "Invalid
Table Name". Alguém sabe qual é o problema.
Estou utilizando W98/D6/Firebir1.5

Desde já agradeço.







-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 267.7.9 - Release Date: 20/06/05


--
Essa mensagem foi verificada contra vírus e conteúdo malicioso pelo Lisa 
Antivírus.



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

[delphi-br] Importação

[luciano]

Pessoal,

Eu tenho que fazer uma importação de arquivos DBF para Firebird. Estou
tentando fazer um
INSERT INTO Tabela1 (Campos)
SELECT Tabela2.Campos FROM Tabelas2 ;

O problema é que a tabela 1 pertence aos arquivos DBF para me conectar
precisei criar um alias e a tabela 2 é a tabela do Firebird e possui outro
alias.

Alguém pode me ajudar a resolver este problema, porque gostaria a aplicação
convertesse isso sendo o cliente mesmo poderá definir o melhor momento da
importação.





-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 267.7.3 - Release Date: 14/06/05


--
Essa mensagem foi verificada contra vírus e conteúdo malicioso pelo Lisa 
Antivírus.



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

[delphi-br] Importação de arquivos OFX / OFC

[Gerhard Roger Nack]

Após receber diversos e-mails de membros desta lista sobre o assunto
importação de arquivos OFC & OFX, aproveito para comunicar que disponho
de rotinas que fazem justamente isso. Tanto a importação como exportação
destes formatos.
 
Para maiores detalhes, sintaxe, custo, etc ... convido a todos
interessados no assunto a visitarem o link abaixo ou entrarem em contato
em pvt no email [EMAIL PROTECTED]   
 
http://www.nack.com.br/modules.php?name=Content

&pa=showpage&pid=9
 
 
Cordialmente,
 
Gerhard Roger Nack
Equipe Delphi Nack
[EMAIL PROTECTED]  


[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

Re: [delphi-br] Importação de arquivos texto

[Andre - Yahoo]

Tem um componente que faz isso, bastando informar os tamanhos dos campos textos 
(layout). o nome dele e ArqTexto. Dá uma procurada na NEt se não encontrar me 
manda um email em pvt que te envio.

 André Luis da Silveira

  Desenvolvedor

  Latícinios Morrinhos Ind Com Ltda
 

  - Original Message - 
  From: DVJ 
  To: Grupo Delphi 
  Sent: Monday, February 28, 2005 6:12 PM
  Subject: [delphi-br] Importação de arquivos texto


  Olá a todos

  Seguinte: tenho que fazer a importação de um arquivo texto delimitado por ". 
  Blz, a leitura do arquivo e a importação estão ok mas o problema é que ele 
pode vir
  com 3 tipos diferentes de configuração de campos ou mais, e cada vez que 
aparece um
  formato novo, tenho que alterar na munheca. A minha idéia é de que, quando 
aparece
  um novo formato, apenas tenha que 'dizer' ao sistema como ele deve fazer a
  importação do arquivo modelo xxx. Alguém teria uma idéia de qual rumo posso 
tomar?

  Funciona assim:
  1o. arquivo
Cliente  Transportadora  Volumes  Peso  Data  VlrUnit

  2o. arquivo
Cliente  Peso  VlrUnit

  3o. arquivo
Cliente  Transportadora  Peso VlrUnit

  Importa para a tabela
  Cliente, transportadora, volumes, peso, data, vlrunit.

  Ou seja, eu tenho fixo 6 campos na tabela e posso receber de 3 a 6 campos,
  dependendo do formato do arquivo.

  Grato pela colaboração




  
  ___ 
  Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


  -- 
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
  PUBLICIDADE

   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

[delphi-br] Importação de arquivos texto

[DVJ]

Olá a todos

Seguinte: tenho que fazer a importação de um arquivo texto delimitado por ". 
Blz, a leitura do arquivo e a importação estão ok mas o problema é que ele pode 
vir
com 3 tipos diferentes de configuração de campos ou mais, e cada vez que 
aparece um
formato novo, tenho que alterar na munheca. A minha idéia é de que, quando 
aparece
um novo formato, apenas tenha que 'dizer' ao sistema como ele deve fazer a
importação do arquivo modelo xxx. Alguém teria uma idéia de qual rumo posso 
tomar?

Funciona assim:
1o. arquivo
  Cliente  Transportadora  Volumes  Peso  Data  VlrUnit

2o. arquivo
  Cliente  Peso  VlrUnit

3o. arquivo
  Cliente  Transportadora  Peso VlrUnit
  
Importa para a tabela
Cliente, transportadora, volumes, peso, data, vlrunit.

Ou seja, eu tenho fixo 6 campos na tabela e posso receber de 3 a 6 campos,
dependendo do formato do arquivo.

Grato pela colaboração





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

Re: [delphi-br] Importação de TXT

[Williams Diaz]

Florentino,

se entendi direito você quer ler uma tabela txt.
Se está uma informação em cada linha então considere dois bytes a mais ok? 
0D 0A, line feed e retorno de linha se não me engano.).

para ler use a seguinte rotina: acho que é essa aí, qualquer dúvida me manda 
o código que a gente olha tá?

procedure blablabla
Var F1, F2: TextFile;
Ch: Char;

begin

   AssignFile ( F1 , "o nome do seu arquivo.txt" );
   Reset ( F1 );

   while not Eof(F1) do
  begin
 Read  ( F1 , Ch );  // aqui ele lê até o final da linha
// aqui você faz o que quiser com o ch, grava ele noutro arquivo , 
etc.
  end;

   CloseFile(F1);

end;

*---
Williams Díaz
[EMAIL PROTECTED]
http://www.interban.com.br

- Original Message - 
From: "Florentino - Agrosoft" <[EMAIL PROTECTED]>
To: 
Sent: Sunday, December 19, 2004 9:07 PM
Subject: Re: [delphi-br] Importação de TXT


>
>
> Bom dia!!!
>
> Estou precisando importar dados de um txt para uma tabela, só que o txt 
> esta
> gravado uma informação em cada linha, ou seja, codigo do cliente, nome,
> endereço, cidade, e estado, tudo embaixo um do outro, e como é a primeira
> vez que tentarei fazer isto, alguem teria alguma sugestão para facilitar 
> ou
> de como posso proceder.
>
> Abraços.
>
> ==esta procedure funciona perfeitamente bem
>
> procedure TConversao_Principal.CentrosdeCusto1Click(Sender: TObject);
> begin
>
>   NomeArqTXT:='c:\arquivo.TXT';
>
>   NomeTabela:='sua tabela';
>   IBTable1.Active:=false;
>   IBTable1.TableName := NomeTabela;
>   if IBTable1.Exists then
>  begin
> ibquery1.SQL.Clear;
> ibquery1.SQL.Add('DELETE FROM "'+NomeTabela+'";');
> ibquery1.ACTIVE:=TRUE;
> ibtransaction1.Commit;
> ShowMessage('Registros excluidos para '+NomeTabela);
>  end
>   else
>  begin
>  ShowMessage('Não foi encontrada tabela '+NomeTabela);
>  exit;
>  end;
>
>   assignfile(f,NOMEARQTXT);
>   RESET(F);
>
>   TotReg:=13;   //Número total de LINHAS
>   progressbar1.Max:=totreg;
>   SHOWMESSAGE('Início do processamento');
>
>   ContReg:=0;
>   ContImp:=0;
>
>   IBTable1.Active:=false;
>   IBTable1.TableName := NomeTabela;
>   ibtable1.open;
>
>   while not eof(f) do
>  begin
> readln(f,s);
> contreg:=contreg+1;
> progressbar1.Position:=contreg;
> IBTABLE1.Append;
> ibtable1.FieldByName('c1').AsINTEGER :=strtoint(copy(s,1,3));
> ibtable1.FieldByName('C2').AsSTRING :=TRIMRIGHT(copy(s,4,30));
> Ibtable1.post;
> contIMP:=contIMP+1;
>  end;
>
>  ibtransaction1.COMMIT;
>  ibtable1.Close;
>  closefile(f);
>  showmessage(inttostr(contIMP)+' Registros de '+NomeTabela+'
> convertidos.')
>
> end;
>
>
>
>
>
> Tasquim
> [EMAIL PROTECTED]
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> -- 
>
>
>
>
>
>
> -- 
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
> 



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

Re: [delphi-br] Importação de TXT

[Florentino - Agrosoft]

Bom dia!!!

Estou precisando importar dados de um txt para uma tabela, só que o txt esta
gravado uma informação em cada linha, ou seja, codigo do cliente, nome,
endereço, cidade, e estado, tudo embaixo um do outro, e como é a primeira
vez que tentarei fazer isto, alguem teria alguma sugestão para facilitar ou
de como posso proceder.

Abraços.

==esta procedure funciona perfeitamente bem

procedure TConversao_Principal.CentrosdeCusto1Click(Sender: TObject);
begin

   NomeArqTXT:='c:\arquivo.TXT';

   NomeTabela:='sua tabela';
   IBTable1.Active:=false;
   IBTable1.TableName := NomeTabela;
   if IBTable1.Exists then
  begin
 ibquery1.SQL.Clear;
 ibquery1.SQL.Add('DELETE FROM "'+NomeTabela+'";');
 ibquery1.ACTIVE:=TRUE;
 ibtransaction1.Commit;
 ShowMessage('Registros excluidos para '+NomeTabela);
  end
   else
  begin
  ShowMessage('Não foi encontrada tabela '+NomeTabela);
  exit;
  end;

   assignfile(f,NOMEARQTXT);
   RESET(F);

   TotReg:=13;   //Número total de LINHAS
   progressbar1.Max:=totreg;
   SHOWMESSAGE('Início do processamento');

   ContReg:=0;
   ContImp:=0;

   IBTable1.Active:=false;
   IBTable1.TableName := NomeTabela;
   ibtable1.open;

   while not eof(f) do
  begin
 readln(f,s);
 contreg:=contreg+1;
 progressbar1.Position:=contreg;
 IBTABLE1.Append;
 ibtable1.FieldByName('c1').AsINTEGER :=strtoint(copy(s,1,3));
 ibtable1.FieldByName('C2').AsSTRING :=TRIMRIGHT(copy(s,4,30));
 Ibtable1.post;
 contIMP:=contIMP+1;
  end;

  ibtransaction1.COMMIT;
  ibtable1.Close;
  closefile(f);
  showmessage(inttostr(contIMP)+' Registros de '+NomeTabela+'
convertidos.')

end;





Tasquim
[EMAIL PROTECTED]




[As partes desta mensagem que não continham texto foram removidas]



-- 






-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

Re: [delphi-br] Importação de TXT

[Cleyton Heusser]

Bom Tasquim, reforçando a ajuda do amigo Demian   eu fiz isso final de semana,,

Coloca isso no evento onclick do botao que vc esta utilizando para a importação;
Qualquer duvida me contate em pvt.
esse exemplo vai adicionar os municipios pelo nome, e ele vai gerando o id 
automaticamente ok.

var arq: TextFile;
  linha, mun: string;
  i, id: integer;
begin
  dm.Mun.Close; dm.Mun.Open;   /// um ibdataset direto no data module.
  i := 13;
  AssignFile(arq, 'C:\Empresas\Solution\Dados_\Evm\teste.txt');
  Reset(arq);
  ReadLn(arq, linha);
  ReadLn(arq, linha);
  ReadLn(arq, linha);
  ReadLn(arq, linha);
  ReadLn(arq, linha);
  mun := '';
  id := 0;
  while not Eof(arq) do begin
inc(i);
if i = 14 then begin
  mun := UpperCase(linha);
  id := id + 1;
  if not dm.Mun.Locate('nome', mun, []) then begin  aqui ele vai procurar 
pelo nome da cidade se nao existir ele insere ok;
with dm.Mun do begin
  dm.Mun.insert;
  dm.MunIDMUNICIPIO.Value := id;
  dm.MunNOME.AsString := mun;
  dm.MunIDUF.AsString := '1';
  dm.MunIDREGIAO.AsString := '1';
  dm.Mun.Post;
end;
dm.Mun.RefreshSQL;
  end;
  mun := '';
  i := 0;
end;
ReadLn(arq, linha);
  end;
  CloseFile(arq);
  msg('A Importação da Tabela Municipio Terminou !', 'I');
end;

Atenciosamente 


Cleyton Heusser
  Programador
  (49) 9992-3478
Plasoft - Desenv. e Planj. de Sistemas
  (49)   224-9034
 msn [EMAIL PROTECTED]
  - Original Message - 
  From: Demian Lessa 
  To: [EMAIL PROTECTED] 
  Sent: Friday, December 17, 2004 10:32 AM
  Subject: Re: [delphi-br] Importação de TXT


  -BEGIN PGP SIGNED MESSAGE-
  Hash: SHA1

  Algo do tipo:

  Solução para um Live DataSet:

  var
  ~  i: Integer;
  ~  sl: TStringList;
  ~  cod,
  ~  nom,
  ~  end,
  ~  cid,
  ~  est: string;
  begin
  ~  sl := TStringList.Create;
  ~  sl.LoadFromFile();
  ~  for i := 0 to sl.Count - 1 do
  ~  begin
  ~case i mod N of
  ~  0: cod := sl[i];  // código
  ~  1: nom := sl[i];  // nome
  ~  2: end := sl[i];  // endereço
  ~  3: cid := sl[i];  // cidade
  ~  4:
  ~  begin
  ~est := sl[i];  // estado
  ~SeuDataSet.AppendRecord([cod, nom, end, cid, est]);
  ~  end;
  ~end;
  ~  end;
  end;

  Solução para usar SQL:

  var
  ~  i: Integer;
  ~  sl: TStringList;
  begin
  ~  sl := TStringList.Create;
  ~  sl.LoadFromFile();
  ~  for i := 0 to sl.Count - 1 do
  ~  begin
  ~case i mod N of
  ~  0: SeuQuery.ParamByName('codigo').AsString := sl[i];
  ~  1: SeuQuery.ParamByName('nome').AsString := sl[i];
  ~  2: SeuQuery.ParamByName('endereco').AsString := sl[i];
  ~  3: SeuQuery.ParamByName('cidade').AsString := sl[i];
  ~  4:
  ~  begin
  ~SeuQuery.ParamByName('estado').AsString := sl[i];
  ~SeuQuery.ExecSQL;
  ~  end;
  ~end;
  ~  end;
  end;

  Cordialmente,

  Demian Lessa

  Valcir José Tasquim wrote:

  | Bom dia!!!
  |
  | Estou precisando importar dados de um txt para uma tabela, só que o
  txt esta gravado uma informação em cada linha, ou seja, codigo do
  cliente, nome, endereço, cidade, e estado, tudo embaixo um do outro, e
  como é a primeira vez que tentarei fazer isto, alguem teria alguma
  sugestão para facilitar ou de como posso proceder.
  |
  | Abraços.
  |
  | Tasquim
  | [EMAIL PROTECTED]


[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

RES: [delphi-br] Importação Planilha Excel

[Fabiano]

Se vc usar um componente ADO poderá trabalhar com a tabela como se fosse um
banco de dados.
Se precisar de mais detalhes privete-me, mas reportei esse assunto na lista.
Abraços,
Fabiano
  -Mensagem original-
  De: Vicente Lima [mailto:[EMAIL PROTECTED]
  Enviada em: segunda-feira, 25 de outubro de 2004 15:09
  Para: [EMAIL PROTECTED]
  Assunto: [delphi-br] Importação Planilha Excel


  Pessoal.

  Alguém teria um exemplo ou apostila que mostre como importar uma
planilha do Excel via Delphi.

  Vicente Lima

  [As partes desta mensagem que não continham texto foram removidas]



  --
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:








--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.



[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

Re: [delphi-br] Importação Planilha Excel

[Neto]

Serve uma dica de como usar uma planilha como banco de dados? Se servir toma
aí...

www.clubedelphi.net/edicao45/download45.asp


- Original Message -
From: "Vicente Lima" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, October 25, 2004 3:09 PM
Subject: [delphi-br] Importação Planilha Excel



Pessoal.

Alguém teria um exemplo ou apostila que mostre como importar uma
planilha do Excel via Delphi.

Vicente Lima

[As partes desta mensagem que não continham texto foram removidas]



--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos











---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.779 / Virus Database: 526 - Release Date: 19/10/2004



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

Re: [delphi-br] Importação Planilha Excel

[Vicente Lima]

Valeu a dica.

Vicente Lima

- Original Message - 
From: "Rogério" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, October 18, 2004 2:26 PM
Subject: Re: [delphi-br] Importação Planilha Excel


>
> Tenho o inverso...
> De Tabela/Query para Excel, mas você pode adaptar para atender a sua
> necessidade.
> Segue abaixo:
> Obs: o objeto Pb, é apenas uma progress bar.
>
> Procedure TFormVertices.BitBtn1Click(Sender: TObject);
> Var
>   RangeE : Excel2000.Range;
>   //RangeE : Excel97.Range; // quando for o Office97 que vc. estiver
> utilizando !
>   I, Row : Integer;
>   cOcorrencia : String;
>   //wIni, wFin : OleVariant;
>   //wIni, wFin : Integer;
> begin
> try
>   QBaseVert.Open; // Abre Caso Não Esteja Aberta
>   QBaseVert.First;
>
> //##
> #
>   Screen.Cursor := crHourGlass;
>   Pb.Visible := True;
>   Pb.Position:=0;
>   Pb.Min:=0;
>   Pb.Max:=QBaseVert.RecordCount;
>
> //##
> #
>
>   // Abre o Excel
>   ExcelApplication1.Visible[ 0 ] := True;
>   // Cria a planilha
>   ExcelApplication1.Workbooks.Add( NULL, 0 );
>
>   // Set no Range da Célula Ativa
>   RangeE := ExcelApplication1.ActiveCell;
>
>   // Cabeçalho (Opcional)
>   RangeE.Value := 'Transações Analíticas - Data: ' + DateToStr( Now ) ;
>
>   // Muda o formato da data no Aplicativo para os "Campos Tipo Data"
>   // Se não mudar, o Excel pode ficar maluco caso sejam Campos Data
> (Testar)
>   ShortDateFormat := 'mm/dd/';
>
>   Row := 3;
>   RangeE := ExcelApplication1.Range[ 'A' + IntToStr( Row ),
>  'A' + IntToStr( Row ) ];
>
>   // coloca os nomes de campos na linha 3
>   // -1 porque Fields.Count começa no Index = 0
>   for i := 0 to QBaseVert.Fields.Count - 1 do
>   begin
>  RangeE.Value := QBaseVert.Fields[ i ].DisplayLabel;
>  RangeE := RangeE.Next;
>   end;
>
>   // Adiciona os dados da QBaseVert
>   QBaseVert.DisableControls;
>   Try
>  QBaseVert.First;
>
>  //cOcorrencia := QBaseVertNOME_OCORR.AsString;
>  //cOcorrencia := TblSource.Fields[ 1 ].AsString ;
>
>  // Os Dados Começam na linha 4
>  Row := 4;
>  while not QBaseVert.EOF do
>  begin
> RangeE := ExcelApplication1.Range[ 'A' + IntToStr ( Row ), 'A' +
> IntToStr( Row ) ];
> for I := 0 to QBaseVert.Fields.Count - 1 do
> begin
>//if ( QBaseVert.Fields[ i ].AsString = 'True' ) Then // Para
> Campos Tipo Boolean
>//   RangeE.Value := 'X'
>//else
>
>   if QBaseVert.Fields[ i ].DataType in [ftFloat] then
>   begin
> RangeE.Value := QBaseVert.Fields[ i ].AsFloat ;
>   end
>   else
>   if QBaseVert.Fields[ i ].DataType in [ftSmallint, ftInteger,
> ftWord, ftCurrency, ftBCD, ftBytes, ftVarBytes, ftAutoInc, ftLargeint ] 
> then
>   begin
> RangeE.Value := FormatFloat('#,##0.00', QBaseVert.Fields[
> i ].AsFloat) ;
>   end
>   else
>   begin
> RangeE.Value := QBaseVert.Fields[ i ].AsString;
>   end;
>
>RangeE := RangeE.Next;
> end;
> QBaseVert.Next;
>
> // Quando mudar de Ocorrência ...
> //if (QBaseVertNOME_OCORR.AsString <> cOcorrencia) then
> //if (TblSource.Fields[ 1 ].AsString<> cOcorrencia) then
> //begin
>//inc( Row ); // Faz Pular a Linha
> //   RangeE.Value := '';
>//cOcorrencia := QBaseVertNOME_OCORR.AsString;
> //   cOcorrencia := TblSource.Fields[ 1 ].AsString;
> //end;
> Inc( Row );
>
> Pb.Position := Pb.Position + 1;
> //FormConciliacaoTransacoes.Refresh;
>
>  end;
>   Finally
>  QBaseVert.EnableControls;
>   end;
>
>   // formata as células ( AutoFormat do Excel )
>   RangeE := ExcelApplication1.Range[ 'A1', 'AA' + IntToStr( Row - 1 ) ];
>   //RangeE := ExcelApplication1.Range[ IntToStr(wIni), IntToStr(wFin) ];
>   RangeE.AutoFormat( 3, NULL, NULL, NULL, NULL, NULL, NULL );
>   // Volta o formato da data para o correto
>   ShortDateFormat := 'dd/mm/';
> finally
>   Pb.Visible := False;
>   Pb.Position:=0;
>   Screen.Cursor := crDefault;
>   ExcelApplication1.Disconnect;
> end;
> end;
&g

Re: [delphi-br] Importação Planilha Excel

[Rogério]

Tenho o inverso...
De Tabela/Query para Excel, mas você pode adaptar para atender a sua
necessidade.
Segue abaixo:
Obs: o objeto Pb, é apenas uma progress bar.

Procedure TFormVertices.BitBtn1Click(Sender: TObject);
Var
   RangeE : Excel2000.Range;
   //RangeE : Excel97.Range; // quando for o Office97 que vc. estiver
utilizando !
   I, Row : Integer;
   cOcorrencia : String;
   //wIni, wFin : OleVariant;
   //wIni, wFin : Integer;
begin
 try
   QBaseVert.Open; // Abre Caso Não Esteja Aberta
   QBaseVert.First;

//##
#
   Screen.Cursor := crHourGlass;
   Pb.Visible := True;
   Pb.Position:=0;
   Pb.Min:=0;
   Pb.Max:=QBaseVert.RecordCount;

//##
#

   // Abre o Excel
   ExcelApplication1.Visible[ 0 ] := True;
   // Cria a planilha
   ExcelApplication1.Workbooks.Add( NULL, 0 );

   // Set no Range da Célula Ativa
   RangeE := ExcelApplication1.ActiveCell;

   // Cabeçalho (Opcional)
   RangeE.Value := 'Transações Analíticas - Data: ' + DateToStr( Now ) ;

   // Muda o formato da data no Aplicativo para os "Campos Tipo Data"
   // Se não mudar, o Excel pode ficar maluco caso sejam Campos Data
(Testar)
   ShortDateFormat := 'mm/dd/';

   Row := 3;
   RangeE := ExcelApplication1.Range[ 'A' + IntToStr( Row ),
  'A' + IntToStr( Row ) ];

   // coloca os nomes de campos na linha 3
   // -1 porque Fields.Count começa no Index = 0
   for i := 0 to QBaseVert.Fields.Count - 1 do
   begin
  RangeE.Value := QBaseVert.Fields[ i ].DisplayLabel;
  RangeE := RangeE.Next;
   end;

   // Adiciona os dados da QBaseVert
   QBaseVert.DisableControls;
   Try
  QBaseVert.First;

  //cOcorrencia := QBaseVertNOME_OCORR.AsString;
  //cOcorrencia := TblSource.Fields[ 1 ].AsString ;

  // Os Dados Começam na linha 4
  Row := 4;
  while not QBaseVert.EOF do
  begin
 RangeE := ExcelApplication1.Range[ 'A' + IntToStr ( Row ), 'A' +
IntToStr( Row ) ];
 for I := 0 to QBaseVert.Fields.Count - 1 do
 begin
//if ( QBaseVert.Fields[ i ].AsString = 'True' ) Then // Para
Campos Tipo Boolean
//   RangeE.Value := 'X'
//else

   if QBaseVert.Fields[ i ].DataType in [ftFloat] then
   begin
 RangeE.Value := QBaseVert.Fields[ i ].AsFloat ;
   end
   else
   if QBaseVert.Fields[ i ].DataType in [ftSmallint, ftInteger,
ftWord, ftCurrency, ftBCD, ftBytes, ftVarBytes, ftAutoInc, ftLargeint ] then
   begin
 RangeE.Value := FormatFloat('#,##0.00', QBaseVert.Fields[
i ].AsFloat) ;
   end
   else
   begin
 RangeE.Value := QBaseVert.Fields[ i ].AsString;
   end;

RangeE := RangeE.Next;
 end;
 QBaseVert.Next;

 // Quando mudar de Ocorrência ...
 //if (QBaseVertNOME_OCORR.AsString <> cOcorrencia) then
 //if (TblSource.Fields[ 1 ].AsString<> cOcorrencia) then
 //begin
//inc( Row ); // Faz Pular a Linha
 //   RangeE.Value := '';
//cOcorrencia := QBaseVertNOME_OCORR.AsString;
 //   cOcorrencia := TblSource.Fields[ 1 ].AsString;
 //end;
 Inc( Row );

 Pb.Position := Pb.Position + 1;
 //FormConciliacaoTransacoes.Refresh;

  end;
   Finally
  QBaseVert.EnableControls;
   end;

   // formata as células ( AutoFormat do Excel )
   RangeE := ExcelApplication1.Range[ 'A1', 'AA' + IntToStr( Row - 1 ) ];
   //RangeE := ExcelApplication1.Range[ IntToStr(wIni), IntToStr(wFin) ];
   RangeE.AutoFormat( 3, NULL, NULL, NULL, NULL, NULL, NULL );
   // Volta o formato da data para o correto
   ShortDateFormat := 'dd/mm/';
 finally
   Pb.Visible := False;
   Pb.Position:=0;
   Screen.Cursor := crDefault;
   ExcelApplication1.Disconnect;
 end;
end;


Espero que sirva !
[ ]'s
Rogério




- Original Message - 
From: "Vicente Lima" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, October 25, 2004 4:09 PM
Subject: [delphi-br] Importação Planilha Excel



Pessoal.

Alguém teria um exemplo ou apostila que mostre como importar uma
planilha do Excel via Delphi.

Vicente Lima

[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










-- 
<<<<< FAVOR REMOVER ES

[delphi-br] Importação Planilha Excel

[Vicente Lima]

Pessoal.

Alguém teria um exemplo ou apostila que mostre como importar uma planilha do Excel 
via Delphi.

Vicente Lima

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

Re: [delphi-br] IMPORTAÇÃO DE DADOS USANDO FILTRO

[Mauricio Almeida Filho]

 Sugiro q vc use um campo numérico autoincremento e verifique 
apenas (e sempre) quais registros estão nas tabelas das filiais e não na 
tabela matriz. Esquece FILTER de Table, as vezes não funciona bem, o ideal 
mesmo seria vc usar SQL q é bem mais seguro.

 Veja tb o componente BatchMove ele pode te ajudar bastante.





At 09:49 15/10/2004, you wrote:


>Alguém fez importação de dados, usando filtro?
>(usando a propriedade: Filter da TTABLE)
>
>Quando quero ATUALIZAR dados da mesma tabela(FILIAL) para outra 
>tabela(MATRIZ).
>MATRIZ - Onde é tudo centrado.
>FILIAL1,2,3,4 e 5: Osdados são digitados e mandados para a matriz, todos 
>usam a mesma tabela. Se a filial 3 mandar eu coloco na tabela a condição, 
>se cdfilial = 1  e passo o evento Filtered para true e vai subscrever 
>somente conteúdo que tiver com o cod 1, alguém já fez isso?
>Como faço isso?
>Uso tabelas paradox.
>AS TABELAS SÃO LOCAIS EM CADA FILIAL, MAS A MATRIZ VAI CONTROLAR OS DADOS.
>
>
>
>
>AGUARDO RESPOSTA.
>PAULO FERNANDES
>PORTO ALEGRE  RS
>
>
>[As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
>
>
>--
>< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
>Para ver as mensagens antigas, acesse:
>  http://br.groups.yahoo.com/group/delphi-br/messages
>
>Para falar com o moderador, envie um e-mail para:
>  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>Links do Yahoo! Grupos
>
>
>
>
>


Mauricio Almeida Filho
Diretor de Negócios
MSN : [EMAIL PROTECTED]

UNIT SOFTWARE
Empresa virtual solução real

Atuação : Consultoria e Desenvolvimento de Sistemas
Sistemas Para : Comércio, Escolas, Factorings, Locação, Transportadoras. 
Desenvolvimento de sistemas sob medida - apresente-nos seu problema.

Unit Software
Fone/Fax : (81) 9242-2292
e-Mail: [EMAIL PROTECTED]
Home Page: http://www.unitsoft.com.br


[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html