Gerando um arquivo .JSON a partir de DBF

[asimoes]

Bom pessoal,

Vai uma dica como criar um arquivo JSON a partir de uma leitura de DBF

Código: Selecionar todos

   DbUseArea(.T.,"DBFCDX", "CADASTRO", "CADASTRO", .T.)
   
   nFields  := CADASTRO->(FCount())
   nHandle  := fCreate("NEW.JSON")
   hRecords := { => }
   DO WHILE ! CADASTRO->(EOF())
      hRecord := { => }
      FOR nField := 1 TO nFields
         hb_HSet(hRecord, FieldName(nField), FieldGet(nField)) // for each record, hrecord holds a hash of column name: column value
      NEXT
      hb_HSet(hRecords, LTRIM(STR(RecNo())), hRecord) // like so, a hash of recno: hash of columns/values of this record 
      CADASTRO->(DbSkip())
   ENDDO
   fSeek(nHandle, 0, 2)
   fWrite(nHandle, hb_jsonEncode( hRecords, .T. ))
   fClose(nHandle)

Para ler:
Onde, APTO E SACADO são nomes de campo da tabela CADASTRO

Código: Selecionar todos

cJSON:=memoread( "new.json" )
nLen := hb_jsondecode( cJSON, @htable )
FOR EACH oElemento IN htable
   ? oElemento["APTO"], oElemento["SACADO"]
NEXT

[fladimir]

Tenho uma função chamada DBF2Array e tb Array2DBF
Será q já tem algo pronto Hash2DBF ?

[cnavarro]

http://forums.fivetechsupport.com/viewt ... 97#p217257

[fladimir]

A função é pública ou não?