Como gerar Arquivos com seus nomes em sequencia...
Quero gerar arquivos com se nome em sequencia por exemplo..
Gero um Arquivo TXT com o nome ´Venda001.txt´ agora quando for gerar o proximo quero q gere na sequencia..
primeiro teria q verificar se ja não existe um arquivo criado
então criar o primeiro, e o segundo na seguencia
Venda001.txt, Venda002.txt,Venda003.txt etc..
Mais e como verificar se ja existe um aterior para poder criar o proximo e não deixar sair da sequencia...
Gero um Arquivo TXT com o nome ´Venda001.txt´ agora quando for gerar o proximo quero q gere na sequencia..
primeiro teria q verificar se ja não existe um arquivo criado
então criar o primeiro, e o segundo na seguencia
Venda001.txt, Venda002.txt,Venda003.txt etc..
Mais e como verificar se ja existe um aterior para poder criar o proximo e não deixar sair da sequencia...
Marcos Tavares
Curtidas 0
Respostas
Aroldo Zanela
30/08/2003
Colega,
A forma mais simples seria criar uma tabela para controlar isso, pois se for consultar a existência de um arquivo via FileExists, poderia incorrer no erro de gerar algum nome excluído indevidamente.
A forma mais simples seria criar uma tabela para controlar isso, pois se for consultar a existência de um arquivo via FileExists, poderia incorrer no erro de gerar algum nome excluído indevidamente.
GOSTEI 0
Mmtoor
30/08/2003
Prezado colega.
A resposta do nosso amigo está correta, gostaria apenas de implementar um pouco mais.
Se você gerar uma tabela pode definir como chave primária o campo que indexará seus arquivos, por exemplo: poderia tem um campo Ndocumento em auto incremento.
Para gerar seus arquivos poderia utilizar a abertura desta tabela e, no momento da geração criar um novo registro (implementando o seu contador).
O nome do arquivo ficaria mais ou menos assim:
AssignFile(f,´c:\´+Edit1.Text+table1Ndocumento);
Espero ter ajudado também.
MMTOOR2003
A resposta do nosso amigo está correta, gostaria apenas de implementar um pouco mais.
Se você gerar uma tabela pode definir como chave primária o campo que indexará seus arquivos, por exemplo: poderia tem um campo Ndocumento em auto incremento.
Para gerar seus arquivos poderia utilizar a abertura desta tabela e, no momento da geração criar um novo registro (implementando o seu contador).
O nome do arquivo ficaria mais ou menos assim:
AssignFile(f,´c:\´+Edit1.Text+table1Ndocumento);
Espero ter ajudado também.
MMTOOR2003
GOSTEI 0
Wbb
30/08/2003
Caro Marcos,
O que nossos colegas disseram, realmente é o mais correto a ser feito. Porém, caso você queira gerar os arquivos texto mesmo assim, então faça um loop ´for´ para verificar a existência dos arquivos, utilizando junto, claro, a função FileExists. Você vai checando quais são os arquivos existentes até o final. Quando você identificar o último, apenas some mais 1 ao número sequencial.
wbb
O que nossos colegas disseram, realmente é o mais correto a ser feito. Porém, caso você queira gerar os arquivos texto mesmo assim, então faça um loop ´for´ para verificar a existência dos arquivos, utilizando junto, claro, a função FileExists. Você vai checando quais são os arquivos existentes até o final. Quando você identificar o último, apenas some mais 1 ao número sequencial.
wbb
GOSTEI 0