Extracting Extents from an Array Field seperated by semicolon

Question

Post Author: hopdaniel
CA Forum: Formula
We have a Field in our Database that looks like this.  15000;10000;50000;0;0;0;0;0;0;0;0;0;0;0;0;0;
I need to extract the qty's in the first three extents without the semicolon.
The field name is rfqitem.qty, and our App vendor said that he's able to extract the extents using ex.  rfqitem.qty[1], rfqitem.qty[2], and that progress refers each extent as [n] after the field name.
Thank you,

Answer 1

Post Author: bettername
CA Forum: Formula
Duh, yep.  Well, it'd friday afternoon.... I was trying to make sure the string that was being created from the split operaion was being converted into a number, but that's not the way to do it!
There's probably a quicker way of doing it than this, but at least I've tested it!
stringvar mystring:="15000;10000;50000;0;0;0;0;0;0;0;0;0;0;0;0;0;";   // replace with your field if you like...
numbervar i;numbervar array mynumbers;stringvar thisnumber;
//loop through the string, adding each char to a temp string. 
//If the char is a semicolon, convert the tempstring to a number and add to array (will have to increase size of array first though)
// and then clear tempstring
for i:=1 to len(mystring) do (if mid(mystring,i,1)=";" then(redim preserve mynumbers[count(mynumbers)1];mynumbers[ubound(mynumbers)]:=tonumber(thisnumber); thisnumber:="";)elsethisnumber:=thisnumbermid(mystring,i,1););
//display the 3rd item in the arraymynumbers[3]