0

在 TCL 脚本中：我有一个文件，我知道如何搜索字符串，但如何在找到字符串时获取行号。如果可能，请回答我

或者

set fd [open test.txt r]
while {![eof $fd]} {
    set buffer [read $fd]
}

set lines [split $buffer "\n"]
if {[regexp "S1 Application Protocol" $lines]} {
    puts "string found"
} else {puts "not found"}

#puts $lines

#set i 0
#while {[regexp -start 0 "S1 Application Protocol" $line``s]==0}  {incr i
#puts $i
#}

#puts  [llength $lines]
#puts [lsearch -exact $buffer  S1]
#puts [lrange $lines 261 320]

在上面的程序中，我将输出作为找到的字符串。如果我将在此文件中提供字符串以外的字符串，我将得到未找到的字符串。

4

2 回答 2

0

“一行”的概念只是我们在从文件中获取的数据流之上的一种约定。因此，如果您想使用行号，那么您必须自己计算它们。gets命令文档包含以下示例：

set chan [open "some.file.txt"]
set lineNumber 0
while {[gets $chan line] >= 0} {
    puts "[incr lineNumber]: $line"
}
close $chan

所以你只需要用你的代码替换 puts 语句来找到你想要找到的文本模式，当你找到它时，值$line会给你行号。

要复制位于另外两行之间的文本，我会使用以下内容

set chan [open "some.file.txt"]
set out [open "output.file.txt" "w"]
set lineNumber 0
# Read until we find the start pattern
while {[gets $chan line] >= 0} {
    incr lineNumber
    if { [string match "startpattern" $line]} {
        # Now read until we find the stop pattern
        while {[gets $chan line] >= 0} {
            incr lineNumber
            if { [string match "stoppattern" $line] } {
                close $out
                break
            } else {
                puts $out $line
            }
        }
    }
}
close $chan
于 2013-03-08T12:05:37.260 回答
0

最简单的方法是使用fileutil::grep命令：

package require fileutil

# Search for ipsum from test.txt
foreach match [fileutil::grep "ipsum" test.txt] {
    # Each match is file:line:text
    set match      [split $match ":"]
    set lineNumber [lindex $match 1]
    set lineText   [lindex $match 2]

    # do something with lineNumber and lineText
    puts "$lineNumber - $lineText"
}

更新

我意识到如果该行包含冒号，则lineText在第三个冒号处被截断。所以，而不是：

    set lineText   [lindex $match 2]

我们需要：

    set lineText   [join [lrange $match 2 end] ":"]
于 2013-03-09T02:52:05.457 回答