[TA原创]VB2010读写文本文件【不会乱码】

Tesla.Angela

网上不少类似的代码都没有考虑编码格式，导致读取中文时会乱码，这份代码读取中文文件时不会乱码！

1. 
   
2. Imports System.IO
   
3. 
   
4. '参数：文件名
   
5. Public Function EasyReadFile(ByVal f As String) As String
   
6.         Dim objFile As New System.IO.StreamReader(f, System.Text.Encoding.Default)
   
7.         Dim sz As String = objFile.ReadToEnd()
   
8.         objFile.Close()
   
9.         objFile.Dispose()
   
10.         Return sz
    
11. End Function
    
12. 
    
13. '参数：文件名, 内容
    
14. Public Sub EasyWriteFile(ByVal f As String, ByVal s As String)
    
15.         Dim sw As StreamWriter = New StreamWriter(f, False, System.Text.Encoding.Default)
    
16.         sw.Write(s)
    
17.         sw.Flush()
    
18.         sw.Close()
    
19. End Sub
    

复制代码