METARデータの取得

北九州空港の視程データが欲しくて、毎日せっせとaviationweatherのページへデータを取りに行ってココに貼っていたが、ftpサーバーからftpまたはhttpプロトコルでデータのダウンロードができるらしいので、VisualBasicでプログラムを作ってみた。
意外と短いコードで済んだ。

'名前空間の宣言
'Imports System.Data

''' <summary>
''' Module1モジュール
''' </summary>
''' <remarks>METARファイルのダウンロード</remarks>
Module Module1

  Friend Sub main()

    'ユーザーインターフェイスを表示してダウンロードする
    My.Computer.Network.DownloadFile( _
      "http://weather.noaa.gov/pub/data/observations/metar/stations/RJFR.TXT", _
      Application.StartupPath & "\" & System.DateTime.Now.ToString("yyyyMMddHHmm") & "RJFR.txt", _
      "username", "password", _
      True, 60000, True, FileIO.UICancelOption.DoNothing)

  End Sub

End Module

動かしてみたら、1時間分のデータがtxtファイルに保存された。

2012/03/20 11:00
RJFR 201100Z 29006KT 9999 FEW030 09/01 Q1016

これをタイマーソフトで1時間ごとに起動したら、自動でデータが得られる。しばらく運用してみよう。