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件目で震源地を表す画像パスを取得して 画像を表示し、本日分は青色のリンクとし、本日以外はグレー表示としています。
goorss.hsp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
  ;****************************************************************************
  ;*
  ;*    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>
¥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>
¥n"
    }else{
      code+= "<span class=¥"fmerea2¥">" + no + "." + " </span>"
      code+= "<a href=¥"" + link(cnt) + "¥" target=¥"_blank¥" class=¥"nmmode¥" style=¥"color:#aaaaaa¥">" + strtemp + "</a>
¥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の      空きシートに一時的に貼り付けます。 (...

階層構造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列の末...

キーボードのキーコードの一覧表

-
イメージ
1.概要 HSPやExcel VBAなどを利用していて、キーボードのキー定数が知りたい場合があります。その都度、ネットで調べているのが手間なので、 一覧表にして見ました。このキーコードは、 Win32API の keybd_event 関数等を利用して送信することができるコードです。 プログラム上からキーコードを送信する場合は、誤操作防止のため十分なウェイトを入れるなりの工夫が必要です。 2.キーボードのキーコード一覧表 キーボードのキーコード一覧表です。全部で127個あります。 キーボードのキーコード一覧表 No. 記号定数名 値 ( HEX ) 値 ( DEC ) 意味 ( 該当するキー ) 1  VK_LBUTTON $01 01 2  VK_RBUTTON $02 02 3  VK_CANCEL $03 03  Cancel（[Ctrl]+[Break]) 4  VK_MBUTTON $04 04 5  VK_BACK $08 08  [BackSpace] 6  VK_TAB $09 09  [Tab] 7  VK_CLEAR $0C 12 8  VK_RETURN $0D 13  [Enter] 9  VK_SHIFT $10 16  [Shift] 10  VK_CONTROL $11 17  [Ctrl] 11  VK_MENU $12 18  [Alt] 12  VK_PAUSE $13 19  [Pause] 13  VK_CAPITAL $14 20  [CapsLock] 14  VK_ESCAPE $1B 27  [Esc] 15  VK_SPACE $20 32  [スペースキー] 16  VK_PRIOR $2...