温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

VB.NET中怎么操作文本文件

发布时间:2021-07-15 11:32:46 来源:亿速云 阅读:114 作者:Leah 栏目:编程语言

今天就跟大家聊聊有关VB.NET中怎么操作文本文件,可能很多人都不太了解,为了让大家更加了解,小编给大家总结了以下内容,希望大家根据这篇文章可以有所收获。

在.NET里的System.IO.File和System.IO.FileInfo里的OpenText和AppenText等几个方法都是使用UTF-8编码操作文件的.这就导致如果操作不是使用UTF-8编码编写的文件时将会出现乱码现象!!!

解决方法就是对文本文件使用字节流操作,即不使用.NET里提供的OpenText和AppenText等几个方法,而是将文本当成二进制文件来操作,并且在操作时使用Encoding的方法进行相应的解码即可

实现VB.NET操作文本文件代码如下:

打开文本文件:

  1. Public Function LoadFile
    (ByVal FileName As String) 
    as String   

  2. If FileName= "" Then   

  3. Return ""   

  4. End If   

  5. Try   

  6. Dim FileReader As FileFileStream = 
    File.Open(FileName, FileMode.Open)   

  7. Dim FileByte(FileReader.Length) As Byte   

  8. FileReader.Read(FileByte, 0, 
    FileReader.Length)   

  9. '转成系统对应的编码字符   

  10. Dim MyEncoder As EncodingEncoding 
    = Encoding.Default   

  11. FileReader.Close()   

  12. FileReader = Nothing   

  13. Return New String(MyEncoder.
    GetChars(FileByte))   

  14. Catch e As Exception   

  15. Return ""   

  16. End Try   

  17. End Sub  

保存文件:

  1. Public Sub SaveToFile(ByRef Conten 
    As String, ByVal FileName As String)   

  2. '/*将Conten字符串的内容写入FileName文件   

  3. If FileName = "" Then   

  4. Exit Sub   

  5. End If   

  6. Try   

  7. Dim FileToWrite As FileFileStream 
    = File.Create(FileName)   

  8. Dim rByte() As Byte = Encoding.
    Default.GetBytes(Conten.ToCharArray)   

  9. FileToWrite.Write(rByte, 0, 
    rByte.Length)   

  10. FileToWrite.Close()   

  11. FileToWrite = Nothing   

  12. Catch e As Exception   

  13. End Try   

  14. End Sub  

看完上述内容,你们对VB.NET中怎么操作文本文件有进一步的了解吗?如果还想了解更多知识或者相关内容,请关注亿速云行业资讯频道,感谢大家的支持。

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI