Question

vb6中如何把一个汉字或英文转换成utf8的编码？？？

比如石柱，utf8中是%E7%9F%B3%E6%9F%B1？？

Answer 1

问题是：
网址中有下面的字符，实际上第一行代表三个汉字，下一行是四个汉字，现在的问题是我想把手头的汉字转成它们的样式，该如何操作呢？
%E8%B0%AD%E5%B0%8F%E8%8B%97
%E6%AC%A2%E4%B9%90%E5%AE%B6%E7%A6%8F
三个%开头的内容表示一个汉字，应该是UTF8格式的。%的分隔好说，所以问题也就是我们常用的GB码如何到UTF8的问题，我进一步查资料表明，如果找到该汉字的unicode码就更方便进行转换了。

GB/gbk------>unicode------->UTF8???

5楼方法很好，谢谢你啊！暂不结贴，因为难道只能放到创建窗口完毕中用吗？我放到其它地方(开了多线程中)却不成！！！输出为空“”！为什么？
我又看了一下，在执行那儿就不行，输出的错误信息没有什么价值。而在完毕事件或其它事件中执行是成功的！如果非要这样它又有多少用处呢？这个好东西该怎么样用呢？！

上面的问题，有支持库可以直接解决它，调用一下就可以了！

.版本 2
.支持库 iconv
转换编码 ＝ 编码转换 (到字节集 (当前帐户), #编码_GB2312, #编码_UTF_8, )
输出调试文本 (到文本 (转换编码))
.计次循环首 (取字节集长度 (转换编码), 计次)
字节 ＝ 到字节 (取字节集数据 (转换编码, 3, 计次))
' 输出调试文本 (取字节集数据 (转换编码, 3, 计次))
.如果 (字节 ＞ 127)
结果 ＝ 结果 ＋ “%” ＋ 取十六进制文本 (到数值 (字节))
.否则
结果 ＝ 结果 ＋ 字符 (字节)
.如果结束

.计次循环尾 ()

Answer 2

Dim stm
Set stm = CreateObject("adodb.stream")
stm.type = 2
stm.Mode = 3
stm.Charset = "UTF-8"
stm.open
stm.WriteText Mazmun
stm.SaveToFile strFileName, 2
stm.flush
stm.Close
Set stm = Nothing
MsgBox aw & "转" & "UTF-8" & "成功!", , "提示"