Programa para fazer exclusão de arquivos na dbu

[Josmar dos Santos]

Olá, gostaria de saber se alguem teria algum programinha para fazer exclusão de arquivos na dbu. Ex: registro 01 até o 100. Isso se entrar no mesmo.


---
Nota da Moderação (Maligno):
O presente tópico foi movido da seção "Clipper", uma vez que seu teor se mostra desvinculado dos objetivos daquela seção.

[Pablo César]

gostaria de saber se alguem teria algum programinha para fazer exclusão de arquivos na dbu.

Em lugar de arquivos você quis dizer REGISTROS ?

Ex: registro 01 até o 100.

Se você está querendo saber como apagar registros de 1 ao 100 em um DBF que está sendo editado/visualizado pelo DBU ? Acho que não é o utilitário ideal para fazer isso, pois ele não possui "originalmente" qualquer função de deleção global. Aconselho fazer seu próprio utilitário.

Código: Selecionar todos

USE DBF EXCLUSIVE
DELE ALL FOR RECNO()>0 .AND. RECNO()<101

Você poderia modificar o seu DBU para que pudesse interpretar o comando acima.

Isso se entrar no mesmo.

Não entendí.

[gilsonpaulo]

Tente este, suporta a maioria dos comandos do clipper para manipular dbfs
http://www.fivewin.com.br/Dicas/485fox21.ZIP

[ademilson]

Ola...

Pelo DBU tem jeito de realizar sim... pelo REPLACE.

Você escolhe o campo, depois onde você atribuiria o valor você coloca o dbdelete.

ex: field: codfil
With: arquivo->(dbdelete(),codfil)
[Condições]

[Pablo César]

Muito engenhoso a sua saída Ademilson, eu juro que até pensei em dar uma indicação parecida a sua, mas achei que vincular esse comando a outro iria resultar mais ação do que resultado.

Não testei o seu exemplo mas acredito que funcionará, no entanto acho que ele de qualquer forma em TODOS os registros irá realizar o REPLACE do mesmo conteúdo do campo caso não tiver que executar o DBDELETE(). Mas como aprendizado, valeu !

[Josmar dos Santos]

ok pessoal, obrigado pelas dicas, vou testar todos os exemplos, qualquer duvida entrarei em contato com vocês.
um abraço a todos

[gilsonpaulo]

Com o Fox Base eu acho que fica mais fácil.

exemplo:

USE PRODUTOS
SET FILTER TO CODIGO > 10 .AND. CODIGO < 100
DELETE WHILE .NOT. EOF()

Outra coisa, em base dados com indices cdx ja tive problemas com o DBU

[rubens]

Ademilson...

Como que é a história aí.. achei muito interessante mas nao consegui visualizar....

Pode explicar com mais detalhes se possível ...


Rubens