vb.net - 当我想在创建文件后编辑第一行时如何停止创建新行

Question

我制作了一些在单击按钮时运行的功能。如果文件不存在，它会创建文件，并在第一次写入文件时写入第一行“1”，但是当您再次单击该按钮时，它会在文件中每次将该“1”向下移动一行。

任何帮助，将不胜感激！

    Dim appData As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
Dim Lines As New List(Of String)
Public Function ReadConfigLines()
    If File.Exists(appData + "\example.txt") Then
        Lines.Clear()
        Lines.AddRange(File.ReadAllLines(appData + "\example.txt").ToList)
    End If

End Function
Public Function WriteConfigLines()

    Dim i As Integer = 0
    Dim c As Integer = 0
    Dim newlines As String = ""
    While i < Lines.Count()

        While i > c
            newlines = newlines + vbCrLf
            c = c + 1
        End While
        File.WriteAllText(appData + "\example.txt", newlines + Lines(i))
        newlines = ""
        c = 0
        i = i + 1
    End While
End Function

Private Sub btnAvatar1_Click(sender As Object, e As EventArgs) Handles btnAvatar1.Click
    PBPreview.Image = btnAvatar1.Image
    ReadConfigLines()
    Lines.Insert(0, "1")
    WriteConfigLines()

End Sub

标签： vb.net