How to remove a security group value form a5ws_getgroupsDialog()?

[Progytech]

Hi All,
I have a list of security groups that I want to show in as checkboxes for the end user to select from, but in this list, there is a group "Developers" which I do not want to show in the CheckBox, how could I remove the "Developers" line from the value returned by a5ws_getgroupsDialog()?
Here is a sample of the list returned by a5ws_getgroupsDialog()

Administrators|a25a558ce72d419ebaa0296f99424053
Developers|6809551fd2b44695ac4344fd8064d724
Managers|b27ebf36d6c340e5acc0f3091f215883
Providers|e4f1c8a193c14ccea71f602d2ea78e94
ReadOnly Users|db29422ba8bf4480a6480aee7a7a3a49

I want to remove the line containing the "Developers" group so I can have this:

Administrators|a25a558ce72d419ebaa0296f99424053
Managers|b27ebf36d6c340e5acc0f3091f215883
Providers|e4f1c8a193c14ccea71f602d2ea78e94
ReadOnly Users|db29422ba8bf4480a6480aee7a7a3a49

I was experimenting in the Interactive windows, but could not found a function that will return the line number where the "Developers" word was found, or something along those line.
Thanks!!!

[agillbb]

Re: How to remove a security group value form a5ws_getgroupsDialog()?

Something like:

dim FullList as C
FullList = <<%str%
Administrators|a25a558ce72d419ebaa0296f99424053
Developers|6809551fd2b44695ac4344fd8064d724
Managers|b27ebf36d6c340e5acc0f3091f215883
Providers|e4f1c8a193c14ccea71f602d2ea78e94
ReadOnly Users|db29422ba8bf4480a6480aee7a7a3a49
%str%

dim MyGroups as C
MyGroups = *for_each(groupname, word(groupname, 1, "|"),FullList)

dim j as N
j = word_num(MyGroups, "Developers")

if j>0 then
FullList = *line_remove(FullList, j)
end if

'EDIT - I added the "then" in if-then after my initial post

[Progytech]

Re: How to remove a security group value form a5ws_getgroupsDialog()?

Hi Andy,
Thanks a lot for taking the time to test and provide this code, I really appreciate it.
I have to admit, it is a bit tricky, I was close, but I could not properly understand how to use the *for_each function to get the line number of the "Developers" group value in the list.

I added some comments and renamed some variables for clarity for myself. Thanks again

debug(1)

'-- 1/5/2013: I need to remove the "Developers" group from the list of
'   security groups.  Andy Gill provided the code below to do the this task in forums
'   http://msgboard.alphasoftware.com/alphaforum/showthread.php?103880-How-to-remove-a-security-group-value-form-a5ws_getgroupsDialog%28%29&p=631324&viewfull=1#post631324
dim FullList as C = a5ws_getgroupsDialog()
'FullList = <<%str%
'Administrators|a25a558ce72d419ebaa0296f99424053
'Developers|6809551fd2b44695ac4344fd8064d724
'Managers|b27ebf36d6c340e5acc0f3091f215883
'Providers|e4f1c8a193c14ccea71f602d2ea78e94
'ReadOnly Users|db29422ba8bf4480a6480aee7a7a3a49
'%str%

'-- Get a list of all just the Security Group names without their GUID
dim MyGroups as C
MyGroups = *for_each(groupname, word(groupname, 1, "|"),FullList)

'-- Get the position of the group name in the list that would
'   represent the line number in the FullList
dim GroupLineNumber as N
GroupLineNumber = word_num(MyGroups, "Developers")

if GroupLineNumber > 0 then
	'-- Remove the Developers group line from the original list.
	FullList = *line_remove(FullList, GroupLineNumber)
end if

[agillbb]

Re: How to remove a security group value form a5ws_getgroupsDialog()?

No probs. Glad to help.
One note, I think we are missing the "then" part of the if then statement, so you could add this to yours (I will do this to mine for completeness).

[Progytech]

Re: How to remove a security group value form a5ws_getgroupsDialog()?

Hi Andy,
Done!!! thanks again.