vb.net 教程 4-8 文本文件读写 4
来源:互联网 发布:知乎 渡边信一郎 编辑:程序博客网 时间:2024/06/05 02:38
继续上一节,继续读写代码的编写。
为了简化操作,所有的Encoding均采用Encoding.Default。
读取方式5:
直接使用StreamReader( '参数1:要打开的文件全路径,参数2:编码格式)
读取方式:循环读取指定数量的字符串,
读取方式:循环读取指定数量的字符串,
Private Sub readText5(ByVal filename As String) Dim textContent As String Dim buffer() As Char Dim lenRead As Integer = 200 Dim readLength As Integer Dim sr As New StreamReader(filename, Encoding.Default) Do ReDim buffer(lenRead - 1) readLength = sr.Read(buffer, 0, lenRead) If readLength <= 0 Then Exit Do textContent = New String(buffer) txtFile.Text &= textContent Loop While True sr.Close() End Sub
写入方法5:
直接使用StreamWriter( 参数1:要写入的文件全路径,参数2:编码格式)
写入方式:循环写入指定数量的字符串
写入方式:循环写入指定数量的字符串
Private Sub writeText5(ByVal filename As String) Dim textContent As String = txtFile.Text Dim buffer() As Char = textContent.ToCharArray Dim lenTotal As Long = buffer.Length Dim lenWrite As Integer = 30 Dim buffPos As Integer = 0 'Dim fs As New FileStream(filename, FileMode.OpenOrCreate) 'Dim sw As New StreamWriter(fs) Dim sw As New StreamWriter(filename, False) Do While buffPos < lenTotal If buffPos + lenWrite > lenTotal Then lenWrite = lenTotal - buffPos End If sw.Write(buffer, buffPos, lenWrite) buffPos += lenWrite Loop sw.Close() End Sub
读取方式6:
直接使用File的方法ReadAllText()
Private Sub readText6(ByVal filename As String) Dim textContent As String textContent = File.ReadAllText(filename, Encoding.Default) txtFile.Text = textContent End Sub
写入方式6:
直接使用File的方法WriteAllText()
Private Sub writeText6(ByVal filename As String) Dim textContent As String = txtFile.Text File.WriteAllText(filename, textContent, Encoding.Default) End Sub
以上提供了6种读写文本文件的方法,各位读者请根据实际情况使用最方便的方法。
由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。
学习更多vb.net知识,请参看vb.net 教程 目录
阅读全文
0 0
- vb.net 教程 4-8 文本文件读写 4
- vb.net 教程 4-8 文本文件读写 1
- vb.net 教程 4-8 文本文件读写 2
- vb.net 教程 4-8 文本文件读写 3
- vb.net 教程 4-8 文本文件读写 5
- VB.NET读写文本文件方法
- vb.net 教程 4-7 文本文件编码 1
- vb.net 教程 4-7 文本文件编码 2
- vb.net 教程 4-9 二进制文件读写 1
- vb.net 教程 4-9 二进制文件读写 2
- vb.net 教程 4-9 二进制文件读写 3
- vb中读写文本文件
- VB 读写UTF8文本文件
- [VB.NET]求个读写文本文件的思路
- VB.NET 读写文本文件,终于有点明白了
- vb.net 教程 4-9 二进制文件读写 游戏存档修改器
- vb.net 教程 8-2 简单的SQL语言4
- vb.net 教程 8-3 数据库操作4
- 二维数组中的查找+旋转数组的最小数字+跳台阶迭代+求幂次+调整数组使奇数位于偶数之前
- Leetcode# 268. Missing Number(异或)
- GAN 入门
- 利用hackbar进行sql注入简单实例
- python学习(二)
- vb.net 教程 4-8 文本文件读写 4
- Logistic回归
- 猜数字
- 洛谷 P3773 [CTSC2017]吉夫特(bzoj P4903 [CTSC2017]吉夫特/uoj P300【CTSC2017】吉夫特)
- JAVA8 匿名内部类和lambda表达式
- JavaScript进行Form表单验证
- 实例学习STL之队列
- 在windows2008上搭建Seafile开源网盘系统
- hdu1542线段树+离散化+扫描线详解