Foxtable(狐表)用户栏目专家坐堂 → 在foxtable中形成了一个字符串,将它存为编码为"UTF-8",后缀为.kml的文件,并起动它,该怎么操作


  共有20585人关注过本帖树形打印复制链接

主题:在foxtable中形成了一个字符串,将它存为编码为"UTF-8",后缀为.kml的文件,并起动它,该怎么操作

帅哥哟,离线,有人找我吗?
mr725
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/11/15 12:19:00 [显示全部帖子]

这样了:

Dim a  As String
a = "<?xmlversion=""1.0""encoding=""UTF-8""?>" & vbcrlf & _
"<kmlxmlns=""http://earth.google.com/kml/2.2"">" & vbcrlf & _
"<!--ProcessedbyGE-Path-->" & vbcrlf & _
"<Document>" & vbcrlf & _
"<name>New-Path</name>" & vbcrlf & _
"<open>1</open>" & vbcrlf & _
"<LookAt>" & vbcrlf & _
"<longitude>2.2</longitude>" & vbcrlf & _
"<latitude>1.11</latitude>" & vbcrlf & _
"<range>1000000</range>" & vbcrlf & _
"<tilt>0</tilt>" & vbcrlf & _
"<heading>0</heading>" & vbcrlf & _
"</LookAt>" & vbcrlf & _
"<Styleid=""sgrillo1"">" & vbcrlf & _
"<IconStyle>" & vbcrlf & _
"<Icon>" & vbcrlf & _
"<href>root://icons/palette-4.png</href>" & vbcrlf & _
"<y>128</y>" & vbcrlf & _
"<w>32</w>" & vbcrlf & _
"<h>32</h>" & vbcrlf & _
"</Icon>" & vbcrlf & _
"</IconStyle>" & vbcrlf & _
"</kml>"
Output.Show(a)

[此贴子已经被作者于2010-11-15 12:19:48编辑过]

 回到顶部