Ответ

FG 12.09.2008 12:34

В вашем случае:
$str[1=A&3=E&5=B]
$result[^str2tbl[param=value&$str;=;&]]


@str2tbl[src;tab;new][rep]
^if(!def $tab){$tab[==]}^if(!def $new){$new[,,]}
$rep[^table::create{from to
$tab ^taint[^#09]
$new ^taint[^#0A]}]
$result[^table::create{^untaint{^src.replace[$rep]}}]

и заодно обратный оператор

@tbl2str[src;tab;new][ts]
^if(!def $tab){$tab[==]}^if(!def $new){$new[,,]}$ts[^src.columns[]]
$result[^ts.menu{$ts.column}[$tab]${new}^src.menu{^ts.menu{$src.[$ts.column]}[$tab]}[$new]]

---