百度地图里的距离还有写的打出租车的正确手势价钱正确吗？

来源：蜘蛛抓取(WebSpider) 时间：2016-11-03 07:23 标签： 百度地图出租车
查看: 3583|回复: 20
如何获取百度地图中的距离？
阅读权限20
在线时间 小时
如图，我在百度中这样查询后，如何返回它的这个公里数？有比较多的数据，麻烦各位看看
A123.PNG (41.05 KB, 下载次数: 4)
23:00 上传
阅读权限20
在线时间 小时
顶一下。。。
阅读权限20
在线时间 小时
哪位老师帮忙看一看，谢谢
阅读权限30
在线时间 小时
看了,找到距離,但找不到時間,應該說找出來的很奇怪..........
阅读权限95
在线时间 小时
blanksoul12 发表于
看了,找到距離,但找不到時間,應該說找出來的很奇怪..........
14-24-20.png (54.58 KB, 下载次数: 3)
14:26 上传
阅读权限30
在线时间 小时
Sub Main() '主體代碼
& & Dim strText As String
& & Dim objJSON As Object
& & URL = &/?&
& & URL = URL & &&qt=nav&
& & URL = URL & &&da_src=pcmappg.searchBox.button&
& & URL = URL & &&c=1&
& & URL = URL & &&sn=& & Escape(&2$$$成都市$0$$&)
& & URL = URL & &&en=& & Escape(&2$$$杭州市$0$$&)
& & With CreateObject(&MSXML2.XMLHTTP&)
& && &&&.Open &GET&, URL & &&t=& & Rnd(), False
& && &&&.send
& && &&&strText = .responseText
& && &&&CopyToClipbox strText
& & End With
& &
& & With CreateObject(&msscriptcontrol.scriptcontrol&)
& && &&&.Language = &JavaScript&
& && &&&.AddCode &var mydata=& & strText
& && &&&Set objJSON = .CodeObject
& & End With
& & Set temp_call = CallByName(objJSON.mydata, &content&, VbGet)
& & Debug.Print temp_call.dis
& & temp_time = CallByName(temp_call, &time&, VbGet)
& & Debug.Print temp_time
& & Debug.Print temp_time / 3600
End Sub
Public Function Escape(ByVal strText As String) As String& &&&'如果值中?有非英文和?字，?需??成%形式
& & Set JS = CreateObject(&msscriptcontrol.scriptcontrol&)
& & JS.Language = &JavaScript&
& & Escape = JS.Eval(&encodeURI('& & Replace(strText, &'&, &\'&) & &');&)
End Function复制代码我只真入這些,可以嗎? 但找出來的時間次次不同的,不明白
阅读权限20
在线时间 小时
blanksoul12 发表于
我只真入這些,可以嗎? 但找出來的時間次次不同的,不明白
老师，好，这个报错，是不是你是繁体的原因？我是简体的
阅读权限20
在线时间 小时
& & & & & & & &
wcymiss 发表于
老师好，这个动态的参数两个地方要修改哪里能否给个连接，我去修改两个地址就行
阅读权限20
在线时间 小时
顶一下。。。
阅读权限95
在线时间 小时
& & & & & & & &
本帖最后由 wcymiss 于
19:29 编辑
我也是马甲 发表于
老师好，这个动态的参数两个地方要修改哪里能否给个连接，我去修改两个地址就行
Sub Main()
& & Const CityFrom As String = &成都&
& & Const CityTo As String = &杭州&
& & Dim strText As String
& & Dim URL As String
& & Dim dis, mtime
& &
& & URL = &/?&
& & URL = URL & &qt=nav&
& & URL = URL & &&c=223&
& & URL = URL & &&sn=2$$$$$$& & CityFrom & &$$0$$$$&
& & URL = URL & &&en=2$$$$$$& & CityTo & &$$0$$$$&
& &
& & With CreateObject(&MSXML2.XMLHTTP&)
& && &&&.Open &GET&, URL, False
& && &&&.Send
& && &&&strText = .responsetext
& && &&&dis = Val(Split(strText, &&&dis&&:&)(1))
& && &&&mtime = Val(Mid(strText, InStrRev(strText, &&&time&&:&) + 7))
& && &&&MsgBox &约& & Format(dis / 1000, &0.00公里/&) & Format(mtime / 86400, &hh小时nn分钟&)
& & End With
End Sub复制代码
最新热点 /1
只要3分钟，完成微软安卓版Office体验问卷，微软官方定制好礼就送到你面前：证书、卫衣、电脑内胆包等,好礼多，中奖几率高，极具纪念意义!
嘘，一般人，我不告诉他。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师&&&&根据百度地图获取两地之间的车驶里程
根据百度地图获取两地之间的车驶里程
javascript代码 输入两地名称即可得知两地路线距离
若举报审核通过，可奖励20下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：
VIP下载&&免积分60元/年（1200次）
您可能还需要
开发技术下载排行关于百度地图的导航的个人建议
百度地图作为普及率极高的一款导航软件（当然，还有高德地图，因为没使用过，所以不能妄加评论），大大便捷了我们的生活，一图在手，从此妈妈再也不用担心我迷路了，不怕被人坑，不怕被人骗，想去哪里，目的地输入之后，各种方式可选，步行、公交、自驾，这里要说的，是自驾导航的一点功能上的小缺陷。
比如说，今天我开车去了趟即墨，到了即墨之后，就全靠导航了，有一个路口百度地图是这样语音提示的：前方1.2公里后右转。听到语音导航后，行驶了一段距离马上要到一个红绿灯路口，本能的到了右转车道，此时，百度语音提示你，路口请直行，为时晚矣。只能右转，找机会掉头。
当然，出现这种状况，我也有责任，对距离的把握不清楚，但我相信，应该不止我一个人对这种800米，一公里傻傻分不清楚，尤其是在信号灯区间距离比较短的情况下。
随便放张截图说明一下吧
百度地图会在你行驶到C处的时候语音提示你，前方XX米（即B处）后右转，但此时，你看到A处路口，有极大的可能就拐了……拐了……
其实我想了一下，这个小小的问题并不是不能解决的，百度地图只要把信号灯路口的数量于距离前提前通知即可，因为毕竟1、2、3个路口是数不错的。
所以，我认为的理想语音导航方式是，当你行驶到C处，系统语音如下：“前方第二个红绿灯路口请右转，您即将直行通过第一个路口”
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。

我要回帖

更多关于 百度地图出租车 的文章

 

随机推荐