Untitled

different data values write in a file in TCL
set data1 "This is Data1 Valuen"
set data2  "This is Data2 Value"
set data3  "nThis is Data3 Valuen"

foreach different_content {data1 data2 data3} {

  puts $fo $different_content
}
close $fo
}

set fo [open test.txt w]

data1
data2
data3

This is Data1 Value

This is Data2 Value

This is Data3 Value

puts $fo [set $different_content]

set data1 "This is Data1 Valuen"
set data2  "This is Data2 Value"
set data3  "nThis is Data3 Valuen"

set fo [open test.txt w]
foreach different_content {data1 data2 data3} {
    puts $fo [set $different_content]
}
close $fo

foreach different_content [list $data1 $data2 $data3] {
    puts $fo $different_content
}

foreach different_var {data1 data2 data3} {
    upvar 0 $different_var different_content
    puts $fo $different_content
}

set data1 "This is Data1 Valuen"
set data2  "This is Data2 Value"
set data3  "nThis is Data3 Valuen"

set fo [open 'test.txt']

foreach different_content {data1 data2 data3} {
  puts $fo $different_content
}

close $fo