在'.txt'文件中搜索名称并显示相应的日期

时间:2013-04-10 14:07:42

标签: vb.net

我一直致力于用户输入姓名和生日的计划。然后以下列格式保存到.txt文件

  • John Doe 4/10/2000< ----(名称和日期用“标签”分隔,而不是“空格”)

一切都在程序中工作,我可以很好地显示数据,只要按月或按名称等排序日期。但我不知道如何使搜索功能正常工作。我有一个文本框,用户将在其中输入要搜索的名称。因此,如果他们进入John Doe,程序应该搜索该文本文件(birthday.txt)并显示日期4/10/2000。如果找不到该名称,程序应显示一条消息,指出未找到该名称。请帮忙!

1 个答案:

答案 0 :(得分:0)

也许:

Dim people = From line In File.ReadLines(path)
       Let userprops = line.Split({vbTab}, StringSplitOptions.None)
       Let Name = userprops.First()
       Let BirthDate = userprops.Last()
       Where Name.IndexOf(txtUsername.Text, StringComparison.OrdinalIgnoreCase) > -1

If Not people.Any() Then
    MessageBox.Show("No user found with that name")
Else
    Dim firstUserBirthDate = people.First().BirthDate 
    MessageBox.Show(firstUserBirthDate.ToString())
End If

我使用IndexOf代替=来向您展示如何不区分大小写地搜索名称的一部分。