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

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

为了简化操作,所有的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教程 目录

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

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值