Printkeys() To Array

[Bob Sneidar]

Note to self: ALWAYS debug first. THIS will work. 

> I have an update. I didn't account for the fact that keys can be multiple words. This updated function should do the trick. 

function PKToArray thePrintKeys
   put 0 into theOldKeyCount
   put empty into theValue
   put the itemdelimiter into theOldDelim
   set the itemdelimiter to space

   repeat for each line theLine in thePrintKeys
       put the number of chars of theLine into count1
       put word 1 to -1 of theLine into theLine
       put the number of chars of theLine into count2
       put ((count1 - count2)) /5 +1 into theNewKeyCount

       put offset(":", theLine) into theChar
       if theChar <> 0 then
           put char theChar +2 to -1 of theLine into theValue
           put char 1 to theChar -1 of theLine into theKey
       else
           put theLine into theKey
       end if

       if theNewKeyCount >= theOldKeyCount then
           put "[" & theKey & "]" into item theNewKeyCount of theKeyList
       else
           put "[" & theKey & "]" into item theNewKeyCount to -1 of theKeyList
       end if

       if theChar <> 0 then
           put "put " & quote & theValue & quote & " into theNewArray" & theKeyList into theCommand
           do theCommand
           put empty into theValue
       end if

       put theNewKeyCount into theOldKeyCount

   end repeat

   set the itemdelimiter to theOldDelim
   return theNewArray
end PKToArray