Office中国论坛/Access中国论坛
标题:
输出内容为乱码怎么解决啊?
[打印本页]
作者:
huangyz_xy
时间:
2009-8-19 23:33
标题:
输出内容为乱码怎么解决啊?
我用Print #filenum, "<name>基站</name>"输出的内容为乱码"<name>»�name>",不能显示汉字,怎么解决啊?说明:我创建的是一个KML文件(strFilter, "Unicode文件 (*.kml), *.kml", "*.kml"),改成TXT型的也不行!谢谢
作者:
leijiqiang
时间:
2009-8-20 08:06
没有研究过,期待高手
作者:
huangyz_xy
时间:
2009-8-23 23:34
这个问题没有高手研究过吗?郁闷
作者:
fan0217
时间:
2009-8-24 07:30
编码不正确吧！
作者:
fan0217
时间:
2009-8-24 07:35
建议使用DOM来处理，毕竟KML属于XML。
作者:
fan0217
时间:
2009-8-24 07:53
本帖最后由 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
复制代码
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3