vbslib

(for Internet Explorer)

Function Setting_getDiffCmdLine( i as integer ) as string

テキスト比較（Diff）を実行するコマンドラインのテンプレートを返す。

コマンドラインの種類

コマンドライン文字列

Diff のパスのみ返す。 "" で囲まないこと

C:\Program Files\Rekisa\Rekisa.exe

"C:\Program Files\Rekisa\Rekisa.exe" "%1" "%2"

比較する２つのファイルのパスを %1, %2 にした、Diff を起動するコマンド
ラインを返す。

比較する３つのファイルのパスを %1, %2, %3 にした、Diff を起動する
コマンドラインを返す。

"C:\Program Files\Rekisa\Rekisa.exe" "%1" "%2" "%3"

"C:\Program Files\Rekisa\Rekisa.exe" -Y+1=%L
-ActiveFile="%1" "%1" "%2"

比較する２つのファイルのパスを %1, %2 にして、%1 の行番号を
%L にした、Diff を起動するコマンドラインを返す。

比較する２つのファイルのパスを %1, %2 にして、%2 の行番号を
%L にした、Diff を起動するコマンドラインを返す。

"C:\Program Files\Rekisa\Rekisa.exe" -Y+1=%L
-ActiveFile="%2" "%1" "%2"

"C:\Program Files\Rekisa\Rekisa.exe" -Y+1=%L
-ActiveFile="%1" "%1" "%2" "%3"

比較する３つのファイルのパスを %1, %2, %3 にして、%1 の行番号を
%L にした、Diff を起動するコマンドラインを返す。

比較する３つのファイルのパスを %1, %2, %3 にして、%2 の行番号を
%L にした、Diff を起動するコマンドラインを返す。

"C:\Program Files\Rekisa\Rekisa.exe" -Y+1=%L
-ActiveFile="%2" "%1" "%2" "%3"

比較する３つのファイルのパスを %1, %2, %3 にして、%3 の行番号を
%L にした、Diff を起動するコマンドラインを返す。

"C:\Program Files\WinMerge\WinMergeU.exe" "%1" "%2"

Diffを実行するコマンドラインを返す

→ _src\Test\tools\T_SyncFiles\SettingForTest.vbs

Setting_getDiffCmdLine 関数の中で

を呼び出すスクリプトを

include （関数定義を上書き）すると、Diff ツールで開こうとしたファイル
のパスを、ArgsLog.txt に追記するようになります。 ArgsLog.txt の内容を
チェックすれば、開くファイルのパスが正しいかどうかをチェックできます。

%APPDATA%\Scripts\account_setting.vbs
ファイルを新規作成して下記のように記述してください。

Function Setting_getAdminUserName()
Setting_getAdminUserName = "Administrator"
End Function

Function Setting_getAdminUserName() as string

管理者のユーザー名を返します。

Windows XP で自分が管理者であったり、Windows 7 で管理者になれる
ユーザであれば、関数定義の記述は不要です。

管理者のユーザー名は、

= 1 にしたときに使われます。

Sub Setting_buildTestPrompt( Prompt as TestPrompt )

テスト・プロンプトの設定を行います。

設定（TestPrompt_Setting.vbs のサンプルを参照）

プロンプトのメニュー項目を設定します。

テスト・スクリプト（Test.vbs）を登録します。

Sub Setting_getTemp( out_FolderPath as string, out_LimitDate as Date )

テンポラリ・ファイルやテンポラリ・フォルダーの設定値を取得します。

（出力）テンポラリ・フォルダのパス

（出力）保存期限

Sub Setting_getTemp( out_FolderPath, out_LimitDate )
out_FolderPath = env( "%Temp%\Report" )
out_LimitDate = DateAdd( "d", -2, Now() ) '// "d" = day
End Sub

下記は、Setting_getTemp を定義していないときと同じ設定です

テンポラリ・フォルダの設定に関するオブジェクト。
テンポラリ・フォルダに保存するまでは Empty です。

Dim g_TempFile as TempFileClass

Setting_getTemp は、g_TempFile = Empty のときに呼ばれ、呼び出したら、
g_TempFile.m_FolderPath に out_FolderPath に出力したパスが入ります。

out_FolderPath や out_LimitDate に値を代入しなかったら、デフォルト値が
使われます。

out_LimitDate 引数に出力した日時より前のタイムスタンプを持つファイルは、
GetTempPath で削除されます。参考

テンポラリ・ファイルのパスを返す

Function GetExistPathInSetting( Paths as array of string, SettingFuncName as string )

Paths 配列に格納されているパスのうち、最初にファイルが存在するパスを返します。

本関数を呼び出している関数の名前

ファイルが存在するパス

Paths の要素に Empty を含んでいてもエラーにはなりません。

もし、該当するファイルが存在しなければ、setting フォルダーにある vbs ファイルを修正する
ように、警告が表示されます。

GetExistPathInSetting は、setting フォルダーの中で定義する関数の中から呼び出せる関数です。

Function Setting_getEditorCmdLine( i )

paths = Array( _
g_sh.ExpandEnvironmentStrings( "%ProgramFiles%\sakura\sakura.exe" ), _
g_sh.ExpandEnvironmentStrings( "%windir%\notepad.exe" ) )
exe = GetExistPathInSetting( paths, "Setting_getEditorCmdLine" )

→ Setting_getEditorCmdLine のサンプル (src)

Sub EditAndRunScript( ScriptPath as string, IsKeepThisProcessIfRun as boolean )

VBScript ファイルをテキスト・エディターで開いて、編集後に実行します。

IsKeepThisProcessIfRun

VBScript ファイルのパス。 Empty =

False=実行開始したら現在のプロセスを終了する

Sub EditAndRunThisScript()
EditAndRunScript Empty, False
End Sub

本関数を呼び出すと、

VBScript ファイル開きます。

に登録したテキスト・エディターを使って

テキスト・エディターを閉じたら、編集した VBScript ファイルを実行するかどうかを確認する
ウィンドウが開きます。実行するを選んだら、実行を開始して、IsKeepThisProcessIfRun
= False なら、現在実行中のプロセスは終了します。つまり、新しい VBScript ファイルの
プロセスに切り替わります。 IsKeepThisProcessIfRun = True なら、実行を開始して、
本関数から戻ります。

実行することをキャンセルすると選んだら、そのまま本関数から戻ります。

→ T_EditAndRunScript フォルダ

コマンドプロンプト、またはウィンドウにメッセージを表示します。

Enter キーを押すまで待ちます。

プロンプトを表示し、ユーザからのキーボード入力を待ちます。

キーボード入力をエミュレーションします。

他にもあります。左のツリーから選択してください。

音楽ファイルや効果音ファイルを鳴らします。

コントロールパネルに設定されている効果音を鳴らします。

Function echo( Message as variant ) as string

コマンドプロンプト、またはウィンドウにメッセージを表示します。

表示する内容、またはオブジェクト

echo "はろー"
echo 1+1

Message にオブジェクトを指定した場合、Value プロパティを表示します。
参考

Class ClassX
Public Property Get Value()

表示した内容（文字列）

があるときは、出力しません。

サンプル：ファイルとコマンドプロンプトの両方に出力する

Dim out : Set out = OpenForWrite( "_out.txt", Empty )
out.WriteLine echo( "はろー" )

→ T_Var.vbs # T_LoadEnvVars

で、コマンドプロンプトを表示しているときは、コマンド・

プロンプトの中に、そうではないときは、ウインドウに表示します。

を使っているときは、Test_logs.txt ファイルにも出力します。

テスト・プロンプト (Test.vbs)

EchoOff オブジェクトがあるときでも出力したいときは、標準出力してください。
例：echo_r "text", ""

今まで echo した内容をウィンドウで表示します。

echo で出力しないようにします。

標準出力かファイルに、文字列を出力します。

VBScript / WSH の標準的な表示関数。

Message を表示可能な文字列に変換します。

Set obj = new ClassX
echo obj '// obj.xml プロパティを表示する

Dim a
a = 5
echo "a = "& a

名前は、太郎です。

Dim name
name = "太郎"
echo "名前は、"+ name +"です。"

Dim name
name = input( "あなたの名前は？>" )
echo name +"さんですね。"

あなたの名前は >次郎
次郎さんですね。

コマンド・プロンプトを表示していないとき、今まで echo した文字列をウィンドウで表示します。

コマンド・プロンプトを表示しているときは、何もしません。
echo_flush を呼び出さなくても、プログラム終了時、pause、input 時、何度も echo したときは、
ウインドウに自動的に表示します。

コマンドプロンプトを表示するかどうか

echo "注意してください。"
echo_flush

水平線を表示します。

------------------------------------------------------------

Function FuncA( Param1 )
echo ">FuncA " & Param1
Dim ec : Set ec = new EchoOff

echo "SubA"

ec = Empty
echo FuncA
End Sub

EchoOff オブジェクトがあるときは、

で出力しません。

呼び出した関数名を表示する

EchoOff オブジェクトの削除で、表示を復活します。
ec=Empty しない場合でも、FuncA から返ると自動的に復活します。
（デストラクタによるため）

通常、下記のように使います。

EchoOff オブジェクトがあるときに、長い処理の進捗状況を表示したいときは、echo_r で標準出力へ出力して
ください。

echo で表示しないようにする

ここの echo では表示されません。実際は、FuncA 関数から呼び
出す関数の中から呼ばれる echo による表示を抑制します

Dim g_EchoObj.m_bEchoOff as boolean

によって出力しないかどうか。

Sub DisableEchoOff()

EchoOff オブジェクトがあっても、echo 出力するようにします。

Sub main()
DisableEchoOff
:

Function echo_v( Message as string ) as string

文字列を出力します。フィルタリングされません。

出力する内容の文字列（文字列以外は指定できません）

If g_verbose Then echo_v "処理は１つも行われませんでした。"

g_verbose を使うときは、echo_v を使用してください。

の影響を受けません。（＝フィルタリングされません）

エラーメッセージは、echo ではなく echo_v を使用してください。

→ T_Verbose.vbs # [T_Verbose]

Function echo_r( Message as string, RedirectPath as string ) as string

標準出力かファイルに、文字列を出力します。

出力する内容の文字列など（echo と同じ）

出力先のファイルパス、Empty のときは出力しない、""=標準出力へ

出力した内容の文字列

echo_r "エラー", ""

Function Execute_Echo( ExpressionStr as string, Label as string ) as string

式とその計算結果を表示します。デバッグ用です。

表示内容の最初に表示するラベル

Execute に渡すコード

Message を表示可能な文字列に変換します。

Function GetEchoStr( Message as variant ) as string

Message がオブジェクトの場合、

Message が Dictionary の場合、キーとアイテムの両方を文字列にします。
このとき、アイテムを再帰的に GetEchoStr に渡します。

Message が配列または ArrayClass の場合、すべての要素を文字列にします。

s = GetEchoStr( object )

→ T_Value.vbs # T_EchoStr

の返り値を返します。

Dim g_CustomEchoStrGenerators as dictionary of Function

Function InitializeModule( ThisPath )
Set g_CustomEchoStrGenerators( "ClassA" ) = GetRef( "ClassA_xml_sub" )
End Function

Function ClassA_xml_sub( m as Object, Level as integer )
ClassA_xml_sub = GetTab(Level)+ "<"+TypeName(m)+" Name='"+ XmlAttrA( m.Name ) +_
"'/>"+ vbCRLF
End Function

表示可能な文字列に変換する関数の辞書。

の引数に指定したオブジェクトのクラスに、

関数の中で、g_CustomEchoStrGenerators に関数を登録してください。

を定義できないときは、

登録する関数は、xml_sub メソッドと同じ形式の文字列を返すようにしてください。

続行するには Enter キーを押してください . . .

コマンドプロンプトにメッセージを表示して、Enter キーを押すまで待ちます。

メッセージの内容：

echo "処理を開始します。"
If not ArgumentExist( "silent" ) Then Pause

デバッグするときは、Pause より MsgBox を使った方がよいでしょう。
Pause は、子プロセスがからむと、メッセージが表示されない可能性があるためです。

"処理を開始します。"

vbslib_mini.vbs (src)

コマンドプロンプトを使う .vbs ファイルをダブルクリックしたときだけ pause します。