//SendToExcel.psc
//Script to send data to excel

// global excel row counter
y:=global1
inc(y);
global1:=y;
 
index:=global1; // for script designer
 
s:=getioline;
if pos('product',s)>0 then
begin
exceladd(1,1,s)
end
else
if pos('Time',s)>0 then
 begin
  exceladd(2,1,s)
 end
 else
 begin
  // divide up
   x:=pos(',',s);
   number:=copy(s,1,x-1);
   delete(s,1,x);
   x:=pos(',',s);
   mytime:=copy(s,1,x-1);
   delete(s,1,x);
   x:=pos(',',s);
   weight:=copy(s,1,x-1);
   delete(s,1,x);
   x:=pos(',',s);
   quality:=copy(s,1,x-1);
  
   exceladd(global1,1,number);
   exceladd(global1,2,mytime);
   exceladd(global1,3,weight);
   exceladd(global1,4,quality);
 end;
 

// for script designer
inc(index);
gotoline(index);