サンプル集　－　マウスレコーダー

組込関数

文字列を操作する関数の５例
関数名は大文字／小文字の区別無し
入れ子の階層数制限無し

下記の例では、%REG1%に原文字列を格納。　%Str1%：文字列１　　%Str2%：文字列２　とする。

文字列操作

Len(%REG1%) 文字数を取得

Left(%REG1%,5) 左から5文字取得

Right(%REG1%,3) 右から3文字取得

Mid(%REG1%,3,4) 3文字目から４文字取得

Trim(%REG1%) 両側のスペースをカット

Strconv(%REG1%,4) 全て全角文字に変換

Instr(%REG1%,a) 先頭から文字列検索

InstrRev(%REG1%,a) 後方から文字列検索

Strcomp(%REG1%,%Str1%) 文字列比較　０：一致

Replace(%REG1%,%Str1%,%Str2%) 文字列置換　Str1をStr2に置換

日付と時刻

Now() 現在の日時

Today() 現在の日付

Time() 現在の時刻

Year(Now()) 年

Month(Now()) 月

Day(Now()) 日

Hour(Now()) 時

Minute(Now()) 分

Second(Now()) 秒

Weekday(Now()) 曜日（１：日～７：土）

Dateserial(Year(Now()),Month(Now()),Day(Now())+2) 明後日の日付

Format(Val(Now())+2,"yyyy/mm/dd") 明後日の日付

Dateserial(Year(Now()),3,1-1) ２月最終の日付

Format(Now(),"ggg年mm月dd日 aaaa") 指定の書式

数値

Int(100*Rnd()) ０～９９のランダムな整数

Dec(1A) 16進→10進　２６が返る

Hex(42) 10進→16進　２Aが返る

Mod(5,2) ５を２で割った余り

Sin(3.14159/3) 正弦

Cos(3.14159/3) 余弦

Tan(3.14159/3) 正接

Sgn(-5) 符号

Abs(-5) 絶対値

Sqr(2) 平方根

Val(Now()) 数値に変換

コードの使用方法

! 文字列操作 Set // 原文字 S あいうえお[%CM%]カキクケコ[%CM%]ABCDE[%CM%]abcde[%CM%]123[%CM%]１２３[%CM%]abc SHOW_MSG // 文字列 0 2190 2355 13230 5520 0[%CM%]-2147483643[%CM%]0[%CM%]0[%CM%]0[%CM%]11.25[%CM%]ＭＳゴシック[%CM%]False[%CM%]False[%CM%]False[%CM%]False[%CM%] 原文字[%NL%]　%S%[%NL%][%NL%]　文字数を取得する　　Len(%S%)[%NL%]　左から５文字　　　　Left(%S%[%CM%]5)[%NL%]　右から３文字　　　　Right(%S%[%CM%]3)[%NL%]　３文字目から４文字　Mid(%S%[%CM%]3[%CM%]4)[%NL%][%NL%]　全角文字に変換[%NL%]　StrConv(%S%[%CM%]4)[%NL%][%NL%]　先頭から文字を探す　探す文字 [%DQ%]a[%DQ%]　　InStr(%S%[%CM%]a)[%NL%]　後方から文字を探す　探す文字 [%DQ%]a[%DQ%]　　InStrRev(%S%[%CM%]a)[%NL%][%NL%]201 ! 日付と時刻 SHOW_MSG // 文字列 0 3585 2355 12720 5790 0[%CM%]-2147483643[%CM%]0[%CM%]0[%CM%]0[%CM%]11.25[%CM%]ＭＳゴシック[%CM%]False[%CM%]False[%CM%]False[%CM%]False[%CM%] 現在の日時　　Now()[%NL%]現在の日付　　Today()[%NL%]現在の時刻　　Time()[%NL%][%NL%]指定書式　　　Format(Now()[%CM%][%DQ%]ggg年mm月dd日 aaaa[%DQ%])[%NL%][%NL%]明後日の日付　Format(DateSerial(Year(Now())[%CM%]Month(Now())[%CM%]Day(Now())+2)[%CM%][%DQ%]yyyy/mm/dd[%DQ%])[%NL%]10分後の時刻　Format(TimeSerial(Hour(Now())[%CM%]Minute(Now())+10[%CM%]0)[%CM%][%DQ%]hh:nn:ss[%DQ%])[%NL%]２月の最終日　Format(DateSerial(Year(Now())[%CM%]3[%CM%]1-1)[%CM%][%DQ%]yyyy/mm/dd[%DQ%])[%NL%]201000 ! 数値 SHOW_MSG // ランダムな整数 0 5160 3945 10200 7575 0[%CM%]-2147483643[%CM%]0[%CM%]0[%CM%]-2147483640[%CM%]12[%CM%]ＭＳＰゴシック[%CM%]False[%CM%]False[%CM%]False[%CM%]False[%CM%] ０～９９のランダムな整数[%NL%][%NL%]int(100*rnd())101

関数内計算（うるう年を関数と計算式を用いて１行で判定）　　6.00版以降

関数は「入れ子」（関数の中で演算、または再度の関数呼び出し）入力可

下記の例は、ある年が「うるう年」かを判定する計算式を設定

変数 %FuncRet% にインプットボックスから検査年が格納されている。

うるう年判定１：グレゴリオ暦の定義により求める

　４で割り切れる年。かつ、１００で割り切れず、４００で割り切れる年。

