Xbasic - Some type of ENUM function

[KeithW]

Greetings,

Is there a function that will allow you to take a list like:

to_do_list = ""%eol%
item1
item2
item3
item4
...
%eol%

and then pick off the items one by one out of variable just like the a5.table_enum() but out of a character variable?

Thanx,
Keith

[Scott Emerick]

RE: Xbasic - Some type of ENUM function

Keith,

Try this:

word(to_do_list,1,crlf()) will return item1
word(to_do_list,2,crlf()) will return item2
word(to_do_list,3,crlf()) will return item3

and so on ....

Scott

[Jim Chapman]

RE: Xbasic - Some type of ENUM function

Hello Keith,

Yes, take a look at the xdialog genies. Not sure what you mean by 'pick off', but here is an example in code:

to_do_list = 
item1 
item2 
item3 
item4 
... 
%eol% 


ui_dlg_box("Pick List",
[%M%.20,20vSelected^#to_do_list];
  
%dlg%)

Good luck,
Jim

[Jim Chapman]

RE: Xbasic - Some type of ENUM function

Ooops, it ate the buttons :-(

"pre"
to_do_list = ""%eol%
item1
item2
item3
item4
...
%eol%


ui_dlg_box("Pick List",""%dlg%
[%M%.20,20vSelected^#to_do_list];
<OK> <Cancel>
%dlg%)

"/pre"

[Jim Chapman]

RE: Xbasic - Some type of ENUM function

Ok, one more time:

to_do_list = 
item1 
item2 
item3 
item4 
... 
%eol% 


ui_dlg_box("Pick List",
[%M%.20,20vSelected^#to_do_list];
"OK"  "Cancel"
%dlg%)

[KeithW]

RE: Xbasic - Some type of ENUM function

Jim,

What I need to do, is in XBasic I need to process this list in a while (or similar) loop going thru the entries in the "to_do" variable's list.

I just can't use the *for_each() as it is, but that is the overall concept just the same.

Regards,
Keith

[KeithW]

RE: Xbasic - Some type of ENUM function

Scott,

I need to automate this via a loop of some sort and I do not want to do anything other than adjust the "to_do" list and have the code process the list whether it is 1 or 100 enties long.

Keith

[Scott Emerick]

RE: Xbasic - Some type of ENUM function

Keith,

I am not sure how you want to get the list, but I will assume its from a table called "To_Do.dbf" for this example.

First get your records from the table:

To_Do_list = Table.external_record_content_get("To_Do","Item")

Item is the name of the field in the To_Do table that holds the "Item1, Item2, ... ect"

Now that we have the list, we find out how many items are in the list.

kount = w_count(To_Do_list,crlf())

Now create the loop:

for i = 1 to kount
cur_item = word(to_do_list,i,crlf())
'Do whatever you need with the item
next i

So your code would look like this:

To_Do_list = Table.external_record_content_get("To_Do","Item")
kount = w_count(To_Do_list,crlf())
for i = 1 to kount
cur_item = word(to_do_list,i,crlf())
'Do whatever you need with the item
next i

Hope this helps,

Scott

[KeithW]

RE: Xbasic - Some type of ENUM function

Scott,

BINGO!

While I understood your original word() example I had no idea how to find out the number of valid entries.

w_count() now makes what you were promoting a viable option.

Thanx,
Keith

[Lenny Forziati]

RE: Xbasic - Some type of ENUM function

If *for_each won't work for you, how about for each...next?

for each item in to_do_list
#? "Dont forget to do " + item
#next item
Dont forget to do item1
Dont forget to do item2
Dont forget to do item3
Dont forget to do item4

[KeithW]

RE: Xbasic - Some type of ENUM function

Lenny,

Thanx for the tip, looked it over and decided that I am going to use this construct as it reads very clean in the code.

Thanx,
Keith