OpenDialog ALLOWMULTISELECT

[stupomer]

Code:

Copy      Help

str accession
Acc a=acc("" "LISTITEM" win("Sample App" "WindowsForms10.Window.8.app.0.378734a") "WindowsForms10.SysListView32.app.0.378734a" "" 0x1408 0 0 ""); err ret

ARRAY(Acc) se
a.Selection(se)
int arraylength=se.len
ARRAY(str) accessionarray.create(arraylength)

int i
for i 0 se.len
,str v=se[i].Description
,findrx(v "\d{8}" 2 4 accession)
,out i    
,out accession
,accessionarray[i]=accession
,


int choice
if(!inp(choice "" "" "Enter number of choice")) ret
out choice
out accessionarray[choice]

I don't know much about ARRAYS so I had to kind of reverse engineer some examples. Apparently you have to define the size each time ahead of time, so that's what I did with
code]ARRAY(str) accessionarray.create(arraylength)[/code]
Is thatt right?
Anyway it seems to be working.


Thanks so much!!!
Stuart