Building a Array from Numeric values in Textfile ?

[ukoenig]

Hello,

I want to create a Array from numeric values of a Text-file
That makes it possible, to save and restore multiselected records from xBrowse


but getting a error :

Selected Records saved to a Textfile :

Code: Select all  Expand view

FUNCTION SAVE_MULTI( oBrw )
LOCAL cArray := "", aSelRec := oBrw:aSelected // xBrowse-array with multiselected records

I := 1
FOR I := 1 TO LEN( aSelRec )
    cArray+= ALLTRIM(STR(aSelRec[I])) + CRLF
NEXT
MEMOWRIT( "cFile1.txt", cArray )

RETURN NIL

//----- rebuild the multiselected xBrowse-array -------------

FUNCTION READ_MULTI( cText, oBrw )
LOCAL aLines := {}, n

FOR n = 1 to MlCount( cText )
    AAdd( aLines, &( '{ || "' + MemoLine( cText, 3, n ) + '" }' ) )
NEXT

RETURN aLines
 

Best Regards
Uwe

[ADutheil]

You might try mlcount() -1 to verify if the eof character is the culprit. Or replace CRLF with hb_osnewline(). Pure guess!
Aparently there is no codeblock in aSelRec := oBrw:aSelected, so why do you add them to aLines?

Code: Select all  Expand view

AAdd( aLines, &( '{ || "' + MemoLine( cText, 3, n ) + '" }' ) )

I´d try

Code: Select all  Expand view

AAdd( aLines, MemoLine( cText, 3, n ) )

to rebuild the same array.