vb.net 判断文件编码的方法

发布时间：2020-12-17 07:40:36 所属栏目：百科来源：网络整理

导读：vb.net 判断文件编码的三种方法使用方法： GetEncoding(文件名) ' 读取文本文件的内容 ' ' 文件名 ' 文件编码 ' 文件内容 Public Function ReadFile(ByVal fileName As String) As String If File.Exists(fileName) Then Return File.ReadAllText(fileName,

vb.net 判断文件编码的三种方法

使用方法：GetEncoding(文件名)

' 读取文本文件的内容

' 文件名

' 文件编码

' 文件内容

Public Function ReadFile(ByVal fileName As String) As String

If File.Exists(fileName) Then

Return File.ReadAllText(fileName,GetEncoding(fileName))

Else

Return string.Empty

End If

End Function

' 判断文件编码类型

Public Overloads Shared Function GetEncoding(ByVal fileName As String) As Encoding

Dim fs As FileStream = New FileStream(fileName,FileMode.Open,FileAccess.Read)

Dim r As Encoding = GetEncoding(fs)

fs.Close

Return r

End Function

' 判断文件流编码类型

Private Overloads Shared Function GetEncoding(ByVal fs As FileStream) As Encoding

Dim r As BinaryReader = New BinaryReader(fs,System.Text.Encoding.Default)

Dim ss() As Byte = r.ReadBytes(3)

r.Close

If (ss(0) >= 239) Then

Return Encoding.UTF8

If ((ss(0) = 254) _

AndAlso (ss(1) = 255)) Then

Return Encoding.BigEndianUnicode

ElseIf ((ss(0) = 255) _

AndAlso (ss(1) = 254)) Then

Return Encoding.Unicode

Else

Return Encoding.Default

End If

Else

Return Encoding.Default

End If

End Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!