如何在TCL中将.txt文件内容转换为字典？

以下是具体实现步骤和代码：

• 初始化一个空字典
• 打开目标文本文件并逐行读取
• 对每行内容按单个空格分割，提取站点和地址
• 将站点作为键、地址作为值存入字典
• 关闭文件（TCL脚本结束后会自动处理文件句柄，但显式关闭更规范）

完整代码示例：

# 初始化空字典
set siteDict [dict create]

# 打开文件（替换为你的实际文件路径）
set fp [open "sites.txt" r]

# 逐行读取文件内容
while {[gets $fp line] != -1} {
    # 按单个空格分割行内容，提取站点和地址
    lassign [split $line " "] site address
    # 将键值对存入字典
    dict set siteDict $site $address
}

# 关闭文件
close $fp

# 可输出字典内容验证结果
puts $siteDict

关键语法说明： #

• dict create：创建空字典，对应Python中的{}
• open "sites.txt" r：以只读模式打开指定文件
• gets $fp line：从文件句柄fp读取一行到变量line，返回-1表示读取完毕
• split $line " "：将字符串按单个空格分割为列表，对应Python的line.split()
• lassign：将列表元素依次赋值给site和address，相当于Python的site, address = line.split()
• dict set siteDict $site $address：向字典添加键值对，对应Python的siteDict[site] = address

如果地址字段可能包含空格，不能直接按单个空格分割，可改用以下方式提取：

while {[gets $fp line] != -1} {
    set spacePos [string first " " $line]
    if {$spacePos != -1} {
        set site [string range $line 0 [expr {$spacePos - 1}]]
        set address [string range $line [expr {$spacePos + 1}] end]
        dict set siteDict $site $address
    }
}

内容的提问来源于stack exchange，提问作者KD0704