Responded earlier but don’t think my post made it to the NUG…
Store the arrays into an object, either a 4D object or ObjectTools object, then
save the object to field or file.
I have a couple of methods that do just that, either native or OT. I will be
happy to share them with you if you contact me directly.
Here are the calls to save and retrieve the arrays using my native object
method…
//Save the arrays to a field
//assuming this thee arrays aFiles, aDistrict, and aFilesImported exist
in the listbox.
oFiles:=New object
OBSetGetVariables_Jut
("Set";->oFiles;"aFiles";"aDistrict";"aFilesImported")
GetSaveConstants ("load")
[_Constants]Project_Imports:=oFiles
GetSaveConstants ("Save”)
//Retrieve the arrays from the field
ARRAY TEXT(aFiles;0)
ARRAY TEXT(aDistrict;0)
ARRAY BOOLEAN(aFilesImported;0)
oFiles:=[_Constants]Project_Imports
OBSetGetVariables_Jut
("Get";->oFiles;"aFiles";"aDistrict";"aFilesImported”)
Here are the calls to save and retrieve the arrays usingmy ObjectTools method…
/Save the arrays to a field
C_BLOB($blob)
$otObject:=OTPutGetVariables_Jut ("New")
OTPutGetVariables_Jut
("Put";$otObject;"aFiles";"aDistrict";"aFilesImported")
OT ObjectToBLOB ($otObject;$blob)
[_Constants]Project_Imports:=$blob
OT Clear ($otObject)
//Retrieve the arrays from the field
ARRAY TEXT(aFiles;0)
ARRAY TEXT(aDistrict;0)
ARRAY BOOLEAN(aFilesImported;0)
$otObject:=OTPutGetVariables_Jut ("New")
$blob:=[_Constants]Project_Imports
$otObject:=OT BLOBToObject ($blob)
OTPutGetVariables_Jut
("Get";$otObject;"aFiles";"aDistrict";"aFilesImported")
OT Clear ($Object)
John
John Baughman
Kailua, Hawaii
(808) 262-0328
john...@hawaii.rr.com
> On Aug 13, 2019, at 11:29 AM, Peter Mew via 4D_Tech <4d_tech@lists.4d.com>
> wrote:
>
> Hi
> Does anyone have a routine, component, plugin, or pointer to the right
> direction, that will save the contents of an array based listbox, so that
> the data can be restored at a later date
> thanks
> -pm
> 4d v13
> **********************************************************************
> 4D Internet Users Group (4D iNUG)
> Archive: http://lists.4d.com/archives.html
> Options: https://lists.4d.com/mailman/options/4d_tech
> Unsub: mailto:4d_tech-unsubscr...@lists.4d.com
> **********************************************************************
**********************************************************************
4D Internet Users Group (4D iNUG)
Archive: http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:4d_tech-unsubscr...@lists.4d.com
**********************************************************************
