0

如何找到包含在单个 .txt 文件中的唯一字符串,每行中都有不同的字符串?


示例:.txt 文件包含以下内容

012345
023456
034567
045678
056789

然后我想找到一组数字中的一个。


这就是我想要发生的事情~

Dim stN As String = TextBox1.Text

If stN.contains(.txt file) Then
    'Anything to do here
Else
    MsgBox("Your input number is incorrect", "ERROR")
End If
4

2 回答 2

0

我假设您的伪代码应该是相反的:If .txt-file.Contains(stN) Then.

所以你想知道一个字符串是否等于文本文件的一行:

Dim lines = File.ReadLines(path)
Dim fileContainsLine = lines.Any(Function(l) l.Trim.Equals(TextBox1.Text, StringComparison.OrdinalIgnoreCase))

如果您不想不区分大小写地比较,请l==TextBox1.Text改用。如果Trim也不需要,您可以将其简化为:

Dim fileContainsLine = lines.Contains(TextBox1.Text)
于 2013-09-07T21:12:56.167 回答
0

这是一个小的 Linqpad 程序,但您可能希望一次读取文件并缓存它。

    Sub Main
      If (CheckContains("023456")) Then
        Console.WriteLine("True")
      Else 
        Console.WriteLine("False")
      End If
    End Sub

    Function CheckContains(inputVal as String) as Boolean
      Dim query = From line In File.ReadAllLines("C:\code\so\sample.txt") _
      Select line

      return query.Contains(inputVal)
    End Function
于 2013-09-07T21:23:17.737 回答