Исходное сообщение
"Подстановка переменных TCL при использовании SQLite" Отправлено Антон, 06-Июл-11 10:35
Привет. Столкнулся со схожей проблемой в случае замены подстрок XXKADRXX на переменную $coor (определена ранее) в текстовых файлах .svrf set file_list [glob *.svrf] foreach F $file_list { set infile [open $F] set contents [read $infile] close $infile set contents [string map {XXKADRXX "$coor"} $contents] set outfile [open $F w] puts -nonewline $outfile $contents close $outfile } Буду очень благодарен за мнения)