home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / tcl / 2160 < prev    next >
Encoding:
Text File  |  1992-12-21  |  1.1 KB  |  43 lines
  1. Newsgroups: comp.lang.tcl
  2. Path: sparky!uunet!uunet.ca!choreo!root
  3. From: root@choreo.ca (Superuser)
  4. Subject: problem with lists
  5. Organization: Choreo Systems, Ottawa Canada
  6. Date: Fri, 18 Dec 1992 21:30:13 GMT
  7. Message-ID: <1992Dec18.213013.3883@choreo.ca>
  8. Lines: 33
  9.  
  10. Hey folks!
  11.  
  12. I am working on this app, and I'm having a little trouble with the way that
  13. lists are created.
  14.  
  15. This is my code :
  16.  
  17. The idea is that I will read my input, which is two fields, colon selimited,
  18. and stuff each field into a spearate list, which will be used later.
  19.  
  20. set end [ eof $fd ]
  21. set nameList ""
  22. set fileList ""
  23. while { $end == 0 } {
  24.    set record [ gets $fd ]
  25.    set reclist [ split $record : ]
  26.    puts stdout "list = $reclist"
  27.    set file  [lindex $reclist 0]
  28.    puts stdout "file = $file"
  29.    set name  [lindex $reclist 1]
  30.    puts stdout "name = $name"
  31.       puts stdout "all = $nameList"
  32.       set $nameList [ list $nameList $name ]
  33.       list $fileList $file
  34.       .label_and_buttons.list insert end $name
  35.    set end [ eof $fd ]
  36. }
  37.  
  38. The problem is that after frigging around various incantations, including
  39. using lappend, I'm lost.  How do I get my lists to contain what I want here?
  40.  
  41. Thanks!
  42.  
  43.