读取文本文件并搜索数字

Question

我确实对此进行了很多搜索，但一无所获。所以，我只有 1 个文本框、1 个名为“无效”的标签、1 个按钮，最后是一个文本文件。

文本文件中包含行中的数字或更有可能以这种方式编写的邮政编码：

10000
23251
30021
51931
and so on...

文本框=输入邮政编码
按钮 = 搜索我在文本框中输入的数字是否在文本文件中。如果是，那么 label1.text = "Valid"

这就是全部。

我尝试了以下方法，但我知道这是完全错误的+它不起作用+输入其中的每个数字需要很长时间。

有人可以提供一种方法和代码来直接使用和应用它，更不用说理解它了，因为我是 VB.NET 方面的新手。

我试过 File.ReadAllLines，正在搜索一些文档，但我只找到了 C# 而不是 VB.NET

有人告诉我使用 File.ReadAllLines 如图所示：

If linesFromFile.Any(Function(l) l = myTextBox.Text) Then
    label1.Text = "Valid"
End If

尝试应用它但没有用。

Dim File As String = "Georgia.txt"
Dim Georgia As String = IO.File.ReadAllLines(File)
If Georgia.Any(Function(l) l = TextBox1.Text) Then
Label1.Text = "Valid"
End If

Answer 1

这是一个寻找匹配的过程。有很多方法可以做到这一点。创建一个名为 frmTest 的表单，添加两个按钮 btnFind 和 btnLoad，然后添加一个名为 tbFind.Also 的文本框，您将需要一个名为 ListBox1.
的列表框在我的示例中，我将数据加载到一个名为 strData.
的字符串数组中它需要像这样声明为顶级 Dim strData(12) As String
现在数据在字符串数组中，将 strData 加载到 ListBox 中。
在 tbFind
中输入要查找的值现在单击 btnFind。

Dim strData(12) As String

Private Sub btnLoad_Click(sender As Object, e As EventArgs) Handles btnLoad.Click
    LoadLB()
End Sub

Public Sub LoadLB()
    strData = {"", "Jan", "Feb", "Mar", "Apr", "May", "June", "July", "Aug", "Sep", "Oct", "Nov", "Dec"}
    Dim allMo As String
    For i As Integer = 1 To 12
        allMo = i & " - " & strData(i)
        ListBox1.Items.Add(allMo)
    Next
End Sub
Private Sub btnFind_Click(sender As Object, e As EventArgs) Handles btnFind.Click

    For x As Integer = 1 To 12
        If tbFind.Text = strData(x) Then
            MsgBox("Match " & strData(x))
        End If
    Next

End Sub

读取文本文件并搜索数字

Reading text file and searching for a number

vb.net