VBnet操作文本文件的问题

.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

本文地址：http://com.8s8s.com/it/it42071.htm