博客基本信息
用户名: lostCity
等级: 学士
在线时间: 6131 分钟
日志总数: 468
评论数量: 363
访问次数: 469866
建立时间: 2005-12-24
等级: 学士
在线时间: 6131 分钟
日志总数: 468
评论数量: 363
访问次数: 469866
建立时间: 2005-12-24
友情链接
最新评论
最新访问
最新留言
100076983
我的日志
[TCL]文本方式的消息流程 2008-04-04
# 所有代码如下
# 使用调试代码生成消息流程图如下：
# 0x01 0x02 0x03 0x04
# |msg01yryryryryr|
# 01 |-------------->|
# | | m..
[TCL]命令语法:upvar 2007-11-07
命令语法:upvar ?level? otherVar myVar ?otherVar myVar ...? upvar命令使得用户可以在过程中对全局变量或其他过程中的局部变量进行访问。 upvar命令的第一个参数otherVar是我们希望以引用方式访问的参数的名字..
智力题：3个5和1个1的四则运算如何使其结果为24 2007-10-17
# 智力题：3个5和1个1的四则运算如何使其结果为24# 下面是tcl简单解决办法。没有玩过的不妨想想，然后再看程序实现。# set vlist "5.00 5.00 5.00 1.00"set func "+ - * /"set result 24set..
[TCL]小端排序的简单实现 2007-08-22
# proc: littlesort# desc: 对传入的字串进行小端排序，排序最小单位由len确定# para: str: 待排序字串,如:set str "01 02 03 04 10 20"# wid..
[TCL]使用TCL查询Windows后台服务的程序路径 2007-06-01
[TCL]使用TCL查询Windows后台服务的程序路径# 使用sc命令查询所有后台服务名称set srvname ""set srv [exec sc query type= service]foreach isrv [split $srv "\n"] { if {[reg..
[TCL]格式化对齐带汉字的字符串 2007-04-12
# [TCL]格式化对齐带汉字的字符串2007-4-12 0:14# tcl中，对字符串长度的计算通常会因为包含中文和未包含中文情况不同# 一个中文字符在tcl中其长度算作1，但是其占位却为2，# 因此在使用format格式输出时候，就..
[TCL]使用TCL读取MSword的内容 2007-02-10
# 使用TCL读取MSword的内容# 使用opentcl封装简单读写msword内容的命名空间# 本站原创--------LostCity# history:# 2007-02-11 13:34:15 # 修复中文word内容返回乱码# 增加返回内容丢失格式处理样例：# +++..
[TCL]tcl中日期的格式化和运算处理 2007-01-21
[TCL]tcl中日期的格式化和运算处理 在tcl中，由于tcl特有的命令格式，使得tcl的功能和参数传递都受到很大的影响，刚开始接触一时半刻可能没办法很快掌握其中一些常用的技巧，时间..
[TCL]括号匹配的简单试验（待改进） 2006-12-10
# 1、使用替换方式匹配括号
proc regexp1 ｛str ｛l "("｝ ｛r ")"｝｝ ｛
if ｛[string length $l]!=1｝ ｛return ""｝
if ｛[string length $r]!=1｝ ｛return ""｝
if ｛..
proc regexp1 ｛str ｛l "("｝ ｛r ")"｝｝ ｛
if ｛[string length $l]!=1｝ ｛return ""｝
if ｛[string length $r]!=1｝ ｛return ""｝
if ｛..
[TCL]变量跟踪 2006-11-23
proc callback ｛name element op｝ ｛
if ｛"" != $element｝ ｛
set name $｛name｝($element)
｝
upvar $name value
puts [format "%-20s %-7s %s" $name $op $va..
[TCL]目录/文件遍历 2006-11-23
[TCL]目录/文件遍历
set path ｛c:/｝
set slist(dir) ""
set slist(file) ""
proc AllList ｛Path ｛pattern *｝｝ ｛
global slist
if ｛0 == [file isdirectory $Path] ｝ ｛
p..
set slist(dir) ""
set slist(file) ""
proc AllList ｛Path ｛pattern *｝｝ ｛
global slist
if ｛0 == [file isdirectory $Path] ｝ ｛
p..
[TCL]TCL脚本数据文件格式 2006-10-23
[转载]TCL脚本数据文件格式
信息来源：邪恶八进制信息安全团队（www.eviloctal.com）
写在前面的话
在论坛上看到这篇文章时,一时冲动,发出一个贴子:Let me try.等真正大致看了一下原文后,才有些后悔,倒不是怕..
在论坛上看到这篇文章时,一时冲动,发出一个贴子:Let me try.等真正大致看了一下原文后,才有些后悔,倒不是怕..
[TCL]ITCL初步 2006-10-17
ITCL初步
2006-1-16开始有了时间学习Tcl，在熟悉了这门语言的基本语法后，很快就转向了它的面向对象的扩展Incr Tcl。
ITCL模拟了C++的面向对象特征，支持单继承和多继承（多态，目前还没有发现有关这方面的..
2006-1-16开始有了时间学习Tcl，在熟悉了这门语言的基本语法后，很快就转向了它的面向对象的扩展Incr Tcl。
ITCL模拟了C++的面向对象特征，支持单继承和多继承（多态，目前还没有发现有关这方面的..