Copiar estructura de muchos .dbf a .txt

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Copiar estructura de muchos .dbf a .txt
Posted: Sun Nov 04, 2018 06: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

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

hmpaquito

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: Copiar estructura de muchos .dbf a .txt
Posted: Sun Nov 04, 2018 09:40 PM

Más o menos así:

Code (fw): Select all Collapse

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 Support Forums

Continue the discussion