LiveCode Forums.

Code: Select all

on mouseUp
   initialise myText, arrayname, arraymark, arraypercentage, student
   getfile myText
   readfile student, arrayname, arraymark, arraypercentage
end mouseUp

on initialise @myText, @student, @arrayname, @arraymark, @arraypercentage
   put "" into myText
   put 0 into student
   put "" into arrayname
   put "" into arraymark
   put 0 into arraypercentage 
end initialise
 
on getfile @text
   answer file "Please choose a file to read into your stack."
   if the result is not "cancel" THEN
      put it into myText
      put URL ("file:" & myText) into field "output1"
      end if
end getfile

on readfile  student, arrayname, arraymark, arraypercentage
   local  maximum
   local position
   local loop
   put 0 into arraypercentage
   put 0 into maximum
   put 0 into position
   put 50 into student
   
   repeat with loop = 1 to the number of lines of myText
      put line loop of myText into student
      split student by comma
      put student[1] into arrayname[loop]
      put student[2] into arrayfullname
      put student[3] into arraymark[loop]
      
      put  arrayname[loop] & tab & arraymark[loop] & tab & arraypercentage[loop] into line 1  of field "output1"
   end repeat
         
   put arraymark[1] into maximum
   
   repeat with loop = 2 to the number of lines of myText
      if arraymark[loop] > maximum then 
         put arraymark[loop] into maximum 
         put loop into position 
      end if
   end repeat

   set numberformat to "0" 
   put "The student with the highest percentage is" & arrayname[position] & "with percentage of" & arraymark[loop] &" %" into line 2 of  fld"output2"
end readfile