急呀,在线等!!!VB昨天自己弄了一天都没能解决的问题,怎样手动改成自动

[复制链接]
查看11 | 回复1 | 2008-8-14 16:28:22 | 显示全部楼层 |阅读模式
Open "c:\aaa.kml" For Output As #1
Print #1, ""

以下省略```````````````````````
我在vb中保存方式是utf-8,但生成的KML文件在google earth找开,中文变成乱码,要"手动"将生成的aaa.kml文件用记事本方式打开,然后另存为,编码方式选 utf-8,或unicode后直接覆盖原文件,才能在google earth正常显示中文,是不是Print #1, ""
这条语句有问题呀???
问题就是怎样改变编码方式?下面那种方法可行呢?
a.在vb输出文件时直接用语句改变编码方式,有这样的语句吗???好心人举个例呀
b.生成的文件用 Shell "c:\windows\notepad.exe", 1
然后用notepad.exe打开aaa.kml,然后用另存为方式,选择编成方式为utf-8或unicode用vb语句怎样实现吗?每次都要手动好辛苦呀,而且文件不只一个呀,是批量呀,谁能帮帮我呀~~~~
我vb不太懂,望大家帮我解决下呀,我一直给这个问题卡住了,自己昨天在网上找了一天也弄不好,55555555~~~~

回复

使用道具 举报

千问 | 2008-8-14 16:28:22 | 显示全部楼层
你的思路没有对哈Open "c:\aaa.kml" For Output As #1 Print #1, "" 这一句根本就不是对保存格式做要求,而只是写了" 这样一个字符串到文本文件中;在网上查了查,好像的确没什么这方面的问题解答,于是花了点时间来研究;下面这些语句可以解决你的问题: 首先,你要引用VB的ADODB控件,然后用下面的语句:
dim obj as object
set obj as new adodb.stream
with
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行