[delphi-br] Arquivo texto
Alguem conhece algum componente para importar arquivo texto com wizard igual ao SMImport? Márcio [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Arquivo texto: Verificar se está sendo usado.
Colegas, Tenho uma aplicação que conversa com um txt , onde envia dados para consulta de um outro soft. Raramente temos o problema de nós dois ao mesmo tempo tentarmos acessar o arquivo, o que dá basicamente um erro de violação. Alguem tem alguma rotina/dica para tratamento deste problema? Saudações Mauro Paes Correa www.gnx.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Arquivo texto: Ve rificar se está sendo usado.
Mauro, Emprego esta rotina para 'falar' com uma aplicação em java. No nosso caso funciona assim: - O aplicativo A gera o arquivo com um nome e somente apos terminar de grava-lo renomeia para o nome definitivo. Ex.: Cria como _Arquivo.txt e após terminar de gravar renomeia para Arquivo.txt - O Aplicativo B pega o arquivo gerado Arquivo.txt e renomeia para @@Arquivo.txt. Se conseguiu, abre e le conteudo. Depois elimina o mesmo. Usamos um bloco try except end Espero ter ajudado. [ ]´s Moacir 'Mauro escreveu: Colegas, Tenho uma aplicação que conversa com um txt , onde envia dados para consulta de um outro soft. Raramente temos o problema de nós dois ao mesmo tempo tentarmos acessar o arquivo, o que dá basicamente um erro de violação. Alguem tem alguma rotina/dica para tratamento deste problema? Saudações Mauro Paes Correa www.gnx.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Arquivo texto: Verificar se está sen do usado.
Eu utilizo de gerar um arquivo com um nome baseado na data e na hora que foi gerado, e se possível com o número do terminal que gerou, fazendo com que o outro programa responda gravando o arquivo de resposta utilizando a nomenclatura baseada no nome do arquivo que foi recebido. - Original Message - From: Moacir - Prisma To: delphi-br@yahoogrupos.com.br Sent: Friday, May 04, 2007 3:20 PM Subject: Re: [delphi-br] Arquivo texto: Verificar se está sendo usado. Mauro, Emprego esta rotina para 'falar' com uma aplicação em java. No nosso caso funciona assim: - O aplicativo A gera o arquivo com um nome e somente apos terminar de grava-lo renomeia para o nome definitivo. Ex.: Cria como _Arquivo.txt e após terminar de gravar renomeia para Arquivo.txt - O Aplicativo B pega o arquivo gerado Arquivo.txt e renomeia para @@Arquivo.txt. Se conseguiu, abre e le conteudo. Depois elimina o mesmo. Usamos um bloco try except end Espero ter ajudado. [ ]´s Moacir 'Mauro escreveu: Colegas, Tenho uma aplicação que conversa com um txt , onde envia dados para consulta de um outro soft. Raramente temos o problema de nós dois ao mesmo tempo tentarmos acessar o arquivo, o que dá basicamente um erro de violação. Alguem tem alguma rotina/dica para tratamento deste problema? Saudações Mauro Paes Correa www.gnx.com.br [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] Arquivo texto: Verificar se está sen do usado.
Ótimo então, conversei com o colega programador e será feito de acordo nestes moldes. Grato à solicitude dos colegas SDS Mauro Paes Corrêa www.gnx.com.br - Original Message - From: André - Gmail To: delphi-br@yahoogrupos.com.br Sent: Friday, May 04, 2007 3:30 PM Subject: Re: [delphi-br] Arquivo texto: Verificar se está sendo usado. Eu utilizo de gerar um arquivo com um nome baseado na data e na hora que foi gerado, e se possível com o número do terminal que gerou, fazendo com que o outro programa responda gravando o arquivo de resposta utilizando a nomenclatura baseada no nome do arquivo que foi recebido. - Original Message - From: Moacir - Prisma To: delphi-br@yahoogrupos.com.br Sent: Friday, May 04, 2007 3:20 PM Subject: Re: [delphi-br] Arquivo texto: Verificar se está sendo usado. Mauro, Emprego esta rotina para 'falar' com uma aplicação em java. No nosso caso funciona assim: - O aplicativo A gera o arquivo com um nome e somente apos terminar de grava-lo renomeia para o nome definitivo. Ex.: Cria como _Arquivo.txt e após terminar de gravar renomeia para Arquivo.txt - O Aplicativo B pega o arquivo gerado Arquivo.txt e renomeia para @@Arquivo.txt. Se conseguiu, abre e le conteudo. Depois elimina o mesmo. Usamos um bloco try except end Espero ter ajudado. [ ]´s Moacir 'Mauro escreveu: Colegas, Tenho uma aplicação que conversa com um txt , onde envia dados para consulta de um outro soft. Raramente temos o problema de nós dois ao mesmo tempo tentarmos acessar o arquivo, o que dá basicamente um erro de violação. Alguem tem alguma rotina/dica para tratamento deste problema? Saudações Mauro Paes Correa www.gnx.com.br [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]
[delphi-br] Arquivo texto - saber se está zerado.
há alguma função específica no delphi para que cheque-se se um arquivo está zerado, sem fazer o while para abrir e le-lo? Grato, Mauro Paes Correa www.gnx.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Arquivo texto - saber se está zerado.
Boa tarde! Existem várias formas de fazer isso. Uma bem fácil é criar uma variável tipo TStrings, carregá-la com o arquivo usando o método LoadFromFile() e em seguida verificar a propriedade Count, pra ver se tem alguma linha. Boa sorte. Ulisses - Original Message - From: Mauro Paes Corrêa - gnX Ltda. To: delphi-br@yahoogrupos.com.br Sent: Friday, April 27, 2007 11:19 AM Subject: [delphi-br] Arquivo texto - saber se está zerado. há alguma função específica no delphi para que cheque-se se um arquivo está zerado, sem fazer o while para abrir e le-lo? Grato, Mauro Paes Correa www.gnx.com.br [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] Arquivo texto - saber se está zerado.
Excelente ulisses. Parabéns por compartilhar a informação! Mauro Paes Correa www.gnx.com.br - Original Message - From: Ulisses To: delphi-br@yahoogrupos.com.br Sent: Friday, April 27, 2007 2:10 PM Subject: Re: [delphi-br] Arquivo texto - saber se está zerado. Boa tarde! Existem várias formas de fazer isso. Uma bem fácil é criar uma variável tipo TStrings, carregá-la com o arquivo usando o método LoadFromFile() e em seguida verificar a propriedade Count, pra ver se tem alguma linha. Boa sorte. Ulisses - Original Message - From: Mauro Paes Corrêa - gnX Ltda. To: delphi-br@yahoogrupos.com.br Sent: Friday, April 27, 2007 11:19 AM Subject: [delphi-br] Arquivo texto - saber se está zerado. há alguma função específica no delphi para que cheque-se se um arquivo está zerado, sem fazer o while para abrir e le-lo? Grato, Mauro Paes Correa www.gnx.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.467 / Virus Database: 269.6.1/777 - Release Date: 26/4/2007 15:23 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Arquivo texto - saber se está zerado.
Verifique o tamanho do arquivo.
ai vai um exemplo.
function TamArquivo(Arquivo: string): Integer;
begin
with TFileStream.Create(Arquivo, fmOpenRead or fmShareExclusive) do
try
Result := Size;
finally
Free;
end;
end;
Utilize a função assim:
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:= inttostr(TamArquivo('CAMINHO\NOMEDOARQUIVO'));
end;
Otto Júnior
Programador
Tec-Soft Informática Ltda.
( (84) 3234-4740 - (84) 8802-1381.
+ [EMAIL PROTECTED]
Visite nosso site: www.tec-softinformatica.com.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o meio
ambiente.
- Original Message -
From: Mauro Paes Corrêa - gnX Ltda.
To: delphi-br@yahoogrupos.com.br
Sent: Friday, April 27, 2007 11:19 AM
Subject: [delphi-br] Arquivo texto - saber se está zerado.
há alguma função específica no delphi para que cheque-se se um arquivo está
zerado, sem fazer o while para abrir e le-lo?
Grato,
Mauro Paes Correa
www.gnx.com.br
[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] Arquivo Texto
Quando respondi esqueci de alterar o copy por
type arquivo destino
Eduardo
Joao Morais escreveu:
Nivaldo Stainle wrote:
era isto que não queria fazer; ficar lendo os arquivos, queria algum
comando como coloquei e que funciona no(DOS) que fizesse automaticamente;
mesmo assim grato pela ajuda.
Não testei, corre o risco de funcionar com algum ajuste.
var
VLista, VArquivo, VTudoJunto: TStrings;
I: Integer;
begin
VLista := TStringList.Create;
try
// Crie uma lista com os arquivos
// Você pode ler esta lista do disco, ou pode ser
// fornecido por sua aplicação.
VLista.Add('arquivo1.txt');
VLista.Add('arquivo2.txt');
VLista.Add('arquivo3.txt');
...
// Junte os arquivos em um stringlist
VArquivo := TStringList.Create;
VTudoJunto := TStringList.Create;
try
for I := 0 to Pred(VLista.Count) do
begin
VArquivo.LoadFromFile(VLista[I]);
VTudoJunto.AddStrings(VArquivoAtual);
end;
// Grave
VTudoJunto.SaveToFile('tudojunto.txt');
finally
VArquivo.Free;
VTudoJunto.Free;
end;
finally
VLista.Free;
end;
end;
--
João Morais
___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Arquivo Texto
era isto que não queria fazer; ficar lendo os arquivos, queria algum comando como coloquei e que funciona no(DOS) que fizesse automaticamente; mesmo assim grato pela ajuda. Stainle Desenvolvimento (Anderson) [EMAIL PROTECTED] escreveu: pra unir, faça assim: var origem1, origem2, destino : textfile; s : string; begin assignfile(origem1,'c:\arquivo1.txt'); assignfile(origem2,'c:\arquivo2.txt'); assignfile(destino,'C:\NOVOARQUIVO.TXT'); reset(origem1); reset(origem2) rewrite(destino); while not eof(origem1) do begin readln(origem1,s); writeln(destino,s); end; while not eof(origem2 do begin readln(origem2s); writeln(destino,s); end; closefile(origem1); closefile(origem2; closefile(destino); end; - Original Message - From: stainle2003 To: delphi-br@yahoogrupos.com.br Sent: Friday, February 16, 2007 4:10 PM Subject: [delphi-br] Arquivo Texto não consigo a partir de dois arquivos texto juntá-los num terceiro, alguém sabe outra madeira ou o que está errado no código abaixo. grato Stainle procedure TForm1.Button1Click(Sender: TObject); var dirzip, destzip, dirtemp, sentenca : string; begin dirzip := 'f:\usr\host\remoto\palm\filial99\plestdia.txt'; destzip := 'p:\servidor\003\Saida\plestdia.txt'; dirtemp := 'p:\servidor\003\Saida\Anterior\plestdia.txt'; CopyFile(pchar(destzip), pchar(dirtemp), false); destzip := 'p:\servidor\003\Saida\pleststa.txt'; sentenca := 'command.com /c copy ' + dirzip + ' + ' + dirtemp + ' ' + destzip; ShowMessage(dirzip); ShowMessage(dirtemp); ShowMessage(destzip); ShowMessage(sentenca); WinExec(pchar(sentenca), sw_ShowNormal); end; __ Informação do NOD32 IMON 2066 (20070216) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] __ 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]
Re: RES: [delphi-br] Arquivo Texto
eu tenho cerca de 300 representantes, imagina eu ficar lendo para cada representante dois arquivos(um diferente do outro); eu queria algo mais automático como funciona no DOS, (copy a.txt + b.txt c.txt). grato pela ajuda Stainle Ricardo Berti [EMAIL PROTECTED] escreveu: Eu tentari assim: var Arquivo1, Arquivo2, ArquivoSaida: TextFile; Linha: string; begin //Abre os dois primeiros arquivos para leitura Reset AssignFile(Arquivo1, 'C:\a.txt'); Reset(Arquivo1); AssignFile(Arquivo2, 'C:\b.txt'); Reset(Arquivo2); //Abre o ultimo arquivo como para escrita Rewrite AssignFile(ArquivoSaida, 'C:\saida.txt'); Rewrite(ArquivoSaida); //Enquanto não for fim do arquivo, vai lendo o primeiro arquivo e gravando no arquivo de saida while not EoF(Arquivo1) do begin ReadLn(Arquivo1, Linha); WriteLn(ArquivoSaida, Linha); end; CloseFile(Arquivo1); //Enquanto não for fim do arquivo, vai lendo o segundo arquivo e gravando no arquivo de saida while not EoF(Arquivo2) do begin ReadLn(Arquivo2, Linha); WriteLn(ArquivoSaida, Linha) end; CloseFile(Arquivo2); //Já está tudo no arquivo de saida CloseFile(ArquivoSaida); end; _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de stainle2003 Enviada em: sexta-feira, 16 de fevereiro de 2007 16:11 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Arquivo Texto não consigo a partir de dois arquivos texto juntá-los num terceiro, alguém sabe outra madeira ou o que está errado no código abaixo. grato Stainle procedure TForm1.Button1Click(Sender: TObject); var dirzip, destzip, dirtemp, sentenca : string; begin dirzip := 'f:\usr\host\remoto\palm\filial99\plestdia.txt'; destzip := 'p:\servidor\003\Saida\plestdia.txt'; dirtemp := 'p:\servidor\003\Saida\Anterior\plestdia.txt'; CopyFile(pchar(destzip), pchar(dirtemp), false); destzip := 'p:\servidor\003\Saida\pleststa.txt'; sentenca := 'command.com /c copy ' + dirzip + ' + ' + dirtemp + ' ' + destzip; ShowMessage(dirzip); ShowMessage(dirtemp); ShowMessage(destzip); ShowMessage(sentenca); WinExec(pchar(sentenca), sw_ShowNormal); end; [As partes desta mensagem que não continham texto foram removidas] __ 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]
Re: [delphi-br] Arquivo Texto
Nivaldo Stainle wrote:
era isto que não queria fazer; ficar lendo os arquivos, queria algum comando
como coloquei e que funciona no(DOS) que fizesse automaticamente;
mesmo assim grato pela ajuda.
Não testei, corre o risco de funcionar com algum ajuste.
var
VLista, VArquivo, VTudoJunto: TStrings;
I: Integer;
begin
VLista := TStringList.Create;
try
// Crie uma lista com os arquivos
// Você pode ler esta lista do disco, ou pode ser
// fornecido por sua aplicação.
VLista.Add('arquivo1.txt');
VLista.Add('arquivo2.txt');
VLista.Add('arquivo3.txt');
...
// Junte os arquivos em um stringlist
VArquivo := TStringList.Create;
VTudoJunto := TStringList.Create;
try
for I := 0 to Pred(VLista.Count) do
begin
VArquivo.LoadFromFile(VLista[I]);
VTudoJunto.AddStrings(VArquivoAtual);
end;
// Grave
VTudoJunto.SaveToFile('tudojunto.txt');
finally
VArquivo.Free;
VTudoJunto.Free;
end;
finally
VLista.Free;
end;
end;
--
João Morais
[delphi-br] Arquivo Texto
não consigo a partir de dois arquivos texto juntá-los num terceiro, alguém sabe outra madeira ou o que está errado no código abaixo. grato Stainle procedure TForm1.Button1Click(Sender: TObject); var dirzip, destzip, dirtemp, sentenca : string; begin dirzip := 'f:\usr\host\remoto\palm\filial99\plestdia.txt'; destzip := 'p:\servidor\003\Saida\plestdia.txt'; dirtemp := 'p:\servidor\003\Saida\Anterior\plestdia.txt'; CopyFile(pchar(destzip), pchar(dirtemp), false); destzip := 'p:\servidor\003\Saida\pleststa.txt'; sentenca := 'command.com /c copy ' + dirzip + ' + ' + dirtemp + ' ' + destzip; ShowMessage(dirzip); ShowMessage(dirtemp); ShowMessage(destzip); ShowMessage(sentenca); WinExec(pchar(sentenca), sw_ShowNormal); end;
Re: [delphi-br] Arquivo Texto
pra unir, faça assim: var origem1, origem2, destino : textfile; s : string; begin assignfile(origem1,'c:\arquivo1.txt'); assignfile(origem2,'c:\arquivo2.txt'); assignfile(destino,'C:\NOVOARQUIVO.TXT'); reset(origem1); reset(origem2) rewrite(destino); while not eof(origem1) do begin readln(origem1,s); writeln(destino,s); end; while not eof(origem2 do begin readln(origem2s); writeln(destino,s); end; closefile(origem1); closefile(origem2; closefile(destino); end; - Original Message - From: stainle2003 To: delphi-br@yahoogrupos.com.br Sent: Friday, February 16, 2007 4:10 PM Subject: [delphi-br] Arquivo Texto não consigo a partir de dois arquivos texto juntá-los num terceiro, alguém sabe outra madeira ou o que está errado no código abaixo. grato Stainle procedure TForm1.Button1Click(Sender: TObject); var dirzip, destzip, dirtemp, sentenca : string; begin dirzip := 'f:\usr\host\remoto\palm\filial99\plestdia.txt'; destzip := 'p:\servidor\003\Saida\plestdia.txt'; dirtemp := 'p:\servidor\003\Saida\Anterior\plestdia.txt'; CopyFile(pchar(destzip), pchar(dirtemp), false); destzip := 'p:\servidor\003\Saida\pleststa.txt'; sentenca := 'command.com /c copy ' + dirzip + ' + ' + dirtemp + ' ' + destzip; ShowMessage(dirzip); ShowMessage(dirtemp); ShowMessage(destzip); ShowMessage(sentenca); WinExec(pchar(sentenca), sw_ShowNormal); end; __ Informação do NOD32 IMON 2066 (20070216) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Arquivo Texto
Eu tentari assim: var Arquivo1, Arquivo2, ArquivoSaida: TextFile; Linha: string; begin //Abre os dois primeiros arquivos para leitura Reset AssignFile(Arquivo1, 'C:\a.txt'); Reset(Arquivo1); AssignFile(Arquivo2, 'C:\b.txt'); Reset(Arquivo2); //Abre o ultimo arquivo como para escrita Rewrite AssignFile(ArquivoSaida, 'C:\saida.txt'); Rewrite(ArquivoSaida); //Enquanto não for fim do arquivo, vai lendo o primeiro arquivo e gravando no arquivo de saida while not EoF(Arquivo1) do begin ReadLn(Arquivo1, Linha); WriteLn(ArquivoSaida, Linha); end; CloseFile(Arquivo1); //Enquanto não for fim do arquivo, vai lendo o segundo arquivo e gravando no arquivo de saida while not EoF(Arquivo2) do begin ReadLn(Arquivo2, Linha); WriteLn(ArquivoSaida, Linha) end; CloseFile(Arquivo2); //Já está tudo no arquivo de saida CloseFile(ArquivoSaida); end; _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de stainle2003 Enviada em: sexta-feira, 16 de fevereiro de 2007 16:11 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Arquivo Texto não consigo a partir de dois arquivos texto juntá-los num terceiro, alguém sabe outra madeira ou o que está errado no código abaixo. grato Stainle procedure TForm1.Button1Click(Sender: TObject); var dirzip, destzip, dirtemp, sentenca : string; begin dirzip := 'f:\usr\host\remoto\palm\filial99\plestdia.txt'; destzip := 'p:\servidor\003\Saida\plestdia.txt'; dirtemp := 'p:\servidor\003\Saida\Anterior\plestdia.txt'; CopyFile(pchar(destzip), pchar(dirtemp), false); destzip := 'p:\servidor\003\Saida\pleststa.txt'; sentenca := 'command.com /c copy ' + dirzip + ' + ' + dirtemp + ' ' + destzip; ShowMessage(dirzip); ShowMessage(dirtemp); ShowMessage(destzip); ShowMessage(sentenca); WinExec(pchar(sentenca), sw_ShowNormal); end; [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Arquivo texto
Tem como eu ler um arquivo por tabulação ?? ex: eu tenho um arquivo texto, nele tem um nome, dai tem uma tabulação numero, outra tabulação tem como ?? [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] 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] Arquivo texto
utilize: COPY(linha,POSICAO,TAMANHO) - Original Message - From: Renan To: Delphi Br Sent: Tuesday, August 22, 2006 11:00 AM Subject: [delphi-br] Arquivo texto Tem como eu ler um arquivo por tabulação ?? ex: eu tenho um arquivo texto, nele tem um nome, dai tem uma tabulação numero, outra tabulação tem como ?? [As partes desta mensagem que não continham texto foram removidas] -- Internal Virus Database is out-of-date. Checked by AVG Free Edition. Version: 7.1.405 / Virus Database: 268.10.8/415 - Release Date: 09/08/06 [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] 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] Arquivo Texto
Tem como eu copiar caracteres de arquivo texto, mas em vez de mostrar de qual caracter deve começar, gostaria de mostrar qual tabulação ele deve começar a pegar os caracteres, existe como ?? [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] 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] ARquivo Texto para BAnco de Dados
Oi Gente.
Preciso da ajuda de vocês.
Tenho que desenvolver uma rotina para transferir dados de um BD SQL2005 para
FB1.5 e vice versa
Uso o Delphi 7 e para o FB estou usando o IBX acredito que para o SQL deva
utilizar o ADO.
Os dados serão transferidos via TXT.
Alguém pode me iluminar com dicas, sugestões ou onde possa conseguir
material?
Grata Pela Atenção
Beijos
{{}}
Jenifer
[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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
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 Termos do Serviço do Yahoo!.
Re: [delphi-br] ARquivo Texto para BAnco de Dados
Os dados serão transferidos via TXT.
como assim??
Em 10/05/06, Jenifer [EMAIL PROTECTED] escreveu:
Oi Gente.
Preciso da ajuda de vocês.
Tenho que desenvolver uma rotina para transferir dados de um BD SQL2005
para
FB1.5 e vice versa
Uso o Delphi 7 e para o FB estou usando o IBX acredito que para o SQL deva
utilizar o ADO.
Os dados serão transferidos via TXT.
Alguém pode me iluminar com dicas, sugestões ou onde possa conseguir
material?
Grata Pela Atenção
Beijos
{{}}
Jenifer
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
Ismair C. Alves
msn: [EMAIL PROTECTED]
Gandhi: Primeiro eles te ignoram,
depois riem de você, depois resolvem lutar
e então você vence
[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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
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 Termos do Serviço do Yahoo!.
RES: [delphi-br] ARquivo Texto para BAnco de Dados
Oi Ismair.
A transferência será via TXT de um para o outro. Claro que vou ler o
conteúdo do TXT e gravar seus dados no BD refenrente
Do SQL eu crio um TXT com as saídas de estoque do dia. No FB eu leio o txt
e atualizo estas saídas.
No FB eu crio clientes novos num TXT e no SQL eu atualizo com essas
informações
Espero que tenha entendido
{{}}
Jenifer
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ismair Alves
Enviada em: quarta-feira, 10 de maio de 2006 06:57
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] ARquivo Texto para BAnco de Dados
Os dados serão transferidos via TXT.
como assim??
Em 10/05/06, Jenifer [EMAIL PROTECTED] escreveu:
Oi Gente.
Preciso da ajuda de vocês.
Tenho que desenvolver uma rotina para transferir dados de um BD SQL2005
para
FB1.5 e vice versa
Uso o Delphi 7 e para o FB estou usando o IBX acredito que para o SQL deva
utilizar o ADO.
Os dados serão transferidos via TXT.
Alguém pode me iluminar com dicas, sugestões ou onde possa conseguir
material?
Grata Pela Atenção
Beijos
{{}}
Jenifer
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
Ismair C. Alves
msn: [EMAIL PROTECTED]
Gandhi: Primeiro eles te ignoram,
depois riem de você, depois resolvem lutar
e então você vence
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
http://br.ard.yahoo.com/SIG=12f86tf4v/M=396559.7942981.9356152.2369893/D=br
clubs/S=2137111264:HM/Y=BR/EXP=1147262302/A=3634211/R=2/id=noscript/SIG=1549
4h0pu/*http:/lt.dell.com/lt/lt.aspx?CID=12387LID=335659DGC=BADGSeg=DHSDU
RL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26
l%3dpt%26s%3ddhs
http://br.i1.yimg.com/br.yimg.com/i/br/ads7/080506_y300x250_maio01_dhs_dime
nsion5150.gif
_
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]
mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do http://br.yahoo.com/info/utos.html 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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
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 Termos do Serviço do Yahoo!.
RES: RES: [delphi-br] ARquivo Texto para BAnco de Dados
Poderia ser uma solução se os BD´s estivessem no mesmo local.
Infelizmente não é possível dada a distancia e a falta de comunicação
(Internet).
Grata
{{}}
Jenifer
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Luis Lopes
Enviada em: quarta-feira, 10 de maio de 2006 09:25
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] ARquivo Texto para BAnco de Dados
O q vc pode fazer, também, é gerar script de um lado e executando-o do
outro...
[]´s
Luis Alberto
Belo Horizonte - MG
-
Yahoo! doce lar. Faça do Yahoo! sua homepage.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
http://br.ard.yahoo.com/SIG=12fm6ekfp/M=396559.7942981.9356152.2369893/D=br
clubs/S=2137111264:HM/Y=BR/EXP=1147271087/A=3634211/R=2/id=noscript/SIG=1549
4h0pu/*http:/lt.dell.com/lt/lt.aspx?CID=12387LID=335659DGC=BADGSeg=DHSDU
RL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26
l%3dpt%26s%3ddhs
http://br.i1.yimg.com/br.yimg.com/i/br/ads7/080506_y300x250_maio01_dhs_dime
nsion5150.gif
_
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]
mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do http://br.yahoo.com/info/utos.html 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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
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 Termos do Serviço do Yahoo!.
Re: [delphi-br] Arquivo Texto...
-x- Doretto escreveu: Boa tarde !!! Tenho um arquivo texto de 6 Mega e preciso ler para jogar em um banco firebird, estou usado o listbox para fazer isto, so que esta muito lento para ler, teria uma maneira mais rapida para ler este arquivo ? Abraço. Paulo Sérgio Doretto -x- [Welson] Acredito veementemente que ele não está demorando demais. É porque o processo é demorado mesmo, e ainda mais com um arquivo de 6 megas. Já fiz isso com arquivo TXT de 14 megas e eu achava que demorava muito... No loop que você usa pra passar as linhas do arquivo TXT para o BD, coloque o código: Application.ProcessMessages; Veja se te ajuda. Um abração. = Nunca ande pelo caminho traçado, pois ele conduz somente até onde os outros já foram. Alexander Graham Bell = Welson de Avelar Soares Filho Programador Delphi Gemini Sistemas www.geminisistemas.com.br Juiz de Fora - Minas Gerais = - Yahoo! doce lar. Faça do Yahoo! sua homepage. [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] 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] Arquivo texto
Olá sou iniciante neste grupo. mas vamos ao que interessa: estou gravando tres informações em arquivo de texto, estas são, nome matricula e aparelho, este arquivo tem como nome a data do dia em que foi gravado, mas ao atualizar o mesmo está sendo sobreescrito, ou seja, fica apenas com a gravação atual. como faço para salvar este arquivo, mas sendo que a nova informação fique na linha abaixo no arquivo e como faço depois para jogar estas informações em um stringgrid fico grato com a colaboração de todos segue abaixo o codigo utilizado: procedure LeArquivo ( NomeArquivo : String ); var arquivorw : Textfile; linha : String; begin Assignfile( arquivorw, nomearquivo ); reset( arquivorw ); while not Eof( arquivorw ) do begin readln( arquivorw, linha ); radiocontrole.dados.matricula := copy ( linha, 0, 11 ); radiocontrole.dados.nome := copy ( linha, 11, 51 ); radiocontrole.dados.aparelho := copy ( linha, 51, 60 ); end; closefile ( arquivorw ) end; procedure gravaArquivo ( nomearquivo : String ); var linha : String; arquivorw : textfile; begin if( arquivorw ) formatdatetime( 'DD-MM-YYY', now )) is true then begin readln( arquivorw, linha ); while not Eof( arquivorw ) do begin writeln( arquivorw, linha ); end; begin with radiocontrole do begin linha := edtmatricula.text; linha := linha + edtnomeagente.text; linha := linha + edtaparelho.text; writeln( arquivorw, linha ); closefile( arquivorw ); end; end; end; procedure Tradiocontrole.FormCreate(Sender: TObject); begin assignfile( arquivorw, formatdatetime( 'DD-MM-YYY', now )); rewrite( arquivorw ); end; - Yahoo! doce lar. Faça do Yahoo! sua homepage. [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] 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] Arquivo texto
Olá sou iniciante neste grupo. mas vamos ao que interessa: estou gravando tres informações em arquivo de texto, estas são, nome matricula e aparelho, este arquivo tem como nome a data do dia em que foi gravado, mas ao atualizar o mesmo está sendo sobreescrito, ou seja, fica apenas com a gravação atual. como faço para salvar este arquivo, mas sendo que a nova informação fique na linha abaixo no arquivo e como faço depois para jogar estas informações em um stringgrid fico grato com a colaboração de todos segue abaixo o codigo utilizado: procedure LeArquivo ( NomeArquivo : String ); var arquivorw : Textfile; linha : String; (...) [Welson] Antes de abrir pra reescrever o arquivo, você deve verificar se já não existe um arquivo com o mesmo nome usando a função FileExists, sacou ?! Se ainda tiver dúvidas, pergunte ae. ^_^ Abraços... = Nunca ande pelo caminho traçado, pois ele conduz somente até onde os outros já foram. Alexander Graham Bell = Welson de Avelar Soares Filho Juiz de Fora - Minas Gerais = - Yahoo! doce lar. Faça do Yahoo! sua homepage. [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] 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] Arquivo Texto
Pessoal, parece que estou regredindo, mas preciso trabalhar com arquivo texto, preciso criar, um arquivo texto, e armazenar o nome de usuario, e versao do sistema no arquivo, e cada vez que o sistema for atualizado, alterar a versão do sistema no arquivo texto, alguém poderia me dar exemplos de como trabalhar com arquivo texto? abraços Amigos Att. Charles Chiodi [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] 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] Arquivo texto separado por taulações
Pessoal, Preciso ler um arquivo texto q tem colunas separadas por tabulaçõesalguém tem alguma rotina que percorre as colunas pegando os valores q estão entre as tabulações?? [ ]'s Rodrigo Ribeiro Programador WMix Distribuidora Ltda Fone/Fax: +55(48)381.4740 -- Esta mensagem foi enviada pela Wmix Distribuidora Ltda, para uso exclusivo do destinatário, podendo conter informações confidenciais. Se for recebida por terceiro que não o destinatário, deve ser apagada imediatamente do seu computador e a Wmix Distribuidora Ltda notificada ([EMAIL PROTECTED]). As informações aqui prestadas não podem ser distribuídas ou reproduzidas sem a expressa autorização da Wmix Distribuidora Ltda. [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] Arquivo texto separado p or taulações
Eu uso muito este tipo de rotina aqui, como o código aqui é protegido por normas da empresa, eu vou te passar o nucleo da rotina (a que faz a leitura da linha e pega somente os dados separados por tabulação. Dá uma analisada que você vai entender. readln(fi, line); iLenghtLine := length(Line) + 2; if (line '') then begin StatusBar1.Panels[0].Text := 'Lendo o arquivo de importação'; i := 0; j := 0; DadNumMedicao := ''; DadNumNota := ''; DadNumItem := ''; DadNumPedido := ''; DadPedItem := ''; preco := ''; DadPedValor := '0'; btnAbort.Visible := True; btnImport.Visible := False; while i = length(line) do begin while (i = length(line)) and (line[i] #$09) do inc(i); while line[i] = #$09 do - Lê a área da tabulação inc(i); while (i = length(line)) and (line[i] #$09) do inc(i); while line[i] = #$09 do inc(i); while (i = length(line)) and (line[i] #$09) do inc(i); while line[i] = #$09 do inc(i); while (i = length(line)) and (line[i] #$09) do// Numero do movimento/Medição begin if line[i] '' then DadNumMedicao := DadNumMedicao + line[i]; inc(i); end; while line[i] = #$09 do inc(i); // if iStatusPlan = 1 then begin while (i = length(line)) and (line[i] #$09) do// Numero da Nota fiscal (somente para importação de pedidos já faturados) begin if line[i] '' then DadNumNota := DadNumNota + line[i]; inc(i); end; while line[i] = #$09 do inc(i); end; // while (i = length(line)) and (line[i] #$09) do begin if line[i] '' then DadNumItem := DadNumItem + line[i]; inc(i); end; while line[i] = #$09 do inc(i); while (i = length(line)) and (line[i] in ['0'..'9', ',', '.',' ']) do begin if line[i] in ['0'..'9',','] then DadPedValor := DadPedValor + line[i]; inc(i); end; while line[i] = #$09 do inc(i); while (i = length(line)) and (line[i] #$09) do begin if line[i] '' then DadNumPedido := DadNumPedido + line[i]; inc(i); end; while line[i] = #$09 do inc(i); while (i = length(line)) and (line[i] #$09) do begin if line[i] '' then DadPedItem := DadPedItem + line[i]; inc(i); end; while line[i] = #$09 do inc(i); inc(i); // para pular coluna de valor do serviço inc(j); Application.ProcessMessages; end; if iStatusPlan = 0 then DadNumMedicao := SomenteDigitos(DadNumMedicao,6) else DadNumNota := SomenteDigitos(DadNumNota,6); Label5.Caption := ''; StatusBar1.Panels[0].Text := 'Processando o arquivo de importação'; []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: Rodrigo Ribeiro [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 24 de junho de 2005 08:34 Para: Lista Delphi Assunto: [delphi-br] Arquivo texto separado por taulações Pessoal, Preciso ler um arquivo texto q tem colunas separadas por tabulaçõesalguém tem alguma rotina que percorre as colunas pegando os valores q estão entre as tabulações?? [ ]'s Rodrigo Ribeiro Programador WMix Distribuidora Ltda Fone/Fax: +55(48)381.4740 -- Esta mensagem foi enviada pela Wmix Distribuidora Ltda, para uso exclusivo do destinatário, podendo conter informações confidenciais. Se for recebida por terceiro que não o destinatário, deve ser apagada imediatamente do seu computador e a Wmix Distribuidora Ltda notificada ([EMAIL PROTECTED]). As informações aqui prestadas não podem ser distribuídas ou reproduzidas sem a expressa autorização da Wmix Distribuidora Ltda. [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 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens
Re: [delphi-br] Arquivo texto separado por taulaçõ es
valeu... - Original Message - From: Walter Alves Chagas Junior [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, June 24, 2005 8:45 AM Subject: RES: [delphi-br] Arquivo texto separado por taulações Eu uso muito este tipo de rotina aqui, como o código aqui é protegido por normas da empresa, eu vou te passar o nucleo da rotina (a que faz a leitura da linha e pega somente os dados separados por tabulação. Dá uma analisada que você vai entender. readln(fi, line); iLenghtLine := length(Line) + 2; if (line '') then begin StatusBar1.Panels[0].Text := 'Lendo o arquivo de importação'; i := 0; j := 0; DadNumMedicao := ''; DadNumNota := ''; DadNumItem := ''; DadNumPedido := ''; DadPedItem := ''; preco := ''; DadPedValor := '0'; btnAbort.Visible := True; btnImport.Visible := False; while i = length(line) do begin while (i = length(line)) and (line[i] #$09) do inc(i); while line[i] = #$09 do - Lê a área da tabulação inc(i); while (i = length(line)) and (line[i] #$09) do inc(i); while line[i] = #$09 do inc(i); while (i = length(line)) and (line[i] #$09) do inc(i); while line[i] = #$09 do inc(i); while (i = length(line)) and (line[i] #$09) do// Numero do movimento/Medição begin if line[i] '' then DadNumMedicao := DadNumMedicao + line[i]; inc(i); end; while line[i] = #$09 do inc(i); // if iStatusPlan = 1 then begin while (i = length(line)) and (line[i] #$09) do// Numero da Nota fiscal (somente para importação de pedidos já faturados) begin if line[i] '' then DadNumNota := DadNumNota + line[i]; inc(i); end; while line[i] = #$09 do inc(i); end; // while (i = length(line)) and (line[i] #$09) do begin if line[i] '' then DadNumItem := DadNumItem + line[i]; inc(i); end; while line[i] = #$09 do inc(i); while (i = length(line)) and (line[i] in ['0'..'9', ',', '.',' ']) do begin if line[i] in ['0'..'9',','] then DadPedValor := DadPedValor + line[i]; inc(i); end; while line[i] = #$09 do inc(i); while (i = length(line)) and (line[i] #$09) do begin if line[i] '' then DadNumPedido := DadNumPedido + line[i]; inc(i); end; while line[i] = #$09 do inc(i); while (i = length(line)) and (line[i] #$09) do begin if line[i] '' then DadPedItem := DadPedItem + line[i]; inc(i); end; while line[i] = #$09 do inc(i); inc(i); // para pular coluna de valor do serviço inc(j); Application.ProcessMessages; end; if iStatusPlan = 0 then DadNumMedicao := SomenteDigitos(DadNumMedicao,6) else DadNumNota := SomenteDigitos(DadNumNota,6); Label5.Caption := ''; StatusBar1.Panels[0].Text := 'Processando o arquivo de importação'; []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: Rodrigo Ribeiro [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 24 de junho de 2005 08:34 Para: Lista Delphi Assunto: [delphi-br] Arquivo texto separado por taulações Pessoal, Preciso ler um arquivo texto q tem colunas separadas por tabulaçõesalguém tem alguma rotina que percorre as colunas pegando os valores q estão entre as tabulações?? [ ]'s Rodrigo Ribeiro Programador WMix Distribuidora Ltda Fone/Fax: +55(48)381.4740 -- Esta mensagem foi enviada pela Wmix Distribuidora Ltda, para uso exclusivo do destinatário, podendo conter informações confidenciais. Se for recebida por terceiro que não o destinatário, deve ser apagada imediatamente do seu computador e a Wmix Distribuidora Ltda notificada ([EMAIL PROTECTED]). As informações aqui prestadas não podem ser distribuídas ou reproduzidas sem a expressa autorização da Wmix Distribuidora Ltda. [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
[delphi-br] Arquivo texto
Amigos do grupo Sou iniciante em Delphi e mais uma vez venho contar com a ajuda de vocês. Estou precisando gravar todo o conteúdo de uma tabela em um arquivo texto, mas precisaria que esse aqruivo saisse tabulado. Estou usando DbExpress com sqlconection, datasetprovider e clientedataset. Essa seria a estrutura de minha tabela ACOMP_CLI CODIGOINTEGER NOT NULL, DATADATE, CLIENTE INTEGER, ASSUNTO VARCHAR(50), DESCRICAO VARCHAR(500), OPERADOR INTEGER Alguém poderia me ajudar? [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] Arquivo texto !!!
Queria fazer com que quando alguem escrever em um certo memo, ele atualiza-se (reescrevese) um memo ja salvo em uma pasta do HD, como faço isso ? não sei como gravar em um arquivo texto, e se pudessem me ajudar gostaria de saber tmb se existe algum tipo de usar aquelas paletas do word de font e talz !!! Grato, -- 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] Arquivo texto
if FileExists('C:\Arquivo.txt') then
At 18:22 22/09/2004, you wrote:
Ola!
Leio um arquivo texto, so q antes da leitura preciso verificar se
ele existe pra efetuar a leitura, e nao sei como fazer isso.
Se alguem puder me ajudar.
Agradeco desde ja.
Fernanda.
--
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] Arquivo texto
Ola! Leio um arquivo texto, so q antes da leitura preciso verificar se ele existe pra efetuar a leitura, e nao sei como fazer isso. Se alguem puder me ajudar. Agradeco desde ja. Fernanda. -- 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] Arquivo texto
Use a função FileExists da forma:
If FileExists('C:\Arquivo.TXT') then
...
Nielsen
On Wed, 22 Sep 2004 21:22:47 -, fpsp2000 [EMAIL PROTECTED] wrote:
Ola!
Leio um arquivo texto, so q antes da leitura preciso verificar se
ele existe pra efetuar a leitura, e nao sei como fazer isso.
Se alguem puder me ajudar.
Agradeco desde ja.
Fernanda.
--
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] Arquivo Texto
Olá fernanda, function DeleteFile ( const FileName : string ) : Boolean; Com essa função! :) []s Vinicius - Original Message - From: fpsp2000 To: [EMAIL PROTECTED] Sent: Monday, September 20, 2004 7:32 PM Subject: [delphi-br] Arquivo Texto Ola! Alguem sabe como deleto um arquivo texto pelo delphi? Desde ja agradeço, Fernanda. -- 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!. __ Informação do NOD32 1.853 (20040830) __ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.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
