vb.net 教程 4-8 文本文件读写 2

太过爱你忘了你带给我的痛 2022-09-10 09:27 149阅读 0赞

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。  
继续上一节，进入正式读写代码的编写。

为了简化操作，所有的Encoding均采用Encoding.Default。

读取方法1：

先使用FileStream指定打开方式打开文件并读入文件流  
再使用StreamReader ( 参数1：文件流，参数2：编码格式）来读取  
读取方式：一次性读取所有文本

Private Sub readText1(ByVal filename As String)  
        Dim textContent As String  
        Dim fs As FileStream  
        'fs = New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)  
        fs = File.Open(filename, FileMode.OpenOrCreate, FileAccess.Read)  
   
        Dim sr As New StreamReader(fs, Encoding.Default)  
        textContent = sr.ReadToEnd()  
        sr.Close()  
        fs.Close()  
        txtFile.Text = textContent  
    End Sub

其中注释的一句  
fs = New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)

和后面一句

fs = File.Open(filename, FileMode.OpenOrCreate, FileAccess.Read)

等同，都是获得一个FileStream。

FileMode.OpenOrCreate：打开文件，如果文件不存在则创建一个空文件。

FileAccess.Read：采用read方式。由于这里是分别进行读和写，如果是读写都是用的同一个FileStream，请采用FileAccess.ReadWrite。

写入方法1：

先使用FileStream指定打开方式打开文件并读入文件流.  
再使用StreamWriter （参数1：文件流，参数2：编码格式）来写入  
写入方式：一次性写入所有文本

Private Sub writeText1(ByVal filename As String)  
        Dim textContent As String = txtFile.Text  
        Dim fs As FileStream  
        'fs = New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Write)  
        fs = File.Open(filename, FileMode.OpenOrCreate, FileAccess.Write)  
   
        Dim sw As New StreamWriter(fs, Encoding.Default)  
        sw.Write(textContent)  
        sw.Close()  
        fs.Close()  
   
    End Sub

读取方法2：

直接使用StreamReader(  参数1：要打开的文件全路径，参数2：编码格式)  
读取方式：一次性读取所有文本

Private Sub readText2(ByVal filename As String)  
        Dim textContent As String  
        Dim sr As New StreamReader(filename, Encoding.Default)  
        textContent = sr.ReadToEnd()  
        sr.Close()  
        txtFile.Text = textContent  
    End Sub  
写入方法2：

直接使用StreamWriter(参数1：文件流，参数2：不追加)  
写入方式：一次性写入所有文本

Private Sub writeText2(ByVal filename As String)  
        Dim textContent As String = txtFile.Text  
        Dim sw As New StreamWriter(filename, False)  
        sw.Write(textContent)  
        sw.Close()  
    End Sub  
不追加表示直接覆盖原有内容，如果为True，那么新内容将添加到原内容的后面。

由于.net平台下C\#和vb.NET很相似，本文也可以为C\#爱好者提供参考。

学习更多vb.net知识，请参看[vb.net教程][vb.net] 目录

————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/