HSPでrss利用して地震情報を取得する

-
1.概要

ネットからの情報取得方法は、色々ありますが、HTMLタグを1つずつ解析して必要な情報を 抜き出す方法や、xmlやjsonなどで提供されていれば、提供ファイルを読み込んで展開する方法があります。 ファイルとして提供されているものは、処理が比較的簡単です。今回は、xmlでrssとして配信されている gooの地震情報を取得して見ます。



2.利用方法

goorss.exe起動します。使い方は、ただこれだけです。一定時間毎に 受信もできますが、頻繁に地震は発生しないのでタイマー割り込みによる部分は実装していません。 定期的に更新ボタンをクリックして手動で更新して下さい。 2021年3月初旬までは、気象庁のホームページの地震情報をスクレイピングしていましたが、サイトの大幅リニューアルが 行われたため(以前のサイトがなくなった)、取得することができなくなってしまいました。 rssは簡単に取得できて便利なのですが、情報量が少ないためタイトルから該当情報へリンクして確認する方式となります。

3.ソースコード

プログラムは、HSP言語で作成しています。HSP3には、便利なモジュールが標準で提供されていて、rssを扱うモジュール(mod_rss.as)があります。 rssload命令で指定したURLのxmlファイルを受信して、foreachループで 内容を取得していきます。表示部分は、HTMLタグを生成して行っています。震源地を表示するために最初の1件目で震源地を表す画像パスを取得して 画像を表示し、本日分は青色のリンクとし、本日以外はグレー表示としています。 
	;****************************************************************************
	;*
	;*    goo rss地震情報の取得・表示 (goorss.hsp) Ver1.0
	;*
	;*    ＜処理の概要＞
	;*    本プログラムは、goo rss地震配信情報を受信して表示するものである。
	;*
	;*    出典： goo天気 RSS配信情報
	;*           URL  http://weather.goo.ne.jp/earthquake/index.rdf
	;*
	;*
	;****************************************************************************	

	#include "mod_rss.as"
 	#include "sqlele.hsp"

	;***** 実行ファイル自動作成 (追加) ****
	#packopt type 0
	#packopt name "goorss"
	#packopt runtime "hsprt"
	#packopt manifest "app.manifest"
	#packopt icon "SetDisp.Ico"
	#packopt hide 1
 
	#module
	#uselib "kernel32.dll"
	#cfunc  CreateMutex "CreateMutexA" int,int,sptr
	#cfunc  GetLastError "GetLastError"

	;***** 二重起動防止 *****
	#deffunc wexapend str prm1
	strname=prm1
	;***** 名前の文字列が省略された場合 *****
	if strlen(strname)==0 : strname="HSP340ONIWND"  ;Default String
	ret=CreateMutex(0,1,strname)
	;二重起動か？
	if GetLastError()==0    : return 0	;同じジョブが起動していない
	if GetLastError()==183  : return 1	;既に起動している
	return -1
	#global
	
	;***** 起動ディレクトリ取得 *****
	sdim Startdir,512
	if hspstat&1=0 { Startdir=dir_exe+"¥¥" : chdir dir_exe
	} else {
		Startdir=dir_cur+"¥¥"
	}
	chdir Startdir

	;***** データベース存在確認 *****
	exist Startdir+"setting¥¥goorss.ini"
	if strsize ==-1 {
		dialog "データベースファイルが見つかりません。",0 : end
	}
	await
	wexapend "goorss" : if stat : end
	
	;***** データベースオープン *****
	sql_open Startdir+"setting¥¥goorss.ini"
	;***** 画面表示位置設定 *****
	sql_q "SELECT * FROM TValu WHERE ID = "+1
	xpos=sql_i("wxpos") : ypos=sql_i("wypos")
	if (xpos<0 or xpos>ginfo_dispx) : xpos=0
	if (ypos<0 or ypos>ginfo_dispy) : ypos=0

*main
	screen 0,420,460,0,xpos,ypos
	font "メイリオ",12,0
	pos 38,430 : objmode 2 : objsize 60,22 : button "更新",*movpos
	Today = str(gettime(0))+"年"+str(gettime(1))+"月"+str(gettime(3))+"日"	
	onexit *owari
	pos 0, 0 : axobj ie, "Shell.Explorer.2", 440, 420
	if stat == -1 {
        dialog "ActiveXコントロールの配置に失敗しました。", 1
        end
	}

	url="http://weather.goo.ne.jp/earthquake/index.rdf"
	rssload desc, link, url, 100

	if stat == 1 : dialog "取得に失敗しました。" : stop
	if stat == 2 : dialog "RSSではありません。"  : stop

	title "goo -地震情報"
 	sdim　strtemp,128 : sdim code,5000
 	code = "<html><head><style>*{margin:0;padding:0;}</style>¥n"
	code+= "<meta http-equiv=¥"Content-Type¥" content=¥"text/html; charset=shift-jis¥">¥n"
	code+= "<meta http-equiv=¥"Content-Script-Type¥" content=¥"text/javascript¥">¥n"
	code+= "<meta http-equiv=¥"Content-Style-Type¥"  content=¥"text/css¥">¥n"
 	code+= "<style type=¥"text/css¥">¥n"
	code+= ".pad {¥n"
	code+= "   padding-left: 5px;¥n"
	code+= "}¥n"
	code+= ".intoro {¥n"
	code+= "   font-family : Meiryo;¥n"
	code+= "   font-size:8pt;¥n"
	code+= "   cursor:hand;¥n"
	code+= "   a         { text-decoration:underline; }
	code+= "   a:link    { text-decoration:none; color:#000099; }¥n"
	code+= "   a:visited { text-decoration:none; color:#000099; }¥n"
	code+= "   a:active  { text-decoration:none; color:#000099; }¥n"
	code+= "   a:hover   { text-decoration:underline; color:#dd0000; }¥n"
	code+= "}¥n"
	code+= ".nmmode {¥n"
	code+= "   font-family : Meiryo;¥n"
	code+= "   font-size:8pt;¥n"
	code+= "   cursor:hand;¥n"
	code+= "}¥n"
	code+= ".fmerea1 {¥n"
	code+= "   font-family : Meiryo;¥n"
	code+= "   font-size:10pt;¥n"
	code+= "   color:#000099;¥n"
	code+= "   padding-left:10px;¥n"
	code+= "}¥n"
	code+= ".fmerea2 {¥n"
	code+= "   font-family : Meiryo;¥n"
	code+= "   font-size:10pt;¥n"
	code+= "   color:#aaaaaa;¥n"
	code+= "   padding-left:10px;¥n"
	code+= "}¥n"
	code+= "</style></head><body style=¥"overflow:auto;¥" bgcolor=¥"#ffffff¥">¥n"
	
	;***** 最初の1件目の画像ファイル名を取得する *****
    foreach desc
      	if cnt<1 : continue
		if cnt==1 {
			s=instr(link(cnt),0,"2")
			eqimg = "https://weather.goo.ne.jp/images/earthquake/" + strmid(link(cnt),s,14) + ".png"
			break
		}
	loop
	
	;***** 震源地の画像を表示 *****
    code+= "<center><a href=¥"" + link(cnt) + "¥" target=¥"_blank¥"><img src=¥"" + eqimg + "¥" width=350 height=200 border=0 align=¥"absmiddle¥"></a></center><br>¥n"
 
	p=0 : c=0
    foreach desc
      	if cnt<1 : continue
      	p++
 		sd=instr(desc(cnt),0,"(")
		ed=instr(desc(cnt),0,"時")
		cpdate = strmid(desc(cnt),sd+1,(ed-sd-4))
		
      	;***** 記事のタイトル長さ制限 *****
        q=strlen(desc(cnt))
 
        s=instr(desc(cnt),0,"-")
        strtemp=strmid(desc(cnt),9,q-19)
		
		;***** 記事番号 *****
		if p<10 {
			no = "0" + p
		}else{
			no = p
		}

		;***** 本日発生分のみ青色リンクとする *****
		if Today==cpdate {
            c++
			code+= "<span class=¥"fmerea1¥">" + no + "." + " </span>"
			code+= "<a href=¥"" + link(cnt) + "¥" target=¥"_blank¥" class=¥"intoro¥">" + strtemp + "</a><br>¥n"
 		}else{
			code+= "<span class=¥"fmerea2¥">" + no + "." + " </span>"
			code+= "<a href=¥"" + link(cnt) + "¥" target=¥"_blank¥" class=¥"nmmode¥" style=¥"color:#aaaaaa¥">" + strtemp + "</a><br>¥n"
	 	}
    loop

    code += "</body></html>¥n"

    ie -> "Navigate" "about:blank"
    doc = ie("Document")
    doc -> "write" code
    color 255,255,255 : boxf 118,430,300,454
    font "Meiryo UI",12,1
    color 0,124,48 : pos 120,432 : mes "本日の地震発生回数：" + c + "回"
  	gsel 0,1
    stop

