Question

我希望有人能在这里给我一些帮助。我有一个文本文件，它有两列，每列用空格（“”）分隔，第一列是字符串，第二列是数字字段。

我正在尝试的是读取textbox1中的数字字段并将其与column2中的每个数字字段匹配，如果textbox1中的数字不大于字段，则将该行（column1和column2）复制到另一个文本文件。

到目前为止，我有以下编码。

Dim l1Infos = Textbox1.text
        Select New With {.Line = l1, .Tokens = l1.Split(" "c)}
        Dim result = From l1 In l1Infos
                     Join l2 In IO.File.ReadAllLines("C:\Test2",)
                     On l1.Tokens(0) Equals l2
                     Select l1.Line
        IO.File.WriteAllLines("C:\Test2", result)

Answer 1

尽管将尽可能多的逻辑干扰到一个语句中可能会令人印象深刻，并且可能会赢得代码混淆奖，有时更简单的解决方案更容易阅读，调试和维护：

    Dim maxValue As Integer = Integer.Parse(TextBox1.Text)
    For Each line As String In File.ReadAllLines("C:\Test1")
        If Integer.Parse(line.Split(" "c)(1)) < maxValue Then
            File.AppendAllText("C:\Test2", line)
        End If
    Next

我想如果这对你不起作用，那么弄清楚为什么不容易。它甚至可以少一行代码来启动！

如何搜索我的文本文件？

1 个答案: