#http://www.ac-promenade.net/text/windowsmobile/ #Scripted by AC-Promenade http://www.ac-promenade.net/ #モバイルメモ #MobileMemo.mscr #メモ書き用のテキストを指定のエディタで入力した後、 #保存操作を行う事なくToday表示で即保存終了させるMortScript。 #メモを取ってすぐポケットにしまえるような使用を想定しています。 #●使用方法概要 #いくつかの動作は本文中の環境設定により変更できます。 #・本mscrを実行すると、指定ファイルを、指定エディタで開きます。 #・okキーや、PWR/終話キー等でToday画面が表示された時に # エディタ上の時点で内容変更があれば、即保存し終了します。 #・ViewText等を使用していれば、同時にToday更新も設定できます。 #(終了判定をウィンドウ非アクティブ時にしなかったのは、 #設定ダイアログが開けなくなるからです。) #●動作確認デバイス #Advanced/W-ZERO3[es], WILLCOM 03, HYBRID W-ZERO3 #他ZERO3系デバイスでも、動くかもしれません。 #その他機種はテキストエディタが動くなら動くかもしれません。 #もし他のWindows Mobile機でも動いたらご報告頂けると嬉しいです。 #●必要環境 #・MortScript4.1以上(それ以下でも動くかも)、mscrの関連付け。 # http://www.sto-helit.de/ (PCサイト) #・テキストエディタはTinyPad、またはjot、どちらかが必要です。 #スクリプト目的からも上記のような軽量エディタが良いと思います。 #・TinyPad (超軽量、展開上限80KBくらい?) # http://www.geocities.jp/yasuho68k/wzero3/ #・jot (高機能、展開上限本体メモリ依存) # http://pandora.sblo.jp/article/11444252.html #●補足事項 #・ViewText (txtファイルをTodayに表示してくれます、必要なら) # http://www.dream-seed.com/weblog/archives/2006/12/viewtext_12/ #本mscrのショートカットに、アイコンを利用したい場合は、 #ショートカットファイルのリンク先に、直接続けて #?ceshell.dll, -4619または #?\Program Files\TinyPad\TinyPad.exe,-101の #?\Program Files\jot\jot.exe,-129または #いずれかを続けて追記して下さい。(jotは128,130もあります。) #(インストールパスが異なる場合は、記述を修正して下さい。) #アンインストールの際は、本mscrを削除するだけで大丈夫です。 #必要なければ、メモファイルやそのフォルダパスも削除して下さい。 #レジストリの追加等は行っていません。 #本mscrによって生じる不利益に当方は関与しません。 #設定変数値を除く内容に改ざんがない限り、再配布は自由です。 #内容に変更を加えた際の再配布は、必ずその変更前と変更後の #明記を、本文中にて行ってあれば構いません。 #--------------------------------------------------------------- #以下環境設定 #(書き換えの際、文字コードS-JISが変換されないよう御注意下さい。) #■使用するテキストエディタのパスを指定。 #exe名で処理判断をするので、jot.exeかTinyPad.exeへ通して下さい。 EditorPath="\Program Files\TinyPad\TinyPad.exe" #■メモに相当するプレーンテキストファイルへのパス。(引数処理) #(存在しなければ自動的に作られます。) MemoPath="\My Documents\MobileMemo.txt" #■メモ変更終了後、Today画面の更新をするなら=1、必要なければ=0。 ReToday=0 #--------------------------------------------------------------- #バージョン履歴 #1.00 公開。 #--------------------------------------------------------------- #Main Script #■PPC制限 If(MortScriptType() ne "PPC") message("This script is PPC only.") Exit EndIf #■エディタ検知セクション If (Not FileExists (EditorPath)) Message ("有効なテキストエディタを^NL^指定して下さい。^NL^EditorPath="""&EditorPath&"""") Exit ElseIf (Find (EditorPath,"jot.exe")) OpenWindowName=FileBase (MemoPath)&FileExt (MemoPath) ChangeWindowName=(OpenWindowName)&"*" ElseIf (Find (EditorPath,"TinyPad.exe")) OpenWindowName=FileBase (MemoPath)&" - TinyPad" ChangeWindowName="*"&(OpenWindowName) Else Message ("有効なテキストエディタを^NL^指定して下さい。^NL^EditorPath="""&EditorPath&"""") Exit EndIf #■ファイル検知セクション If (Not FileExists (MemoPath)) If ( (Find (MemoPath,"\")<>1) or Find (MemoPath,"\\")\ or (ReverseFind (MemoPath,"\")=Length(MemoPath)) ) message ("以下のパス指定は無効です。^NL^設定を確認して下さい。^NL^MemoPath="""&MemoPath&"""") Exit ElseIf (Question ("以下ファイルを作成します^NL^"&MemoPath,"OkCancel")<>OK) Split (MemoPath,"\",0,PathPart) i=2 PathAll="" While (iFileModifyTime (MemoPath)) RedrawToday EndIf EndIf