码迷,mamicode.com
首页 > 其他好文 > 详细

tcl/tk实例详解——修改目录下所有文件(使用一个字符串代替另外一个)

时间:2015-01-29 09:16:41      阅读:135      评论:0      收藏:0      [点我收藏+]

标签:

#假设目录下全部都是普通文件,如果目录下还有子目录请
#参考文章"读取文件夹下所有文件返回路径",

#http://blog.csdn.net/dulixin/archive/2008/02/29/2133840.aspx
#
#此脚本的方法主要应用于处理大批量中小文件
#
#主要使用命令:open、string map、read
#
#
#mydir:需要修改的文件所在目录
#str1:被替换的字符串
#str2:替换的字符串

set mydir "C:/test"
set str1 "eth_0/1"
set str2 "uplink_0/1/1"
set strList [list $str1 $str2]

cd $mydir
pwd

#操作目录下所有的文件,先使用只可读的方式打开
#文件,读出文件内容,然后关闭I/O通道,处理好字
#符串后再以可写并截断文件的方法打开文件,把处理
#好的内容写回去。
#是否还有更好的操作文件的方法还待研究,我的方法
#相当于处理完字符串后删除以前的文件再生成一个新
#的文件。

foreach myfile [glob *] {
 set channel [open $myfile r]
 set strFile [read -nonewline $channel]
 close $channel
 set strFileTemp [string map $strList $strFile]
 set channel [open $myfile w]
 puts $channel $strFileTemp
 close $channel

tcl/tk实例详解——修改目录下所有文件(使用一个字符串代替另外一个)

标签:

原文地址:http://www.cnblogs.com/hfyfpga/p/4257771.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!