Posted to tcl by mjanssen at Sun May 06 23:13:14 GMT 2007view raw

  1. % set Options(name) Mark
  2. Mark
  3. % set Options(pass) Markpass
  4. Markpass
  5. % parray Options
  6. Options(name) = Mark
  7. Options(pass) = Markpass
  8. % array get Options
  9. name Mark pass Markpass
  10. % set f [open c:/settings.txt w]
  11. filee1a8d0
  12. % puts $f [array get Options]
  13. % close $f
  14. % unset Options
  15. parray Options
  16. "Options" isn't an array
  17. % set Options(user) {}
  18. % set Options(name) {}
  19. % set Options(pass) {}
  20. % parray Options
  21. Options(name) =
  22. Options(pass) =
  23. Options(user) =
  24. % set f [open c:/settings.txt r]
  25. filee47370
  26. % array set Options [read $f]
  27. % parray Options
  28. Options(name) = Mark
  29. Options(pass) = Markpass
  30. Options(user) =
  31. %