VB.NET中怎么操作文本文件
今天就跟大家聊聊有关VB.NET中怎么操作文本文件,可能很多人都不太了解,为了让大家更加了解,小编给大家总结了以下内容,希望大家根据这篇文章可以有所收获。
创新互联公司专注为客户提供全方位的互联网综合服务,包含不限于成都做网站、网站制作、临县网络推广、微信小程序定制开发、临县网络营销、临县企业策划、临县品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联公司为所有大学生创业者提供临县建站搭建服务,24小时服务热线:18980820575,官方网址:www.cdcxhl.com
在.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 StringIf 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.DefaultFileReader.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://myzitong.com/article/picjcj.html