Question

所以我有一个文本文件，内容如下：

Brock Lesnar：男：25
布雷登·普特（Braden Putt）：男：30 罗马统治：男：37

我在表单上还有三个按钮。

当用户单击第一个按钮时，我希望应用程序找到名为“ Brock Lesnar”的“ ID”，然后将年龄值（25）更改为26。
当用户单击第二个按钮时，我希望应用程序找到名为“ Braden Putt”的“ ID”，然后将年龄值（30）更改为31。
当用户单击第三个按钮时，我希望应用程序找到名为“ Roman Reigns”的“ ID”，然后将年龄值（37）更改为38。

我将以下代码用作第一个按钮的单击事件。但是，有两个问题。＃1：好像只是在读第一行，因为当我将Dim idToFind更改为= "Braden Putt"时，它似乎无能为力。我希望它读取文本文件中的所有行以找到正确的ID。＃2：由于某种原因，它使用逗号（，）而不是冒号（:)分割值。

Dim idToFind = "Brock Lesnar"
Dim newAge = "26"
Dim lines = IO.File.ReadAllLines(filepath)
For i = 0 To lines.Length - 1
    Dim line = lines(i)
    Dim fields = line.Split(":"c)
    If fields.Length > 2 Then
        Dim id = fields(0)
        If id = "Brock Lesnar" Then
            Dim gender = fields(1)
            lines(i) = String.Format("{0},{1},{2}", id, gender, newAge)
            Exit For
        End If
    End If
Next
IO.File.WriteAllLines(filepath, lines)

任何帮助将不胜感激！

在文本文件中搜索ID名称并更改相应的值

0 个答案: