Question

VB 中怎样把含有unicode编码的网页源码转换为带有汉字的源码？

如题，我想用VB把一些含有unicode汉字编码的网页源文件转换，让它成为易懂的含中文的网页源码。如：
<?xml version="1.0"?>
<wml>
<a href="baidu.com">刷新</a>
</wml>
转换后得到：
<?xml version="1.0"?>
<wml>
<a href="baidu.com">刷新</a>
</wml>
谁可以帮帮我啊？
原因是网页自动把我的代码转换了。大家看图片，加分中

Answer 1

unicode编码不需要转换成汉字，因为unicode就是和字符关联的终极编码。
windows中只有unicode码可以和字符直接关联，也就是使用国际标准的unicode字符集。
中文windowsXp默认的内码是gbk(装过gb18030补丁的话也就变成gb18030)，日文系统就是JIS，不同语言版本的windows都有不同的默认内码，这是每个国家的标准化管理局规定的。
然后就是页码表的概念，所谓页码表就是把一个用系统默认编码（比如gbk，gb2312）表示的字符映射到对应unicode编码，而每个unicode编码对应着唯一确定的字符。这样就完成了地域性编码到国际标准码再到字符的对应关系。
在控制面板->区域和语言选择->高级，里面可以看到window提供的所有页码表。

绝非转载，无参考内容，均为个人理解参悟内容。

Answer 2

Private Sub Command1_Click()
Dim st$, n&, temp$
'=======打开要转换的文件，路径文件名自己设======
temp = "e:\22.txt" '文件路径和文件名需要你自己改
Open temp For Input As #1: st = Input(LOF(1), 1): Close #1
'================转换ing================
Do
n = InStr(n + 1, st, "&#x"): If n = 0 Then Exit Do
temp = ChrW(CInt("&H" & Mid(st, n + 3, 4)))
st = Replace(st, Mid(st, n, 8), temp)
Loop
'========输出转换后的文件，路径文件名自己设======
temp = "e:\22_ChrW.txt" '文件路径和文件名需要你自己改
Open temp For Output As #1: Print #1, st: Close #1
Shell "notepad " & temp, 1
End Sub
'不明白在Hi我吧

Answer 3

VB版本 所用控件 还有你最终想要达到什么效果？