Fórum Como gerar Arquivos com seus nomes em sequencia... #178558
30/08/2003
0
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
Curtir tópico
+ 0Posts
30/08/2003
Aroldo Zanela
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
30/08/2003
Mmtoor
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
31/08/2003
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
Clique aqui para fazer login e interagir na Comunidade :)