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 te
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 e
, 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
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]
--
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 atualiz
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 := leng
DeleteFile('C:\Diretorio\Arquivo.txt');
Se naum me engano precisa declarar em "Uses" a clausula "FileCtrl"
>-MENSAGEM ORIGINAL-
>De: "fpsp2000" <[EMAIL PROTECTED]>
>Enviada em: Seg, 20 Set 2004 19:32:24
>Assunto: Res: [delphi-br]
7 matches
Mail list logo
