vb.net 对文本文件的操作

'引入命名空间
Imports System.IO
Imports System.Text''' <summary>对文本文件的全部读取</summary>
Public Function TxtReader(ByVal Parth As String) As String()Dim StrReader As String = vbNullDim StrArray() As String = NothingTryStrReader = My.Computer.FileSystem.ReadAllText(Parth)StrArray = StrReader.Split(vbCrLf)Catch ex As ExceptionMsgBox("加载文件出错,请检查文件路径或文件名")End TryReturn StrArrayEnd Function''' <summary>对文本文件的全部写入,如果文件不存在,自行创建文件写入</summary>
Public Sub TxtWriter(ByVal Parth As String, ByVal StrWriter As String, ByVal TrueOrFalse As Boolean)TryMy.Computer.FileSystem.WriteAllText(Parth, StrWriter, TrueOrFalse)Catch ex As ExceptionMsgBox("加载文件出错,请检查文件路径或文件名")End TryEnd Sub''' <summary>删除文本文件指定行,注意:行号是从0开始记数</summary> Public Sub TxtWriter(ByVal Parth As String, ByVal DeleLine As Integer)Dim StrReader As String = NothingDim StrArray() As String = NothingDim str As String = NothingTry'读取文本StrReader = My.Computer.FileSystem.ReadAllText(Parth)'文本分割给数组,以回车符分割StrArray = StrReader.Split(vbCrLf)'在数组里查找指定下标的数组元素,然后重新创建数组Dim a() As String = StrArray.Where(Function(x) x <> StrArray(DeleLine)).ToArray'将数据重新写入文本If a.Count > 0 ThenFor Each i In astr += i & vbCrLfNextEnd IfMy.Computer.FileSystem.WriteAllText(Parth, str , False)Catch ex As ExceptionMsgBox("加载文件出错,请检查文件路径或文件名")End TryEnd Sub''' <summary>在文本文件指定位置插入行,注意:行号是从0开始记数</summary>
Public Sub TxtInsertLine(ByVal Parth As String, ByVal LineNumbers As Integer, ByRef StrInsert As String)Dim StrReader As String = NothingDim StrArray() As String = NothingDim str As String = NothingTry'读取文本StrReader = My.Computer.FileSystem.ReadAllText(Parth)'My.Computer.FileSystem.WriteAllText(Parth, i.ToString & vbCrLf, True)'文本分割给数组,以回车符分割StrArray = StrReader.Split(vbCrLf)'将数组里的元素复制给数组集NewlistDim NewList As List(Of String) = StrArray.Select(Function(x) x.ToString).ToList'在指定位置插入行NewList.Insert(LineNumbers, StrInsert)'将数据重新写入文本If NewList.Count > 0 ThenFor Each i In NewListstr += i.ToString & vbCrLfNextEnd IfMy.Computer.FileSystem.WriteAllText(Parth, str, False)Catch ex As ExceptionMsgBox("加载文件出错,请检查文件路径或文件名")End TryEnd Sub''' <summary>在文本文件末尾添加一行,注意:行号是从0开始记数</summary>
Public Sub TxtAddLine(ByVal Parth As String, ByRef StrInsert As String)Dim StrReader As String = NothingDim StrArray() As String = NothingDim str As String = NothingTry'读取文本StrReader = My.Computer.FileSystem.ReadAllText(Parth)'My.Computer.FileSystem.WriteAllText(Parth, i.ToString & vbCrLf, True)'文本分割给数组,以回车符分割StrArray = StrReader.Split(vbCrLf)'将数组里的元素复制给数组集NewlistDim NewList As List(Of String) = StrArray.Select(Function(x) x.ToString).ToList'在数组集尾添加一行数据NewList.Add(StrInsert)'将数据重新写入文本If NewList.Count > 0 ThenFor Each i In NewListstr += i.ToString & vbCrLfNextEnd IfMy.Computer.FileSystem.WriteAllText(Parth, str, False)Catch ex As ExceptionMsgBox("加载文件出错,请检查文件路径或文件名")End TryEnd Sub''' <summary>文件路径,ReaderModel为空时表示全部读取;1,读取一个字符;2读取一行;3,全部读取</summary>  Public Function TxtReader(ByVal TxtPath As String, ByVal ReaderModel As Integer) As StringDim reader As StreamReaderDim openF As New OpenFileDialogDim file As FileStreamDim oneC As CharDim oneL As StringDim strL As StringTxtReader = Nothing'openF.ShowDialog()  '可以打开一个选择文件的对话框TryopenF.FileName = TxtPath           '用了这个就不打开对话框,直接打开file = New FileStream(openF.FileName, FileMode.OpenOrCreate, FileAccess.ReadWrite)reader = New StreamReader(file, Encoding.Default)If Not reader.EndOfStream ThenIf ReaderModel = "" ThenstrL = reader.ReadToEndTxtReader &= vbCrLf & strLElseSelect Case ReaderModelCase 1oneC = ChrW(reader.Read)TxtReader &= vbCrLf & oneCCase 2oneL = reader.ReadLineTxtReader &= vbCrLf & oneLCase 3strL = reader.ReadToEndTxtReader &= vbCrLf & strLEnd SelectEnd If'TextBox1.Text &= vbCrLf & oneLEnd Ifreader.Close()reader = NothingCatch ex As ExceptionMsgBox("can not open file:" + openF.FileName)Return ""Exit FunctionEnd TryReturn TxtReaderEnd Function''' <summary>文件路径加文件名,要写入的字符串,布尔型:为空时为true;true为追加,fale为覆盖</summary>  Public Sub TxtWriter(ByVal txtnamepath As String, ByVal str As String, ByRef B_boolen As Boolean)Dim openF As New SaveFileDialogDim writer As StreamWriter'Dim file As FileStreamopenF.FileName = txtnamepathTry'file = New FileStream(openF.FileName, FileMode.OpenOrCreate, FileAccess.ReadWrite)If B_boolen = "" Or B_boolen = True Thenwriter = New StreamWriter(openF.FileName, True)writer.WriteLine(str)writer.Flush()writer.Close()Elsewriter = New StreamWriter(openF.FileName, False)writer.WriteLine(str)writer.Flush()writer.Close()End Ifwriter = NothingCatch ex As ExceptionIf txtnamepath = "" Or str = "" ThenMsgBox("文件路径或字符串变量不正确")End IfMsgBox("路径填写可能不正确")End TryEnd Sub

vb.net 对文本文件的操作相关推荐

【转】vb OPen文本文件的操作
Dim uid$ Open App.Path & "\close_id.txt" For Input As #1 '记事本close_id.txt上每行一个你要关闭的程序名 ...
java对文本文件进行操作：读取、修改、添加、删除、重命名等
java对文本文件进行操作:读取.修改.添加.删除.重命名等 Java IO 也称为IO流,IO = 流,它的核心就是对文件的操作,对于字节 .字符类型的输入和输出流. IO是指对数据流的输入和输出 ...
C语言文件读写（2）-文本文件写操作
C语言文件读写-文本文件写操作在上一篇中介绍了如何读取文本文件 https://blog.csdn.net/zhanghaiyang9999/article/details/107032563 这一 ...
ObjectArx开发对txt文本文件的操作一例
// MyArxFirst.cpp : 定义 DLL 应用程序的导出函数. //ObjectArx开发对txt文本文件的操作一例 #include "stdafx.h" #incl ...
VB 读写TXT文本文件函数
以下两个函数分别读取TXT文本文件与写入文件 Private Function GetTXT(Path As String) '读取文本 Open Path For Input As #1 ...
VB 判断是否文本文件
代码如下: Option Explicit Public Function IsTextFile(Bytes() As Byte) As Boolean Dim i As Long, AscN As ...
python之文件操作、对.txt文本文件的操作（读、写、修改、复制、合并）、对json文本文件的操作、json字符串与字典的相互转换。
注意:本篇所讲的文件操作,都是对后缀为.txt..json文件进行的操作. 1.json其实就是一个文件的格式,像.txt一样,json也是一个纯文本文件.与.txt不同的是,json常用来存放有键值 ...
C语言文件读写（1）-文本文件读操作
C语言文件读写--文本文件读操作最近和几个初学C语言的朋友讨论文件读写,发现他们在使用C语言文件读写功能的时候遇到了不少问题,不是文件打开方式有问题,就是文件读写有问题,总是得不到自己想要的结果. ...
VB.NET对图片读取操作
VB.NET对图片的操作,SQL数据库中存取字段类型Image,下面对图片读取代码: 界面如下: 1. 上传按钮代码 Dim L_Err As String = ""Dim opd ...

vb.net 对文本文件的操作

vb.net 对文本文件的操作相关推荐

最新文章

热门文章