　((mod(%funcret%,4) == 0) && (mod(%funcret%,100) != 0)) || (mod(%funcret%,400) == 0)

　　演算子はＣ言語分風
　　　==　等しい　
　　　!=　等しくない
　　　&&　論理積（かつ）
　　　||　論理和（または）
　　それぞれ、式が真の場合は１となり、偽の場合は０となる。

コードの使用方法

Set //結果変数 Result ST INPUT_BOX //検査年うるう年判定 154 154 609 318 検査する西暦年を入力して下さい。 year(now()) Jump %funcret% == [%DQ%][%DQ%] QUIT SetVariableIF ((mod(%funcret%[%CM%]4) == 0) && (mod(%funcret%[%CM%]100) != 0)) || (mod(%funcret%[%CM%]400) == 0) %Result% うるう年平年 MSG_BOX //結果表示うるう年判定 %result% Jump ST QUIT

うるう年判定２：２月の末日が２９かで判定

　２月末日は、３月１日の前日として求める

　day(dateserial(%funcret%,3,1-1)) == 29
コードの使用方法

Set //結果変数 result INPUT_BOX //検査年うるう年判定 154 154 609 318 検査する西暦年を入力して下さい。 year(now()) Jump %funcret% == [%DQ%][%DQ%] End SetVariableIF day(dateserial(%funcret%[%CM%]3[%CM%]1-1)) == 29 %result% うるう年平年 MSG_BOX //結果表示うるう年判定 %result% End

数学関数演算（マウスの螺旋移動）　　6.70版以降

　　マウスポインタが、螺旋を描きながら、右方向に移動（７回転、１回転を１００分割）

コードの使用方法

INIT 638 350 1016 735 0[%CM%]0[%CM%]1 Set //円周分割数　100 cCnt 100 Set //回転総数　　7回 RotateCnt 7 ! Set //スクリーン幅 W GetScreenX() Set //スクリーン高 H GetScreenY() Set //円周率 π 3.14159 Set //半径 R GetScreenY()/4 Set //角度 d 0 Set //Ｘ座標 X Set //Ｙ座標 Y ! Dim //角度刻みカウンタ C 0 ! Do Set //角度計算 %d% 2*%π%*%C%/%cCnt% Set //Ｘ座標 %X% (%W%/8)+%R%*Cos(%d%)+1*%C% Set //Ｙ座標 %Y% (%H%/2)+%R%*Sin(%d%) MV //マウス移動 %X% %Y% AddVariable //刻み回数アップ %C% 1 Loop-While //刻み回数までループ %C% < %RotateCnt%*%cCnt% End

特殊関数　　6.50版以降

直接入力、または特殊関数のリストから入力（直接入力の場合は（）要）

関数名機能返却値

GetOsPlatForm() OSのプラットフォームID
0：Win3.1　1：Win95,98,Me
2：NT,2000,XP,Vista　3：CE

GetOsVersion() OSのバージョンを取得する
4.1：Win98　4：NT
5：Win2000　5.1：XP　5.2：Win2003
6：Vista　6.1：Womdows7

GetOsName() OS名称取得（名称下記）
Win3.1　Win9x　WinNT　Win2000　WinXP
WinSever2003　Vista　WinCE

GetPcName() コンピュータ名取得文字列

GetUserName() ユーザー名取得文字列

GetScreenX() スクリーンサイズ　幅（ピルセル）整数

GetScreenY() スクリーンサイズ　高さ（ピクセル）整数

GetTaskBarHeight() タスクバーの高さ（ピクセル）整数

GetThemeActive() テーマが設定されているかを調べる 0：クラシック　1：テーマ設定あり

関数名機能返却値

GetMacAddress() MACアドレス取得文字列

GetIpAddress() IPアドレス取得文字列

関数名機能パラメータ返却値

GetDefaultPrinter() 通常使うプリンタの取得 ― プリンタ名

特殊関数リストからのみ使用可

関数名機能パラメータ返却値

SetDefaultPrinter 通常使うプリンタの設定プリンタ名 ―

コードの使用方法

INIT 10 786 581 1033 0[%CM%]0[%CM%]1[%CM%]10[%CM%]0[%CM%]MyData SHOW_MSG 0 8850 1005 16770 8085 0[%CM%]-2147483643[%CM%]0[%CM%]0[%CM%]-2147483640[%CM%]12[%CM%]ＭＳゴシック[%CM%]False[%CM%]False[%CM%]False[%CM%]False[%CM%] Platform ID：　GetOsPlatForm()[%NL%]OSバージョン： GetOsVersion()[%NL%]OS名称：　　　GetOsName()[%NL%]PC名称：　　　GetPcName()[%NL%]MACアドレス：　GetMacAddress()[%NL%]IPアドレス：　 GetIpAddress()[%NL%]ユーザー名：　 GetUserName()[%NL%][%NL%]IEバージョン： GetIeVersion()[%NL%]64ビットOS？： Is64bit()[%NL%][%NL%]スクリーンサイズ X：GetScreenX()[%NL%]スクリーンサイズ Y：GetScreenY()[%NL%][%NL%]タスクバーの高さ：　GetTaskBarHeight()[%NL%][%NL%][%NL%]通常使うプリンタの名前：GetDefaultPrinter()[%NL%][%NL%]テーマがアクティブ？　GetThemeActive()[%NL%]　０：クラシックスタイル　１：テーマがアクティブ201000