テキスト処理(天気予報)

ホームページの情報を取得して付箋上に表示する事ができます。

次の例は気象庁のホームページから天気予報のWebページを取得して 整形して付箋上に表示するサンプルになっています。 少々正規表現の処理が強引なので表示できない場合があるかもしれません。 同様の方法でいろいろな情報をインターネット上のホームページから 取得して付箋上に表示する事ができます。

天気

f_SetInterval(300000) -- 5分毎
s = f_OpenWeb("http://www.jma.go.jp/jp/yoho/320.html") -- 神奈川県の場合
-- s = f_OpenWeb("http://www.jma.go.jp/jp/yoho/319.html") -- 東京都の場合
-- s = f_OpenWeb("http://www.jma.go.jp/jp/yoho/331.html") -- 大阪府の場合
ptn = "\"forecasttablefont\">.->(.-)</caption>.-left\">(.-)</div>"
ptn = ptn .. ".-weather\">(.-)<br>.-<td class=\"info\">(.-)</td>"
ptn = ptn .. ".-<td align=\"left\".->(.-)</td>.-<td align=\"right\">(.-)</td>"
ptn = ptn .. ".-<td align=\"left\".->(.-)</td>.-<td align=\"right\">(.-)</td>"
ptn = ptn .. ".-<td align=\"left\".->(.-)</td>.-<td align=\"right\">(.-)</td>"
ptn = ptn .. ".-<td align=\"left\".->(.-)</td>.-<td align=\"right\">(.-)</td>"
ptn = ptn .. ".-<th class=\"weather\">(.-)<br>.-<td class=\"info\">(.-)</td>"
ptn = ptn .. ".-<td align=\"left\".->(.-)</td>.-<td align=\"right\">(.-)</td>"
ptn = ptn .. ".-<td align=\"left\".->(.-)</td>.-<td align=\"right\">(.-)</td>"
ptn = ptn .. ".-<td align=\"left\".->(.-)</td>.-<td align=\"right\">(.-)</td>"
ptn = ptn .. ".-<td align=\"left\".->(.-)</td>.-<td align=\"right\">(.-)</td>"
y1,y2,y3,y4,y5,y6,y7,y8,y9,y10,y11,y12,y13,y14,y15,y16,y17,y18,y19,y20,y21,y22 = string.match(s, ptn)
y4 = string.gsub(y4, " ","")
y4 = string.gsub(y4, "<br>","\n")
y14 = string.gsub(y14, " ","")
y14 = string.gsub(y14, "<br>","\n")
x = string.format("%s%s\n%s\n%s\n%s %s\n%s %s\n%s %s\n%s %s\n%s\n%s\n%s %s\n%s %s\n%s %s\n%s %s\n", y1,y2,y3,y4,y5,y6,y7,y8,y9,y10,y11,y12,y13,y14,y15,y16,y17,y18,y19,y20,y21,y22)
 
comments powered by Disqus