当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 在VB.NET里操作文本文件

ASP.NET
Asp.net 时间操作基类(支持短日期,长日期,时间差)
asp.net 获取机器硬件信息(cpu频率、磁盘可用空间、内存容量等)
asp.net 数据库备份还原(sqlserver+access)
Asp.Net 数据操作类(附通用数据基类)
Asp.net 弹出对话框基类(输出alet警告框)
Asp.net 文件上传类(取得文件后缀名,保存文件,加入文字水印)
Asp.net Socket客户端(远程发送和接收数据)
Asp.net 字符串操作基类(安全,替换,分解等)
Asp.Net数据输出到EXCEL表格中
asp.net Gridview里添加汇总行
asp.net UpdatePanel的简单用法
asp.net ajaxControlToolkit FilteredTextBoxExtender的简单用法
this connector is disabled错误的解决方法
sql事务应用积累
asp.net Page.Controls对象(找到所有服务器控件)
在asp.NET中字符串替换的五种方法
ASP.NET缓存方法分析和实践示例代码
asp.net 在DNN模块开发中遇到的resx怪问题
ASP.NET State service状态服务的问题解决方法
asp.net 结合mysql存储过程进行分页代码

ASP.NET 中的 在VB.NET里操作文本文件


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 187 ::
收藏到网摘: n/a


在.NET里的System.IO.File和System.IO.FileInfo里的OpenText和AppenText等几个方法都是使用UTF-8编码操作文件的.这就导致如果操作不是使用UTF-8编码编写的文件时将会出现乱码现象!!!
解决方法就是对文本文件使用字节流操作,即不使用.NET里提供的OpenText和AppenText等几个方法,而是将文本当成二进制文件来操作,并且在操作时使用Encoding的方法进行相应的解码即可.实现代码如下:
打开文本文件:
Public Function LoadFile(ByVal FileName As String) as String
If FileName= "" Then
Return ""
End If
Try
Dim FileReader As FileStream = File.Open(FileName, FileMode.Open)
Dim FileByte(FileReader.Length) As Byte
FileReader.Read(FileByte, 0, FileReader.Length)
'转成系统对应的编码字符
Dim MyEncoder As Encoding = 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字符串的内容写入FileName文件
If FileName = "" Then

Exit Sub
End If
Try
Dim FileToWrite As FileStream = 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

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