编码转换问题

gotorun 2008-11-27 04:45:53
想将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

经测试,不可用。哪位帮忙写个可用的,谢谢
...全文
104 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
claymore1114 2008-11-28
  • 打赏
  • 举报
回复
关注
qinhl99 2008-11-28
  • 打赏
  • 举报
回复
请参考!

Dim iso,gb as String
gb = System.Text.Encoding.GetEncoding("iso-8859-1").GetString(System.Text.Encoding.GetEncoding("gb2312").GetBytes(iso))
iso = System.Text.Encoding.GetEncoding("gb2312").GetString(System.Text.Encoding.GetEncoding("iso-8859-1").GetBytes(gb))
yanlongwuhui 2008-11-28
  • 打赏
  • 举报
回复
直接敲的,没法测试,可以试下:
Dim bteI As Byte()
bteI = System.Text.Encoding.GetEncoding("ISO-8859-1").GetBytes(str)
Return System.Text.Encoding.GetEncoding("GB2312").GetString(bteI)
qinhl99 2008-11-28
  • 打赏
  • 举报
回复
up
gotorun 2008-11-28
  • 打赏
  • 举报
回复
1楼的经测试,不可用。请回复的朋友本着负责的原则,测试可行后再回复,谢谢。
feiyun0112 2008-11-27
  • 打赏
  • 举报
回复
bteU = System.Text.Encoding.Convert(System.Text.Encoding.GetEncoding("ISO-8859-1"), System.Text.Encoding.GetEncoding("GB2312"), bteI)


*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)
http://feiyun0112.cnblogs.com/

16,549

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