How permanently save a text written in an EditText and added in a ListBox?

(
	/*
		automated loading and saving of UISettings for a complete Rollout
		make sure to not rename your rollout and/or UIItems between dev versions or the settings wont transfer
		simply include the struct and its local var in the header of your index scriptFile
 
		use the functions as demonstrated in the rolllout-example
	*/
 
	local functions
	struct temp 
	(
		val = 0 --dont change
		,
		gIs = fn gIs Category Key File:"Settings" =  
		(
 
			local type, val, key1
 
			registry.createKey HKEY_CURRENT_USER ("Software\\ROSettings\\"+File as string + "\\" + Category as string) accessRights:#all newKeyCreated:&newKeyCreated key:&key1
 
			registry.queryValue key1 (Key as string) type:&type value:&val
 
			val
		)--END gIs FN
		,
		sIs = fn sIs Category Key Val File:"Settings" del:false = 
		(
			try
			(
				local newKeyCreated , key1
 
				registry.createKey HKEY_CURRENT_USER ("Software\\ROSettings\\"+File as string + "\\" + Category as string) accessRights:#all newKeyCreated:&newKeyCreated key:&key1
 
				if not del then
				(
					registry.setvalue key1 (Key as string) #REG_SZ (Val as string)
				)
				else
				(
					registry.deleteKey key1
				)
			)
			catch
			(	
				print (registry.getLastError())	
			)
		)--END sIs FN
		,
		saveROSettings = fn saveROSettings RO =
		(
			local items = RO.controls
 
			for i in items do
			(
				print (classOf i)  --uncommend to find out the classes of the UI items
 
				case classOf i of
				(
					SpinnerControl : (functions.sIs RO.name i.name i.value)
 
					ColorPickerControl : (functions.sIs RO.name i.name i.color)
 
					CheckBoxControl : (functions.sIs RO.name i.name i.checked)
 
					CheckButtonControl : (functions.sIs RO.name i.name i.checked)
 
					RadioControl : (functions.sIs RO.name i.name i.state)
 
					ListBoxControl : (with printAllElements true functions.sIs RO.name i.name i.items)
 
				)--END classes cases
			)--END items loop
		)--END saveROSettings FN
		,
		getROSettings = fn getROSettings RO =
		(
			local items = RO.controls
 
			for i in items do
			(
				case classOf i of
				(
					SpinnerControl : 
					(
						local val = functions.gIs RO.name i.name ; if val != undefined AND classOf val == String do val = execute val
						if classOf val == float OR classOf val == integer do i.value = val
					)
 
					ColorPickerControl : 
					(
						local val = functions.gIs RO.name i.name ; if val != undefined AND classOf val == String do val = execute val
						if classOf val == color do i.color = val
					)
 
					CheckBoxControl : 
					(
						local val = functions.gIs RO.name i.name ; if val != undefined AND classOf val == String do val = execute val
						if classOf val == BooleanClass do i.checked = val
					)
 
					CheckButtonControl : 
					(
						local val = functions.gIs RO.name i.name ; if val != undefined AND classOf val == String do val = execute val
						if classOf val == BooleanClass do i.checked = val
					)					
 
					RadioControl : 
					(
						local val = functions.gIs RO.name i.name ; if val != undefined AND classOf val == String do val = execute val
						if classOf val == float OR classOf val == integer  do i.state = val
					)					
 
					ListBoxControl :
					(
						local val = functions.gIs RO.name i.name 
						if val != undefined AND classOf val == String do val = execute val 
						if classOf val == array do i.items = val
					)
 
				)--END classes cases
			)--END items loop
		)--END getROSettings FN
	)
	functions = temp val:1
 
	rollout testRO ""
	(
--  		spinner spinner1
--  		
--  		colorPicker colorpck1
-- 		
-- 		checkBox checkbox1 "what?"
-- 		
-- 		checkbutton checkbutton1 "check this"
-- 		
-- 		radiobuttons radioButtons1 "choices" labels:#("btn1", "btn2")
-- 		
		listbox lb1 "dynamic LB"
 
		button lb1Fill "Fill LB with mat names"
 
		on lb1Fill pressed do
		(
			lb1.items = for mat in meditMaterials collect mat.name
		)
 
		on testRO open do
		(
			functions.getROSettings testRO
		)
 
		on testRO close do
		(
			functions.saveROSettings testRO
		)
 
	)--END RO
 
	createdialog testRO
 
)

		fn modArr arr =
		(
			local res = "#("
			for i = 1 to arr.count do
			(
				item = arr[i]
				res +=  "@\"" + item + "\""
				if i < arr.count do res += ", "
			)
			res += ")"
			res
		)--END modArr FN

rollout roExample "Example INI sets"
(
	-- set INI location to the script location
	local iniFile = getFilenamePath (getSourceFileName()) + "example.ini"
 
	listbox theList "" items:#()
 
	on roExample open do -- read INI on open
	(
		if doesFileExist iniFile do (
			data = GetINISetting iniFile "Settings" "ListItems"
			-- convert the string to array of strings:
			data = filterString data ","
			theList.items = data
		)
	)
	on roExample close do -- save to INI on close
	(
		str = ""
		for i in theList.items do append str (i + ",")
		setINISetting iniFile "Settings" "ListItems" str
	)
)
createDialog roExample
 
-- to see how it works, you can run next tests (line by line):
roExample.theList.items = #("hello","abc","xyz","102")
DestroyDialog roExample
edit (getFilenamePath (getSourceFileName()) + "example.ini")
createDialog roExample

-- just create a global variable (array) where to store the strings
if savedData == undefined do global savedData = #()
 
if classOf roExample == RolloutClass do DestroyDialog roExample
 
rollout roExample "Example"
(
	listbox theList "" items:#()
	edittext theInput ""
	button btnAdd "Add" width:60 align:#left across:2
	button btnRem "Remove" width:60 align:#right
 
	-- get saved data on start up
	on roExample open do (theList.items = savedData)
 
	on btnAdd pressed do -- add NEW item
	(
		str = theInput.text
		if str.count > 0 do (
			append savedData str
			theList.items = savedData
			theList.selection = savedData.count
		)
	)
 
	on btnRem pressed do -- delete SELECTED item
	(
		itm = theList.selection
		if itm > 0 do (
			deleteItem savedData itm
			theList.items = savedData
		)
	)
)
createDialog roExample