Curly bracket occur when retrieve data from a text file

[jloh81]

My code is as below

set devicelist ""
set readdevice [open "device.txt" r]
while {[gets $readdevice linenew] != -1} {
lappend devicelist $linenew
}
puts $devicelist

and the result is

device1 device2 device3 { device4 } { device5 } { device5 }

Question 1
why my result sometime with curly bracket and sometime is not with the curly bracket?

Please advice

 

[feherke]

Hi

That has nothing to do with reading from file. Your devicelist is a list, the list separator is the space, so list items containing space are quoted.

[blue]%[/blue] set devicelist ""
[blue]%[/blue] lappend devicelist "one"
one
[blue]%[/blue] lappend devicelist "two three"
one {two three}
[blue]%[/blue] lappend devicelist "four"
one {two three} four
[blue]%[/blue] lappend devicelist "five six seven"
one {two three} four {five six seven}

If you want to make your list a simple variable :
[ul]
[li][tt]join $devicelist[/tt] - all a single line[/li]
[li][tt]join $devicelist "\n"[/tt] - with line breaks as in the file[/li]
[/ul]


Feherke.

http://free.rootshell.be/~feherke/

 

[jloh81]

Thanks!