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


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

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

帅哥哟,离线,有人找我吗?
mr725
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251397 威望:0 精华:91 注册:2008/6/17 17:14: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:49编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
小狐
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:734 积分:5645 威望:0 精华:0 注册:2008/9/6 11:22:00
  发帖心情 Post By:2010/11/15 12:42:00 [只看该作者]

图片点击可在新窗口打开查看,还真不知道要再引一个,出错了看了提示也没有发现
[此贴子已经被作者于2010-11-15 12:43:39编辑过]

 回到顶部
总数 13 上一页 1 2