用tcl语言编程,实现获取文件夹中每个文件的基本名称,并在每个文件中查找含有“空格空格该基本名称”的行,将这些行按空格切割取出第3个值,接着将这些行的前面第3行的内容按空格键切割取出第2个值,最后把值导出到新文件。
时间: 2024-03-20 17:38:58 浏览: 18
以下是一个可能的Tcl程序:
```tcl
set folder "/path/to/folder"
set output_file "/path/to/output/file"
set files [glob -directory $folder *]
set results {}
foreach file $files {
set base_name [file rootname [file tail $file]]
set fh [open $file r]
set lines [split [read $fh] "\n"]
close $fh
for {set i 0} {$i < [llength $lines]} {incr i} {
set line [lindex $lines $i]
if {[string match "* $base_name *" $line]} {
set values [regexp -inline {\S+} $line]
set index [expr {$i - 3}]
set prev_line [lindex $lines $index]
set prev_values [regexp -inline {\S+} $prev_line]
lappend results [lindex $prev_values 1] [lindex $values 2]
}
}
}
set fh [open $output_file w]
puts $fh [join $results "\n"]
close $fh
```
请将程序中的`/path/to/folder`和`/path/to/output/file`替换为您实际的文件夹路径和输出文件路径。
相关推荐
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)