*movpos
	xpos=ginfo_wx1 : ypos=ginfo_wy1
	goto *main

*owari
	await
	;***** 終了処理 (DB CLOSE) *****
	wx=str(ginfo_wx1)	; 現在の画面左上 X 座標取得
	wy=str(ginfo_wy1)	; 現在の画面左上 y 座標取得
	;***** 終了位置をDBへ保存 *****
	sql_q "UPDATE TValu SET wxpos=" + prm_text(wx) + ", wypos=" + prm_text(wy)+ " WHERE ID="+1
	sql_close
	end

4.ダウンロード

提供するソースコードのライセンスは、CC0 (クレジット表示不要、改変可、商用可) とします。自由に利用して頂いてかまいません。 尚、データの取得やプログラム実行において損害等が生じた場合は、筆者は一切の責任も負いません。全て自己責任でお願いします。

紹介したrss地震情報取得 (goorss.exe)は、下記よりダウンロードして下さい。

ダウンロード

■関連記事
・HSPでgoogleニューストピックスを取得する

コメント

コメントを投稿

このブログの人気の投稿

Excelアドインで日本語形態素解析

-
イメージ
1.概要 日本語形態素解析とは、文法的な情報の注記の無い自然言語のテキストデータ（文）から、対象言語の文法や、辞書と呼ばれる単語の品詞等の情報に基づき、 形態素（Morpheme, おおまかにいえば、言語で意味を持つ最小単位）の列に分割し、それぞれの形態素の品詞等を判別する作業です。（出典:Wikipedia） 形態素解析エンジンとしては、Mecabが有名です。筆者もPythonにインストールして、テキストマイニングに利用しています。しかし、会社などで利用したい 場合は、このような環境を個人的な利用目的で構築するにしても、セキュリティ上の問題などでIT管理者などから利用許可が下りない場合があります。 今回は、普段から利用しているExcelのアドインでテキストマイニングをして見たいと思います。特別なサーバーなどへのインストールなしで、 個人PCにアドインのインストール許可さえもらえれば誰でも簡単にテキストマイニング(ワードクラウド)分析をすることができます。 2.利用方法 (1)Excelのアドインである「E2D3」を追加します。「挿入」→「アドインを入手」をクリックし      「データ分析」を選択して、「E2D3」を探します。見つかったら、「追加」をクリックしま      す。これで、「E2D3」が利用できるようになります。 (2)分析するデータ(テキスト文書)を準備します。 (3)下記サイトの日本語形態素解析サービス(無料ツール)を利用して、文書を解析し品詞毎に分解、      統計データとして出力します。 日本語形態素解析サービス(無料ツール) URL : https://opendata-web.site/tool/parse/ ※ブックマーク等に登録しておくと良いでしょう。 (4)分析するデータ(テキスト文書)をテキストボックスに貼付け、解析ボタンをクリックします。 (5)解析結果が日本語形態素と統計の2種類画面出力されるので、統計の表をコピペして、Excelの      空きシートに一時的に貼り付けます。 (6)フィルタを追加して、品詞で名詞を選択してフィルタリングします。名詞のみのデータになるの      で、フィルタしたシートのB列(出現数)、C列(表記)をコピーして退避し、B列とC列を入れ替え

階層構造JSONファイルの作成

-
イメージ
1.はじめに 仕事や趣味でいろいろなデータを扱いますが、プログラミングで扱うデータ形式も多種多様でデータベース、テキスト、csv、xml、json形式など 思い付くだけで数十種類でてきます。データの見える化 (可視化) をやりたくて階層構造のJSON形式のファイルを扱う必要性があり、 元データ収集・編集 ⇒ Excelでデータ作成 ⇒ CSV出力 ⇒ 階層構造のJSONファイルへ変換出力と言ったステップでJSONファイルを作成して見ましたので紹介致します。 2.階層構造CSVtoJSONコンバータ 最初は、テキストエディタで手作業でJSONファイルを作成しょうと試みましたが、{}の対応付けや[,などの挿入漏れなど ミスすることが多くてデータを読み込むとエラーで動かないことの連続でした。何とか効率良く元データより階層構造の JSON形式のファイルを作成することができないものかとネット検索しても意図したものを見つけ出すことが出来ませんでした。 そこで今回、試行錯誤してExcel VBAで作成した 「階層構造CSVtoJSONコンバータ」 によるデータ作成手順をまとめて見ました。 階層構造のJSONファイルとは、 親、子、孫、曾孫・・・といった 階層構造のデータ形式のァイル です。 2-1.データの収集について まずは、目的とすべき元となるデータを収集しなければなりません。データの入手や収集手段はいろいろあると思いますが、 1回限りでのみ利用する場合や不定期、日次、週次、月次など継続的に利用する場合に応じて効率良い方法を選択する必要があります。 企業では自社内の各種システムにて収集や加工・編集などができるツール類もあると思いますが、個人ではなかなか揃えられません。 尚、今回は小規模なデータを扱うことを前提としているので効率的なデータの収集方法などについては別の機会にでも考えていきたいと 思います。ここでは、 「階層構造CSVtoJSONコンバータ」 の説明のためのテストデータを利用しての手順について説明します。 2-2.作成手順 (1)元データの準備 (テスト用に鳥類目録データの一部を利用) (2)Excelで元データを利用して、階層構造のデータ表を作成する。     ※【お願い】ファイルの終端判定のため、A列の末尾のセルにEOFと追記して下

HSPでコマンドプロンプトを制御する

-
イメージ
1.概要 最近は、Excel VBAやPythonなどによる自動化というキーワードを良く耳にしますが、昔からある自動化で最も安定性が あり、比較的単純な手順の記述とコマンド発行といったコマンドプロンプトによる操作およびバッチファイルによる自動処理 があります。システムの運用管理者やネットワーク管理者の人達も多く利用されています。 筆者も一時期は、良く利用していましたがGUIの操作に慣れ過ぎて最近は利用する機会も減ってきています。 今回は、HSP言語によるコマンドプロンプトを操作して外部から文字列(コマンド)を送信する方法を模索して見たいと思います。 2.コマンドプロンプトに文字列送信 コマンドプロンプトにGUI画面上からキー入力された文字列を送信する方法について説明します。 まず、概略の処理の流れを整理します。 (1) コマンドプロンプトを起動させる。 ただし、環境依存を無くすため環境変数 'comspec' より取得したパス名を、 exec 命令のp1パラメータとして渡す。 (2) 入力ボックス等より入力したコマンド（ テキスト文字列 ）をクリップボードにコピーする。 (3) コマンドプロンプト画面をアクティブにする。 (4) クリップボードよりコマンドを貼り付ける。 整理すると、これらの処理を実現させるためには、 ・環境変数'comspec'よりパス名を取得する処理 ・クリップボードにテキスト文字列をコピーする処理 ・任意の画面をアクティブにする処理 ・クリップボードよりテキスト文字列を貼り付ける処理 となります。ここで、一番難しいのはコンソールに対してクリップボードよりテキスト文字列を貼り付ける処理です。 [ ALT ]+[ SP ]+[ e ]+[ p ]+[ Enter ] キーという操作を keybd_event APIを 利用 して送り、貼り付け処理をしても良いのですが、メニューの操作をエミュレートするので、 [ ALT ]+[ SP ] で メニュー がポップアップし、次に [ e ] で編集がクリックされ、更に [ p ]+[ Enter ] キーといった流れとなって メニューの 操作が丸見えとなります。もちろん、動作的にも遅くスマートではありません。 コマンド

TOP