VB.NET操作文本文件具体方式讲解-vb.net 文件操作

在实际编程中，对于文本文件的操作往往都是比较基础的一个操作技巧。不过，运用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  
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.

保存文件:

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  
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

使用上面二个VB.NET操作文本文件的方法即可实现使用当前系统对应的编码操作文本文件.可避免乱码的问题....