Question

Closed. This question needs details or clarity. It is not currently accepting answers.

想要改进这个问题吗? 添加细节,并通过

我希望有人能帮我一点忙,请。我有一个文本文件,有两列,每一列用一个空格分隔(“”);第一列是一个字符串,第二列是一个数字字段。

我试图在文本框1中读取数字字段,并将其与第2栏中的每个数字字段匹配,如果文本框1中的数字不大于字段,则将该行(栏1和栏2)复制到另一个文本文件中。

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

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

我想如果这对你没有用, 就会更容易弄清楚为什么没有。它甚至少了一条代码线!

友情链接