在 Visual Basic 中按下按钮

Question

我是 Visual Basic.NET 的新手，我只是在玩弄它。我有一本书告诉我如何从文件中读取数据，但不告诉我如何通过单击按钮写入文件。我所拥有的只是一个按钮和一个名为 fullNameBox 的文本框。当我单击该按钮时，它给我一个未处理的异常错误。这是我的代码：

Public Class Form1
    Sub outputFile()
        Dim oWrite As System.IO.StreamWriter
        oWrite = System.IO.File.CreateText("C:\sample.txt")
        oWrite.WriteLine(fullNameBox.Text)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        outputFile()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Answer 1

您是否尝试过单步执行您的应用程序以查看错误所在？快速浏览一下，您可能需要在第四行 (oWrite = IO.File...) 使用 System.IO.File 而不仅仅是 IO，但我还没有尝试运行它。

Answer 2

Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SaveFileDialog1.FileName = ""
        SaveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        SaveFileDialog1.ShowDialog()
        If SaveFileDialog1.FileName.Trim.Length <> 0 Then
            Dim fs As New FileStream(SaveFileDialog1.FileName.Trim, FileMode.Create)
            Dim sr As New StreamWriter(fs)
            sr.Write(TextBox1.Text)
            fs.Flush()
            sr.Close()
            fs.Close()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        OpenFileDialog1.FileName = ""
        OpenFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        OpenFileDialog1.ShowDialog()
        If OpenFileDialog1.FileName.Trim.Length <> 0 Then
            Dim fs As New FileStream(OpenFileDialog1.FileName.Trim, FileMode.Open)
            Dim sw As New StreamReader(fs)
            TextBox1.Text = sw.ReadToEnd
            fs.Flush()
            sw.Close()
            fs.Close()

        End If
    End Sub
End Class

这是一个完整的功能程序，如果您愿意，您只需拖放一个文本框、openfiledialog 和 savefiledialog 即可。
请随意使用代码。
享受
顺便说一句，代码中的问题是您“必须”在使用完文件流后关闭它，这样做将释放任何资源，例如套接字和文件句柄。

Answer 3

.net框架是一个非常强大的框架。但同样地，它对于简单的任务也有简单方便的方法。大多数人倾向于将事情复杂化以展示知识。但更少的代码 = 更少的处理 = 更快、更高效的应用程序（有时），所以上面的大方法可能不适合。除此之外，上面提到的方法最好写成一个子函数，或者如果返回一些东西，那么最好写成一个函数。

My.Computer.FileSystem.WriteAllText("File As String", "TextAsString", Append as Boolean)

一个一般示例是

My.Computer.FileSystem.WriteAllText("C:\text.text", "this is what I would like to add", False)

这是我想添加的内容

也可以更改为字段的当前文本。

因此，一个更具体的示例是

My.Computer.FileSystem.WriteAllText("C:\text.text", fullNameBox.text, True)

如果您想了解代码的append部分

• 通过设置append = true，您可以允许您的应用程序将文本写入文件末尾，使文件中已有的其余文本保持不变。

• 通过设置append = false，您将删除现有文件中的所有文本并用新文本替换

如果您不想编写这部分代码（尽管它很小），您可以创建一个子程序来处理它，但是该方法会略有不同，只是为了礼仪。功能将保持相似。 （使用StreamWriter）

Private Sub WriteText()
        Dim objWriter As New System.IO.StreamWriter("file.txt", append as boolean)
        objWriter.WriteLine(textboxname.Text)
        objWriter.Close()
    End Sub

特定示例将

Private Sub WriteText()
        Dim objWriter As New System.IO.StreamWriter("file.txt", False)
        objWriter.WriteLine(fullnamebox.Text)
        objWriter.Close()
    End Sub

位于button_click事件调用下：

writetext()

您也可以进一步采取这一步骤。如果您想创建一个更高级的 Sub 来处理任何文本框和文件。

假设您计划拥有多个单独的文件和每个文件的多个字段（尽管有一个MUCH更干净、更优雅的方法），您可以创建一个函数。 {我将在此示例中尽可能彻底地解释函数背后的概念}

下面是针对您上述请求的更高级的子演示

Private Sub WriteText(Filename As String, app As Boolean, text As String)
        Dim objWriter As New System.IO.StreamWriter(Filename, app)
        objWriter.WriteLine(text)
        objWriter.Close()

End Sub

它的作用是允许我们（以相同的形式 - 如果您需要全局的，我们可以下次讨论，一点也不复杂）调用函数并根据需要输入信息。

Sub Use -> ;一般样本

WriteText(Filename As String, app As Boolean)

子用途->具体示例

WriteText("C:\text.txt, False, fullnamebox.text)

但此方法最好的部分是您可以根据需要将其更改为任何内容。
假设您有两个按钮*和**两个框，您可以让第一个按钮的button_event 触发上述代码，而第二个按钮触发不同的代码。

示例

WriteText("C:\text2.txt, False, halfnamebox.text)

关于创建自己的函数和子函数的最佳部分是控制 我不会深入讨论它，因为它会偏离主题，但您可以检查以确保在写入文件之前，文本框首先包含文本。这将保护文件的完整性。

希望这有帮助！
理查德·网站。