gravar varios txt em um....

[adilson]

ola pessoal, alguem saberia como gravar varios txt e um unico txt ??...

e o seguinte crie um rotina para impressao de fax usando o dosprint.exe
so que o cliente quer passar de uma vez so todos os faxes (pedidos),

ex:

tenho em uma pasta os pedidos ja gerados em txt

\pasta\pedido1.txt
\pasta\pedido2.txt
\pasta\pedido3.txt
etc....

gostaria tipo assim :

pedido1.txt+pedido2.txt+pedido3.txt = pedidos_a_enviar.txt


tentei usando fwrite,memowrit,copy to (dos).etc, nao consegui se alguem
puder ajudar meu muito obrigado..

abracos a todos...

[Maligno]

Se quer usar um comando DOS simples, use

TYPE PEDIDO1.TXT >> RESULT.TXT
TYPE PEDIDO2.TXT >> RESULT.TXT
TYPE PEDIDO3.TXT >> RESULT.TXT

Mas também pode ser feito pelo Clipper. Eu usaria FRead() e FWrite(), que permitem uma coisa rápida e simples. Leia o NG a respeito.

[Toledo]

Adilson, segue abaixo um exemplo do que você pode fazer:

Código: Selecionar todos

nArqNovo := FCREATE("Arqnovo.txt")
nArq1 := FOPEN("pedido1.txt")
tamanho := FSEEK(nArq1, 0, 2)
cBuffer := spac(tamanho)
FSEEK(nArq1, 0)
FREAD(nArq1,@cBuffer,tamanho)
FWRITE(nArqNovo,cBuffer,tamanho)
FCLOSE(nArq1)
nArq2 := FOPEN("pedido2.txt")
tamanho := FSEEK(nArq2, 0, 2)
cBuffer := spac(tamanho)
FSEEK(nArq2, 0)
FREAD(nArq2,@cBuffer,tamanho)
FSEEK(nArqNovo, 0, 2)
FWRITE(nArqNovo,cBuffer,tamanho)
FCLOSE(nArq2)
FCLOSE(nArqNovo)

Obs.: não testei, fiz correndo aqui, mas acho que vai funcionar... tá bem mal acabado, mas como disse... é só um exemplo. Outra coisa, se os arquivos de origem tiverem mais de 64 Kb... provavelmente vai dar erro.

Abraços,

[Pablo César]

Em DOS também poder ser feito:

pedido1.txt+pedido2.txt+pedido3.txt pedidos.txt

Outra forma seria criar um arquivo DBF e importar através do comando APPEND FROM <arquivo> SDF, depois seria só questão de gerar-lo.

[rochinha]

Amiguinho

O Pablo não completou como seria possivel:

Código: Selecionar todos

COPY pedido1.txt+pedido2.txt+pedido3.txt pedidos.txt

[Pablo César]

Ahhh é mesmo, copiei o bloco e acabei esquecendo colocar o principal: o comando COPY. Obrigrado Rochinha.

[adilson]

maligno a opcao type >> me serviu perfeitamente ...

obrigado amigao...

[Maligno]

Pra você ver: de vez em quando esses comandos esquecidos do DOS ainda tem alguma utilidade.

[rochinha]

Amiguinho Maligno,

Esquecidos, para quem ja usa informática a muito tempo, pois viemos do tempo em que o aprendizado era forçosamente neste ambiente, rico em opções e ferramentas.

Lembro-me dos tempos das biblias de programação, que quando andava nos onibus com elas embaixo do braço era questionado por passageiros de qual igreja eu era e que minha biblia era diferente.

Hoje os cursos passam muito que rasteiramente por estas informações e alguns até omitem. Hoje o que vemos são livros com códigos e reticencias, onde o programador tem de adivinhar o que pode enxertar no restante para produzir algo.

Sorte existe hoje a internet, mas muitos não sabem onde pesquisar, principalmente porque não existe um lugar completo e sim muitos lugares com pequenas informações, felizmente com exemplos realmente completos e feitos pelos proprios internautas.

Nem podemos dizer, "Ai que saudades do DOS", pois passamos os dias usando esta plataforma e as novas tecnologias ainda apresentam novidades usando estas ferramentas como os frameworks e sdk .NET, Java e Flex.

O DOS pode ser esquecido, mas morto?...

[Maligno]

O DOS pode não ser mais um SO como antigamente, mas é uma ferramenta de acesso muito útil, e ainda utilizado pelos compiladores de linha de comando de boa parte das ferramentas de programação mais populares. Aliás, mesmo em IDEs super-sofisticadas, o compilador continua sendo acionado via DOS, mas o processo é direcionado para um buffer interno e as mensagens manipuladas pela IDE. Ou seja, tudo mascarado. ))