tcl 匹配

chunjiahua · 发表于 2013-10-9 10:37:25

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

x

本人尝试用tcl来提取文档里匹配 +define+ 所在行的信息。。。（文档里所有行最后都有\)。
while {[gets $infile line]>=0} {
if {[regexp {\s+\+(define)\+(.*)\\} $line match result1 result2]} {
set outfile [open "result.txt" a]
puts $outfile "$result1,$result2"
部分命令如上。。。
但为什么结果里的result2不对呢。。。
比如文档中下面这一行文字
+define+CPU_DUMP\
就匹配不成功。。。
请教了。。。

worshipgun · 发表于 2013-10-17 17:04:03

set outfile [open "result.txt" a]
while {[gets $infile line] != -1 } {
if {[regexp {\s\++(define)+(.*)\\} $line match result1 result2]} {
puts $outfile "$result1,$result2"
...
close $outfile

[求助] tcl 匹配

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

站长推荐 /1