求助tcl语言里修改文件的问题

xychzkhf · 发表于 2012-12-25 23:32:35

您需要登录才可以下载或查看，没有账号？注册

x

求助大神们，本人需要在一个文本文件里面删除几行文字字符，貌似没有直接的命令啊，不清楚大家是如何做的？

sjtusonic · 发表于 2012-12-26 08:57:23

本帖最后由 sjtusonic 于 2012-12-26 09:00 编辑

回复 1# xychzkhf

vim，找到该行，dd
这样可以么？

如果你要改很多文件，请看sed：

sed '2,5d' datafile
#删除第二到第五行
sed '/My/,/You/d' datafile
#删除包含"My"的行到包含"You"的行之间的行
sed '/My/,10d' datafile
#删除包含"My"的行到第十行的内容

wwjsongjie · 发表于 2012-12-26 22:35:53

学习perl吧。对文本比tcl处理方便多拉

xychzkhf · 发表于 2012-12-26 23:08:08

回复 2# sjtusonic

如果用tcl脚本语言怎么来完成这个事情？

xychzkhf · 发表于 2012-12-26 23:10:44

回复 3# wwjsongjie

现在在windows地下的eda软件里，perl不是很好用啊，只能用tcl了

wwjsongjie · 发表于 2012-12-28 21:28:51

可以装个perl处理软件呀。有window版本的！

jackiexiuyi · 发表于 2012-12-29 09:39:34

比方说你修改的文件为a
你可以把你需要的行 puts 到文件b中
比如
set ob [open $b w+]
if {} {
puts $ob $line
}

这样不满足条件的行自然不会出现在文件b中
最后你再重命名b文件为a文件
exec mv $b $a
这样就ok了

xychzkhf · 发表于 2012-12-30 00:29:38

回复 7# jackiexiuyi

是一行一行的写吧，然后修改名字覆盖源文件吗？

jackiexiuyi · 发表于 2012-12-30 14:05:04

回复 8# xychzkhf

是的

我心飞翔618 · 发表于 2015-8-20 11:15:42

学习了

[原创] 求助tcl语言里修改文件的问题