TCl
天问
这个作者很懒,什么都没留下…
展开
-
TCL脚本递归列出文件
<br />proc ListFiles { dir } {<br /> if {![file exists $dir] || ![file isdirectory $dir]} {<br /> puts "$dir is not exist or not a directory!"<br /> return<br /> }<br /> <br /> set files [glob -nocomplain -- $dir/*]<br /> <br /原创 2010-06-16 11:26:00 · 3002 阅读 · 0 评论 -
使用TCL的正则表达式批量修改多个文件中的单词
<br />现在只是个示范程序,后面会修改。因为公司不能访问外网,所以只是在这里写个简单的例子。原意是需要批量修改自动化脚本。<br /> <br /># 在这里读取文件内容,将内容保存在Script变量中。set Script { TEstCase { prec { asdf } proccdure { PRCF_http_add { %RM_HTTP% } -Params {原创 2010-10-02 17:54:00 · 2743 阅读 · 0 评论