北九州空港の視程データが欲しくて、毎日せっせと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時間ごとに起動したら、自動でデータが得られる。しばらく運用してみよう。