無線局情報検索のスクレイピングをVBAでやってみました＜６＞

スクレイピングのVBAですが、バグを発見したので修正しました。
・9エリアの都道府県コードがきちんと処理できていませんでした。。

・一部の住所において判定がうまくできず、局免数がゼロになっていました。

  （これに関しては全チェックできていないので、今後も発生する可能性あり）

「Search_v1.4.xlsm」をダウンロード

まだまだ使い込みが必要ですね。。。

Arduino LCD

お盆休み前にaitendoさんでArduino用のLCDシールドキットが
安かった(666円！)ので購入してみました。
→ [K-SHLD1602-595]

うちに届いた週末にすぐに組み立ててはみたのですが、
すぐには動かなかったので、数週間放置してました。。
（お盆休みは具合が悪くて、ほとんど寝てました。。）

ハムフェアも終わり、週末何もすることがないので、
日曜の夕方になってやっと、思い腰を上げて取り組んでみました。

最初、コンパイルまではうまくいって、
LCDのバックライトが光るだけで、画面表示が全く出なかったので
基板の組み立てを行う時にとりあえず半田付けしてみた、
1Ωの抵抗が実は不要だったのでは？？？など考えていました。
（aitendoの商品はマニュアルがないので、、、部品の使い方も手探り。。）

webでググってみたら、使用するライブラリが違うことが判明。
入れ替えてみると、今度はコンパイルエラー。
またまたググってみたら、インクルードファイルの重複らしい。
→ インクルードファイルをリネームして提供してくれればいいのに。。！
     <LiquidCrystal.h>

最初は安易にインクルードファイルのリンク先を変更してみたら、
コンパイル時にもっといろいろなエラーが出てきて手が負えません。

元々のライブラリフォルダの直下の LiquidCrystal フォルダを
別のフォルダに退避して、そこに該当ライブラリで置き換えてみたら、
素直にコンパイルも通り、冒頭の写真の結果となりました。。。

単なるサンプルスケッチを動かすだけで、こんなに苦労するとは。。！

今やろうとしていることは、CI-Vの信号をLCDに表示させたいのですが、
先は長いなぁ。。。。

無線局情報検索のスクレイピングをVBAでやってみました＜５＞

久々に無線局情報検索のスクレイピングのVBAマクロを

少しいじってみました。

コードの書き方がイマイチで、後から見てもわかりにくいのと、
配慮モレ等があったので、改良してみました。

「Search_v1.3.xlsm」をダウンロード

KCJコンテストに対応したいのですが、
まだまだかかりそうです。。。

無線局情報検索のスクレイピングをVBAでやってみました＜４＞

VBAやっていたら楽しくて、かなりハマっています。

過去のコンテストログを読み込ませたりして、
未対応部分に対応したり、表示を改善したりなど、
自分の用途としては、かなり実用的になってきたと思います。

順不同で主な変更点を記載します。
・スクレイピングに失敗する局があったので改善
  → クラブ局で名称に（株）とかが入っていると失敗していた
・JCC/JCGコードがゼロ始まりの7,8,9,0エリアのNR判定が誤る場合があったので改善
  → エクセルの文字処理の問題
・都府県振興局ナンバーにも対応
  → 北海道以外は簡単なのですが、、、上記のゼロ始まりのコードとの関連で
       3ケタの振興局ナンバーの判定がムズイ。。
・NRに"599"などのRST、"M"などの送信電力が含まれていても判定できるようにした
  → RST"597"だと判定できない（実質的には問題なし！）
・移動局は検索対象外だったが、JCC/JCGコード検索する方針へ変更
  → 移動局だった場合はコールとNRを緑で表示するようにした（一致判定はしない）
・NRと検索結果が一致した場合、一致した箇所を青で表示するようにした

今後は、気づいた点の微修正になると思います。
KCJコンテスト対応は簡単にできると思いますが、
KCJコンテストのログがどうかの判定が厳しいので、
キレイにやろうと思うと大変そう。
また、今はエクセルのシートにログの一部をコピペしていますが、
本当はログファイルをそのまま食わせたい。
エクセルだと厳しそうなので、その時はRubyかPythonあたりに移行だと思います。。

「Search_v1.1.xlsm」をダウンロード

無線局情報検索のスクレイピングをVBAでやってみました＜３＞

週末ということもあり、頑張ったらできちゃいましたー

まだまだいろいろな問題が潜んでいるんだと思うのですが、
とりあえず、目的は達成できたので、これで完成とします。

このツールを活用することで、コンテストログをハムログに入力する際、
交信ミスを修正して入力することができるようになり、

ログ管理の精度が向上したと思います！

「Search_v1.0.xlsm」をダウンロード

敢えて言うなら、移動局において、
移動地のエリア番号が、コールサインのエリア番号と同じなら、
参考情報として、JCC/JCGを表示するのはあっても良いかなぁ。。。

無線局情報検索のスクレイピングをVBAでやってみました＜２＞

エクセルVBAで無線情報検索のスクレイピングに挑戦中ですが、

使っていると、以下の問題が判明しました。


■移動局と固定局など、複数の局免を持っている場合、うまく検索できない。

コーディングにおいて、複数の局免を想定しておりませんでした。

検索結果を抽出して登録数をゲットするところまではできているので
登録数分だけ住所部分を抽出すれば良いだけです。
とは言え、VBA初心者なので、すぐに前へ進めないところが弱いです。。。
 

■サフィックスが2文字のコールについて、うまく検索できない。

記念局など、サフィックスが1文字のコールについても同様だと思います。

原因は総務省の無線局情報検索にて2文字コールでもその文字列を含む

3文字コールの局も表示してしまうためです。

この対処は難しそうです。
検索の仕方を工夫したくても、それができない。
（総務省さん、ワイルドカード検索を可能にするなど、なんとかして！）
検索後にコールサインも合わせて表示されるので、
それを活用して不要な局の情報はスキップするしかなさそう。
もちろん、前項のような複数局免についても配慮する必要もあり、
先は長そうです。（挫折の予感。。。）

無線局情報検索のスクレイピングをVBAでやってみました

コンテストで交信した局の常置場所を総務省の無線局情報検索の
ホームページからゲットするプログラムをExcelのVBAを利用して作ってみました。

VBAを使うのは初めてなので、かなり苦労しましたが、
ネットでググりながら、なんとか作成することができました。

最初はVBAを使うつもりはなく、RubyかPythonかな、、、と思っていたのですが、
VBAによるスクレイピングをとても親切に解説してあったWebページがありましたので、

VBAを使用することにしました。

苦労したのは、移動局は検索してもあまり意味がなく、かつ、
検索対象のサーバに負荷を掛けないようにする必要もあるので、
検索をスキップさせる方法が最初はわからなかったことと、
コールサイン間違いで、存在しない局だった場合、
エラーが出て処理を先が先に進めなくなる場合の対処が大変でした。

・本プログラムの実行例

  JJ8GFL     北海道札幌市豊平区
  JJ8GFL/1  移動局
  JS8GFL     該当局なし


上記のように常置場所だけだと、ハムログ入力の時に不便なので、
今後は更にJCC/JGGコードも表示するように改善したいと思います。

「Search.xlsm」をダウンロード