07/03/04 04:15:56 bf9kpYKV0
中の人って、けっこう大雑把なドイツ人だよねｗ
まぁ俺も他人のこと言えないけど
検索スクリプト、たぶん出来たと思う
URLﾘﾝｸ(w-zero3.org)
htmlタグの中か外かを判断するのに
最初 ForEach <v> in charsOf ( <string> ) 使ったら
ものすごい時間かかるので
ReverseFind()使ってみた
たいしたものじゃないわりに結構苦労したｗ
51:１
07/03/04 04:25:30 0
いっぽうロシア人は
nScriptを使った
52:いつでもどこでも名無しさん
07/03/04 05:14:54 0
乙です。正規表現の無い処理系でテキスト処理したくねえ……。
AppleScriptではSplitとかReplaceとかSubstrとか毎回書いちゃってたりしますが。
そのうちSortもソラで書けるようになろう。
CeGCCでコンパイルしたqkc置いときますね。
つ[URLﾘﾝｸ(moyashi.air-nifty.com)
……べ、別にあんたのためにコンパイルしたわけじゃないんだからねっ!
pathToFile = "\path\to\filePath"
Run("\path\to\qkc.exe", "-s " & pathToFile)
-s to Shift-JIS
-e to EUC
-j to JIS
qkcはパイプやリダイレクトを使わずに済む代わりにunicodeに対応してない。
本当ならnkfを貼りたかったんだけど、動作が変だ。
Runではパイプとかリダイレクト無効だろうし。
nScriptもunicode対応してなくて、時代を感じる。
ほっほう!! みたいな構文があってリスペクトしているので、
ぜひnakkaさんにはnScriptmのフィーチャーまで取り込んで、
リニューアルをお願いしたいところ。
53:１
07/03/04 16:51:17 0
>>52
俺もAppleScriptでは慣れてるはずなんだけど
ここのところはPerl頭になっててたいへん…ｗ
ツンデレthanks!
早速試させてもらったのですが…何も起きません。
解凍したcegcc.dllとcegccthrd.dllをWindowsフォルダに入れて
qkc.exeはProgram Filesに入れてありますが
スクリプト走らせても
ファイルマネジャー上でqkc.exeをダブルクリックしても何も起きない。。。
エラーも出ません。
54:いつでもどこでも名無しさん
07/03/04 16:55:00 0
何この良スレは・・・
55:１
07/03/04 17:25:14 0
>>54
おいでやす
56:いつでもどこでも名無しさん
07/03/04 18:24:02 0
PocketConsoleを入れない限りは、画面上で何も起きなくておk。
逆を言えば、「qkc（またはいずれかの構成ファイル）が見つかりません。」
と出ないなら動いている証左だが。
URLﾘﾝｸ(www.bluishcoder.co.nz)
-sオプション付けててShift-JISのソースを処理してるなら、
Shift-JIS to Shift-JISだから何も起きなくて当たり前。
一回-eオプションでテキストをEUC-JPにしてみてPocketWordとかで開いて、
バケバケになってるのを確認して、再度-sで変換とか。
1さんがそんなマヌケなことするわけないよなあ。
空白を含むパスに処理するファイルがある場合、クオートしないといけない
かもしれない。もしくは、空白を含むパスを回避する必要が……。
とりあえず、処理するファイルをルートに置いてやってみてください。
WMにはカレントパスという概念が無いそうで、
パスは全部ルートからの絶対パスで指定する必要があります。
世のZERO3勢の勢いを見ていると、
何か買っとかないと乗り遅れた気分になる……。
57:いつでもどこでも名無しさん
07/03/04 18:25:36 0
EM・ONE買っとけ♪
58:１
07/03/04 19:03:16 0
>>56
eucで書いたtxtファイルを作って試してたんだけど、
> 空白を含むパスに処理するファイルがある場合、クオートしないといけない
それでした。。。； すみません＆ありがとう
Filepath = """\My Documents\text-euc.txt"""
Run("\Program Files\qkc.exe", "-s " & Filepath)
これ↑でばっちりsjisに変換されてました。thx again.
ZERO3（俺のは無印）はまぁ、「PDA＋無線LANカード＋モデムカード」と考えれば
めっちゃ安いからねー
値段を考えないなら、WM5(6)機であればZERO3じゃなくてもいいとは思うけど。
59:１
07/03/05 00:13:42 0
>>50のスクリプトを一応日本語検索対応にしてみた
Sjis_file = （ファイルパス）を設定しておいて
最新キャッシュファイル選んだ時点でSjis_fileとしてコピー
RunWait( "\Program Files\qkc.exe", "-s """ & Sjis_file & """" )
#Run()でやったら、qkcの変換が終わる前に処理し始めて出力ファイルがぐしゃぐしゃに。
これを読み込んで、検索。
metaタグのcharsetも変えなくちゃいけないけど
コードをきれいに置き換えるプロセスが面倒なので
charset=euc-jp"> → charset=shift_jis"> こうするんじゃなく
charset=euc-jp"> → charset=shift_jis" euc-jp"> にして誤魔化すことにしたｗ
#Whileループの直前
csIdx = Find( ToLower( aStr ), ToLower( "charset=" ))
If( csIdx )
preStr = SubStr( aStr, 1, csIdx - 1 + Length( "charset=" ))
postStr = SubStr( aStr, csIdx + Length( "charset=" ))
WriteFile( Found_file, preStr & "shift_jis"" ", 1)
aStr = postStr
Idx = Idx - Length( preStr )
EndIf
60:いつでもどこでも名無しさん
07/03/05 00:48:50 0
乙です。
Debian JPにあったsed-jaも置いといた。
まー、nScriptでいいわけだが。
ファイル書き出しはcmd.exeのリダイレクトを利用する必要があるので、
cmd.exe(PocketConsole)がインストールされてないとダメ。
あと、Shift_JISとEUC-JPでないとダメみたい。JISだと化けた。
パイプはうまく動かなかったので、事前にRunWaitにてqkcでコード変換しておく必要あり。
PocketConsoleは公式版でなく、
URLﾘﾝｸ(www.bluishcoder.co.nz)
にあるrarファイルに含まれているのでないとダメなのかもしれん。
PocketGCCのころに作られたものみたい。
URLﾘﾝｸ(moyashi.air-nifty.com)
Run("\windows\cmd.exe", "/c \sed.exe -e 's/euc-jp/shift_jis/g' \org.txt > \temp.txt")
61:１
07/03/05 03:21:06 0
>>60
いつも貰ってばかりですいませんなぁｗ
でも、う～ん。。。
rarファイルが解凍できないや。
普通のcmd.exeが落ちて無いかとおもってぐぐってみたが、
母艦が必要なのしか見つからなかった。
まぁ、MortScriptスレとしては
正規表現使っちゃったらおしまいみたいな感じもするのでｗ
まさしく「nScriptでいいわけだが」てことだろうから
sedのお世話にはならずにやっていこうかとも思いますｗ
62:いつでもどこでも名無しさん
07/03/05 14:04:44 0
URLﾘﾝｸ(forum.xda-developers.com)
63:１
07/03/05 19:44:42 1Z5aMo2C0
>>62
そのフォーラムよりもこのスレのほうが
たぶん複雑なことにチャレンジしているぞｗ
ところで、俺はCQっていう入力支援アプリを使ってるんだけど
URLﾘﾝｸ(homepage2.nifty.com)
CQ用のMortScriptコマンド集(RC10)をうp。
URLﾘﾝｸ(w-zero3.org)
内容をCQのキーワードファイルにコピペして使って下さい
端末単体でスクリプティングするのに便利
64:１
07/03/06 05:27:58 0
しかし、そろそろw-zero3.orgのうpろーだ使うのが
苦しくなってきたな。
どっかに良いうpろーだないかなー？
65:いつでもどこでも名無しさん
07/03/06 05:33:41 0
イイネ！
今日はRubyとPHPをいじくっているのでMortScriptは休憩。
RubyはPHSから位置情報取得＞マップ表示orメール作成というやつ（Zaurus用）
現在地の緯度経度入りのURL作成まではチョロいもんだが、NetFrontに渡すと
その瞬間SIGSTOPをくらって（？）止まってしまい困っている。
fgすると戻ってくるけど。
66:いつでもどこでも名無しさん
07/03/06 15:00:28 0
MortScriptでうｐろだをつくるとか
67:１
07/03/07 00:47:15 0
>>65
リナザウですか。
Windows（DOS）もLinuxみたいに、-hでパラメータ一覧が出たらいいのに
と常々思ってるんだが
あるいはMacソフトウェアのAppleScript用Dictionaryみたいなものとか
ディベロッパーキットとか落とさないと駄目なのかな。
なにせマカーなんで、不案内な部分が多いよ。
>>66
それはあれだな、
テレビのリモコンで電話をかけるぐらい難しいなｗ
68:いつでもどこでも名無しさん
07/03/07 01:07:38 0
そっかorz
69:いつでもどこでも名無しさん
07/03/07 05:16:55 0
引数を取るプログラム少ないんでは。
まじめなプログラムはヘルプに書いてあるよ。
その代わり、OLEサーバ（OLEオートメーションサーバ）実装のプログラムは、
（表現が正しいか分からない。つまり、OLEクライアントからCreateObject()で
利用できるプログラム）自分自身に関する情報をオブジェクト自身に保持している。
それらの情報はオブジェクトブラウザを使うと見ることができるよ。
身近なところでは、ExcelのVBエディタに付いているオブジェクトブラウザとか。
OLEサーバになるプログラムはかなり多いと思われる。オブジェクトブラウザで
見てみると、多過ぎて何だか分からないぐらい。
OLEの世界に拓けたポテンシャルを目の当たりにすると、
Windowsに対する認識を改めるかも。
例えば、
URLﾘﾝｸ(www.hi-ho.ne.jp)
こういうのを使うと、
Excelを含むいろーんな処理系からbasp21の機能を利用することができる。
AppleScriptのOSAXみたいなもんだね。自分自身の中にDictionaryを持っている。
70:１
07/03/07 17:12:45 0
>>69
なるほどー。
いや、Windows PCでのプログラミングとかVBマクロとかでは
Macよりいろいろ出来て融通が効くんだろうなぁ、
っていうイメージは持ってるよ。
WM機単体上でのスクリプティングで、
たとえばこないだのtmail.exeの "-service" "-sync" とかを知るのに苦労したから。
"-to" とか "-subject" "-body"とかは、ぐぐればすぐ見つかるんだけど
少なくともMicroSoft製のexeのパラメータだけでもいいから
一覧にまとまってればスクリプト作り易いのにな、と思って。
71:いつでもどこでも名無しさん
07/03/07 20:23:05 0
うーん、そういうのは知らないね。
いや、あればググって出てくるっしょ。
72:１
07/03/07 22:13:08 Ne0E1r5t0
だねぇ。
文字列マッチ／置換をregexp感覚で行う
（あくまでも「感覚」ｗ）ライブラリスクリプト書いたw
バグがあったらごめん。
for MortScript 4.0 RC10
URLﾘﾝｸ(home.att.ne.jp)
73:いつでもどこでも名無しさん
07/03/08 00:52:07 0
根性あるね!!
その美学分かる。
74:いつでもどこでも名無しさん
07/03/08 02:07:10 0
Sigmarion IIIでもMortScript動いた。
strings MortScript.exe > ~/mortscript.txt
でテキスト抜いて依存してるdll調べた。
ちょっと変なとこあるけど、核心であるRunAt()、TimeStamp()は動いた。
Sigmarion IIIは普通に起きてきたよ。
こういう環境が最初からあれば、もっとH/PCは活躍したはずなのに……。
そういえば、Win32でもServiceだったかタスクスケジューラにタスクを登録すると、
定期的にサスペンドから起きて何かするってできたよな。
以前やったことがあるが、できたんだかどうだったか忘れてしまった。
75:いつでもどこでも名無しさん
07/03/08 06:31:22 0
Sigmarion III、jornada720でもMortScript動いた。
URLﾘﾝｸ(moyashi.air-nifty.com)
76:１
07/03/08 19:22:12 5I6UOWTj0
まぁ一度作っておけばあとが楽だしね。
こういうめんどくさいルーティーンもけっこう高速に処理するね。
string コマンドに詳しくはないけど、
MortScript.exeファイルを強引にテキストエディタで開くと、
いちばん下の方に
COREDLL.dllAYGSHELL.dllcellcore.dllCEShell.DLLmfcce300.dll
ole32.dlltoolhelp.dllWININET.dll
LoadLibraryWGetProcAddressACacheSyncCLSIDFromStringProcess32
NextInternetOpenW
ていう文字列が見えるね
それにしても、いろんな機種持ってるなぁｗ
77:１
07/03/08 21:18:24 0
RC11入れてみた
作者コメントどおり、BigMessage()の
ワードラップされない不具合が改善されてるね
78:いつでもどこでも名無しさん
07/03/09 05:37:13 0
テキストエディタで開けば見えるけど、美学ってもんがね……。
っていうか、ホーミンさんのExecutabilty Check toolで、依存dllのチェック、
依存しているdllのファイル名の変更が可能、とご本人からコメントをいただいてしまった。
MortScript.exeをExecutabilty Check toolで書き換えてしまうわけです。
すると、Pocket PC用のmfcce300.dllをmfcce300p.dllなどとリネームして
H/PC用のmfcce300.dllと共存可能とのことです。
そういえば、昔何かで使ったような気がした！ ホーミンさんには頭が上がりません。
いろいろ持っているよー。まあ、好きだからね。
RC11は入れるだけ入れて内容はチェックしてなかった。
ということで、ダイアログ進行は続く。
79:いつでもどこでも名無しさん
07/03/09 12:14:27 0
ため語と敬語が混ざってるな
80:いつでもどこでも名無しさん
07/03/09 12:49:55 0
間違い。
×mfcce300.dllをmfcce300p.dllなどと
○mfcce300.dllをmfcce30p.dllなどと
バイナリ書き換えなので、文字数が変わるとマズいよね。
ホーミンさん本人はちゃんと下記のように書かれていたです。
（常体敬体混在）
81:１
07/03/09 19:11:01 0
>>78
美学は大事だよね。
まぁ俺の場合は「持たざる者の工夫」程度のものだけどｗ
ホーミンさん降臨ですか。
Mortさんもそうだが、フリーウェア開発者さん達には本当に感謝です。
お客さん来ないねーｗ
機種板ZERO3ソフト関連スレの流れを見つつ
誘導かけようかとも思ってる
82:いつでもどこでも名無しさん
07/03/09 19:35:45 0
ホーミンさん降臨してないよ
83:いつでもどこでも名無しさん
07/03/09 21:01:02 0
以前から、WindowsでAHKとかLLなスクリプト言語ばかり弄って
遊んでましたが、最近、W-ZERO3[es]購入しまして、このスレ見てPDAにも
AHKみたいな言語があったのかと喜んでおります。
それで質問があるのですが、開発環境ってどうしてますか。スクリプト
書くのはPC上ですか、それともPDA上ですか。WM5エミュレータとか使って
テストするのでしょうか。PDAでスクリプト書くのは厳しい感じですが。
84:１
07/03/09 22:50:33 0
お客さんきたーーーーｗ
>>82
>>78さんのブログ上に降臨、って意味です。
>>83
俺はマカー with ZERO3 (003SH) なんで、長いものはMacで書いて
FTPでZERO3に送って、動作確認しつつ単体上で手直し。
短いものは最初から単体上で書いてます。
>>63でうpしたCQ用コマンド集を使ってるので、けっこう楽です。
[es]だと画面が若干小さいから、単体上だとやり辛いかもね。
85:いつでもどこでも名無しさん
07/03/09 22:56:03 0
>>78さんのブログについてｋｗｓｋ！！
86:いつでもどこでも名無しさん
07/03/10 06:48:39 0
>>83
敬体に統一。僕はh2210上で高速タッピングしてます。
デバイス上でないと動かない関数が結構あるので、母艦で書きたければ、
母艦で書いて、それをスムーズにデバイス上で実行する手立てを模索すべきかと。
cecopy.exeという、ActiveSync中のデバイスにコマンドラインからコピーする
ツールを使うとかなり便利です。
Meadow / Emacs上で編集中のファイルをデバイスにコピーする関数を書いてみました。
Cygwin入りの環境なので、パスのデリミタが怪しいのですが、僕の環境では以下は動きました。
適当にglobal-set-keyすれば、キー一発でデバイスにファイルをコピーできます。
デリミタは / でおながいします。
Emacsに限らず、マクロ付いているエディタならできるかと思いますが。
(defun cecopy(to)
""
(interactive "scopy to: ")
(let ((f (buffer-file-name)))
(if (and f (file-exists-p f))
(progn
(if (not (string-match "/$" to))
(setq to (concat to "/")))
(if (eq (shell-command
(concat
"d:/cygwin/bin/cecopy.exe \""
f "\" \"" to (buffer-name) "\"")) 0)
(message "cecopy OK.")
(message "cecopy failed.")
))
))
)
87:いつでもどこでも名無しさん
07/03/10 07:21:57 0
Mac OS XだとMissingSync for Windows Mobileという製品を使うとデバイスを
マウントできるので、普通にEmacs等からデバイス上のファイルを編集できます。
Windowsの場合はマウントできないので、Rainerさんのftpdをインストールし
て、EmacsのTramp / ange-ftpからデバイス上のファイルを直接編集ってこと
ができると思います。(FtpSvrではコマンドが非互換だからかダメでした)
URLﾘﾝｸ(www.rainer-keuchel.de)
PCで動くMortScriptが同梱されているので、PC非対応の関数を使ったスクリプト
を書くのでない限りは、PC上で書けますよ。
x86Emulator用のバイナリは無いので、エミュレータを使う手は使えないと思います。
>>85 MortScriptをH/PCで動かす記事を書いたときに、ホーミンさんに補足していただいた、
というだけの話です。
88:１
07/03/10 18:26:42 0MfJOW/10
俺はいつもhtmlとかcgiとか用にBBEditというテキストエディタ使ってて
URLﾘﾝｸ(www.barebones.com)
これにはFTP鯖上のファイルを直接開いたり新規／上書き保存したりできるので
ZERO3でFtpSvr走らせといて、Mac上のBBEditで開いて書いてコマンド＋sで完了。
とはいえ、俺も実際にはソファーに寝そべりながら
ZERO3上でタッピングしてることが多いなｗ
89:１
07/03/10 18:48:27 0
で、ZERO3上で書く時は多重起動可能なJUsquid使ってて、
このエディタは、現在開いてるファイル名をWindowタイトルとしてくれるので、
「現在編集中のスクリプトを走らせるスクリプト」をソフトキーに割り当てておくと便利。
#RunThisMscr.mscr################
this = "RunThisMscr.mscr"
#スクリプト編集中じゃないときに立ち上げたいアプリを指定。たとえば…
altApp = "\Program Files\Opera\opera.exe"
#アクティヴなウィンドウ名を取得
aW = ActiveWindow()
#自分で自分を走らせると無限ループしちゃうので
If( aW eq this )
Message( sNam[1] & " I can't run myself!", "Error!" )
Exit
EndIf
#もしウィンドウ名（＝ファイル名）の拡張子が.mscrなら
Split( aW, ".", 0, sNam )
If( sNam[2] eq "mscr" )
#俺は全部の.mscrファイルをMortScriptフォルダに入れているので
Run( SystemPath( "ScriptPath" ) \ aW )
Else
#編集中じゃないときは別のアプリを立ち上げる
Run( altApp )
EndIf
#End of script###############
当然エディタで上書き保存後じゃないとだめだけど
ソフトキー一発でテストできる。
90:１
07/03/10 18:53:22 0
あ、まちがえた。。。
Message( sNam[1] & " I can't run myself!", "Error!" )
の「sNam[1] & 」は意味無いんで削除してください。
連投すまそ。
91:いつでもどこでも名無しさん
07/03/11 06:13:28 0
よく考えたらWin母艦でスクリプト書きなら、
ActiveSync同期対象フォルダで
スクリプト書けばいい話でしたね。
Emacsならメジャーモード作って
after-save-buffer-hookかなんかにadd-hookして、
保存したらcecopy()を実行などとすれば、
よりリジッドな使用感を作り出せますが。
僕はGSFinder+TQ内蔵エディタを使ってます。
拡張子を関連づけしなくても編集開始しやすく、
保存ボタンが下にあって使いやすいからです。
PWZ3は使う機会が無いですね。
「Windowタイトルにファイル名ネタ」先にやられてしまった……。
92:いつでもどこでも名無しさん
07/03/11 20:24:59 0
powertoysの中にcecopyが入ってたのね。知らなかった。
あと、rapistartっつーPCからPDAのプログラムを実行する
プログラムも入ってた。
この二つがあればスクリプト作りがかなりラクになるな。
93:１
07/03/12 01:28:30 RdgPFHJJ0
>>91
> 「Windowタイトルにファイル名ネタ」先にやられてしまった……。
なんかネタあったら紹介してくださいよ。
今日は.iniファイル読み書きテストを兼ねて
>>34の鳩時計におやすみモード（鳴かない時間帯）を設定するスクリプト
URLﾘﾝｸ(home.att.ne.jp)
鳩時計スクリプト（改）おやすみモード対応版
URLﾘﾝｸ(home.att.ne.jp)
94:いつでもどこでも名無しさん
07/03/12 06:05:38 0
RubyでPHSから位置情報取得、ブラウザで地図表示というのはとりあえずやり
切ったので(@Zaurus)、次なるテーマ。
ノートPCでも定期的にサスペンドから起きる→なんかする→サスペンドというのが
できたので、それにかかずらわってます。
ちなみに、MortScriptのマニュアルがR11にアップデートされてました。
次なるMortScriptは、コマンドラインから使えるSNTPクライアントがあったの
で、それ関連でしょう。実行させるプログラムが違うだけで、やることは
QMAIL3と同じですが(w
QMAIL3はカードが差さってないとダイヤルアップを実行しなかったけど、今度
こそカード検出が問題になるかな。
95:いつでもどこでも名無しさん
07/03/13 02:29:02 0
4.0がRCから正式版になってます。
96:１
07/03/13 02:30:19 VXFI70Dj0
機種固有のレジストリ探索が始まりそうですな。
こちらは、祝日をOutlook予定表に追加するスクリプト計画中
SendKeys()で日本語も送れることを確認。
副産物として、FormatTime()の逆で
年月日からUnixtimeを計算するライブラリスクリプトが出来ました。
URLﾘﾝｸ(home.att.ne.jp)
97:いつでもどこでも名無しさん
07/03/13 03:44:28 0
うるう年とか面倒そうだと思ったですが、意外にシンプルに済んでますね。
POOMが使えればGUI Scriptingしないで済むんですけどね。
町田さんのtestpimは読み出しだけでしたか。
URLﾘﾝｸ(megadriver.yi.org)
これは凄いですぞ。PIEのJavaScriptでContactを新規登録。
URLﾘﾝｸ(www.devbuzz.com)
スケジュールも作成可能だと思われます。
98:いつでもどこでも名無しさん
07/03/13 12:47:44 0
PocketMappleの倍率バーを操作するスクリプトを書いているのですが、ColorAt で色コードがうまく取れません。
1:MouseClick(460,80)
2:Message(ColorAt(460,80))
3:Message(ColorAt(460,120))
4:MouseClick(460,120)
5:Message(ColorAt(460,80))
2/3/5で表示されるコードが同じなのですが、見た目は 460,80 の位置と 460,120 の位置では違うのです。
気になるのが、MouseClickを行った後、ActiveWindowが空白を返してくる事です。
おそらく子ウィンドウがアクティブになっているのだと思いますが、もしかするとColorAtは子ウィンドウの座標を指定していることになるのでしょうか。
99:いつでもどこでも名無しさん
07/03/13 14:58:03 0
僕もDisconnect()の後に表示されるダイアログのOKボタンを押す処理を
書こうとして断念したことがあります。
何か、それと関係した問題であるような気がします。
100:いつでもどこでも名無しさん
07/03/13 16:36:13 0
壱百
101:１
07/03/13 19:14:21 VXFI70Dj0
>>98
Pocket Mapple入れてませんし、
「子ウィンドウ」がどんなものなのかわからないのですが、
ColorAt( x, y )は、アクティヴなウィンドウがどれかに関わらず、
スクリーン上の指定の座標のカラーコードを返すはずですが。。。
例えば、Today画面を表示した状態で、
「新しいネットワークが検出されました」の小さいウィンドウをアクティブにしていても
ColorAt( 480, 80 )が返すのは（背景の）Today画面の右上部の色コードでした。
ColorAt( 475, y )でも試してみました？
>>99
ZERO3ではDisconnectするとダイアログが現れずにただ切れるので
こちらも試せませんでした。。。
>>100行ったなぁ。めでたい。
102:１
07/03/13 21:26:25 VXFI70Dj0
>>97
う～ん、そういうオブジェクト指定のスクリプティングが出来たらいいんだけど
引数では日付指定の新規予定入力画面表示までしかできないみたい。
というわけで、入力はひたすらキーストロークを送る方式の
祝日追加スクリプトできたｗ
URLﾘﾝｸ(home.att.ne.jp)
URLﾘﾝｸ(home.att.ne.jp)
まぁ、少なくとも年に１回しか走らせないスクリプトだからいいやw
103:98
07/03/13 21:39:58 0
>>101
再度試してみるとうまくいきました。なぜいかなかったのかは不明＾＾；
で、追加の質問ｗ
スクリプトに引数はつけれるのでしょうか。
また、画面の横幅、高さは取得できるのでしょうか。
104:いつでもどこでも名無しさん
07/03/13 23:43:14 0
>>102
MortScriptにNew("予定")っていうのがありますが、
日付指定までできる引数の方がいいですね。
PocketOutlook.Applicationの方は
「Appointments」オブジェクトをいじるようです。
ちょっと興味があるので時間あったらやってみます。
MortScriptからhtml作ってRun()する感じになるんですかね。
どうやらActiveX Objectを使って、
JavaScriptからファイルアクセスまでできるみたいで、
MortScriptの出番が無いかもしれませんが。
引数->マニュアル6P
画面->マニュアル52P
URLﾘﾝｸ(mort.sto-helit.de)
105:１
07/03/14 00:24:12 YJdvxy6f0
>>103
引数は、MortScript.exeに対して
"\fullpath\to\hoge.mscr" /wait=n variable="moge"
という形式で渡すことになってます。
画面サイズを直接取得する関数は無いです。
が、画面サイズをこえるx, y でColorAt( x, y )すると"-1"を返すことを利用して
以下のスクリプトで有効最大座標を強引に取得することは可能。
３秒ぐらいかかりますがｗ
#################
x = 200
While ( ColorAt( x, 0 ) >= 0 )
x = x + 1
EndWhile
x = x - 1
y = 200
While ( ColorAt( x, y ) >= 0 )
y = y+ 1
EndWhile
y = y - 1
Message( x & "x" & y )
#End of script#########
106:１
07/03/14 02:25:54 0
>>104
ZERO3はActiveX非対応だそうで
URLﾘﾝｸ(www.omnisoft.com)
を開いても、「Pocket PCのセキュリティ」云々ではじかれるんですよ。。。
まぁ「誰でも気軽に使える」仕様の事勿れ安全主義なんだろうけど。
107:98
07/03/14 09:55:26 0
パラメータ、うまくいかない・・・
Message(Hoge) って内容のファイル \My Document\test.mscr を作って、それのショートカットを作成
ショートカットのリンク先に "\My Document\test.mscr" Hoge=""bar"" で良いんですよね？
/wait はresumeの為みたいだし・・・
日本語で解説してるとこないかな＾＾；
108:98
07/03/14 11:10:03 0
>>107
自己解決しました。
パラメータ渡す場合は、実行ファイルの引数としてスクリプトファイルとパラメータを列挙しないといけないのね。
前の例だと
"Program Files\MortScript\MortScript.exe" "\My Document\test.mscr" Hoge="bar"
で表示できました。
109:１
07/03/14 15:19:29 0
>>108
>>105で「引数は、MortScript.exeに対して…渡す」と
書いたのは、そういうことです。
「英語マニュアルのここがわからない」と質問してもらえれば
できるかぎり説明しますよ。
110:98
07/03/14 15:30:14 0
>>109
とりあえず、自分がやりたいことはできました＾＾
VGA/qVGA portrait/landscapeの自動判別させたかったのですが、PocketMapple がVGA対応アプリなので
esVGAモードでもqvgaにならないので断念。タイトルバーの高さでも見れば判別できるのかな？
無駄は多いのですが、せっかく作ったので公開
URLﾘﾝｸ(w-zero3.org)
これと、mapptap/SortInchKey の組み合わせで（ポケットマップﾙの）表示倍率の変更がキーで出来ます
111:いつでもどこでも名無しさん
07/03/14 17:03:27 0
マニュアルP27にある
x = ActiveWindow()
でactive windowのタイトルを取得できますよ。
また、P49にある、
x = ActiveProcess()
active processのprogram nameを取得できますよ。
Pocket Mappleにフォーカスしたものであれば、それで判定するのも手かと。
112:98
07/03/14 17:10:35 0
>>111
>>98の下のほうでも書いてますが、PocketMappleの縮尺変更部分をタップした後 ActiveWindow() をやると、空白文字列が帰ってくるんですよ。
地図の方をタップするとちゃんと取れるようになるんですけどね。
ActiveProcessの方は見てなかったな。試してみますね。
113:１
07/03/14 19:15:18 0
>>110
細かい事ですが
#if(SubStr(Act,0,13) ne "PocketMappleD")
これは本当は
if(SubStr(Act,1,13) ne "PocketMappleD")
が正解ですな。
"0" でも "1" と同様に働くようですが。
114:いつでもどこでも名無しさん
07/03/14 20:42:08 0
MortScriptは0ベースじゃなくて1ベースなんですよね。
ちょっと気持ち悪いですが、処理系によってまちまちだから、
いいんですけど。
115:１
07/03/15 00:03:40 0
arrayの要素も[1]からだしね。
定義の仕方もちょっと特徴的だと思って、こういうスレタイにしてみたんです。
array[0]を定義する事もできるけど
ForEach x in array() などでは無視される、と。
116:いつでもどこでも名無しさん
07/03/16 18:38:42 0
仲間発見 (・∀・)人(・∀・) よろしくです。
MortScript今日知って、使ってみようかとマニュアル読み始めたところ。
zero3[es]です。qmail3とかMortScriptとかのマニュアルを読んでﾊｧﾊｧしてます。
117:１
07/03/16 20:23:59 u/XXolhc0
>>116
おいでやす
たぶんバグ発見。
SubStr( string, negative number )
（マニュアル p22の下のほう）をやろうとしたときに、
lengthを指定しないと、stringの全てを返しちゃう模様。
e.i.
x = SubStr( "asdf", -3 )
→ x = "asdf"
x = SubStr( "asdf", -3, 3 )
→ x = "sdf"
俺の環境だけじゃないよね？みんなはどうかな？
118:いつでもどこでも名無しさん
07/03/16 21:42:46 0
>>117
たぶん仕様だと思う。
第２引数が１以下の時は１とみなして、そこから第3引数の文字数、省略時は全て
SubStr("abcde",3) -> "cde"
119:いつでもどこでも名無しさん
07/03/16 21:44:31 0
>>118
マイナスだと後ろからと書いてあるのか・・・＾＾； マニュアル見てなかったｗ
120:１
07/03/16 22:14:51 0
>>118-119
もちつけｗ
これやっぱバグだよね？
Mortさんに報告したほうがいいかなぁ？
121:１
07/03/17 02:04:15 rbBfRtXW0
それはともかく、
ReadFile( url )が可能なことを利用して
２ちゃんの指定スレの新着レスを知らせるスクリプトできた。
スクリプトコード
URLﾘﾝｸ(home.att.ne.jp)
.iniファイルテンプレート
URLﾘﾝｸ(home.att.ne.jp)
>>12のメールアカウント巡回スクリプトに組み込んで使ってみてる。
人の少ないこのスレなどを登録しとくと特に便利ｗ
122:いつでもどこでも名無しさん
07/03/17 11:24:48 0
コマンド一覧の日本語版ないかな
123:いつでもどこでも名無しさん
07/03/17 16:25:50 0
無い
124:いつでもどこでも名無しさん
07/03/17 16:37:15 0
読むような英語なんて書いてないぞ。
125:いつでもどこでも名無しさん
07/03/17 17:10:10 0
マニュアルの話じゃねーの？
126:いつでもどこでも名無しさん
07/03/17 20:23:25 0
constant: 定数
variable: 変数
array: 配列
expression: 式
assignment: 代入
parameter: 引数
operator: 演算子
command: コマンド
function: 函数
string: 文字列
numeric: 数
これだけ知ってればけっこう読めるんじゃね？
127:１
07/03/18 21:40:56 l9CkZoZI0
>>121の、２ちゃんの指定スレの新着レスを知らせるスクリプト修正
1000とかdat落ちだとエラーが出るのを修正、対応してみた。
URLﾘﾝｸ(home.att.ne.jp)
128:１
07/03/21 01:50:57 ybD9/3CZ0
人いないなぁ。
しょうがないから、マニュアルでも訳すか。
とりあえず６ページまで
URLﾘﾝｸ(home.att.ne.jp)
129:いつでもどこでも名無しさん
07/03/23 14:54:25 0
>>128
乙。
ﾏｼﾞで嬉しい
130:１
07/03/24 02:15:27 0
>>129
がんばるよ。
今日まででとりあえず18ページまで行った。
全部終わるころにv4.1が出ても泣かないｗ
131:１
07/03/24 05:09:31 bIutk8/70
あと、「２ちゃんの指定スレの新着レスを知らせるスクリプト」
最新レスの中に全角「：」が含まれていると「1000」扱いしてしまう
不具合を修正しました。
#そりゃそーだよなぁ。我ながら馬鹿っすｗ
スクリプトコード
URLﾘﾝｸ(home.att.ne.jp)
.iniファイルテンプレート
URLﾘﾝｸ(home.att.ne.jp)
指定スレのスレタイ及び>>1の内容に含まれている全角「：」の数を自分で数えて、
.iniファイル内の「offset=」に設定して下さい。
MortScriptにはregexが無いので、現時点でこれ以上は無理っぽい。
132:いつでもどこでも名無しさん
07/03/24 13:03:46 0
>>130
実は俺もｗｋｗｋしながら見てる。
ガンガレ。
133:１
07/03/24 18:12:52 0
>>132
そう言ってもらえるとやる気出て来るわぁｗ
ググってみたら、いくつかのブログでも早速紹介してくれてるみたいで。
ブロガーさん達もありがとう
134:１
07/03/27 05:33:38 0
「２ちゃんの指定スレの新着レスを知らせるスクリプト」
鯖落ちとかなんかの原因で繋がらなかった時に
エラーを吐いて途中で終了し
iniファイルの該当セクションが消去される不具合を修正しました。
URLﾘﾝｸ(home.att.ne.jp)
マニュアルは33ページまで行った。
まだ半分か。。。
訳よりも、コードを綺麗に表示するのがめんどい。。。
135:いつでもどこでも名無しさん
07/03/27 18:04:39 0
ｐｄｆ見てたけど、IniRead はあるのに、IniWrite は無いのね
ReadFile/WriteFile使って自前でやらないとダメかな？
136:１
07/03/28 00:37:42 LBg4B1Jp0
>>135
そうなんだよね。
>>134のスクリプトでも、INIファイルの書き込みはWriteFileでやってる。
IniWriteは4.1での採用が計画されているようです。
URLﾘﾝｸ(www.sto-helit.de)
137:いつでもどこでも名無しさん
07/04/03 11:21:41 0
和訳完了、もうすぐですね。がんばってください。
何も出来ませんが、応援してます
138:１
07/04/03 23:37:44 0
>>137
ありがとー；；
今日はぜんぜんできなかったけど
明日がんばりますｗ
139:１
07/04/05 05:23:36 Hx710DqX0
マニュアル和訳できました。
URLﾘﾝｸ(home.att.ne.jp)
細かいことでもいいので、誤植とかまちがいとか見つけたら
おしえてください。
140:いつでもどこでも名無しさん
07/04/05 14:05:37 0
おおおこれは乙
141:いつでもどこでも名無しさん
07/04/05 14:37:00 0
>>139
乙。
せっかく作ったんだから、MortScript作者さんに連絡してみたら？
自分の作ったモノがローカライズされているってことは、結構喜ぶとおもうよ。
つか、もうフォーラムとかで報告してるのかしら...
142:いつでもどこでも名無しさん
07/04/05 16:56:01 EB1P5emd0
>>139
激しく乙！なんとtop画像まで付いてるじゃないかｗｗ
ありがたく頂戴させていただきます。
143:１
07/04/05 18:23:57 0
>>140-142
いやぁどもども。
>>141
そうだね。
フォーラムにはバグリポートを１件してあって
返答があったらその流れで報告しようかと思ってたんだけど
今のところヌルーされてるｗ
そのうち何かの形で報告しとくよ。
144:いつでもどこでも名無しさん
07/04/06 13:56:13 0
厨ですんませんが>>1のサイト行っても
mortscriptのインストーラが見つからないんでつが
どこにあるの？
145:いつでもどこでも名無しさん
07/04/06 14:13:41 1ot+xHyb0
>>144
ブラウザのユーザエージェントがモバイルだと
変なページに飛ばされるみたいだね。
UAがPCの状態で、↓ここからどうぞ。
URLﾘﾝｸ(www.sto-helit.de)
146:いつでもどこでも名無しさん
07/04/06 15:31:00 ImxNiJdQ0
>>145
ﾄﾝです
147:１
07/04/06 20:16:26 0
それもマニュアルに書いとこーっと。
148:いつでもどこでも名無しさん
07/04/08 16:19:51 0
zero3ｿﾌﾄｽﾚから流れてきました。
まだ2Hしかやってないですが、
これ色々出来そうでいいですね！
早速このｽﾚとか、exampleとかを参考にgsffinderの支援ｽｸﾘﾌﾟﾄ考えてるんですが、
そもそも「ﾌｧｲﾙ」とかのﾒﾆｭｰをmortscriptから開くにはどうすれば良いですか？
MouseClickを「ﾌｧｲﾙ」の座標辺りに飛ばすしかないですかね？
149:１
07/04/08 16:37:48 rJKQQl6D0
>>148
いらっしゃ～い
> MouseClickを「ﾌｧｲﾙ」の座標辺りに飛ばすしかないですかね？
そうですねぇ。
こればっかりは、アプリが起動パラメータで制御させてくれないと
どうしようもないですからねぇ…。
GSFinderに指定出来るパラメータは
俺の知る限り、起動時に開くディレクトリぐらいだから。
150:いつでもどこでも名無しさん
07/04/08 17:20:06 0
>>149
うお即レスすまんす。
取りあえずMouseClickで凌ぎます。
面倒な操作（音量，明るさ，ネット接続）のマクロが
揃ってるなんて・・・と、なにから試そうか悩みますわｗ
151:いつでもどこでも名無しさん
07/04/09 08:01:42 0
色々やってみました。
zero3(es)の場合SetVolumeは０～６みたいですね。
ただ０にすると「OFF」になっちゃって、
以降のSetVolumeが何故か無視されてしまう・・・。
Setbacklightはﾊﾞｯﾃﾘ駆動時が何故か無視されてるっぽい・・・？
AC電源時と同じ数値範囲じゃないかもしれないが今のところ不明。
Connectは引き数パターンが３つあるけど、引き数無し型は「couldn't establish～ 」とでてエラー。
引き数２つ型は実行してみてビックリ！「センタ名称設定」
「社内ネットワーク設定」などのエントリから選ばせる模様で、
「CLUB AIR EDGE」とかの指定は無理っぽい・・・？
どうもAPIの不整合の壁が厚い模様・・・orz
es限定の話題でｽﾏｿ
152:１
07/04/09 15:39:07 EKP6Jkug0
>>151
003SHだと、SetVolumeは0 ～ 255ですよ。
25以下1以上にすると「オン、音量ゼロ」
0にするとたしかに「オフ」になるけど、
その後の再設定も問題なくできる。
それ以外は003SHでも似たような感じ。
アカウント名による接続は無理ですね。
ConnMgr.exeが仕切ってるからかな。
ちなみに、Connect( "センタ名称設定" )とかで繋ぐと、
スクリプトが終了した時点で接続を切ってしまうので、
Connect →何かする→接続を切る
っていうスクリプトにならざるを得ない感じ。
接続関連では、アプリにやらせる方針のほうが可能性は高まりそう。
153:いつでもどこでも名無しさん
07/04/09 17:58:40 0
>>152
失礼しました！
６迄の数値範囲を取るのはSetBacklightの方でした！
また、正しくは１～６の模様。
０基準はSetVolumeの方です（混同してました）、
そっちは003SH同様に０～255が正。
また、SetVolumeは標準のボリュームで確認してたのですが、
mortでSetVolume呼び出し後暫くは前の値を持ってるみたいで、
それで勘違いしてたみたいです。結論ですが、
esでもSetVolumeはちゃんと機能してますorz
これからはもちっと確認してからｶｷｺしますorz
154:１
07/04/09 20:09:06 0
>>153
かんちがいも過疎スレのにぎわい
ってことで、どんまいｗ
155:いつでもどこでも名無しさん
07/04/09 20:26:56 0
完成したスプリクトを発表するスレとか
こんなスプリクトを要望するスレとかないですか？
156:１
07/04/09 20:37:02 0
>>155
ここでいいと思いますよ
ただ、うpろーだは各自探してきてねｗ
要望もあっていいと思うけど、
機種や使用アプリが人それぞれだから
自分でスクリプト書く上でのヒント、
みたいな感じなら応えられると思うよ。
157:いつでもどこでも名無しさん
07/04/09 21:15:13 0
毎日AM6:00に \Windows\hoge.exe を実行
ってのは出来るのでしょうか。
zero3es上で、Windowsでのタスクスケジューラ
的なことがしたいのです。
158:１
07/04/09 21:42:39 0
>>157
出来ますよ。
TimeStamp() と RunAt() を使って。
>>34の鳩時計スクリプトｗの応用で。
まず翌日6:00 am に自分を起動させ、
起動するごとに翌日の６時にNotification Queueを登録する方針でいけるはず。
テストで実行するとNotification Queueがどんどん溜ってしまうので、
冒頭で必ず RemoveNotifications( thisFile ) しておくといいよ。
159:いつでもどこでも名無しさん
07/04/09 22:03:55 0
素晴らしい
160:157
07/04/09 23:16:05 0
ありがとうございます。
しかし…よく分かりませんでした(-_-;)
thisFile = SystemPath( "ScriptPath" ) \ SystemPath( "ScriptName" ) & SystemPath( "ScriptExt" )
Snd = "\Windows\Alarm0.wav"
RemoveNotifications( thisFile )
t = TimeStamp()
RunAt( t + 86400 - (t MOD 86400), thisFile )
Repeat( FormatTime( "06:00:00", t ) )
Playsound( Snd )
EndRepeat
これを実行したところ、直後にAlarm0.wavが
6回鳴りました。私には敷居が山のように高いです。
アホな箇所を指摘して頂けると幸いです。
161:１
07/04/10 00:12:49 b+uixvyf0
>>160
ええっとですね、まず
> RunAt( t + 86400 - (t MOD 86400), thisFile )
これだと「深夜０時にこのスクリプトを走らせる」ってことになるから、
午前６時だと
RunAt( t + 86400 - (t MOD 86400) + 6*3600, thisFile )
にしますよね。
n時にn回Repeatするのは鳩時計だからでｗ、「午前６時に音を１回鳴らしたい」なら
Playsound( Snd )
だけでいいわけ。実際にはここが、Run( "\Windows\hoge.exe" )
に置き換わるわけですよね。
手動で起動しても、もちろん６時と同じプロセスが実行される。
それが嫌な場合は、If()条件分岐で回避します。
このスクリプトではFormatTime()を使う必要はないけど、
FormatTime()の使い方については、マニュアルをもういちど
読みなおしてみて。
162:157
07/04/10 01:16:35 0
>>161
ご説明のおかげで少し分かってきました。
まだ試行錯誤中ですがなんとかいけそうです。
ご丁寧に教えて頂き、ありがとうございます(^-^)
163:１
07/04/10 01:58:15 0
>>162
よかったです。これを手始めにして、
「午前６時台以外に起動された時は、
次回の起動時刻を再設定するダイアログを表示する」とか
「そのInputダイアログに前回設定値をデフォルト表示する」とか
使い易くする工夫をしながら、覚えていくと楽しいよ。
164:１
07/04/10 21:26:59 b+uixvyf0
「２ちゃんの指定スレの新着レスを知らせるスクリプト」
人大杉の場合に1000 or dat落ち扱いしてしまう不具合を修正しました
URLﾘﾝｸ(home.att.ne.jp)
iniテンプレートに変更点はありませんが一応。
URLﾘﾝｸ(home.att.ne.jp)
165:いつでもどこでも名無しさん
07/04/10 23:07:30 0
これかなり実用ですね！
新着無しかわかるようにShowWaitCursorが
一発あった方がいいかも。
まあスクリプトだから自分で入れればすむ話だけどね
これってURLの末行、l1じゃないとダメですか？
166:１
07/04/11 00:20:07 0
>>165
どもども。
ShowWaitCursorは最初入れてたんだけど、
俺はこれをメール自動巡回スクリプトに組み込んで使ってるんで、
別アプリで作業中にウェイトカーソルが出てくるとうざくて
やめました。
最新レス番号の位置を、全角「：」を探して判断してるので
URLの行末はl1（>>1と最新レスだけが表示される状態）じゃないとだめです。
167:１
07/04/11 05:39:27 hEvq0wUz0
機種板ZERO3質問スレを見ていて面白いなと思ったので
書いてみました。
W-ZERO3 WS003SH/004SHでクリップボード上に
コピーされた番号に電話をかけるスクリプト
URLﾘﾝｸ(w-zero3.org)
168:いつでもどこでも名無しさん
07/04/11 20:05:14 0
>>167
zero3の聖域「denwa.exe」に
スクリプトで挑む気概に感動
169:１
07/04/11 22:03:01 0
>>168
いやいや気概なんてものじゃないけど
聖域だったのかｗ
たしかにDenwa.exeはアプリ開発にはクローズドな感じだね
スクリプトの強みかな。
やってみてわかったことは
SendCtrlKey() はa-z 以外ではエラーを吐きます。
170:１
07/04/12 01:24:21 EwYhBlYl0
質問スレの人のアイディアで、質問スレの人が作った
「W-ZERO3でクリップボード上にコピーされた番号に
電話をかけるスクリプト」の改変版がうpされています。
URLﾘﾝｸ(w-zero3.org)
shcprog.exeが使えるの知らなかった。
ずいぶんシンプルになって
俺のアイディアで残ったのは全角→半角変換の部分のみｗ
171:いつでもどこでも名無しさん
07/04/12 21:10:17 0
まあ乙です
172:いつでもどこでも名無しさん
07/04/14 12:10:37 0
毎朝指定時間に聴く日経とかダウンロードして目覚まし代わりに再生・・・
なんてのも出来そうだね。ちょっとやってみよう。
173:１
07/04/14 12:40:40 0
>>171
どもども
>>172
報告待つ
174:いつでもどこでも名無しさん
07/04/14 14:53:31 0
>>173
鳩時計を参考にさせてもらってます。
ネット関連の知識はまったく無いのでdownload()ってやるだけでファイルが落ちてくるなんて本当に便利。
RunAt()の年指定は４桁じゃないと駄目みたいですね。
175:１
07/04/15 04:48:48 0
>>174
鳩時計意外に役立ってるのかｗ
ReadFile( url ) が可能なことからも
MortScriptはシンプルなWEBブラウザとしても使えるんだよね
ちなみにユーザエージェントはちゃんとMortScriptを吐きます。
> RunAt()の年指定は４桁じゃないと駄目みたいですね。
そうでしたか。Unixtime指定しか使ったことないから
知らなかったや。
176:172
07/04/15 10:29:05 0
和訳マニュアルなんですが、
7.7.4 文字列とパスの連結
の事例、改行位置がずれているようです。
和訳マニュアル、本当に助かってます。
177:いつでもどこでも名無しさん
07/04/16 09:50:07 0
ちとやりたいことがあって、チャレンジしようかと思ってましたが、
公式ＨＰがつながらないんですが．．．（もちろんＰＣから接続）
移転したんですかね？
178:１
07/04/16 16:58:38 0
>>176
ほんとだ サンクス
直しました
>>177
ほんとだね
PingやTracertは通るから
メンテ中か何かでしょうか
179:172
07/04/17 21:45:11 0
マニュアル修正おつかれさまでした。
ポッドキャストをダウンロード＆目覚まし代わりに再生、作成中です。
zero3[es]なんですが、通話終了ボタン長押しで電源を落とした場合に対する
RunAt()みたいな関数は無いかな…。
携帯電話の目覚まし感覚で、寝る前に電源を落として
(夜中に着信させないため)
朝になってから電源オン＆ポッドキャストをダウンロードさせたいのです。
寝る前は「通話終了ボタン長押し｣でなく「システム音量０にする」で対処するか…。
180:１
07/04/18 00:09:43 0
>>179
電源長押しOFFで状態でスクリプトが走ったら
電源長押しの意味ないからなぁ…
単に着信をOFFにするだけなら、
SetWSIMアプリを使ってW-SIM自体をOFFにするとか
どうでしょう？
181:いつでもどこでも名無しさん
07/04/18 21:14:26 sxWGPAnS0
はじめまして、使い始めて一日ですが、
マニュアル要訳、ありがたくとてもお世話になってます。
以下のところＢＮＦ表記がテレコになってます。
9.6.7 ウィンドウが存在するまで待機する（WaitFor）
WaitForActive( ウィンドウタイトル, 秒 )
9.6.8 ウィンドウがアクティブになるまで待機する（WaitForActive）
WaitFor( ウィンドウタイトル, 秒 )
182:いつでもどこでも名無しさん
07/04/19 12:55:24 0
和訳マニュアルを見ながら初プログラミングしています。
CreateShortcutで躓いています。
"\Program Files\hoge.exe" -A
というショートカットを作るのがうまくいきません
"\Program Files\hoge.exe"&" "-A
ではエラー
"\Program Files\hoge.exe"&" "&-A
では
"\Program Files\hoge.exe -A"
となってしまいます。
正しい記述方法をご教示いただけますか。
183:いつでもどこでも名無しさん
07/04/19 13:55:35 0
>>182
"""\Program Files\hoge.exe"" -A"
かな？
"～"内で " を使うには "" と2個続けて書く必要があったはず
184:183
07/04/19 13:56:10 0
ぎゃー勘違い
185:いつでもどこでも名無しさん
07/04/19 14:20:58 nsWwoHi90
"C:\"\Program Files\hoge.exe" -A"
となりますね
186:いつでもどこでも名無しさん
07/04/19 14:34:17 0
>>183
合ってるよ。WM5エミュで確認済み。
187:１
07/04/19 14:52:24 0
うぉ、珍しくレスが伸びてるｗ
>>181
ほんまや。。。サンクス
直しました
>>182
>>183さんの言うとおり。
おかげでマニュアル9.11.7の
「例：」の式のケツの「）」が無かったのにも気付いたｗ
188:いつでもどこでも名無しさん
07/04/19 15:25:42 0
ありがとうございます。
ずっとパソでやっていてうまく行かなかったのですが、WM5上で動かしてうまく行きました。
189:いつでもどこでも名無しさん
07/04/21 19:16:16 0
condexecの様にウインドウタイトルは存在するけど
実際にはウインドウが存在しないプログラムが実行されているかどうかって
調べられませんか?
WndExists("[Test]")
等と記述しても必ず0しか返って来ないんですよ
実際にウインドウが存在するtmailの様な奴は
WndExists("070--------")
でちゃんと調べられるんですが…
なんか八方塞っぽい*o_ _)oﾊﾞﾀｯ
ProcExists("condexec.exe")
で一見調べられるような気もするけど
どのセクションが実行されていても反応するから使えないし…
良い方法ありません?
190:１
07/04/22 00:15:13 0
>>189
condexecでは試してないんですが
たとえばDenwa.exeには"電話 "（ケツに半角スペースつき）という
タイトルの隠れウィンドウがあって
電話アプリを立ち上げていなくても
WndExists("電話 ") はちゃんと1を返すんですが。
ウィンドウタイトル文字列が [ ] で囲まれてるの？
191:いつでもどこでも名無しさん
07/04/22 06:07:06 0
着信した時何かのソフトが立ち上がるんですかね？
もしそれを検地出来れば着信時のみシステム音量を復帰できる気がするのですが
192:いつでもどこでも名無しさん
07/04/22 07:51:19 0
>>190
そうです
[]で囲まれてます
execifやcondexecからウインドウタイトル指定できちんと認識しているので
その辺は問題ありません
PQz_TASKLISTでも確認してます
今の所お茶を濁して処理させてます
>>191
Denwa.exeが最前面に出るはずだから
それで組んでみては？
今回初めて組んでみましたけど
色々出来る反面癖強いですね～
今まで問題なかった奴がmscrから呼び出して使ったら
ウエイトを増やさないと電話が死んだりしてて
物凄く悩んだりしました
デバグって楽しいw
193:いつでもどこでも名無しさん
07/04/22 17:54:02 0
次の様なソースを組みました
X = FileCreateTime("test.txt")
A = (TimeStamp() / 60 / 60) MOD 24
B = (TimeStamp() / 60) MOD 60
C = TimeStamp() MOD 60
D = (X / 60 / 60) MOD 24
E = (X / 60) MOD 60
F = X MOD 60
Message(FormatTime( "H:i:s" ) & "^NL^" & A & ":" & B & ":" & C & "^NL^" & D & ":" & E & ":" & F)
これで表示されるのは様は時間なんですが
FormatTime()と変数A～Cは期待通りに現在時刻を表示してくれますが
変数D～F…つまりタイムスタンプなのですが
実際のタイムスタンプより9時間遅い時間になってるんですよ
これってバグになるのかな?
それとも正常動作?
9時間といえば世界標準時との時間差…ですよね
194:１
07/04/23 01:43:13 0
>>192
そうかぁ
condexec使ってないので解決策はわかんないっす。。。
でもスクリプトと格闘してる時間って
日常の嫌なこと忘れるよねーｗ
>>193
それはバグというよりも
WMのファイル作成日時が標準時で格納されてるからじゃないかな
そうじゃないと、海外に出張してタイムゾーンを変更した時、
日本で作ったファイルの作成日時が未来になっちゃったりするし
File = "test.txt"
#新規ファイルを作る
WriteFile( File, "test" )
Sleep( 100 )
Message( TimeStamp() - FileCreateTime( File ) )
#→約32400を表示
195:いつでもどこでも名無しさん
07/04/23 14:05:08 0
ちょっと教えてください
ActiveProcessとSwitchCaseを使って全面のアプリによって処理を変えるスクリプトを書いているんですが
x = ActiveProcess()
Switch(x)
Case(pimg.exe)
Message(x)
Case(fexplore.exe)
Message(x)
EndSwitch
これをPictures&Videosが前面の時に実行するとpimg.exeというポップアップが２回出ます。
何故でしょうか。
これを実行すると
196:いつでもどこでも名無しさん
07/04/23 14:59:29 0
W-ZERO3[es]With_ATOK、AtokChanger、ChgSuisokuの動作をしてくれるスクリプト誰か書いてくれませんか？
挑戦したけど私の技量では無理だったぽ
ATOKの入力モード(あ→A_→1)
"HKCU", "Software\Sharp\PhoneStatus", "Status22"
DWORDで0が全角ひらがな以後増える
一度うまく動くようになった気がしたんだけどいつのまにか横画面時にうまく動かなくなってしまった
推測変換のON/OFF？
"HKCU", "Software\JustSystem\ATOKM\UI", "ConjeValid"
0がOFF？1がON？っぽいような気がするんだけど変えてもきちんと反映しない
他にもなにか変更しないといけないのかな？
ATOKのON/OFFはわかりませんでした。
197:１
07/04/23 16:54:52 0
>>195
文字列は""で囲まないと。
Case( "pimg.exe" )
Case(pimg.exe)
#命令1
Case(fexplore.exe)
#命令２
↑これだと、両方のケースともtrue（＝0ではない）と判断されて
命令１も２も順に実行される
>>196
esじゃないしATOKもないから
俺は無理だ。。。
198:いつでもどこでも名無しさん
07/04/23 18:26:51 0
>>197
なるほど。ありがとうございます。
試しに
x = ActiveProcess()
Switch(x)
Case("pimg.exe")
Message(x)
Case("fexplore.exe")
Message(x)
EndSwitch
としてみたのですが、やはり２回メッセージが表示されてしまいます。
199:１
07/04/23 19:37:55 0
>>198
ごめん。これを忘れてたｗ
8.3 値による分岐（Switch）
…
・数の比較だけが利用可能です。
200:１
07/04/23 19:53:54 0
ひとつの方法として
こうすればできる。
procArray[ "pimg.exe" ] = 1
procArray[ "fexplore.exe" ] = 2
x = ActiveProcess()
Switch( procArray[ x ] )
Case( 1 )
Message(x)
Case( 2 )
Message(x)
EndSwitch
201:いつでもどこでも名無しさん
07/04/23 22:25:44 0
ファイルの読み込みってテキスト文だけしかできないんですね～
UKTenkiのデータ読み込ませようとしたら
ファイルの頭の方にお天気データのバイナリが入っているもんだから
正しく読み込みできなくて悲しかったよ
あ～UKTenkiの自動更新scriptが中途半端に(ﾉ_･､)ｼｸｼｸ
202:いつでもどこでも名無しさん
07/04/23 22:55:41 0
>>200
なるほど。これで何とかいけそうです。
ありがとうございます。
簡単に文字を比較できる関数があれば便利ですが、こういう方法で出来るというのも面白いですね。
203:１
07/04/24 01:04:53 0
>>201
UKTenki使ってないけど
Download()じゃだめなん？
>>202
>>200のやり方は
Switch()の仕組みを理解するのに良いと思って。
あと、普通のIf()風に、こうもできるよ
x = ActiveProcess()
Switch( 1 )
Case( x eq "pimg.exe" )
Message( x )
Case( x eq "fexplore.exe" )
Message( x )
EndSwitch
204:いつでもどこでも名無しさん
07/04/24 03:36:35 0
高速化サービスonだと2chｶｷｺできないから、
on/offを自動化する手抜きｽｸﾘﾌﾟﾄ作って快適。
こーいうの簡単にできるからいいねー
205:いつでもどこでも名無しさん
07/04/24 03:40:07 0
あ、ｽﾏｿzero3での話です。
206:いつでもどこでも名無しさん
07/04/24 20:06:43 0
>>203
Today画面に表示できないし
もしバイナリが弄れるのなら逆にmscrでUKTenkiのデータ作って
もっと細かい地域のとかできたりって考えたりw
ま～やりたいことはUKTenkiが拾ってきた詳細データを
ViewTextで表示させたいだけなんだけどね
それこそDownloadで拾ってきたものを編集して貼り付けろって話だけどw
でもそれだと見た目が可愛くないから嫌っw
207:１
07/04/26 22:11:02 0
JavaScriptもAppleScriptも
バイナリは弄れないからなぁ…
208:いつでもどこでも名無しさん
07/04/29 00:00:20 0
htmlをダウンロードしたのですがどうしても日本語が文字化けしてしまい
上手くダウンロードできません
文字コードの問題?
サイトはgooのお天気です
文字化けしなければrlTodayにお天気情報が表示できるのに
209:いつでもどこでも名無しさん
07/04/29 00:17:02 P
そうですか。
210:１
07/04/29 01:05:37 0
>>208
gooのお天気のリンク貼ってくれてないからわからないけど
まず、マニュアルにあるとおりUnicodeは使えないよ。
それ以外の文字コード変換は
>>52さんが貼ってくれたqkcが使える。
211:いつでもどこでも名無しさん
07/04/29 03:25:18 0
>>210
お～
情報有難う御座います
ってかmscr導入前にざっと読んでた時は
｢コレはなんだろう?｣程度にスルーしてました
お陰で文字列処理できるようになりました
後はレジストリに情報書き込んでrlTodayに表示させるだけですっ
212:いつでもどこでも名無しさん
07/04/29 20:11:13 0
rlTodayを利用してお天気情報をTodayに表示するスクリプト作りました
URLﾘﾝｸ(w-zero3.org)
…どんなもんでしょ
スクリーンショットも入ってます
213:１
07/04/30 03:11:08 0
>>212
rlToday使ってないから試せないけど乙。
なかなかの大作ですなｗ
文字列パターンマッチの苦手なMortScriptなわけだけど
根性でやってますな。俺と同じでｗ
214:いつでもどこでも名無しさん
07/04/30 10:19:46 0
>>213
そうなんですか?
逆にあちし自身がパターンマッチの知識を知らないから
特にそんな事意識もせずにやれましたよ^^;
根性でやっていることには変わりませんが
ベースとなる知識は違うようですね
で 他のHPでふと思ったのですが
mscrもBtoC(Basic to C コンパイラ)の様に
インタプリタ形式から実行形式に変換できるといいなぁなんて思ったり
将来的に出来るようになると良いですね
…趣向が変わっちゃうかな
215:いつでもどこでも名無しさん
07/04/30 11:20:18 0
そう言えば>>52のqkcはファイル名に２バイト文字が使えないみたいですね
変換できなかったよ
216:１
07/05/01 01:12:59 0
>>214
正規表現が使えないから
文字列処理は苦労する、つー話。
217:いつでもどこでも名無しさん
07/05/01 17:50:50 0
FormatTimeを使えば、
任意のUNIXタイムスタンプから時刻を取得出来るけど、
その逆は出来ませんか？
PHPのmktimeみたく、
時、分、秒、月、日、年を指定してUNIXタイムスタンプを生成する感じの。
自分で計算するしかないのかな。。
218:１
07/05/01 18:50:26 0
>>217
つ >>96
これに時分秒を自分で足して下さいｗ
219:172
07/05/01 22:30:35 0
休みなんでじっくり取り組んでみました。
ポッドキャストをダウンロードするスクリプトと
目覚ましスクリプトを分けて作ってます。
アップしてみましたがなんかまだまだ駄目でした。がんばって使えるようにします。
Notification Queueに何が溜まってるかは
URLﾘﾝｸ(bdriven.blog46.fc2.com)
のソフトで出来そうですが、MortScriptだけで出来ないかな…。
>>217
おんなじこと考えてた…。と思ったら>>96にあったのね。
220:１
07/05/02 04:10:24 0
>>219
Notification Queueの掃除は
>>31のやつでもできるよ
221:172
07/05/02 09:15:16 0
>>220
おお！ありがとうございます。
なんか動作がおかしいようなので、アップしたのは消しました。恥ずかしい…。
大きいファイル(5MBとか）をDownload()で落とすと固まります。
固まった後リセット以外に復旧方法が無い…。
ダウンローダーに頼んだほうが無難かもしれません。
222:172
07/05/02 10:06:31 0
Notification Queueにどんどん溜まってました…。反省。
RunAt()ではスクリプトに引数を渡すためにMortScript.exeとalarm.mscrを指定していたのに
RemoveNotifications()ではalarm.mscrだけ指定してました。
TaskManagerはなぜかツールバーのアイコンが表示されませんでしたが、
一番左が更新だと分かり何とか使えてます。
223:いつでもどこでも名無しさん
07/05/03 01:04:09 0
rlTodayのスキンファイル編集用スクリプト書いてみた
URLﾘﾝｸ(w-zero3.org)
正規表現を知らないあちしにとっては
mscrはどの辺が文字列操作苦手なんだろうという結果にw
それでもせめて大文字小文字区別なく検索できる方法もあると
よかったなぁと思う
224:いつでもどこでも名無しさん
07/05/04 05:02:28 0
>>223
早速便利に使わせて頂いてます！
それぞれのパーツを一括で移動できるの、すごい楽！
でも、ちょっとしたバグ発見したよ。
xｙ座標の数字を変えると、カレンダーの幅まで変わっちゃうんだよね。
カレンダーの幅、 rasterx="" rastery=""で指定するからさ。
そこらへん直してくれたら嬉しい。
225:たけたけ
07/05/04 14:23:47 hmChsLvY0
>>224
あーなるほど
それは盲点でした
というか作った本人実家に帰省中だからまったく使ってなかったりします^^;
判定を"x="から" x="に変えればよさげかな
自宅に戻ったら修正しておきます
とりあえず276,522,528行目の"x=","y="をそれぞれ" x="," y="にすればよさげです
…多分w
というよりあの説明でちゃんと利用できる人がいてびっくりw
226:たけたけ
07/05/04 14:52:36 hmChsLvY0
つうか今見たらReadmeの説明間違えてる…
"<--/section-->""<--section/-->"じゃなくて
"<!--/section-->""<!--section/-->"でしたね^^;
それも直さないとだ
間違った説明でもなお利用できるとは…更にびっくり
227:224
07/05/06 12:06:18 0
>>たけたけ
レスに従ってスクリプト修正して使ってみました。
とりあえずダイジョブそう。さんくす！
お天気スクリプトも使わせてもらってます。
んで、これはバグじゃないんだけど、今日の天気がちゃんと
表示されないから直接goo見てみたら、
「雨 時々 止む」
だったｗ 止むってｗｗｗ
ちょっとググってみたら、gooの天気表示はtenki.jpの表記に
従ってるみたいで、これが一覧。
URLﾘﾝｸ(www.tenki.jp)
とりあえず、止む=くもりに差し替えるようにしてしのいだけど、
めちゃくちゃ種類あるよｗ
228:たけたけ
07/05/06 13:05:48 0
>>227
へ～そんなに種類あるんだ～
どれどれ…見てみますか
…閲覧中…
ﾅﾆｰ!?∑(;ﾟ□ﾟ)yヾ ﾎﾟﾛｯ
((((＿ ＿|||))))ﾄﾞﾖｰﾝ
後でこのHPからテーブル作成するスクリプト作成してアップします
o( _ _ )o～† ﾊﾟﾀｯ
ついでに画像もDLして再利用できるようにしておきます
そうすれば画像ファイル用意しなくて済むしw
同梱じゃなくて各自が個人利用目的で再利用するなら問題無いっしょ
う～
rlTodayEditorのバグ修正よりこっち先にやらにゃあ
とりあえず他のバグも含めた修正版仮アップしておくか…
報告有難う
229:たけたけ
07/05/06 14:41:33 0
つう訳でコード吸い出して見たけど思ったほど多くないや
最初｢450?!300種以上あるって事か？｣とか思ったけど
実際には122種類だった
お天気情報表示の方は割りと大きな改変にならざるを得ないので
夜になりそう--;
つうかスキン修正もあるのか
レジストリもどうにかせにゃ
うう…次のお天気情報更新までには上げたいな
P.S.｢くもり海上海岸は霧か霧雨｣とかあるしw
230:１
07/05/06 16:46:47 0
乙です。
今なんとなくgooお天気のページのHTMLソース眺めてたんだけど
各天気マークの画像の名前
img src="/weather/img/s/big/100.gif"
の３桁の番号が、>>227の天気コードと一致してるみたいだね
てことはこの番号だけ読み出してkeyにしたりして…
外野の発言スマソｗ
231:たけたけ
07/05/06 17:28:35 0
>>230
いえいえ外野だなんてそんな
助言有難うございます
うん 考えることは同じようですねw
テーブルの内容を
お天気コード,コードに対応するお天気の内容,アイコン番号
という風にしてありますので
後は指摘されたイメージの名前から検索するというものになっています
232:たけたけ
07/05/06 17:34:24 0
って言うかとんでもないバグ発見したのを書きに来たんだっけ
rlTodayEditorで入子状態のセクションをコピーすると
同名セクションが出来上がっちゃうバグがあるんですよ
(*-゛-)ウーン・・
後で修正しなきゃ
一応お天気のスクリプトは完成したんだけど
サンプルスキンファイルの方が追い付いてないよ
*o_ _)oﾊﾞﾀｯ
233:たけたけ
07/05/06 17:55:39 0
なんかすげ～連投しているような気が…
Choiceの項目数の上限って49itemかな？
それ以上表示されないような気がするんですけど
234:１
07/05/06 18:42:29 0
>>233
そうみたいだね
ただこれはシステムダイアログ流用してるみたいだから
システムの上限かも知れん。
配列はもちろんそれ以上格納できる。
#code
i = 1
Repeat( 100 )
array[i] = i
i = i + 1
EndRepeat
x = Choice( "", "", "", "", array)
#→49まで表示
Message( array[100] )
#→"100"を表示
235:たけたけ
07/05/06 23:13:27 0
>>227
アップしました～
疲れた～～～～～～～(;＿ ＿)Ｏ ﾊﾟﾀ...
何が疲れたってスクリプトよりスキン修正が疲れたよ
rlTodayEditorのバグもぼろぼろ出てくるし--;
そんな訳で今までのスキンが使えなくなってしまいました
多少の修正が必要です
また利用する画像ファイルもめっちゃ増えましたw
詳しくはReadme.txt参照の事
236:いつでもどこでも名無しさん
07/05/07 15:00:17 0
>>235
乙です！
アイコンも自動収集になって、すごい便利です。
ですが…実は以前からなのですがアイコンが表示出来ないのです。
皆さんは普通に表示されているのでしょうか？
Program Files
rlToday
Tenki
アイコン、天気データ
rlTodayskin
skin.xml
各スクリプト、ログファイル等
のように入れてます。
機種は003(無印)です。
東京の天気データを表示済み（アイコン以外）。
お手数おかけいたしますが、よろしくお願いいたします。
長文申し訳ございません。
237:たけたけ
07/05/07 19:14:39 0
>>236
アイコンが表示されない…
Ver.1.x時代は自前で用意しないと表示されません
Ver.2.0からはダウンロードしてきたアイコンファイル(gif)を
png形式に変換してgifのあったフォルダに入れておけば
後は付属スキンを使ってみれば表示される筈なんですが…
確認1
Tenkiフォルダにアイコンファイルは入っているか
01.png～45.png and 01_s.png～45_s.png
確認2
適応したrlTodayのスキンフォルダに1.png～8.png ot 1_s.png～8_s.pngは
作成されているか
確認3
作者はZERO-3でしかテストした事ありません
某所でX01HTで動作しているようなので特に問題は無いと思っていました
238:236
07/05/07 21:56:29 0
>>たけたけ殿
度々申し訳ございません。
Ver.1.xでもアイコンは自前で準備させて頂いておりました。
確認項目をチェックさせて頂きましたが、1、2の条件は満たしております。
しかし、Todayではアイコンのみ表示されていない状態です。
URLﾘﾝｸ(www.rupan.net)
URLﾘﾝｸ(www.rupan.net)
239:たけたけ
07/05/07 22:28:27 0
>>238
ホントだ…
(ｰ'`ｰ;)う～ん・・・・
後考えられるのは実はpngファイルが有効なものではなかったとか…
ビュアーで表示できますか？
256色ですか？
…と言うよりファイルサイズから推察するに
pngという拡張子のgifファイルじゃありませんか？
リネームじゃ駄目ですよ
240:たけたけ
07/05/07 22:47:06 0
URLﾘﾝｸ(www.rupan.net)
変換したpng画像のファイルサイズが分かるものです
241:236
07/05/08 01:19:12 0
>>たけたけ殿
え、拡張子変換じゃ駄目だったんですねorz
TodayCompactとかでgifをbmpに書換えて使ってたので、その要領でgifをpngに変えるのかと思っておりました。
元がgifですから256色ですし、ビューアで表示もできました。
明日形式自体を変えて再度試してみます。
丁寧に教えていただきありがとうございます。
242:たけたけ
07/05/08 23:40:55 0
>>241
当たり前じゃないですか
ちゃんとreadmeにもgif→png変換と書いてあったでしょ
変換ツール紹介までしたのに…(-""-;)ﾑﾑ
拡張子変更程度ならわざわざ母艦で変換して下さいなんて
皆様の手を煩わすようなスクリプト書きませんッッ
それはそれとして
また幾つかアイコン化対応しました
風向き・洗濯指数・傘指数・星指数です
またgooのお天気アイコンにも対応しました
png変換はかなり苦労すると思うのでお勧めしませんがw
(ｰ'`ｰ;)う～ん・・・・
完全に趣味の世界だ…
243:いつでもどこでも名無しさん
07/05/09 02:05:19 P
ですね。
244:１
07/05/09 20:02:22 ZSUMZh0q0
公開されているMortScript 4.01のベータ版がb12まで到達し、
新マニュアルも同梱されています。
URLﾘﾝｸ(www.sto-helit.de)
新たな機能として、以下のものが追加されているようです。
・浮動小数点のサポート、様々な数値処理関数＆演算子の追加
・ForEach インデックス, 値 in array ... が可能
・ElseIfの導入（！ Mortさんついに観念したかｗ）
・Call と CallScriptで引数が利用可能
・Return( value )を返すCallFunctionとCallScriptFunction関数の導入
・SplitとPartのデリミタに文字列が使用可能（これは嬉しいｗ）
・IniWrite
・Replace
…などなど。他にもいろいろ。
まだ未バグフィックスらしいし、俺はまだ試していませんが、
数値、文字列処理ともに、ぐんと楽になりそうですｗ
245:いつでもどこでも名無しさん
07/05/10 04:25:59 0
でも/iとかほしいよねぇ正直
あとはchoiceのアクセラレータキー機能とか
246:いつでもどこでも名無しさん
07/05/10 13:14:28 0
>>245
>>72
247:いつでもどこでも名無しさん
07/05/10 21:54:21 0
お天気スクリプト使わせてもらっています.
skinも書き換えて,8日間を横一列に表示していますが,今日と明日のみ
"日"の文字が入ってしまいます.3日目以降と同じ形式で取得することは
できないでしょうかね.
ちなみに,天気アイコンはYahooの48×30ピクセルのを使っています.
↓こんな感じ
10日(木)11日(金)12(土) 13(日) 14(月) 15(火) 16(水) 17(木)
晴れ 晴れ 曇 曇 曇 雨 雨 雪
低 高 低 高 低 高 低 高 低 高 低 高 低 高 低 高
-/-/0/010/0/-/- 0％ 20％ 30％ 40％ 50％ 60％
248:たけたけ
07/05/11 00:15:55 0
>>247
あ～僕もチョットだけ気にしてたけど
今日明日だけ特別扱いみたいな感じだったから放置してました
スクリプトの135行目から
### 今日・明日の日付 ###
ChkStr = "日付"
Call SearchStrings
i = 1
Repeat(2)
FromStr = "月"
ToStr = "</b>"
Call BetweenStrings
j = Find(GetStr ,"日")
If(j)
DT_day[i] = SubStr(GetStr ,1 ,j -1) & SubStr(GetStr ,j + 1)
Else
DT_day[i] = GetStr
EndIf
i = i + 1
EndRepeat
と変更して下さい
後ほど正式版を出したいと思います
249:たけたけ
07/05/11 06:54:24 0
う゛…
変なバグあったからα版出しといた
250:いつでもどこでも名無しさん
07/05/12 12:01:23 0
便利に使わせていただいています。お天気スクリプトですが、同梱のskin.xml
を使うとサイズが大きすぎるのか画面からはみ出してしまいます。
環境は、X01HT+WM6です。
同梱されているスクリーンショットとか見るときれいに見えているので、X01HTで使用するには、大幅な変更とか必要でしょうか。
251:たけたけ
07/05/12 12:13:20 0
>>250
同梱のskinはZERO3のVGAで作成されたものですから
X01HTの様にQVGAでは大き過ぎると思います
QVGA機で利用するには変更が必要です
アイコンも大きい物ではなく小さい物を利用した方が良いでしょう
一応同梱skinは拙作rlTodayeditorに対応させています
バグは多いですがw移動して調節程度なら問題なく動作するので
適当に弄ってみてはどうでしょう
後はreadmeを読んで修正してください
あるいは旧版ではありますが
URLﾘﾝｸ(d.hatena.ne.jp)
にX01HT用のスキンがアップされています
これをベースに変更されては如何でしょう
252:いつでもどこでも名無しさん
07/05/12 12:21:33 0
>>250
つRealVGA
253:いつでもどこでも名無しさん
07/05/12 18:19:28 0
>>244
遅ればせながら…
elseifってそんなに需要あるんですね～
僕は視認性が悪くなるしスパゲッティになり易いから出来るなら使いたくないですね～
switchで十分だと思います
そんな命令よりも僕はbreak文が欲しい!!
新版の英文読んでないから新設されてたらアホみたいな叫びだけどw
switchやrepeatといった命令があるのに何故break命令がないんだ!!
ってガッカリしました
break命令があると更にifとか余計な処理無くせて楽なんですけどね～
switchや繰り返し命令系には必須だと思うんだけどなぁ
そう言えばrepeatの対ってendrepeatなのには一寸ビックリ
昔の感覚だとuntilだから最初戸惑ったよ
mscrのrepeatってどちらかというとfor to next(loop - unloop?)に近いし
repeatって言うとrepeat - until(条件)だったからなぁ
sub - endsubもreturnとかあると便利なんだけどな～
アクティブウインドウの検知にtitleだけじゃなく
classも指定できたりするといいと思うし
後慣れないのはwhileのループ条件
成立した時に抜けるんだっけ?繰り返すんだっけ?といまだに悩む--;
254:１
07/05/12 19:27:35 0
>>253
まぁ慣れってのはその人それぞれですけどね。
> elseifってそんなに需要あるんですね～
「無い」と思うあなたはMortさんと気が合いそうだねｗ
「ElseIf」に需要があるというよりも、
If ...
ElseIf ...
Else ... ←これの部分に需要があるんだと思うよ。
Switch ～Case で同じことをやろうと思うと、
最後のCaseに全ての補集合の条件を明示的に記述しないといけないから。
> そんな命令よりも僕はbreak文が欲しい!!
> アクティブウインドウの検知にtitleだけじゃなく
> classも指定できたりするといいと思うし
これらは俺も同感です。
> sub - endsubもreturnとかあると便利なんだけどな～
→ >・Return( value )を返すCallFunctionとCallScriptFunction関数の導入
> 後慣れないのはwhileのループ条件
Whileは他のスクリプトと同じだよ。
"While you are a schoolboy, listen to your parents."
「学生のあいだは親の言うことを聞きなさい」
あとはLocal変数とかClear( 変数/配列 ）（完全にundefするわけじゃないらしいが）
とかが導入されたことも、ライブラリスクリプト書く上では便利な要素。
255:いつでもどこでも名無しさん
07/05/12 20:48:04 0
>>255
>Switch ～Case で同じことをやろうと思うと、
>最後のCaseに全ての補集合の条件を明示的に記述しないといけないから。
それこそbreakで抜けてcase(1)でも書けばいいだけのような気がする
break命令無いけど
現状でもelseifと同等の構造文は書けるし
まぁ書き方のスタイルの違いだからあって悪いものではない
遣わなければ良いだけの話…ですけどねw
>> sub - endsubもreturnとかあると便利なんだけどな～
>→ >・Return( value )を返すCallFunctionとCallScriptFunction関数の導入
ここで言うreturnはbreakと同等の意味です
返り血なんて要らない派なので
ま～普通はreturnでサブルーチン終了して帰るでしょうから
同じ意味なのかな
>Whileは他のスクリプトと同じだよ。
なるほど
英文で理解していると分かり易いですね
repeatの抜ける条件がwhileと逆で条件成立するまでループしなさいだから
混同していたのをそのまま引きずってるんです
元々whileは殆ど使ってなかったものですから
ローカル変数は期待ですね
再起呼び出しが出来るのって楽しいですから
256:いつでもどこでも名無しさん
07/05/12 20:50:43 0
>>252
X01THは液晶がQVGAなんだが
257:１
07/05/13 00:00:29 0
俺がなにより不満なのは
この一反木綿みたいなアイコンかなｗ
258:１
07/05/13 03:14:58 FTPItuP90
文字列マッチ／置換をregex感覚で行うライブラリMortScript
別スクリプト内で複数回呼び出された時に起こりうる不具合を
修正しました。
URLﾘﾝｸ(home.att.ne.jp)
259:いつでもどこでも名無しさん
07/05/13 04:07:50 0
エラー出た時に行番号を表示して欲しいと思うのは俺だけか?
260:いつでもどこでも名無しさん
07/05/13 05:07:14 0
おまえら高望みしすぎ
エラーのないスクリプトを書け
261:いつでもどこでも名無しさん
07/05/13 09:34:47 0
>>260
エラーの出ないプログラムなんて一生書けないorz
ソースが長くなれば長くなる程エラーにならないエラーが埋もれる
こっちを立てればあっちが立たなくなる
エラーの無いソースを一発で書ける人は神です
262:いつでもどこでも名無しさん
07/05/13 10:12:48 0
慣れだよ慣れ
ガキでさえ簡単な日本語覚えるのに3年もかかるんだ
昨日今日覚えた言語で間違えるなってのは無理な話
263:いつでもどこでも名無しさん
07/05/13 10:50:51 0
>>251
回答ありがとうございます。
何とか、新しい方のskin.xmlをX01HTのQVGAに合わせることができました。
あとは少し微調整すれば、いい感じにできそうです。
今後ともよろしくお願いします。
264:いつでもどこでも名無しさん
07/05/13 11:29:58 0
いやしかし行番号表示ぐらいは高望みってわけでもないだろｗ
265:いつでもどこでも名無しさん
07/05/13 16:35:09 FTPItuP90
人増えてきた感じがするなぁｗ
エラー行番号はもちろんあってもいいが、
本当の問題はその行じゃなかったりもするよなｗ
さて、ここにサッカーファンがいるかどうかわからんけど、
イングランド プレミアリーグなど、UKのフットボールクラブの試合で
ゴールが決まったら音と共にLiveで通知するスクリプトできた。
URLﾘﾝｸ(home.att.ne.jp)
readme.txtを必ず読んでね。
イングランドプレミアは今夜がシーズン最終節。
３位争いと降格争いなど、裏試合のゴール速報を楽しんでみて下さい。
266:１
07/05/13 17:41:10 0
てか、↑は俺。
IDがFTP うp ｗ
267:いつでもどこでも名無しさん
07/05/13 21:19:01 0
インストールしているソフトがツールmemoサイトで更新登録されたら通知するスクリプトきぼん
268:いつでもどこでも名無しさん
07/05/14 00:00:10 0
あるものは使え
ないものは作れ
269:１
07/05/14 01:25:57 0
>>267
・ReadFile( ツールmemoサイトのRSSのurl ) で読み込み
→>>52さんのqkcでsjisに変換
・ForEach app in files ( "\Windows\スタート メニュー\*.lnk" )とかで
「インストールしているソフト」のパスをリストアップ
→SubStrでパスからファイル名を抽出
→読み込んだテキストをファイル名でFind
→見つかったファイル名を順に、出力用変数に追記代入
→メッセージを表示
って感じかな。自分で作ってみたら。
>>265のゴール通知スクリプト、
さっそく不具合が見つかったので直しておきました。
ちなみに、今夜モニターしてた試合は0-0だったので、
ぜんぜん鳴らなくて面白くなかった。。。
270:いつでもどこでも名無しさん
07/05/15 03:41:05 0
悲しいとき～
271:いつでもどこでも名無しさん
07/05/16 00:35:39 0
全くの素人なんですが面白そうなのと
便利そうなスクリプトが公開されているのでインストールして触ってみました
ＣＱを使っている方もいるようなので質問させて下さい
本家のサンプルスクリプトにあるCopyPasteに
CQのctrl+b（クリップボード履歴）とctrl+g（キーワード）を追加しようと思いました
Choiceに
"Paste (ctrl-b)", \
"Paste (ctrl-g)", \
を追加して
Case( 5 )
# Send a ctrl-b to the app
SendCtrlKey( activeWin, "b" )
Case( 7 )
# Send a ctrl-b to the app
SendCtrlKey( activeWin, "g" )
を追加し他のCase番号も併せて変更しましたが
ctrl+bは検索窓が開いてしまいctrl+gはジャンプ機能の窓が開いてしまいます
右ソフトキーから辿ってみるとショートキーとしてctrl+gは載っているのでそれが機能してる事は分かったのですが
キーボードからctrl+b,ctrl+gを入力するとＣＱのショートカットが働きます
どこを直せばいいか助言頂けると有り難いです
272:いつでもどこでも名無しさん
07/05/16 00:39:32 0
↑は○号テキストエディタでテストしてました
ショートカットや検索、ジャンプは○号の機能です
○号でうまくいってないので他のエディタは試してませんでした
273:１
07/05/16 01:32:34 0
>>271
CQには"CQ"っていうタイトルの隠しウィンドウがあるんだけど
これを指定してキーストロークを送ってもエラーが出る。
キーストロークはテキストエディタのウィンドウに送るしか無い。
エディタにキーストロークを送ると、
該当するエディタの機能が立ち上がるのはしょうがない。
というわけで、CQの設定を変えるしかない。
俺はというと、「キーワード表示」をEscに、
「貼り付けリスト表示」をCtrl+Escに、それぞれ変更してる。
SendEsc
SendEsc( "", 1, 0 )
で、それぞれ表示できるよ。
ちなみに、キーストロークを送った時の動作は、
ソフトキーボードを使って確認するといいよ。
274:いつでもどこでも名無しさん
07/05/16 08:19:36 P
○号って懐かしいな。
WM5に対応したのかな？
275:いつでもどこでも名無しさん
07/05/16 08:32:25 0
>>274
とっくに
276:いつでもどこでも名無しさん
07/05/16 12:13:39 0
>>273
CQの設定を変えて対応したら出来ました
ありがとうございました
277:いつでもどこでも名無しさん
07/05/17 13:13:10 0
皆さんは
SetBackLight
きちんと動作してるんでしょうか？
AC時は反映されるのですがバッテリー時が反映されません
機種はesで下記のように書きました
どこか間違いがありますでしょうか？
>>153
を参考に明るさは１～６としています
ChoiceDefault( "BackLightContorlMortScript", "Choice BackLight Level", 1, 5, \
"Set BackLight BT4 AC6", \
"Set BackLight BT6 AC6", \
（ｒｙ
"Set BackLight BT1 AC1"
)
Case( 1 )
SetBacklight( 4, 6 )
Case( 2 )
SetBacklight( 6, 6 )
（ｒｙ
Case( 7 )
SetBacklight( 1, 1 )
EndChoice
278:１
07/05/17 19:22:18 0
>>277
俺はWS003SHだけど
同じくバッテリー使用時にはSetBacklightは無視されるみたい。
>>151さんも書いてるけど。
代わりに、RegWriteで下記のレジストリの値を書き換えるとできるよ。
#xは１～６の値
RegWriteDWord( "HKCU", "ControlPanel\BackLight", "BatteryBrightness", x )
ただしこれを実行しても、実際にバックライトの明るさが変わるのは
次に手動で何かのボタンを押したり、タップしたりした瞬間なんだけど。
279:277
07/05/17 20:44:59 0
>>278
あれ、既出でしたか
見落としてました
でも解決策提示していただけたので手前勝手によしとしよう
しかし上記のスクリプトに
Case( 1 )
SetBacklight( 4, 6 )
RegWriteDWord( "HKCU", "ControlPanel\BackLight", "BatteryBrightness", 4 )
のようにしたら手動で何か操作しなくても反映されました
スクリプトの選択ダイアログが消えるのが
手動操作の代わりになってるのかもしれません
280:１
07/05/17 22:27:27 0
>>279
> スクリプトの選択ダイアログが消えるのが
> 手動操作の代わりになってるのかもしれません
そうかもしれませんね。
この件は、マニュアルにも注意書きを追加しておきました。
####
誰も興味ないかもしれないけどｗ、>>265のゴール通知スクリプト
また修正を加えました。
BBCのサイトの表記フォーマットが恣意的で困る。。。
281:いつでもどこでも名無しさん
07/05/17 23:02:07 0
和訳マニュアル、9.12.1のForEachを使った例の部分ですが、
^LF＾のあとのダブルクオーテーションが抜けていませんか？
目覚ましが何とかまともに動くようになったので
今度は天気予報を起床時に確認できるようなスクリプトを作ってます。
282:１
07/05/17 23:46:06 0
>>281
抜けてました。直しました。サンクス！
天気予報関係が流行ってるみたいだね。
「晴れ」「曇り」「雨」で目覚まし音が変わるのとか
面白いかな、と、ふと思った。
283:いつでもどこでも名無しさん
07/05/18 18:58:40 0
>>282
目覚ましが変わるのは良いかも。
簡単に出来るだろうし、面白そう。
雨の日は暗い曲にするか、元気に過ごすために逆に明るい曲にするかで悩む…。
284:いつでもどこでも名無しさん
07/05/18 19:50:58 0
あとは，天気予報が朝から雨なら少し早く鳴るのもいいかもね
285:１
07/05/18 20:29:39 0
>>283
そう。そこが悩みどころだなｗ
>>284
ちょっと早めに出なくちゃいけないからかｗ
雪だとさらに早めとか。
頭良い目覚ましだな。
286:いつでもどこでも名無しさん
07/05/18 20:43:41 0
>>284
すごい
既製品の目覚ましでは出来ない芸当ですね
そのうち路線状況や渋滞情報によって（ｒｙ
言い過ぎましたｗ
287:いつでもどこでも名無しさん
07/05/18 21:29:21 0
なるほど、時間が変わるっていうのもありか…。
ちなみに目覚ましスクリプトはたまに固まるので（たぶんスクリプトの問題ではないと思うけど)
他の目覚ましと併用してください。
自分はタイマー代わりにも使ってたりします。
天気予報をhtmlにしてブラウザに表示させるか、
ダイアログに表示させるか…。軽さ優先かな。
288:いつでもどこでも名無しさん
07/05/18 21:31:32 0
連投ごめん。
スクリプトの編集するときって皆さんはどうしてますか？
おれは、本体内の（miniSDでない）マイドキュメントに入れて
ActiveSyncさせたのをPCで編集してます。
zero3はGSfinderを起動させておいて、
PCでの編集、ActiveSync、zero3で実行、
という手順でバグつぶししてます。
もっと楽な方法とかないかな・・・。
289:１
07/05/18 21:48:02 0
>>286
学生さんだったら、休講情報があったら鳴らさない、とか？
夢が膨らむなｗ
目覚まし時刻を変える場合、
指定時刻の１時間前とかに一旦起動させて情報収集し、
あらためて目覚まし音を鳴らす時刻でRunAtするプロセスが必要だな。
>>288
俺の例でいえば
>>83-90あたりでそういう話題の会話してるよ
290:たけたけ
07/05/18 22:02:50 0
>>288
あちしゃPC上で編集してPDAにコピーして
ランチャーから起動させてます
本当はASで同期させたファイルを編集したいんだけど
何処をどう間違ったのかPDAとASで同期を取ったファイルって
いつの間にかPC上から削除されちゃうんですよ--;
最近はmscrで仕事の伝票を管理させるソース書いてました
数年振りのプログラム 楽し～
condexecとexecifのコンボマクロモドキも
全部mscrに置き換えられたし
コンボより一括で管理できるからデバグが楽
今度何組もう…
291:いつでもどこでも名無しさん
07/05/18 22:22:00 0
おっと、前に情報が出ていましたか。よく読まなくてごめんなさい。
エディタ編集後にエディタ上からソフトキー一発で実行っていいなあ。
どうしてもzero3のキーボードだとストレスが溜まるのでPC編集&ASでがんばります。
外出してるときの手直しに、ソフトキー一発起動法も構築しておこう。
292:１
07/05/18 22:25:39 N1MzBm1Q0
みんなだんだんスクリプトの数も増えてきて、
いちいちスタートメニュー以下にショートカット作るのも面倒だな、とか
思ってませんか？
そんな人には、すべてのmscrファイルの中から選んで実行する
スクリプトはどうでしょう？
#・実行すると、MortScript.exeのあるフォルダ内の全てのmscrファイルをリストアップし、
# Chooseダイアログで選べます。
#・最初にスクリプトを選んで実行すると、datファイルがMortScriptフォルダ内に生成され、
# その時刻のタイムスタンプが、スクリプトパスとともにdatファイルに記録されます。
#・「最近使ったスクリプト」＞「スクリプト名アルファベット順」でソートできます。
# ソートの有無は、iniファイルを編集することで変更できます。
#・別途 ChooseMscr.ini ファイルを同じフォルダに入れておいてください。
スクリプトコード
URLﾘﾝｸ(home.att.ne.jp)
iniファイル
URLﾘﾝｸ(home.att.ne.jp)
293:たけたけ
07/05/18 23:01:33 0
>>292
うちはモートボタン→スクリプトフォルダ→スクリプト選択
って感じに起動させてます
更に
MORTexeとmscrは別フォルダだったりします
294:１
07/05/19 01:29:34 0
>>293
まぁ保存フォルダはいろいろでしょうけど
このスクリプトの売り（？）は
多重ソートのプロセスだったりします。
295:172
07/05/19 07:04:18 0
バブルソートとかなんか懐かしい。学校の課題を思い出しました。
javaでクイックソートでの宿題と闘った思い出が。
天気予報スクリプトを作っていて目覚ましの追加アイデアが浮かんできました。
メインの目覚ましとして携帯電話を使ってるのですが、
スヌーズ昨日が便利で、アラームを１０個くらい設定できるので
そのまねをしてみようかと思います。
ForEach使えばファイル一覧取得できるんですね。いいこと知った…！
296:いつでもどこでも名無しさん
07/05/19 10:31:33 0
俺ソートって使いこなせないんだよね
ソートしたら今までのデータのつながりが全部切れてしまう
297:172
07/05/19 11:59:28 0
少し考えた結果、
天声人語と天気予報をhtmlにまとめて目覚しし同時に表示させようとしてます。
天気予報、結局たけたけさんのと同じような事をしてるとしばらく作ってから気付く…。
298:１
07/05/19 19:36:02 0
>>295
学校では習わなかったなぁ。
文系だからｗ
クイックソートをMortScriptでやるのは難しいね。
>>296
> データのつながりが全部切れてしまう
kwsk
299:たけたけ
07/05/19 20:45:52 0
>>294
なるほど ソートが売りなんですね～
ソートなんて単純ソートしかやったこと無いなぁ
バブルソート？クイックソート？何ですかそれはってレベルです--;
全て独学だからソース汚いのよ
>>297
_(^^;)ツ アハハ
天気予報のスクリプト…風が厄介だ(無視という手もあるが)
rlTodayだけじゃなくてテキスト出力もあった方が需要高いか？
(ｰ'`ｰ;)う～ん・・・・
現状でも一寸修正するだけでテキスト出力に対応出来たりするw
天気予報って基本気象庁発表の使い回しだから
5:00・11:00・17:00の三回しか更新無いんですよね～
でも5:00の発表ってgooだと6:00になっても更新されてないっぽい
何処かgooより軽くていい所ないかなぁ
300:いつでもどこでも名無しさん
07/05/20 07:07:18 0
本分(?)はLinux Zaurusユーザなんでご無沙汰してますが、
いい感じに盛り上がってますね。
livedoorのweather hacksなんかいいかもしれないです。
軽いことは軽いですがXMLだからMortScriptでパースするの骨かも?
weather hacks -> WristPDAというのをVB2005で
作りかけで放置中。PIII800MHz 384MBという環境だと、
VB2005は重くてしょうがない。
MortScriptでもWMがらみでもないですが最近の新作（宣伝）
URLﾘﾝｸ(moyashi.air-nifty.com)
301:たけたけ
07/05/20 08:04:55 0
>>300
livedoor見てきました～
お～なかなか面白いかも
色々余計な情報があって楽しいな
風邪引き指数とか掛け布団指数とか
天気概況も別途ダウンしなくても一緒に付いてるので
情報量も多くなかなか良いですね
風は余計厄介になってる--;
ファイルサイズは…40KB越えか
gooが30KB前後だから一寸太るかな
情報量考えるとその位増えても良いか？
ASなあちしには関係ないけどw
ちなみにタイマー機能実装してみました
まだ人柱版だけどw
URLﾘﾝｸ(w-zero3.org)
302:たけたけ
07/05/20 08:22:36 0
>>301
自己レス
あ なんかlovedoor勘違い?
RSSでお天気情報って事かな
これならかなり小さいのでパケットにも優しいですね
…ホントにお天気だけだw
一応最高気温もあるのか
AS時はgooからで外出時はhacksからとか楽しいかも