QuickStringDict - KVonGit/quest5-stuff GitHub Wiki

<function name="QuickStringDict" parameters="s" type="stringdictionary"><![CDATA[
   dict = NewStringDictionary()
   if (s = "") {
     return (dict)
   }
   list = Split(s,";")
   if (ListCount(list)<1) {
     error ("QuickStringDict cannot parse '" + s + "'!")
   }
   foreach (keyval, list) {
     if (Instr (keyval, "=") < 1) {
       error ("QuickStringDict cannot parse '" + keyval + "' in '" + s + "'!")
     }
     arr = Split (keyval, "=")
     dictionary add (dict, StringListItem (arr, 0), StringListItem (arr, 1))
   }
   return (dict)
 ]]></function>