24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

deephill

铁杆木虫 (职业作家)

应助: 59 (初中生)
金币: 5262.3
散金: 100
红花: 16
帖子: 4425
在线: 425小时
虫号: 305318
注册: 2006-12-09
性别: GG
专业: 微量元素地球化学

[求助] vb读 "UTF-8" 编码乱码如何解决？

最近遇到一个问题：用vb读取kml文件，（在googlemap中标记的点保存为kml类型的文件）文件中采用encoding="UTF-8" 编码，用richtextbox load，和Open FileName For Binary As #1 读出来，其中的汉字都是乱码。如何处理？如何转换成unicode？
文件中多数是英文字母，怎样选择性的将汉字转换成可以识别的汉字？

回复此楼

» 猜你喜欢

职称评审没过，求安慰已经有21人回复
垃圾破二本职称评审标准已经有15人回复
投稿Elsevier的Neoplasia杂志，到最后选publishing options时页面空白，不能完成投稿已经有20人回复
EST投稿状态问题已经有7人回复
谈谈两天一夜的“延安行” 已经有15人回复
毕业后当辅导员了，天天各种学生超烦已经有4人回复
聘U V热熔胶研究人员已经有10人回复
求助文献已经有3人回复
投稿返修后收到这样的回复，还有希望吗已经有8人回复
三无产品还有机会吗已经有6人回复

1楼2013-06-01 21:01:22

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

libralibra

至尊木虫 (著名写手)

骠骑将军

程序强帖: 40
应助: 817 (博后)
金币: 12914.1
红花: 64
帖子: 2238
在线: 287.3小时
虫号: 696514
注册: 2009-02-05
专业: 计算机软件

【答案】应助回帖

如果是.net有方便的控件,如果是vb6,用adodb来试试,示例如下

CODE:

Dim objStream As Object

Set objStream = CreateObject("ADODB.Stream")

With objStream

        .Type = 2

        .Mode = 3 

        .Open 

        .Charset = "UTF-8" ' 编码 

        .LoadFromFile "文件路径" 

        .ReadText ' 读取内容

        ' 或者用 .SaveToFile 方法保存文件

        .Close

End With