Posted to tcl by mjanssen at Sun May 06 23:13:14 GMT 2007view pretty
% set Options(name) Mark Mark % set Options(pass) Markpass Markpass % parray Options Options(name) = Mark Options(pass) = Markpass % array get Options name Mark pass Markpass % set f [open c:/settings.txt w] filee1a8d0 % puts $f [array get Options] % close $f % unset Options parray Options "Options" isn't an array % set Options(user) {} % set Options(name) {} % set Options(pass) {} % parray Options Options(name) = Options(pass) = Options(user) = % set f [open c:/settings.txt r] filee47370 % array set Options [read $f] % parray Options Options(name) = Mark Options(pass) = Markpass Options(user) = %