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

版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
上一节重点学习了文本的编码,本节开始学习文本文件的读写。

通常情况下,文件可以分为文本文件和二进制文件。

文本文件就是可以直接用记事本打开看到内容的文件,比如后缀为txt、htm、log等等。

其余的文件就是二进制文件,比如.exe、.dll、.mp3等等。

总的来说,文本文件读写相对二进制文件读写简单点。

通常的做法是建立一个与文件关联的filestream,然后使用StreamReader读取或者StreamWriter写入。

本节以及后面几节采用几种不同的方法来说明文本文件读写的方法。

注意的是,为了详细说明,采用的是读写方法对应的形式,并不是说A种读文件一定对应A种写文件,

A种读文件可以对应B种写文件的,在实际使用时,请怎么简单怎么用。

窗体设计界面如下:

同时请加入一个 OpenFileDialog控件和一个SaveFileDialog控件。

两个ComboBox中均在Item中加入:方法1至方法6。DropDownStyle为DropDownList。

由于涉及文件操作和文本编码,

请在窗体顶部 Public Class Form1 上面中加入代码:

Imports System.IO
Imports System.Text
 

窗体载入时,

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
 
        With OpenFileDialog1
            .Filter = "文本文件|*.txt"
            .FileName = ""
            .Multiselect = False
        End With
        SaveFileDialog1.Filter = "文本文件|*.txt"
        SaveFileDialog1.FileName = ""
 
        cbRead.SelectedIndex = 0
        cbWrite.SelectedIndex = 0
    End Sub
 

代码中使用了With...End With,可以简化代码。

读取按钮按下时,根据cbRead的选项来选择读取的方法:

    Private Sub btnRead_Click(sender As Object, e As EventArgs) Handles btnRead.Click
        Dim FilePath As String
        If OpenFileDialog1.ShowDialog <> DialogResult.OK Then
            Exit Sub
        End If
 
        FilePath = OpenFileDialog1.FileName
        lblFilePath.Text = "读取文件:" & FilePath
 
        txtFile.Text = ""
 
        Select Case cbRead.SelectedIndex
            Case 0
                Call readText1(FilePath)
            Case 1
                Call readText2(FilePath)
            Case 2
                Call readText3(FilePath)
            Case 3
                Call readText4(FilePath)
            Case 4
                Call readText5(FilePath)
            Case 5
                Call readText6(FilePath)
        End Select
 
    End Sub
写入按钮按下时,根据cbWrite的选项来选择写入的方法:

    Private Sub btnWrite_Click(sender As Object, e As EventArgs) Handles btnWrite.Click
        Dim FilePath As String
        If SaveFileDialog1.ShowDialog <> DialogResult.OK Then
            Exit Sub
        End If
 
        FilePath = SaveFileDialog1.FileName
 
        Select Case cbWrite.SelectedIndex
            Case 0
                Call writeText1(FilePath)
            Case 1
                Call writeText2(FilePath)
            Case 2
                Call writeText3(FilePath)
            Case 3
                Call writeText4(FilePath)
            Case 4
                Call writeText5(FilePath)
            Case 5
                Call writeText6(FilePath)
        End Select
 
        lblFilePath.Text = "写入文件:" & FilePath
    End Sub
 

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

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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值