如何从文件中读取条目并搜索特定条目

时间:2014-01-09 18:40:51

标签: file tcl

我必须从一个文件中读取包含姓名/ city / emailid / mobile no等不同用户的表格格式的条目。这些条目也会重复,例如我们有两个不同的名字住在同一个城市

现在我必须向用户询问以下这些标题的任何特定输入(姓名/城市/电子邮件/手机号码)。用户选择可能在文件中,也可能不在文件中。

它将搜索文件中的输入,并将显示该输入的结果以及完整的详细信息。名称City Emailid Mobile no。

1 个答案:

答案 0 :(得分:1)

好的,希望我能以正确的方式解释你的格式......

让我们说它是这样的:

  

约翰史密斯/纽约/john.smith@provider.com/0175113322

     

Stephen King /纽约/stephen.king@provider.com/0157331122

将此信息读入列表的tcl片段如下所示:

## Read the data from file
set fp [open "test.txt" r]
set file_data [read $fp]
close $fp

## process the data
set data [split $file_data "\n"]
set contact_list {}
foreach line $data {
    lappend contact_list [split $line "/"]
}

## Read out the information from the list
puts $contact_list
puts [lindex $contact_list 0]
puts [lindex [lindex $contact_list 1] 3]

要搜索列表,只需使用lsearch ...