.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
VBnet操作文本文件的问题

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

.net里面的StreamReader读取文本文件默认使用utf-8的编码,因此,如果你写一个最简单的使用StreamReader.ReadToEnd的方法读出一个文本文件放入文本框中,八成出现的是乱码。因为在中文系统上,纯文本文件默认的保存编码是ASCII。
但是使用的时候也不能全部都按照ASCII来读,因为你也无法保证系统上是否会读到UNICODE的文件。因此,需要一个侦测文件编码类型并且能够按照相应类型来读取的方法。
找了一个小时,终于找到了。
如果文件是有特定编码格式的,这个编码会记录在文件的头四个字节里。因此,读出这四个字节,检查是否是Unicode就可以了。如果这四个字节并没有特定的意义,你就只能猜测一个了,一般情况下,就Default就比较合适了。
    Public Function LoadFile(ByVal FileName As String) As String
        Dim enc As Encoding
        Dim file As FileStream = New FileStream(FileName, FileMode.Open, FileAccess.Read, FileShare.Read)
        If file.CanSeek Then
            Dim bom(3) As Byte
            file.Read(bom, 0, 4)
            If ((bom(0) = &HEF And bom(1) = &HBB And bom(2) = &HBF) Or (bom(0) = &HFF And bom(1) = &HFE) Or (bom(0) = &HFE And bom(1) = &HFF) Or (bom(0) = 0 And bom(1) = 0 And bom(2) = &HFE And bom(3) = &HFF)) Then
                enc = Encoding.Unicode
            Else
                enc = Encoding.Default
            End If
            file.Seek(0, SeekOrigin.Begin)
        Else
            enc = Encoding.Default
        End If
        Dim FileByte(file.Length) As Byte
        file.Read(FileByte, 0, file.Length)
        '转成系统对应的编码字符
        Dim MyEncoder As Encoding = enc
        file.Close()
        file = Nothing
        Return New String(MyEncoder.GetChars(FileByte))
    End Function



相关文章

相关软件