FiveTech Software tech support forums

Posted: **Sun Nov 04, 2018 6:57 pm**

Hola foro

Tengo un programa con mas de 200 .dbf y me gustaria saber si alguien tiene una funcion que me permita copiar la estructura de cada .dbf en un txt. Algo asi como :

local aFields := { { "CODCLI", "C", 8, 0 },;
{ "NOMCLI", "C", 60, 0 },;
{ "CODACTI", "C", 5, 0 },;
DbCreate( "myfile.dbf", aFields, "DBFCDX" )

Gracias de antemano

Posted: **Sun Nov 04, 2018 9:40 pm**

Más o menos así:

Code: Select all

Local c:= "", nI, h
FOR nI:= 1 TO 1000 // HV
   SELECT (nI)
   c+= "Local aFields:= "+ ValToPrg(dbStruct())"+ CRLF+;
        "DbCreate( "+  DbInfo(DBI_FULLPATH)+", aFields, 'DBFCDX' )"
NEXT
h:= FCreate("Struct.Txt")
FWrite(c)
FClose(h)

FiveTech Software tech support forums

Copiar estructura de muchos .dbf a .txt

Copiar estructura de muchos .dbf a .txt

Re: Copiar estructura de muchos .dbf a .txt