How to get value from list?

[johnkoh]

Hello,

How do you get the value from List?

Samples

list = <<%txt%
a
b
c
d
e
%txt%

nCount = *count(list)
'i = 0

vFindfor = 3

dim i as n
dim vResult as c
for i = 1 to nCount
	If i = vfindfor then
	   [COLOR="#FF0000"][B]'How to get the value from list?
	   vResult = *for_each(x,line_count(list)= i,list)[/B][/COLOR]
	   
	    ui_msg_box("match","Found the Matching number and "+str(i)+" value is "+vResult)
	else
	    ui_msg_box("Not match",str(i))
	end if
	
next

[Stan Mathews]

Re: How to get value from list?

list = <<%txt%
a
b
c
d
e
%txt%

nCount = *count(list)
'i = 0

vFindfor = 3

dim i as n
dim vResult as c
for i = 1 to nCount
	If i = vfindfor then
	   'How to get the value from list?
	   vResult = word(list,i,crlf())
	   
	    ui_msg_box("match","Found the Matching number and "+str(i)+" value is "+vResult)
	else
	    ui_msg_box("Not match",str(i))
	end if
	
next

[Tom Cone Jr]

Re: How to get value from list?

If your list does not contain commas, here's one approach. You can convert the crlf() delimited list into a comma delimited list, and then use the word() function to find the desired element.

list = <<%txt%
a
b
c
d
e
%txt%

nCount = *count(list)
'i = 0

vFindfor = 3

dim i as n
dim vResult as c
'for i = 1 to nCount
'	If i = vfindfor then
'	   'How to get the value from list?
'	   vResult = *for_each(x,line_count(list)= i,list)
'	   
'	    ui_msg_box("match","Found the Matching number and "+str(i)+" value is "+vResult)
'	else
'	    ui_msg_box("Not match",str(i))
'	end if
'	
'next
'
[COLOR="#FF0000"]vList_csv = crlf_to_comma(list)
trace.writeln(vList_csv)

vResult = word(vList_csv,vFindFor)
trace.writeln(vResult)[/COLOR]

end

[G Gabriel]

Re: How to get value from list?

list = <<%txt%
a
b
c
d
e
%txt%
msgbox(word(list,3,crlf()))

[johnkoh]

Re: How to get value from list?

G.

Thank you

[johnkoh]

Re: How to get value from list?

Hi,

This is what I was trying to do.
(1) Show the list with xdialog
(2) select the Items from the list
(3) Open a child xdialog with the selection.
(4) Edit on the child xdialog.
(5) Change the table's records value with buttons

'The following script creates a dialog box that reads one record at a time, and so it could be used on a table of any size.

dim vSelect as c =""
dim vPickIds as c =""
dim TempList as c
TempList = table.external_record_content_get("clients",\
"'{data='+customer_id+'}'+firstname+'|'+lastname+'|'+phone","","")

Temp_count = *count(TempList)
DELETE a_vList
DIM a_vList[temp_count] as c
a_vList.initialize(TempList)

Dim i as n
i = 1 'set the page

ok_button_label = "&OK"
cancel_button_label = "&Cancel"


varC_result = ui_dlg_box("selection",<<%dlg%
{region}
client list:;

 [%d;O={@@}%.100,15vSelect^$$a_vList];
{endregion};
{line=1,0};

{region}


{endregion};
{region}
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%,<<%code%
if a_dlg_button ="ok" then
	
	a_dlg_button =""
	vPickIds = *for_each(x,word(word(x,2,"="),1,"}"),vSelect)
    Sub_Single_record(vPickIds)
end if
%code%)
'===== End of list ==========================

Function Sub_Single_Record as v (vPickIds as c)
	
'Build the list again with the selection.  
nRcd = *count(vPickIds)

dim vOnPage as c =""
Dim i as n
i = 1 'set the page
dim i2 as N
i2 = 1


Sub_Page_record(i2,local_variables())


'build the filter with vPickIds or build as like the sample(array) but The my list is not a single table -- this is my problem 
'so I have to create the list again - not sure what to do.
'select a record with Filter_string_smatch() function form the List

dim vPickList as c

vSingle = ui_dlg_box("Clients",<<%dlg%

{region}
Current:| [%R%.20vOnPage];
Test View:| [%O={@@};D%.80,1^#vPickList?.f.];

{endregion};

{region}

Lastname: | [.35vlastname];
Firstname: | [.35vfirstname];
Phone: | [.15vphone];
Address 1: | [.50vaddress1];
Address 2: | [.50vaddress2];
City: | [.25vcity];
State: | [.5vstate];
Zip: | [.15vzipcode];

{endregion};

{line=1,0};

{region}{justify=center}
<%I=$a5_record_first%12First Record!first>
<%I=$a5_record_previous%12Previous Record!previous>
[.5i2!i2_changed]
<%I=$a5_record_next%12Next Record!next>
<%I=$a5_record_last%12Last Record!last>  {sp=8}<12Done!Done>
{endregion}

%dlg%,<<%code%

if inlist(a_dlg_button, "first","previous", "next", "last") then
    select
        case a_dlg_button = "first"
            i2 = 1
        case a_dlg_button = "previous"
            if i2 > 1 then
                 i2 = i2 - 1
            end if
        case a_dlg_button = "next"
            if i2 < nRcd
                 i2 = i2 + 1
            end if
        case a_dlg_button = "last"
            i2 = nRcd
    end select
    a_dlg_button = ""
    'Rec.clear()
    'rec.initialize_from_table(table_name,"recno()=" +i2,"lastname") 'from Help sample
    Sub_Page_record(i2,local_variables())
end if

if a_dlg_button = "i2_changed " then
    'prevent the user from navigating past the end
    a_dlg_button = ""
        if i2 > nRcd
            i2 = nRcd
        end if
    'Rec.clear()
    'rec.initialize_from_table(table_name,"recno()=" +i2,"lastname")
    Sub_Page_record(i2,local_variables())
end if

%code%)
'end with
end function

Function Sub_Page_record as c (vPage as N, vars as p)
	with vars
	vOnPage = word(vPickIds,vPage,crlf())

	query.filter ="Customer_id="+quote(vOnPage)
	vPickList = table.external_record_content_get("clients",\
	"'{data='+customer_id+'}'+firstname+'|'+lastname+'|'+phone","",query.filter)

	vLastName = lookup("clients","customer_id="+quote(vOnPage),"Lastname")
	vFirstName = lookup("clients","customer_id="+quote(vOnPage),"firstname")
	vPhone = lookup("clients","customer_id="+quote(vOnPage),"Phone")
	vAddress1 = lookup("clients","customer_id="+quote(vOnPage),"Address1")	
	
	'select a record with Filter_string_smatch() function form the List - get all of records by filter. 
        'It may be easier than Lookup()

	end with
end function

I am sure that there is other ways to do it but I could not figured out with an ARRAY as help sample. At Least, I can select and move the records with the buttons.

If Some has the better way to do it, Please share yours with here.

Thank you, Stan, Tom and G. Thank you again.