How to split string and store in list via TCL

Question

Is there a way to split strings and save in a list ? How to split string and save in two list For example, I have a string where I split several string with =:

Answer 1

Let say your strings placed in file abc.txt in the following order

a=1
b=2
c=3
d=4

You need to create 2 lists, one for numbers and one for characters:

set number_list [list]
set char_list   [list]

set fh [open "abc.txt" "r"]

while {[gets $fh line] != -1} {
    regexp -- {(\S+)=(\S+)} $line foo char number
    lappend char_list   $char
    lappend number_list $number
}

close $fh

puts $char_list
puts $number_list