PC Toledo

Código: Selecionar todos

Function Main()

 Private cVariavel_Caracter := "Teste"
 Private nVariavel_Numerica := 10
 Private dVariavel_Data     := Date()
 Private lVariavel_Logica   := .t.

 Hb_MvSave( "Teste1.Mem", "*.*")

 Release  cVariavel_Caracter
 Release  nVariavel_Numerica
 Release  dVariavel_Data
 Release  lVariavel_Logica

 VerVariaveis()

Return Nil

Function VerVariaveis()

 Clear Screen 

 Hb_MvRestore( "Teste1.Mem", .t. )

 ?
 ? cVariavel_Caracter
 ? nVariavel_Numerica
 ? dVariavel_Data
 ? lVariavel_Logica
 ?

Return Nil

Código: Selecionar todos

/***
* SAVEARRAY e RESTARRAY    POR	R I C K   S P E N C E
**/

#include "save_arr.ch"

/***
*   SaveArray(aArray, cFileName)
*
*    aArray[]	 - -Array to save
*    cFileName	 - -File in which to save array
*/

FUNCTION SaveArray(aArray, cFileName)

LOCAL fHandle := FCreate(cFileName , 0 ) // 0 = normal read/write; se ja existe sera esvaziado!

  SaveArr(fHandle, aArray)
  FClose(fHandle)

RETURN NIL


STATIC FUNCTION SaveArr(fHandle, aArray)

LOCAL LenArray, ElemType, i

  // Write the array header
  WRITE_AHD(fHandle, aArray)  && save_arr.ch
  LenArray := Len(aArray)

  // Write each element in the array ~EL
  FOR i := 1 TO LenArray
    ElemType := ValType(aArray[i])
    DO CASE
      CASE ElemType == "A"
       	// A subarray, recurse ~EL
	      SaveArr(fHandle, aArray[i])

      CASE ElemType == "B"      
	      // Fatal error here- -we cannot write blocks
	      ? "ERROR: CANNOT SAVE A CODE BLOCK"
	      InKey(0)

      CASE ElemType == "C"
	      // Save a character element
	      SAVE_CHAR(fHandle, aArray[i])

      CASE ElemType == "D"
	      // Save a date element
	      SAVE_DATE(fHandle, aArray[i])

      CASE ElemType == "L"
	      // Save a logical element
	      SAVE_LOG(fHandle, aArray[i])

      CASE ElemType == "N"
	      // Save a numeric element
	      SAVE_NUM(fHandle, aArray[i])
    ENDCASE
  NEXT

RETURN NIL

/***
*    RestArray(cFileName)
*
*    cFileName	 - -File from which to restore array
*/

FUNCTION RestArray(cFileName)

LOCAL aRestArr, fHandle := FOpen(cFileName , 0) // 0 = reading only !

  GET_TYPE(fHandle)
  aRestArr := RestArr(fHandle)
  FClose(fHandle)

RETURN aRestArr



FUNCTION RestArr(fHandle)

LOCAL LenArray, i, ElemType, aArray

  // Determine array's size and allocate it
  LenArray := GET_AR_SIZE(fHandle)
  aArray   := Array(LenArray)

  // Restore each element
  FOR i := 1 TO LenArray
    // Determine its type
    ElemType := GET_TYPE(fHandle)
    DO CASE
      CASE ElemType == "A"
	// A sub array so recurse ~EL
	aArray[i] := RestArr(fHandle)

      CASE ElemType == "B"      
	// Fatal error here ... we did not save one

      CASE ElemType == "C"
	aArray[i] := GET_CHAR(fHandle)

      CASE ElemType == "D"
	aArray[i] := GET_DATE(fHandle)

      CASE ElemType == "L"
	aArray[i] := GET_LOG(fHandle)

      CASE ElemType == "N"
	aArray[i] := GET_NUM(fHandle)

    ENDCASE
  NEXT

RETURN aArray

Código: Selecionar todos

// Listing 3.5: Macros to read and write array elements

/***
*  SAVE_ARR.CH
*
* Clipper header file for array save and restore
*
*/

//  In the following macros fh is a file handle

// Write character element: C<5 digit length><character value>
#define SAVE_CHAR(fh, cv) FWrite(fh, "C" + Str(Len(cv), 5) + cv)

// Write date element:      D<datestring>
#define SAVE_DATE(fh, dv) FWrite(fh, "D" + Dtoc(dv))

// Write logical element:   L<T or F character>
#define SAVE_LOG(fh, lv)  FWrite(fh, "L" + Iif(lv, "T", "F"))

// Write numeric element:
//                          N<2 digit length>
//                           <numeric formatted as a string>
#define SAVE_NUM(fh, nv) FWrite(fh, "N" + Str(Len(Str(nv)),2) + ;
                                Str(nv))

// Write array header:      A<4 digit array length>
#define WRITE_AHD(fh, av) FWrite(fh, "A" + Str(Len(av), 4))

// Read a type
#define GET_TYPE(fh)     FReadStr(fh, 1)

// Read an array size
#define GET_AR_SIZE(fh) Val(FReadStr(fh, 4))

// Read a character element
#define GET_CHAR(fh)    FReadStr(fh, Val(FReadStr(fh, 5)))

// Read a date element
#define GET_DATE(fh)    Ctod(FReadStr(fh, 8))

// Read a logical element
#define GET_LOG(fh)     FReadStr(fh, 1) == "T"

// Read a numeric element
#define GET_NUM(fh)     Val(FReadStr(fh, Val(FReadStr(fh, 2))))

Código: Selecionar todos

...
local aVetor
local aVetRead

aVetor := {  "primeiro" , "segundo"  ,{{100,.T.}}   };
SAVEARRAY(aVetor,"VETOR.ARR")
...
...
aVetRead := RESTARRAY("VETOR.ARR")
* assim aVetRead fica igual a aVetor
....