WriteText strUni ADOstrm. Position = 0 = adTypeBinary ADOstrm. Position = 3 buf = () Set ADOstrm = Nothing For Each n In buf tbuf = tbuf & "%" & Hex(n) Encode_Uni2UTF = tbuf Exit Function ErrHandler: If ADOstrm Is Nothing = False Then VBAコードの補足 ■コード「GeoCode」 ジオコーディングを実行し結果を取得 6行目:コード「GeoCoding_LatLang」を使い結果を取得。Split関数で配列に格納します。 結果をExcelシートに表示 9~11行目:緯度、経度、ステータスをExcelのセルにセットします。 ■コード「GeoCoding_LatLang」 XMLHTTPオブジェクトを使う為の参照設定 ツール→参照設定で「 Microsoft XML, v6. Google Maps Geocoding API を使って緯度経度を取得する(xml版) | INFITH VBA Lab. 0 」をチェックします。 API用のパラメーター 17行目:住所を文字変換してパラメーターにセットしています。 xmlをセット 20~27行目: XMLHTTPオブジェクト を使いxmlを開きます。 xmlを読み込む 32行目: LoadXMLメソッド でxmlを読み込みます。 結果件数をカウント ※2017/11/7追記 36~42行目: 住所が不足している場合、複数の候補が結果として返ってくる場合があります。 例えば「東京都中央区日本橋x-x」の場合は住所が不足している為、以下の様に3件結果が返ってきます。 東京都中央区日本橋久松町x-x 東京都中央区日本橋小舟町x-x 東京都中央区日本橋大伝馬町x-x この様なケースに備えてresult要素を事前にカウントしておきます。 ChildNodesプロパティ でGeocodeResponse直下の子ノードを全て取得し、 nodeNameプロパティ で「result」の件数をカウントします。件数が複数あった場合は緯度・経度を返さないようにします。 情報を抽出 45行目: SelectSingleNodeメソッド でxmlのstatus要素を抽出します。 要素の指定は以下の様に階層構造で指定します。 ※statusの場合は.
位置参照情報ダウンロードサービスがありました。 以下から無料でデータはダウンロード可能ですがデータは都道府県別になっている上にZIP圧縮しているのでとても面倒です。さらに圧縮前のファイル名が同じなので最悪です。 2つのデータがあります、どちらもCSVデータなので加工は簡単だと思います。 ☆ 街区レベル位置参照情報のデータ形式 項目 備考 都道府県名 例:東京都 市区町村名 例:千代田区 大字・町丁目名 例:霞が関二丁目 街区符号・地番 例:1 座標系番号 平面直角座標系の座標系番号(1~19) 例:9 X座標 平面直角座標系の座標系原点からの距離 メートル単位(小数第1位まで)(北方向プラス) 例:-35925. 9 Y座標 平面直角座標系の座標系原点からの距離 メートル単位(小数第1位まで)(東方向プラス) 例:-7446. 住所情報を緯度経度に変換してQGISで編集する。アドレスマッチングの方法を画像で解説:無料でGISを使ってみる - LL.me. 2 緯度 十進経緯度(少数第6位まで) 例:35. 676154 経度 十進経緯度(少数第6位まで) 例:139.
= FILTERXML(WEBSERVICE(" & ENCODEURL(B3)), "//latitude") 経度(一行). = FILTERXML(WEBSERVICE(" & ENCODEURL(B3)), "//longitude") ジオコーディングサービスではクエリーに対して一意に座標が確定するとは限りません。たとえば上の 池尻4-35-25 の例では、 東京都世田谷区 と 兵庫県伊丹市 の2つの結果が返ってきていることがわかります。 これは FILTERXML 関数が最初にヒットしたものを返す点、加えて、XML ファイルの最初のエントリが東京都世田谷区のものであった、という偶然によってうまくいったものです。 実際セル B13 の 桜丘2-18-26 の事例では明らかに北方の緯度経度が付与されていることがわかります。 丘2-18-26 この問題を回避するためには、人間による情報の補完が必要になってきます。上記の銭湯のデータは東京都世田谷区のローカルデータであることは自明なので、住所には都道府県市区町村名が省略されています。これを以下のように補完することが必要になってきます。 京都世田谷桜丘2-18-26 セルに入力する場合には、次のように文字列連結することになります。 URLの構築(コンテクスト補完). = " & ENCODEURL("東京都世田谷区" & B3) この方法で式を更新した結果がこちらになります。緯度経度のばらつきが収まっているのがわかるかと思います。 精度の高い変換のためには、データの各行に含まれないコンテクストにひもづく情報を適宜補完していくことが必要になってきます。 WEBSERVICE 関数と CSISシンプルジオコーディング実験のAPIを使うことで、Excel 上でマクロを使わずにジオコーディングを行う方法を紹介しました。 クエリーを実行する際には都道府県市区町村名の補完を忘れずに。ローカル地名だけではバッティングが多発します。 XML のレスポンスに2つ以上の候補が含まれているかを目視でチェックするのは大変なので、関数で発見する方法も紹介。 フラグ. ExcelGeo エクセルファイルにある住所から一括で緯度経度を取得します. = ISERROR(FILTERXML(F3, "//candidate[2]/latitude")) XML (F3) 文字列にふたつめの candidate がない場合には TRUEが返る、というものです。 Why not register and get more from Qiita?
ジオコーダ API というのもあります。 利用回数制限が 50, 000回/日と一回で処理できる可能性があるのですが、いくつか適当な座標で試してみたところ、番地が入らないことが多くて、ちょっと精度が悪いかな、と思って使いませんでした。
6803660
今回は、練習として1地点だけをアドレスマッチングを実施し、地図上に表示してみました。 設定項目がいろいろあったり、変換後のファイルに見慣れない文字列が追記されていたりして、初めてみる際にはわかりづらいかもしれません。 しかし、一般的な利用をする場合には設定が必要な項目は少なく、見慣れない文字列も数字の意味だけ分かればよいので、数回やれば気にならなくなると思います。 また、地点数がたくさんあっても手順は同様です。 地点の数だけ行を追加していけば、一回の変換ですべての地点に緯度経度等の位置情報が追記されます。 いろいろな住所をGISに取り込んで、あなただけの地図を作成してみましょう。 使用したデータ OpenStreetMap
)をクリックします。 すると「座標系の選択」というウインドウが表示されます。 上部のフィルター欄に「4612」と入力すると、中央下の「あらかじめ定義されたCRS」(QGISのバージョンによっては、「世界の座標参照系」)という欄に「JGD2000 EPSG:4612」と表示されますので、その文字列を選択して「OK」をクリックしましょう。 もし「ジオメトリ定義」欄に上記の設定項目が表示されていない場合は「ジオメトリ定義」という文字列の左にある▶をクリックします。すると設定項目が表示されます。 「データソースマネージャ」ウインドウに戻ってきたら下にある「追加」ボタンをクリックします 。そして「閉じる」ボタンをクリックします。 すると画面が地図に戻ります。 これで、あなたが入力した住所情報がGISに位置情報として取り込まれました。 日本の位置に、丸い点が表示されていると思います。 地図上でマウスのホイールを回すと地図が縮小したり拡大したりしますので、その点に向かって地図を拡大していきましょう。 いかがでしょうか? あなたがイメージしていた場所に点が落ちていますか?
先日、午後からどしゃ降りの雨が降った日、午後のお散歩はさすがに無理かも?と思っていた。 柴ちゃん も激しい雨を窓から眺め、お散歩は諦めムードだった。 しかし数時間後にはあっという間に明るくなってきたので、急いでお散歩の準備をして公園に行った。 私は公園内を歩くのが目的ではなく、公園の駐車場に車を置いて、そこからあてもなく歩くのが好きなので、今回も公園に駐車をさせてもらって、今まで行ったことのない方角に歩いて行った。 はじめて歩く道はわくわくするね! 公園の裏に出来た新しい道。 激しい雨の後、その新しい道が 「けあらし」 のように湯気が立っていてとても幻想的だった。 この道の先は行ったことがなかったので、気温も低かったし歩いてみることにした。 森の入り口が見えたので入ってみた 奥は竹やぶで、足元が水たまりだったので進むのを諦めた 左右に入る道がないのでずっとまっすぐに進んでいく はじめて歩く道に公園らしきものが出来ていた!知らなかった! 新しい公園ができたらしいよ? 早速入ってみよう! でも、まだちゃんと公園として機能されていない感じ スタートした別の公園の駐車場から結構歩いてきたから、この公園を突っ切ってショートカットしたかったのだが、道が見当たらない… あっちの森の向こうに出たいんだけど… でも、進む道が無いね? 迷走中 方角的にこの公園を突っ切れば、見慣れた道に出るはずだったのだが、公園に入っても突っ切るような道がなく… かなり広い敷地のこの公園の外周をなぞって歩くと、思ったよりもスタート地点から離れてしまったようで、見たこともない景色が広がっていた。 一応GoogleMapを見ながら歩いたのだが、うーんうーん、 またしても近所なのに道に迷った… こんなに綺麗な駐車場が出来たんだね?初めて見たよ! うーん…この辺りは普段車でも通らない道だからなぁ…わからないなぁ… 途中綺麗な畑と小道が見えて、そちらに行ってみたかったけど、 Google Maps を見るとスタート地点からどんどん離れてしまうのに気づき、慌てて進路変更をした。 でも、道はどこかできっと繋がっているはず! 川越駅周辺のにぎわい施設オープン - 埼玉県. (住宅地と違ってほとんど道がないので1本道を間違えるとかなり遠回りすることになる) ようやく知っている道に出た! 以前の 「ぶどう畑で道に迷う」 のようにUターンするはめにならずほっとした! この先を行けばさっきの新しい道に出るよ 結局1時間半ほどうろうろしてしまい私はグッタリと疲れてしまった。 駐車場に戻ると 柴ちゃん は「帰らない!」と暴れだし、抱っこしようとすると噛み付く素振りを見せた。 えー?!こんなに歩いたのにまだ足りないの?!
2021. 02. 27 毛呂山町の 滝ノ入ローズガーデン の先にあります。日当たりがよく手入れもされていて雰囲気がいい。面している道路は狭いけどクルマが少ないのでちょっと汲むくらいなら路駐でいいでしょう。 日当たりがよく手入れもされていて好印象 水量はまあまあ ここから写真右(毛呂山町側)に向かって30mくらいのところから湧き水を引いている 湧き水をひいている場所 湧き水を汲むためだけに行く、というほどではないけど、移動の途中で見つけるとうれしくなる湧き水ですね。 ほかの湧き水を探す
私的には ゾロアスターカレーの方が美味しかったかな(^^; 拍手 / こっそり拍手 | 詳細ページ | 元サイズ | ▶ 類似写真を探す 前回はゾロアスターカレーでしたが、今回はこちら! 私的には ゾロアスターカレーの方が美味しかったかな(^^; 3 いつもはコーヒー党ですが、今回はダージリンです。食器はやはりノリタケで金ぴかでした。デザートも美味でした♡ 拍手 / こっそり拍手 | 詳細ページ | 元サイズ | ▶ 類似写真を探す いつもはコーヒー党ですが、今回はダージリンです。食器はやはりノリタケで金ぴかでした。デザートも美味でした♡ 3
鴻巣フラワーセンターに隣接する「花のオアシス」へ、満開の"チューリップ"を求めてやって来ました 早朝のひと時、鴻巣市の「花のオアシス」へ、誰もいないチューリップ畑を独り占めして撮影 鴻巣市の花き生産発祥の地、鴻巣フラワーセンターの北側に位置する「花のオアシス」は今・・ 春のチューリップが花盛り、見頃はやや過ぎた感じですが、ボタンやフジも咲き花が溢れています 朝の散歩には最適、爽やかな朝を迎えました、老人ホームや保育園のマイクロが頻繁に訪れます 芝桜 ボタン 隣は市民農園です ※コロナの感染拡大はどこまで続く、1都3県は本日解除後最多、大阪も連日の千人超え、大都市圏は軒並み 拡大傾向が続き、埼玉県でも来週から「まん延防止」適用へ、そんな中、ちょっと気が引けるのですが・・ 来週の月曜日から「大人の休日パス 東日本スペシャル」(特別設定)を利用して、2泊3日で東北へ ただ今「桜前線」は最速で東北から北海道へ、シーズンオフのパスの期間にうまく合致、この機会に・・ ※1年前、アベノマスクと揶揄された布マスク2枚、全戸配布の費用は総額約260億円、配布に2か月掛かり すでにマスク不足は解消された時期、ネット調査では、使った人はわずか3. 5%、税金の無駄遣いは免れまい 安倍さん一人が使い続けたが、あごの出た小さなマスクは安倍政権の象徴、次の選挙まで皆さん忘れないで‥ « 東松山 「箭弓稲荷神社牡丹園」 の "ボタン" | トップページ | わが家の "サクラ" 総集編 » | わが家の "サクラ" 総集編 »
5月のライドでもう一つ(最後です。) この日はお花見ライドです。ちょっと遅めなのですが、バラを見に行きます。 ぼーっと走っていて道を間違え、西武鉄道の高麗駅へ。滝の入ローズガーデンへ直接向かうと、距離が短くなってしまうので、ここからまずは鎌北湖へ向かいます。 高麗神社にあるものと一緒です。 鎌北湖の整備(耐震化)も終盤のようで、予定だと今年の秋から注水の予定のようですね。この珍しい景色ももうすぐ見納めです。 鎌北湖の後はゴルフクラブEASTの間を縫って滝の入ローズガーデンへ向かいます。阿諏訪川沿いに下り、滝の入方面へ毛呂川に沿って上がると目的地です。 綺麗でした。皆さん熱心に写真に収めておりました。 さて、本日は軽めのライドで帰宅となります。帰宅途中に・・・ 田んぼに空、雲が映っております。まだ田植え直後ならではの光景です。 2021-07-22 18:26 nice! (0) コメント(0) 共通テーマ: 日記・雑感