在实际编程中,对于文本文件的操作往往都是比较基础的一个操作技巧。不过,运用VB.NET进行操作,则会简单的实现。那么就让大家一起来看看到底如何简单实现VB.NET操作文本文件。#t#
在.NET里的System.IO.File和System.IO.FileInfo里的OpenText和AppenText等几个方法都是使用UTF-8编码操作文件的.这就导致如果操作不是使用UTF-8编码编写的文件时将会出现乱码现象!!!
解决方法就是对文本文件使用字节流操作,即不使用.NET里提供的OpenText和AppenText等几个方法,而是将文本当成二进制文件来操作,并且在操作时使用Encoding的方法进行相应的解码即可
实现VB.NET操作文本文件代码如下:
打开文本文件:
- Public Function LoadFile
(ByVal FileName As String)
as String- If FileName= "" Then
- Return ""
- End If
- Try
- Dim FileReader As FileFileStream =
File.Open(FileName, FileMode.Open)- Dim FileByte(FileReader.Length) As Byte
- FileReader.Read(FileByte, 0,
FileReader.Length)- '转成系统对应的编码字符
- Dim MyEncoder As EncodingEncoding
= Encoding.Default- FileReader.Close()
- FileReader = Nothing
- Return New String(MyEncoder.
GetChars(FileByte))- Catch e As Exception
- Return ""
- End Try
- End Sub
保存文件:
- Public Sub SaveToFile(ByRef Conten
As String, ByVal FileName As String)- '/*将Conten字符串的内容写入FileName文件
- If FileName = "" Then
- Exit Sub
- End If
- Try
- Dim FileToWrite As FileFileStream
= File.Create(FileName)- Dim rByte() As Byte = Encoding.
Default.GetBytes(Conten.ToCharArray)- FileToWrite.Write(rByte, 0,
rByte.Length)- FileToWrite.Close()
- FileToWrite = Nothing
- Catch e As Exception
- End Try
- End Sub
使用上面二个VB.NET操作文本文件的方法即可实现使用当前系统对应的编码操作文本文件.可避免乱码的问题....
分享名称:VB.NET操作文本文件具体方式讲解
网页网址:http://www.shufengxianlan.com/qtweb/news7/312557.html
网站建设、网络推广公司-创新互联,是专注品牌与效果的网站制作,网络营销seo公司;服务项目有等
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联