Question

我有一个格式为

的文本文件

我必须通过分隔符将文件读入数组＆＃34; |＆＃34;其中左侧是数组的键，右侧是值。

我使用了以下代码

foreach {line} [split [read $lFile] \n] {
    #puts $line
    foreach {lStr} [split $line |] {
        if { $lStr!="" } {
            set lPartNumber [lindex $lStr 0]
            set lNodeNumber [lindex $lStr 1]
            set ::capPartsInterConnected::lMapPartNumberToNodeNumber($lPartNumber) $lNodeNumber

        }
    }

}

close $lFile

我无法读取分隔符的左侧＆＃34; |＆＃34;。怎么做？

同样的：

35|C:\AI\DESIGNS\SAMPLEDSN50\BENCH_WORKLIB.OLB|R

36|C:\AI\DESIGNS\SAMPLEDSN50\BENCH_WORKLIB.OLB|R

我需要在不同的变量中分配所有三个字符串

Answer 1

您在foreach错误地将split的结果分配给循环变量lStr，其中一次只包含一个值导致失败。< / p>

使用lassign，可以轻松执行此操作。

set fp [open input.txt r]
set data [split [read $fp] \n]
close $fp

foreach line $data {
    if {$line eq {}} {
        continue
    }
    lassign [split $line | ] key value
    set result($key) $value
}   
parray result

lassign [split "35|C:\\AI\\DESIGNS\\SAMPLEDSN50\\BENCH_WORKLIB.OLB|R" |] num userDir name
puts "num : $num"
puts "userDir : $userDir" 
puts "name : $name"

如何使用分隔符解析tcl中的文本文件？

1 个答案: