2、自写VBA函数2＜高德测距＞用VB网抓高德地图货车导航距离

Function 高德货车里程(d1 As String, d2 As String)
'第一步：抓取网页源代码（JSON格式）Dim x As MSXML2.XMLHTTP60Set x = New MSXML2.ServerXMLHTTP60With x.Open "GET", "https://restapi.amap.com/v4/direction/truck?width=2.5&strategy=10&size=2&weight=1.5&axis=2&origin=" & d1 & "&destination=" & d2 & "&height=1.6&nosteps=1&load=0.9&key=<用户的KEY>", False'.setRequestHeader.sendDim sc As Stringsc = x.responseText
'    Debug.Print scEnd With
'第二步：根据文本格式特点，提取想要的数。因未学会解析JSON格式数据，暂不采用解析JSON格式Dim a, b, c As IntegerDim s As Stringa = InStr(sc, "distance") + 10   '距离字段开始位置b = InStr(sc, "duration") - 2   '距离字段结算位置c = b - a                          '距离字段长度高德货车里程 = Mid(sc, a, c)
'  Debug.Print s
End Function

2、自写VBA函数2＜高德测距＞用VB网抓高德地图货车导航距离相关推荐

3、VBA网抓高德地图货车路径规划距离（借助刘永富老师插件解析JSON格式数据）
Sub 高德货车()Dim x As MSXML2.XMLHTTP60Set x = New MSXML2.ServerXMLHTTP60With x.Open "GET", &q ...
高德地图街道范围_高德地图推出货车导航，解决3000万货车司机出行痛点
[猎云网(微信:ilieyun)北京]12月6日报道高德地图今日推出全新的货车导航功能,易行平台出行方式及范围再次升级.这也是高德地图继推出无障碍地图之后,再一次面向特殊需求群体推出的新功能.货车导 ...
access vba函数
access vba函数 Abs 函数返回参数的绝对值,其类型和参数相同. 语法 Abs(number) 必要的 number 参数是任何有效的数值表达式,如果 number 包含 Null,则返回 ...
linux 为什么 c语言,为什么C程序里一定要写main函数
为什么C程序里一定要写main函数一. 学习过程编写程序f.c: 对其进行编译,正常通过,再对其进行连接,出现错误: 显示的出错信息为: 翻译成中文是:在c0s模块没有定义符号'_main'. 那 ...
ACMNO.41C语言-数字调序有n个整数，使前面各数顺序向后移m个位置，最后m个数变成前面m个数，见图。写一函数：实现以上功能，在主函数中输入n个数和输出调整后的n个数
题目描述有n个整数,使前面各数顺序向后移m个位置,最后m个数变成前面m个数,见图. 写一函数:实现以上功能,在主函数中输入n个数和输出调整后的n个数. 输入输入数据的个数n n个整数移动的位置m ...
ACMNO.40 C语言-子串有一字符串，包含n个字符。写一函数，将此字符串中从第m个字符开始的全部字符复制成为另一个字符串
题目描述有一字符串,包含n个字符. 写一函数,将此字符串中从第m个字符开始的全部字符复制成为另一个字符串. 输入数字n 一行字符串数字m 输出从m开始的子串样例输入 6 abcdef 3 样 ...
ACMNO.27 Python的两行代码解决 C语言-字符逆序写一函数。使输入的一个字符串按反序存放，在主函数中输入输出反序后的字符串。输入一行字符输出逆序后的字符串
题目描述写一函数,使输入的一个字符串按反序存放,在主函数中输入输出反序后的字符串. 输入一行字符输出逆序后的字符串样例输入 123456abcdef 样例输出 fedcba654321 来源 ...
ACMNO.25 C语言-间隔输出写一函数，输入一个四位数字，要求输出这四个数字字符，但每两个数字间空格。如输入1990，应输出1 9 9 0。输入一个四位数输出增加空格输出
题目描述写一函数,输入一个四位数字,要求输出这四个数字字符,但每两个数字间空格.如输入1990,应输出"1 9 9 0". 输入一个四位数输出增加空格输出样例输入 199 ...
ACMNO.24 C语言-转置矩阵写一个函数，使给定的一个二维数组（３×３）转置，即行列互换。输入一个3x3的矩阵输出转置后的矩阵样例
题目描述写一个函数,使给定的一个二维数组(3×3)转置,即行列互换. 输入一个3x3的矩阵输出转置后的矩阵样例输入 1 2 3 4 5 6 7 8 9 样例输出 1 4 7 2 5 8 3 ...

2、自写VBA函数2＜高德测距＞用VB网抓高德地图货车导航距离

2、自写VBA函数2＜高德测距＞用VB网抓高德地图货车导航距离相关推荐

最新文章

热门文章