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

ASP.NET
asp.net css注释的影响
ASP.NET与数据库相关技巧
关于HtmlForm控件
三色交替的下拉列表框
精通ASP.NET中弹出窗口技术
ASP.NET Forums与现有系统整合方案示例
ASP.NET操作IIS中的虚拟目录
DataGrid与SQL Server 2000数据绑定
如何让Web应用程序在Client端实现导出报表功能
如何保证web app中的Send Email线程稳定性
关于用ASP.Net识别远程主机服务器种类
ASP.NET中上传下载文件
提高ASP.NET性能的方法
asp.net StreamReader 创建文件
asp.net如何生成图片验证码(简单)
一个.net 压缩位图至JPEG的代码
简单的SQL Server数据库数据读取与数据操作
获取网站的RSS聚合到自己的网页
.Net程序中整站通用的防SQL注入函数
asp.net生成缩略图及给原始图加水印的函数

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 146 ::
收藏到网摘: 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

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