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

fan0217

编码不正确吧！

fan0217

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

fan0217

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

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

复制代码