输出内容为乱码怎么解决啊?

huangyz_xy · 发表于 2009-8-19 23:33:23

我用Print #filenum, "<name>基站</name>"输出的内容为乱码"<name>»�name>",不能显示汉字,怎么解决啊?说明:我创建的是一个KML文件(strFilter, "Unicode文件 (*.kml), *.kml", "*.kml"),改成TXT型的也不行!谢谢

leijiqiang · 发表于 2009-8-20 08:06:24

没有研究过,期待高手

huangyz_xy · 发表于 2009-8-23 23:34:21

这个问题没有高手研究过吗?郁闷

fan0217 · 发表于 2009-8-24 07:30:34

编码不正确吧！

fan0217 · 发表于 2009-8-24 07:35:24

建议使用DOM来处理，毕竟KML属于XML。

fan0217 · 发表于 2009-8-24 07:53:47

本帖最后由 fan0217 于 2009-8-23 11:56 编辑

用以下代码可解决你的问题，记住要事先引用xml，否则会报错的。

Function CreateKML(filePath As String)
Dim doc As New DOMDocument
Dim root As IXMLDOMElement
Dim node As IXMLDOMNode
doc.resolveExternals = True
Set node = doc.createProcessingInstruction("xml", "version='1.0' encoding='utf-8'")
Set node = doc.insertBefore(node, doc.childNodes.item(0))
Set root = doc.createElement("root") '添加根Root，XML必要有且只能有一个跟节点。名称可根据需要修改。
Set doc.documentElement = root
root.setAttribute "xmlns:dt", "urn:schemas-microsoft-com:datatypes"
Set node = doc.createElement("name") '添加节点name
node.Text = "Name的值"
root.appendChild node
'还有节点请在这个位置参考上面代码添加
doc.Save filePath '保存文件，文件名称用kml后缀即可。
End Function
Sub Test()
CreateKML "C:\q.kml"
End Sub

复制代码

帐号		自动登录	找回密码
密码			注册

[宏/菜单/工具栏] 输出内容为乱码怎么解决啊?

群介绍
主题无相 (随机显示版	同地区群块其他地区)