GreyBox - 天気予報を表示する rlToday Skin + MortScript
Posted by yoosee on Gadget at 2007-08-26 22:00 JST
1
rltoday + mortscript スキン習作
↓左上BOXをタップで切替↑
以前から自分でも作りたいと思っていた、rltoday + mortscript で today に天気予報を表示する skin を作った。リアルVGA化したW-ZERO3[es] でのみ動作確認。幾つかのファイル名・レジストリは W-ZERO3 固有のものを入れている。MortScript で Livedoor Weather から天気予報を取り寄せて解析し、天気画像アイコンの変更とレジストリへの書き込みを行って today に表示する。また同じく MortScript で時刻と天気予報画面を切替表示するようにしてある。天気予報のダウンロード先URLは東京の予報に scripts\Greybox.ini の中で決め打ち。アイコンは KDE の Liquid weather ++ 用 iconset から Samurize を使用。アイコンのネームルールは Yahoo! Widget 等と同じ Weather.com 形式なので、Livedoor weather のアイコン番号と合わせるために ldw.ini と言うファイルで数字を変換している。それ用のアイコンならばサイズ(120x120と50x50)が合えばそのまま使えるはず。日本の天気予報とはアイコンの齟齬が結構あるので、気になる人は自分で変更するといいかも。
Livedoor Weather の更新時刻は 5, 11, 17時なので、その5分後及び日付が変わる 0:05 に実行するように、スクリプト内で次回の RunAt() を設定している。起動初回のみは手動実行が必要だが、以降は自動的に実行される。
2
導入手順
利用には以下が必要。- rlToday 0.22b 以上
- qkc-arm-wince
文字コード変換ツール。実行ファイルは \Program Files\qkc\qkc.exe に設置 - MortScript 4.0 以上
- Century Gothic の GOTHIC.TTF
Windows PC から拝借。\Windows 直下に配置 - ShowCallLog
Call に割当て。不在着信が1件以上なら着信履歴画面，0件ならば電話アプリのダイアル画面を表示するアプリ。\Program Files\ShowCallLog\ShowCallLog.exe として配置。 - DodeCale
日付部分に割当て。6 or 12ヶ月分のカレンダーを表示するアプリ。 - AutoConnect
自動ダイアルアップ機能を追加するツール。MortScript の Connect() 関数呼び出しでは接続に行ってくれない場合に必要。
3
余談と Tips
今回は天気予報の取得に MortScript を使ったが、これによって任意の URL からコンテンツをダウンロードして内容をレジストリに入れれば rltoday で表示させられるため、色々と応用が効きそうだ。MortScript はかなりクセがある言語だし文字列処理が面倒なので、Webサーバ側で ini ファイル形式にするのが簡単かもしれない。今回は Skin の切り替えに skin.xml ファイルを書き換える方法を使った。タップに応じて走る MortScript が skin-xxx.xml と言うファイルを skin.xml として上書きコピーした上で RedrawToday している。ファイル編集は skin.xml ではなく skin-xxxx.xml の方にしないと上書きされてしまうので注意。
他の方法としては、rlTodday.ini の SkinFile エントリを書き換えて skin 名ごと変える方法や、rlToday.ini ファイルそのものを上書きコピーする方法などがあるようだ。
GOTHIC.TTFをインストールせずに使用すると
日付、曜日が日本語表記になり
GOTHIC.TTFをインストールすると
数字以外は□になってしまいます
アドエスだと、Todayアイテムに起動中のプログラムを表示しておかないとprocessの数が反映されないようです。
アドエスお持ちではないようなので、無駄な情報かもしれませんが一応報告です
デザインがシンプルでかっこいいので気に入りました。
アドエスでのプロセス数の話は以下にあるような仕様に変わったみたいですが、これは単体では解決しづらいですね。カウントしてレジストリに数字をいれてくれる常駐ツールなりがあればよさそうですが。
http://dislife.com/?date=20070720
updatedを押して天気予報を取得しようとすると『unknown command'download'』のerrorが出ます。
何か方法が悪いのでしょうか？
http://pc11.2ch.net/test/ ... 2140262/470-482
MortScript の SP(SmartPhone)版では Download() が使えないので PPC版を入れましょう、と言うことのようですが。
PPC版で表示できました。
フルリセットして再セットアップしても同様に。
一応上記の通りやっているのですが、自分と同じくUpdatedをすると固まってしまう人居ますか？
ソフトリセットでも起動後すぐに固まってしまうため、再セットアップするしかなくなってしまいます。
回線をつないでいたので、最初のダウンロード後、表示が行われず固まってしまいました。
先にネット回線接続しても駄目でした。
PHS、無線Lan両方とも。
なんか、他のプログラムが悪さをしているのかと思い、フルリセット後、試しても同様に。
プログラムも、新しく落とし直しましたが。
tenki.mscr でやっているのは
1. インターネット接続して html をダウンロード、ファイル保存
2. html ファイルを qkc.exe で文字コード変換
3. html ファイルを読み込んで必要な部分を切り出し
4. 切り出したデータをレジストリに書き込み、アイコンファイルを dn.png (n=0~6)にコピー
という程度です。アドエス実機があれば各処理毎に区切って実行してみるんですが、es だと2ヶ月くらい問題なく動いているんですよ。
ちなみに1が完了していれば GreyBox\scripts\Data\ForecastData.txt というファイルが残ります。このファイルの文字コードがshift_jisになっていれば2まで終わっていることになります。4まで終了すればレジストリの HKCU\Software\yoosee\GreyBox\ の下に値が書き込まれ、dn.png が作られ、rltoday スキンにも情報が表示されます。このどこで止まっているか分かりますか?
単純にライブドアのサーバ落ちてたとかでは？
確認をしたところ、
ｔｘｔはshift_jisになっておらず、「EUC」なってました。
レジストリは
HKEY_CURRENT_USER/oftware\yoosee\GreyBox\
の下にDay0〜Day6までのフォルダー？があり、中身は空でした。
例えばですが、適当な名前で .mscr ファイルを作って
filename = SystemPath("ScriptPath") \ "Data" \ "ForecastData.txt"
RunWait("\Program Files\qkc\qkc.exe", "-s -u """ & filename & """")
のように実行してみるとどうなるでしょうか。
原因分かりました。
qkc-arm-wince内の「to_windows_dir」をフォルダーごとwindowsフォルダーに入れていた為でした。
自分のミスでした。
大変お手数をおかけ致しました。
今ちゃんとGreyBoｘ起動しています。ありがとうございました
初心者で大変申し訳ありませんが・・・yooseeさんのこの記事を拝見して、自分もアドエスへＤＬしてみようと思いました。
手順通り（？）だったと思うのですが・・・GreyBoxをフォルダ毎移動させ、再読み込みさせた時点で読み込み出来ずフリーズ・・・・
エラーメッセージ等は出ず、そのまま数秒で固まってしまいます。
再起動しましたが、立ち上げ時に同作動になってしまい起動出来ず・・
何とか、ＰＣへのリンクのタイムラグを使って、一端rlTodayを削除し、再び導入することでデフォルトへは戻りましたが・・・
エラーが起きないので何が原因か・・・判りません。
kuronekoさんが記載していますが、to_windows_dirがProgram Files→qkcフォルダにあった為かと思い、削除してみましたが・・・変化なし。
導入手順は・・現状
・qkcフォルダにはqkc.exeのみ。
・MortScriptはインストール済み。
・ShowCallLogは\Program Files\ShowCallLogフォルダにShowCallLog.exeとreadmeと一緒に存在。
という状態です。
その後、GreyBoxを導入すると上記になります。
大変お手数おかけ致しますが、何か解決方法がございましたら、ご教授お願い致します。
こるておさん＞はじめまして
qkcフォルダー内の「to_windows_dirフォルダー」この中に入っている二つの「dll」をwindowsフォルダーに入れていますか？
kuronekoさん、ご名答！！
（＞＿＜）
いや・・大変申し訳ないくらい・・デス
その後、なんとか色々調整しまして、少しはらしくなりました。
ありがとうございます！！！！！！
しかも、超かっこいい！
というわけで早速導入させていただきました。
問題なくインストールできましたが、
ライブドアの天気と比べると・・・
曇りのち雨が、晴れのち曇りのち雨みたいな画像になっています。晴れマークは必ず入ってしまう仕様なのでしょうか。
すごい！！
両方同時に使えるとさらにかっこいいですね。
色々作れちゃう人ってあこがれちゃいます。
とても優れたデザインですね。
ありがとうございます。
私も，天気予報とニュースが同時に表示されると良いのにと思いました。
天気アイコンは上記の通り weather.com 対応のものを使ってるんですが、日本と天気予報の考え方が違うのか、あまりきちんとマッチしてないんですよね。アイコン自体は画像ファイルを置き換えるか ldw.ini を書き換えれば変更は可能なんですが、Samurize アイコンセットには曇りのち雨に合いそうなのがない感じがします。
http://yoosee.net/d/archi ... /08/21/002.html
天気予報とニュースを同時に表示するスキンも作りたいんですが、なかなかピンとくるデザインが作れないでいます。気長にお待ちいただければ幸いです。もちろん適当に組み合わせて作ってもらってもいいですし。
ところで、天気予報は「東京地区きめうち」との事ですが、当方「千葉市」なのですが・・・千葉市に変更することはできますでしょうか？出来ましたら、修正すべき手順など教えていただければ幸いです。
scripts\Greybox.ini の中で
ForecastURL=http://weather.livedoor.c ... area/13/63.html
と定義している部分があります。実際に開いてもらうとわかるんですが、これはlivedoor天気情報の東京(東京地方)の天気のURLです。大阪でしたらこれを大阪(大阪地方)の天気のページ( http://weather.livedoor.c ... area/27/81.html ) に変更すれば動くと思います。
Greybox．iniの設定の件、有難う御座いました。
おかげさまで、設定確認し実行できました。
質問
Updated：11月19日17時0分と現在表示されていた場合に、この文字をクリックすると「情報更新」するように思いますが、クリックした時点の情報に書き換わる仕様でしょうか？
実は、先ほど上記の千葉Verに更新したのですが、何故か日付は、11月19日17時00分のままなのです。
アドエスで利用させてもらおうと思い試行錯誤しているのですが、文字がうまく表示されなかったり、天気予報の取得がうまくいかなかったりと言う感じで行き詰っています。
そこで一旦アンインストールして再度入れなおそうと思うのですが、完全にアンインストールする方法がわからないので教えていただければと思いコメントしました。
お忙しいとは思いますが、よろしくお願いします。
大変満足しているのですが２つほど質問があります。
翌日の日付の表示のやり方と、気温の「℃」の「Ｃ」を表示させないで「゜」だけを表示、もしくは無しにできないでしょうか？
お忙しいと思いますがよろしくお願いします。
翌日の日付は実はこっちでサボった部分で、現状版だと内部に情報を持ってないんです。NewsStand の方では処理しているので単に手を抜いているだけなんですが、対応には tenki.mscr をいじる必要があります。℃の方もほぼ同じ状況です。
ひー！！自分でいじれるか判りませんがやってみようと思います。。。。
判らない所がありましたら、無理を言いますがサポートよろしくお願いします。
・・・何気にVer.UPしていただけるよう願ってみる。無理ですね。ははは(^^;
他力本願ではダメだと思いがんばってみたんですが・・・
℃のＣの部分の表示をなくす方法がうまくいきません。
ライブドア情報の段階で℃込みで読まれているため
表示方法を変えれば・・と思い、いろいろやってみたのですが上手くできません。
何かヒントをいただけると助かります。
Maxtemp[day] = MatchStr
のように文字列を取り出している部分が4箇所あるんですが、ここで切り出されたものが "10℃" のようになっています。これから ℃ を取るには、直前の、例えば MatchCond[1] = "" を MatchCond[1] = "℃" に変えればもしかしたらいけるかもしれません。
もしくは切り出し済みの "10℃" といった文字列に対して、℃ を取りのぞく MatchCond を書いて Call GetStringMatched してみるという方法もあります。
℃という文字ごと無くしてやろうと思い
＞# 気温
＞ MatchCond[0] = ""
＞ MatchCond[1] = "℃"
＞ # skip once
＞ Call GetStringMatched
＞ Call GetStringMatched
＞ Maxtemp[day] = MatchStr
と、やってみたら！！危うく文鎮になりかけました！！
何とか復旧作業はできましたが怖くてこれ以上いじる事にトラウマになっています。。。
X01Tでハードリセット方法が発見されれば、もっと踏み込めるのですが。。。orz
>>℃ を取りのぞく MatchCond を書いて Call GetStringMatched してみるという方法もあります。
時間が出来た時でかまいませんので、その辺りのMatchCond のスプリクトよろしくお願いします。
後ろ側に＜/small＞＜/span＞＜/td＞の続きががあります。
PS. また消えていたら↑ このコメントは削除してください。
やりました！「℃」を「°」に変える事が出来ました！
あれからいろいろMortScriptについて調べて何とか自力でできました。
後は、明日の日付をどうやって表示させるかが残っています。
はじめてスプリクト書けたので感動してます。コレを期にもっと勉強して行こうと思います。
レジストリーに書き込む場所の前に追加しました。
＞### weekly temp Rename ###
＞ i = 1
＞Repeat(6)
＞ Maxtemp[i] = Replace(Maxtemp[i],"℃","°")
＞ Mintemp[i] = Replace(Mintemp[i],"℃","°")
＞ i = i + 1
＞EndRepeat
��rlTodayをインストール。
��qkc-arm-winceを解凍し、to_windows_dirのフォルダでなくファイルのみをwindows直下に配置。
��qkc.exeをprogram filesに配置。
��MortScript をインストール。
��rltodayの下にGreyboxを配置。
��設定→today→アイテム→rｌtodayのオプションでGreyboxを選択。
�Р萍未鮴擇蠡悗─�boxをタップし、情報を取得。
�┘瀬Ε鵐蹇璽表�了後にフリーズ。
なぜフリーズするのでしょうか。
手順の通りにやっているつもりなのですが・・・
おお、Replace() を使うと言う手がありましたね。MortScript4.1の新機能なので見落としていました。問題が解決してよかったです。
3 で qkc.exe を \Program Files\qkc\qkc.exe に置いていますか?
qkc.exeは
\Program Files\qkc-arm-wince\qkc.exeとなっております。
qkc-arm-winceを解凍すると、qkc-arm.winceというフォルダの中にto_windows_dirのフォルダとqkc.exeが出てきますよね。
そして、to_windows_dirの中身のみを移動させ、フォルダ自体は削除しています。
その後、qkc.exeの入ったqkc-arm-winceというフォルダをProgram filesに配置しました。
素人目には「qkc-arm-wince」と「qkc」が違うのかなと思うのですが・・・
おっしゃる通りでして、天気取得用スクリプトの中では \Program Files\qkc\qkc.exe と決め打ちしてしまっているので、フォルダ名を \qkc-arm-wince\ から \qkc\ に変更してもらえば動くんじゃないかと思います。
正常に動作するようになりました。
それにしてもこのスキンは本当にデザインがかっこいいです。
ちょっとお伺したいのですが、
このスクリプト前日との最高低気温との温度差はとってくることは出来ないのでしょうか
もし可能であれば気温差の情報もある新版でも作っていただければなぁと思います。
勝手を言って申し訳ありませんでした。
http://www.myopen.jp/blog ... /myweather.html
わざわざご返答いただきありがとうございます。
また気が向かれましたら是非実装の方よろしくお願いします。
今回「キャメル」さん同様フリーズが起こってしまいました。
自分はEMONEのS01SH2をつかっているのですが、やっぱり
W-ZERO3[es] でないと、動かせないのでしょうか？？
せっかくかっこよくどうにか動かしたいのですが、アドバイス
があれば教えてください。。
先日初めてＷＭマシンなるものを入手しまして、この素晴らしいスキン見つけたのでありがたく使わせていただいております。ありがとうござます。
ひとつ質問なのですが、GreyBoxのスキンで表示している日時（上記サンプル写真では、Sunday,August 26の部分）が、当方のマシンだと日本語表示になってしまいます。
これはシステム（ＯＳサイド設定値ですよね、きっと）のどのあたりから引っ張っている表示設定なのでしょうか。調べてみたのですが変更方法がなかなか見つからず…
初歩的な質問かと思うのですが、お時間のあるときにご教授いただければ幸いです。
GreyBox を本日WS01AHに導入しました。
とってもいい感じです。すばらしいですね。
しかし、欲を言ってしまうと この画面で、占いが表示されるともっといいなぁなんて考えています。
どうやったらできるのだろう。
もしくは、MSNとのリンク方法があればいいなぁと思います。
（MSNの占いと天気はよく見るので）
できればアドバイスいただけたらなぁと思います。
WSO11SH（アドエス）に上記の手順でインストールしているのですが旨くいきません。
今までrlToday にて他のページにてiphoneをマネするなどそれなりにアドエスは触ってきていたのですが、今回ばかりはどうにも旨くいきません。
左のウインドウのところが
23。*/small>と表示され
他は表示をしています。
そしてウインドウをタップするとフリーズ。
インストール手順などは間違えていないと思うのですが、
何かアドバイスをいただければ幸いです。
willcom03に導入してみたところ、updatedをクリックし、ダウンロード後あたりで反応無くなってフリーズします。
事前にネット接続しておいても同様にフリーズ。
関連しそうなパッケージインスト場所
qkcは\Program Files\qkc\qkc.exeに配置済み
to_windows_dirの中身は\windows直下にコピー済み
MortScript-4.1はPPCのcabをデバイスにインストール
rltodayは0122bをデバイスにインストール
上の方のコメントにあった
filename = SystemPath("ScriptPath") \ "Data" \ "ForecastData.txt"
RunWait("\Program Files\qkc\qkc.exe", "-s -u """ & filename & """")
と言うスクリプトを作成して
\Program FileslToday\GreyBox\scriptsに配置・実行してみましたがよく分からず。-sでsjis変換のようですが-uの意味が不明。
ForecastData.txtの文字コードはeucでした。
他に何か試すことはありますか？
http://pc11.2ch.net/test/ ... /1200917379/258
03でqkc.exe が利用できてないと言うコメントがあるようです。ForecastData.txt はダウンロードファイルのEUC-JPをqkcでsjisに変換するので、現象を見てもqkc.exeがちゃんと動いてない感じがします。
ちなみに -u は改行コードの変換です。
http://hp.vector.co.jp/au ... elp/cmdopt.html
とりあえずqkc.exeをgsfinderから叩いてみたところ、
「'qkc'は有効なPocketPCアプリケーションではありません。」
と表示されました。現状動いて無さそうな雰囲気ですね。
先日端末の不調から再インストールしたのですが、その後、アップデートを押しダウンロードが終了する時点で、端末がフリーズしてしまう症状に見舞われております。
強制リセットを行えば立ち直り、アップデートも終了できるのですが、日付が7/8になったまま、データが更新されません。（再インストールした日は7/29です）
レス11の内容で確認したところ、4まで正常に行われているようです。
（こちらの想像になりますが）tenki.mscr は、ForecastData.txt から、指示された文字列と文字列の間の字を取得しているのではないか、と思いまして、livedoor側の書式が変わって、この文字列が取得できなくなったのではないかと思い、文字列の指示を変えてみましたが、上手くいきません。
当方の推測が間違っているのか、文字列の指示の仕方がおかしいのか、それとも別の問題でしょうか。
同様の症状、確認されておりませんでしょうか。
以上、宜しくお願い致します。
フリーズする現象ですが自分の所でも起きました。先週末ぐらいにふとアドエスを見たら固まってました。データを所得しいって固まったみたいです。
自分なりに調べたらやはりlivedoor側の書式が変わったのが原因ではないかと。固まった後にGreyBoxで使用しているレジストリを見ると内容に全然違う物がセットされていて、そのレジストリ値を削除すると固まらずに表示されます。（もちろん表示内容はダメダメですけどね）
自分のアドエスでは新しい書式に合わせてtenki.mscrのスクリプトを直して様子を見ていますが今のところ問題なく動いています。
ご返事ありがとうございます。
そちらで上手くいかれているということは、当方のtenki.mscr の書き方に問題があるようですね。
もう少し試してみますが、もしよろしければ修正した内容を、一部で良いので見せていただけませんでしょうか。
まとめサイト等を見ながら試してはいるのですが、文字列取得で失敗します。MatchCondの後の文字列の指定に何か決まりがあるようなのですが。
宜しくお願いします。
同じような症状で何日か前から困っていました。
適当にtenki.mscr書き換えてなんとか動作しました。
該当箇所を残しておきます。
### HTML data parse
#
MatchCond[0] = ""
MatchCond[1] = " - 今日・明日・週間の天気予報"
Call GetStringMatched
GlobalInfo["Area"] = MatchStr
# 予報時刻
MatchCond[0] = "^LF^ ^LF^ "
MatchCond[1] = "発表"
Call GetStringMatched
GlobalInfo["BroadcastTime"] = MatchStr
### Get Forecast for recent two days
# Skip once (RSS icon)
MatchCond[0] = "http://image.weather.live ... img/icon/"
MatchCond[1] = ".gif"
Call GetStringMatched
day = 0
Repeat(2)
# 天気予報
MatchCond[0] = "http://image.weather.live ... img/icon/"
MatchCond[1] = ".gif"
Call GetStringMatched
Forecast[day] = MatchStr
# 気温
MatchCond[0] = ""
MatchCond[1] = ""
Call GetStringMatched
Call GetStringMatched
Maxtemp[day] = MatchStr
MatchCond[0] = ""
MatchCond[1] = ""
Call GetStringMatched
Call GetStringMatched
Mintemp[day] = MatchStr
# 降水確率 (今日、明日は6時間毎の予報)
i = 0
rain_str = ""
Repeat(4)
MatchCond[0] = ""
MatchCond[1] = ""
Call GetStringMatched
If(day = 0)
RainToday[i] = MatchStr
Else
RainTomorrow[i] = MatchStr
EndIf
rain_str = rain_str & " " & MatchStr
EndRepeat
Rain[day] = rain_str
day = day + 1
EndRepeat
### Get Weekly Forecast from day after tomorrow
# Livedoor weekly forecast has variable length, 5days or 6days
# to get only 5days
# day = 2
# 日付
i = day
Repeat(5)
MatchCond[0] = "^LF^"
MatchCond[1] = "日"
Call GetStringMatched
Date[i] = MatchStr
i = i + 1
EndRepeat
# 天気予報
i = day
Repeat(5)
MatchCond[0] = "http://image.weather.live ... img/icon/"
MatchCond[1] = ".gif"
Call GetStringMatched
Forecast[i] = MatchStr
i = i + 1
EndRepeat
# 最高気温
i = day
Repeat(5)
# 気温
MatchCond[0] = ""
MatchCond[1] = ""
Call GetStringMatched
Maxtemp[i] = MatchStr
i = i + 1
EndRepeat
# 最低気温
i = day
Repeat(5)
MatchCond[0] = ""
MatchCond[1] = ""
Call GetStringMatched
Mintemp[i] = MatchStr
i = i + 1
EndRepeat
# 降水確率
# skip once
MatchCond[0] = ""
MatchCond[1] = ""
Call GetStringMatched
i = day
Repeat(5)
MatchCond[0] = ""
MatchCond[1] = ""
Call GetStringMatched
Rain[i] = MatchStr
i = i + 1
EndRepeat
### HTML data parse
#
MatchCond[0] = "<title>"
MatchCond[1] = " - 今日・明日・週間の天気予報"
Call GetStringMatched
GlobalInfo["Area"] = MatchStr
# 予報時刻
MatchCond[0] = "</h2>^LF^ <ul>^LF^ <li>"
MatchCond[1] = "発表</li>"
Call GetStringMatched
GlobalInfo["BroadcastTime"] = MatchStr
### Get Forecast for recent two days
# Skip once (RSS icon)
MatchCond[0] = "http://image.weather.live ... img/icon/"
MatchCond[1] = ".gif"
Call GetStringMatched
day = 0
Repeat(2)
# 天気予報
MatchCond[0] = "http://image.weather.live ... img/icon/"
MatchCond[1] = ".gif"
Call GetStringMatched
Forecast[day] = MatchStr
# 気温
MatchCond[0] = "<span class=""maxtemp"">"
MatchCond[1] = "</span>"
Call GetStringMatched
Call GetStringMatched
Maxtemp[day] = MatchStr
MatchCond[0] = "<span class=""mintemp"">"
MatchCond[1] = "</span>"
Call GetStringMatched
Call GetStringMatched
Mintemp[day] = MatchStr
# 降水確率 (今日、明日は6時間毎の予報)
i = 0
rain_str = ""
Repeat(4)
MatchCond[0] = "<td align=""center"">"
MatchCond[1] = "</td>"
Call GetStringMatched
If(day = 0)
RainToday[i] = MatchStr
Else
RainTomorrow[i] = MatchStr
EndIf
rain_str = rain_str & " " & MatchStr
EndRepeat
Rain[day] = rain_str
day = day + 1
EndRepeat
### Get Weekly Forecast from day after tomorrow
# Livedoor weekly forecast has variable length, 5days or 6days
# to get only 5days
# day = 2
# 日付
i = day
Repeat(5)
MatchCond[0] = "</th>^LF^<th nowrap>"
MatchCond[1] = "日"
Call GetStringMatched
Date[i] = MatchStr
i = i + 1
EndRepeat
# 天気予報
i = day
Repeat(5)
MatchCond[0] = "http://image.weather.live ... img/icon/"
MatchCond[1] = ".gif"
Call GetStringMatched
Forecast[i] = MatchStr
i = i + 1
EndRepeat
# 最高気温
i = day
Repeat(5)
# 気温
MatchCond[0] = "<span class=""maxtemp"">"
MatchCond[1] = "</span>"
Call GetStringMatched
Maxtemp[i] = MatchStr
i = i + 1
EndRepeat
# 最低気温
i = day
Repeat(5)
MatchCond[0] = "<span class=""mintemp"">"
MatchCond[1] = "</span>"
Call GetStringMatched
Mintemp[i] = MatchStr
i = i + 1
EndRepeat
# 降水確率
# skip once
MatchCond[0] = "<td align=""center"">"
MatchCond[1] = "</td>"
Call GetStringMatched
i = day
Repeat(5)
MatchCond[0] = "<td align=""center"">"
MatchCond[1] = "</td>"
Call GetStringMatched
Rain[i] = MatchStr
i = i + 1
EndRepeat
消していただけると幸いです。
＆LT;が＜
＆GT;が＞
のつもりでした。
http://maho-maho.net/tenk ... cr.20080729.zip
に置いておきますので参考にしてみてください。
お返事遅れまして申しわけありません。サンプルありがとうございます。
出張中でアドエスをいじる暇なく、昨日、ようやくお二方のサンプルを参考にして、無事修正することが出来ました。ありがとうございました。
NewsStand の方も同じ問題が起きていたので、こちらも修正してみたいと思います。
お返事遅れまして申しわけありません。サンプルありがとうございます。
出張中でアドエスをいじる暇なく、昨日、ようやくお二方のサンプルを参考にして、無事修正することが出来ました。ありがとうございました。
NewsStand の方も同じ問題が起きていたので、こちらも修正してみたいと思います。
やはり03では更新でフリーズ・電池抜きリセットで復旧となりますね。
できればWM6.1をいずれ対応お願いします。
わたしのようなスキルなしおやじには、作者さんのような偉人に頼る他ありません。
こちらのGreyBoxで、お天気表示しようとしたのですが、
WILLCOM03でqkcが動作しなかったもので、
qkcなしで動作するように改造しました。
某巨大掲示板にて、これを使用したいとおっしゃる方がいるので、
アップローダーにあげたいのですが、いかがでしょうか？
よろしくお願いいたします。
結局私もPukuPukuさんのスクリプト利用させていただいております（笑
ソースが綺麗だから・・
Willcom-03に変えまして、とりあえずなスクリプト改造を・・・
最後のほう
RunWait(qkc, "-s -u """ & DataFile & """")
rawhtml = ReadFile(DataFile)
↓
##RunWait(qkc, "-s -u """ & DataFile & """")
rawhtml = ReadFile(DataFile,0,utf-8)
これで日本語を豆腐にして MatchCond[1] = "日" とかの日本語を書き換えて動かしています
" - 今日・明日・週間の天気予報""発表""月""日"
↑諦めた
"日" → "（"
MatchCond[0] = "天気"
MatchCond[1] = ""
MatchCond[1] = ""
以下も同じように
とりあえず日本語変ですが動いています
GAKUさんのスクリプト公開を待ち望んでおります（笑
天気
TD
↓
/TD
TD
問題あるようでしたらすぐに公開をやめます。
何度も長いコメントしてしまい申し訳ございませんでした。
今回こちらの記事を当ブログの、お天気ツール紹介の記事からリンク・トラックバックさせていただきました。
「MortScript + rlTodayスキン」での、天気予報表示の利用例として紹介させていただきました。
ほかにもおすすめの自作アプリ情報などがありましたら、ぜひ当ブログにもお知らせください。事務局一同、楽しみにお待ちしています。
また、もし、今回の当ブログでのご紹介に問題がございましたらお知らせください。
今後ともどうぞよろしくお願いいたします。
僕の天気予報はヤフーのを使っています。