Função para Imprimir Estrutura de DBF

Mensagem por **asimoes** » 23 Jul 2020 17:03

Pessoal, alguém teria alguma função para listar para arquivo estrutura de dbf para arquivo ?

Mensagem por **alxsts** » 23 Jul 2020 18:19

Olá!

Você pede uma função mas lembrei do aplicativo feito pelo Pablo Cesar Arrascaeta: STRU - Lista estrutura dos arquivos dbfs. Lista a estrutura para arquivo, tela ou clipboard.

Neste link tem o projeto com os fontes, que talvez possa aproveitar: Link para download (na seção de Downloads do fórum)

Mensagem por **asimoes** » 23 Jul 2020 18:30

alxsts escreveu:Olá!

Valeu, estava tentando acessar o link de downloads e não estou conseguindo.

Mensagem por **JoséQuintas** » 23 Jul 2020 18:54

Não entendi, dá pra criar fácil.

mais ou menos assim:

Código: Selecionar todos

SET ALTERNATE TO ( "arquivo.txt" )
SET ALTERNATE ON
aFileList := Directory( "*.dbf" )
FOR EACH cFileName IN aFileList
   USE ( cFileName )
   aStruList := dbStruct()
   ? cFileName
   FOR EACH aField IN aStruList
     ? aField[ F_NOME ], aField[ F_TYPE ], aField[ F_LEN ], aField[ F_DEC ]
   NEXT
NEXT
SET ALTERNATE OFF
SET ALTERNATE TO

Mensagem por **alxsts** » 23 Jul 2020 19:16

Olá!

Aqui funciona. É só clicar no link e já faz o download, apesar de a Seção Downloads do fórum estar com problema há tempos. Segue em anexo.