Tcl/TK
文章平均质量分 50
黑仔ZJM
这个作者很懒,什么都没留下…
展开
-
Tcl/TK -- How to read a ini file
ini file example: [database] dbsrc = db dbusr = sa dbpwd = 1234 invoke example: ReadIni "database" if {[info exists iniAttribute(dbsrc)]} { set dbsrc $iniAttribute(dbsrc) } source code: s原创 2014-01-10 16:57:17 · 1068 阅读 · 0 评论 -
Tcl/TK -- Http data
set url "www.baidu.com" set lines [split [::http::data [::http::geturl $url]] "\n"]原创 2014-01-10 17:19:26 · 867 阅读 · 0 评论 -
Tcl/TK -- Socket
set ip localhost set port 12345if {[catch {set sock [socket $ip $port]}]} { puts stderr exit}原创 2014-01-10 15:24:27 · 2735 阅读 · 0 评论 -
Tcl/Tk -- File Operation
# file operation in Tcl/TK # open file for read/write # # open way: # # r : read only, file should exist. # r+: read and writ, file should exist. # w : write only,if file exist, clear it, else create原创 2014-01-10 16:45:44 · 1360 阅读 · 0 评论 -
Tcl/Tk -- ODBC
# import odbc package, # the package not include in the tcl/tk # need install extra package require tclodbc # connect to a odbc set dbsrc omsdata set dbusr sa set dbpwd 1234 database db $dbsrc $d原创 2014-01-10 16:14:43 · 1357 阅读 · 0 评论 -
Tcl/TK -- DateTime Format
proc getDate {} { #01/10/2014 return [clock format [clock seconds] -format "%m/%d/%Y"] } proc fileDate {} { # 20121221 return [clock format [clock seconds] -format "%Y%m%d"] } proc dateTime原创 2014-01-10 17:00:39 · 1977 阅读 · 0 评论 -
Tcl/TK -- upvar 的用法
upvar 很象c语言的引用传参,我用一个例子说明 set a 1 ;#定义变量a, 并且值设为1 proc test {b} { upvar $b mya puts $b puts $mya } test a ;#调用函数 test a ;#参数b的值为a(变量名) 1 ;#由于upvar 使mya(变量名)指向a(变量名)指向的同一个变量,mya的转载 2014-02-11 16:47:22 · 4423 阅读 · 1 评论