全局代码改改
Public Function GetFileEncodeType(filename As String) As System.Text.Encoding
Dim fs = new System.IO.FileStream(filename, System.IO.FileMode.Open, System.IO.FileAccess.Read)
Dim br = new System.IO.BinaryReader(fs)
Dim buffer = br.ReadBytes(2)
Dim code As System.Text.Encoding = System.Text.Encoding.Default
If buffer(0) >= &HEF Then
If buffer(0) = &HEF AndAlso buffer(1) = &HBB
code = System.Text.Encoding.UTF8
Else If buffer(0) = &HFE AndAlso buffer(1) = &HFF
code = System.Text.Encoding.BigEndianUnicode
Else If buffer(0) = &HFF AndAlso buffer(1) = &HFE
code = System.Text.Encoding.Unicode
End If
End If
br.close
fs.close
Return code
End Function
[此贴子已经被作者于2017/4/22 14:36:38编辑过]