vbsの作法 その46

概要

vbsの作法調べてみた。
geocodingやってみた。

環境

windows 7 64bit

サンプルコード

Dim lat
Dim lng
Dim url
Dim oHTTP
Dim oDOM
Dim res
Set oHTTP = CreateObject("MSXML2.XMLHTTP")
Set oDOM = CreateObject("MSXML2.DOMDocument")
url = "https://www.geocoding.jp/api/?q=山形県米沢市アルカディア１丁目"
oHTTP.Open "GET", url, False
oHTTP.Send
msgbox oHTTP.responseText
oDOM.loadXML oHTTP.responseText
lat = oDOM.getElementsByTagName("lat")(0).text
lng = oDOM.getElementsByTagName("lng")(0).text
res = lat & "," & lng
msgbox res

以上。