Posted to tcl by Bradipo at Fri Sep 02 23:47:19 GMT 2016view raw
- % set fd [open qtest.txt]
- file5
- % fconfigure $fd -encoding unicode
- % set data [read $fd]
- close $fd
- puts "len: [string length $data]"
- ?INSERT INTO unit(id, name) VALUES (1, '??????????, ???????');
- INSERT INTO unit(id, name) VALUES (2, '??????? ????????? ???? ???????? ????????? ????????, ?²');
- % % len: 159
- %
- set ofd [open import.txt w]
- fconfigure $ofd -encoding utf-8
- puts $ofd $data
- close $ofd
- % file5
- % % % %