Question

我想知道如何从文本文件中读取一个数字，然后将该数字乘以一个并将其写回原始文本文件，我正在尝试制作一个计数器以跟踪我的数字表格被执行。然后，该信息将用于确定我的应用程序在我们公司中的成功。

Answer 1

您可以使用：

Private Sub Increment()
    Dim Path_To_File As String = "Path to the file"
    Try
        Dim Counter As Integer = CInt(My.Computer.FileSystem.ReadAllText(Path_To_File))
        My.Computer.FileSystem.WriteAllText(Path_To_File, (Counter + 1).ToString(), False)
    Catch Ex As Exception ' Modifiy to catch specific errors if you want
        MessageBox.Show("An error occured: " & Ex.ToString())
    End Try
End Sub

简单的计数器跟踪表单用法？

1 个答案: