vb.net 文本操作 为什么不能该文本的内容呢

Question

Imports System.IO
Public Class Form1
Dim fs As FileStream
Dim rd As StreamReader
Dim wr As StreamWriter
Dim s As String

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
fs = New FileStream("C:\Users\Administrator\Desktop\ffffff\aa.txt", IO.FileMode.OpenOrCreate)
wr = New StreamWriter(fs)

wr.Write("666666")
wr.Flush()
wr.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

rd = New StreamReader("C:\Users\Administrator\Desktop\ffffff\aa.txt")

s = rd.ReadToEnd
If s = TextBox1.Text Then

wr.Write("888888")
wr.Flush()
wr.Close()
End If
End Sub
End Class
执行到IF后 ，到 wr.Write("888888")时
会提示 不能写入已关闭的textwriter

Answer 1

在窗口加载form_load()事件中已经将wr这个StreamWriter关闭了
你应该在wr.Write("888888")语句之前打开StreamWriter

可以wr.Write("888888")语句之前加上下面语句

wr = New StreamWriter(fs)

在多罗嗦几句，你可以在form_load()事件中把文件打开，在form_closed事件中在把文件关闭，你现在的代码中fs就一直都没有关闭，StreamWriter和StreamReader就建议你用的时候New一个，用完立即关闭，文件打开关闭操作不要放在循环里，也最好别放在频繁被调用的过程里。以上是对程序的安全还有效率考虑给你的建议