asave/aread

[byte-one]

These functions are not saving and reading a array on the right way. It seems, the aread is ok but asave not saving normal. An older app reads a array saved with a old version from FWH normal. But if i write back with asave, the array ist destructed!

[nageswaragunupudi]

You are right. We have been experiencing the problem with "some recent" versions of xHarbour. This had also effected XBrowse's SaveState() method.

I suggest three alternatives:

#1. Copy the ASave function from windows.prg into your module that is using ASave as a static function.

#2. Create a new public function MyASave with the same code as ASave in windows.prg and use MyASave instead of ASave.

#3. Much better and I recommend this: If you are using one of the latest versions of FWH, use FW_ValToExp( aArray ) function.

Usage:
cArray := FW_ValToExp( aArray )

Save cArray anywhere. cArray is pure asci text unlike ASave which gives a binary string. This can be saved in ini files also.

For restoring, read cArray from the saved file and

aArray := &( cArray )
Simple macro is enough. No need to use any function.

Note: FW ASave function can even save objects. FW_ValToExp() can not.

[byte-one]

FW_ValToExp( aArray ) should be visible in FIVEWIN DOKU!

[anserkk]

Added to FiveWin Wiki with a usage example

Regards
Anser

[Antonio Linares]

http://wiki.fivetechsoft.com/doku.php?id=fivewin_function_fw_valtoexp

Thanks to Anser!

[StefanHaupt]

here is another way to save / load 2-dimensional arrays in / from a memofield

Code: Select all  Expand view

METHOD LoadShares ()

  LOCAL cAll := (::cAlias)->Shares                     // load string from memo
  LOCAL cShare := "", aShare := {}, aSh := {}
  LOCAL nCount := 0 //NumAt (";", cAllIP), i

  DO WHILE .T.
    cShare := Token( cAll, "|", ++nCount )

     IF Empty( cShare )
       // AAdd (aShare, {"","Keine Eintrõge"} )
        EXIT
     ENDIF
     aSh := {Token (cShare,";",1),Token (cShare,";",2)}
     AAdd (aShare, aSh )
     //? aShare[1,1], aShare[1,2]
  ENDDO
  IF Len (aShare) = 0; AAdd (aShare, {"","Keine Einträge"} );ENDIF

RETURN (aShare)


METHOD SaveShares (aSh)

  LOCAL i
  LOCAL cSh := ""

  FOR i := 1 TO Len (aSh)
     cSh += aSh[i,1]+";"+aSh[i,2]+"|"
  NEXT
  cSh := Left (cSh, Len(cSh)-1)
   (::cAlias)->Shares := cSh

RETURN (cSh)