日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

在實際編程中，對于文本文件的操作往往都是比較基礎(chǔ)的一個操作技巧。不過，運用VB.NET進行操作，則會簡單的實現(xiàn)。那么就讓大家一起來看看到底如何簡單實現(xiàn)VB.NET操作文本文件。#t#

在.NET里的System.IO.File和System.IO.FileInfo里的OpenText和AppenText等幾個方法都是使用UTF-8編碼操作文件的.這就導(dǎo)致如果操作不是使用UTF-8編碼編寫的文件時將會出現(xiàn)亂碼現(xiàn)象!!!

解決方法就是對文本文件使用字節(jié)流操作,即不使用.NET里提供的OpenText和AppenText等幾個方法,而是將文本當(dāng)成二進制文件來操作,并且在操作時使用Encoding的方法進行相應(yīng)的解碼即可

實現(xiàn)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)   
  
  
  
'轉(zhuǎn)成系統(tǒng)對應(yīng)的編碼字符   
  
  
  
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字符串的內(nèi)容寫入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操作文本文件的方法即可實現(xiàn)使用當(dāng)前系統(tǒng)對應(yīng)的編碼操作文本文件.可避免亂碼的問題....

本文名稱：VB.NET操作文本文件具體方式講解
文章出自：http://m.5511xx.com/article/codojge.html