写
Dim strFilePath As String =SaveFileDialog1.FileName
Dim sw As StreamWriter = New StreamWriter（strFilePath， True） 'true是指以追加的方式打开指定文件
For i = 0 To j
temp = i.ToString
sw.WriteLine（temp）
sw.Flush（）
Next
sw.Close（）
sw = Nothing
读
Dim line As String
Dim sr As StreamReader = New StreamReader（strPath， System.Text.Encoding.Default）
Do While sr.Peek（） > 0
line = sr.ReadLine（）
Loop
sr.Close（）
sr = Nothing '构造函数new
Public Sub New（Path， Encoding）
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。