TCL查找文件中字符串的例子

最新推荐文章于 2024-11-08 13:55:12 发布

yuhanfeng314

最新推荐文章于 2024-11-08 13:55:12 发布

阅读量7.2k

点赞数 3

CC 4.0 BY-SA版权

分类专栏：编程技术文章标签： tcl

本文链接：https://blog.youkuaiyun.com/yuhanfeng314/article/details/38636175

编程技术专栏收录该内容

6 篇文章

订阅专栏

本文介绍了一个用于在指定文本文件中搜索特定字符串并返回出现次数的函数。该函数使用Tcl/Expect语言编写，详细展示了如何逐行读取文件内容、进行字符串匹配及计数的过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#########################################################################
#函数名称：readtxt
#参数：fname-------需要打开的文件名
# lookstr-------待查找的字符串
#返回值：flag------------在fname中查到lookstr的次数
#########################################################################
proc readtxt {fname lookstr } {
#加载Expect包
package require Expect
#指定当前工作目录
set dir [ file dirname [info script]]
if {[string equal $dir "."]} {
set dir [pwd]
}

#找到的标志
set flag 0
#set data_path [file join $dir $fname]
# set data [open $data_path r]

if [catch {open [file join $dir $fname] r} fd] {

puts "no $fname $fd"
} else {

set rowid 0
while {[eof $fd] !=1} {
incr rowid
gets $fd line
#puts "读 $rowid $line"
##########################################

set sense [string first $lookstr $line]
#puts $sense

############################################

if { $sense != -1 } {
#每找到一次标志位+1
incr flag
#puts "判断结果为：$flag"
}
}
close $fd
}
return $flag
}