编码转换问题
想将ISO-8859-1和GB2312之间互相转换,代码如下:
Public Shared Function IsoToGb(ByVal str As String) As String
Dim bteU, bteG, bteI As Byte()
bteI = System.Text.Encoding.GetEncoding("ISO-8859-1").GetBytes(str)
bteU = System.Text.ASCIIEncoding.Convert(System.Text.ASCIIEncoding.GetEncoding("ISO-8859-1"), System.Text.ASCIIEncoding.GetEncoding("GB2312"), bteI)
Return System.Text.Encoding.GetEncoding("GB2312").GetString(bteU)
End Function
Public Shared Function GbToIso(ByVal str As String) As String
Dim bteU, bteG, bteI As Byte()
bteI = System.Text.Encoding.GetEncoding("GB2312").GetBytes(str)
bteU = System.Text.ASCIIEncoding.Convert(System.Text.ASCIIEncoding.GetEncoding("GB2312"), System.Text.ASCIIEncoding.GetEncoding("ISO-8859-1"), bteI)
Return System.Text.Encoding.GetEncoding("ISO-8859-1").GetString(bteU)
End Function
经测试,不可用。哪位帮忙写个可用的,谢谢