vbslib

(for Internet Explorer)

Dim LifeHandleClass::p as Object

グループに所属している相互参照しているオブジェクトを参照します。

オブジェクトのメンバー変数やメソッドにアクセスするときは、ハンドルのメンバー変数 p を
介する必要があります。このように相互参照しているオブジェクトとハンドルのオブジェクトを
分けることで、参照している変数がなくなったことをハンドルで検出できるようにしています。

Sub LifeHandleClass::Class_Terminate()

ハンドルが参照されなくなったときに、

を呼び出します。

オブジェクトをグループに追加し、ハンドルからオブジェクトを参照できるようにします

オブジェクトをグループに追加して、そのオブジェクトを参照するハンドルを生成します

オブジェクトをグループから除外します

ハンドルから参照されるカウンターを減らし、必要なら相互参照を切ります

Sub LifeGroupClass::AddHandle( Handle as Object, Object as Object )

オブジェクトをグループに追加し、ハンドルからオブジェクトを参照できるようにします。

（ルートの）ハンドル

ハンドルが参照しようとしているオブジェクト

Function LifeGroupClass::Add( Object as Object ) as LifeHandleClass

オブジェクトをグループに追加して、そのオブジェクトを参照するハンドルを生成して返します。

ハンドルが参照しようとしているオブジェクト

生成されたハンドル

Sub LifeGroupClass::Remove( Object as Object )

オブジェクトをグループから除外します。

ハンドルが参照しているオブジェクト

Sub LifeGroupClass::AddTerminated( Object as Object )

ハンドルから参照されるカウンターを減らし、必要なら相互参照を切ります。

参照されなくなったハンドルが参照しているオブジェクト

相互参照を切ることで、グループに所属するすべてのオブジェクトが削除されます。

自分（Me）も削除されます。

グループに所属するオブジェクトを参照するハンドルが他にもあるときは、
Object を参照しているハンドルだけが削除され、Object は残ります。

グループのユーザーは、本メソッドを直接呼び出さないでください。

から呼ばれます。

相互参照しているオブジェクトを削除するタイミングを制御するオブジェクト。
DestroyerClass のオブジェクトが削除されるときに、相互参照を切るメソッド DestroyReferences
を呼び出し、相互参照していたオブジェクトの Class_Terminate が呼び出されます。

Case1
WScript.echo "End of Main"
Case2
WScript.echo "End of Main"
WScript.echo "もし、ここ以降でデストラクターが動くときは、"+_
"プログラム終了時にすべてのオブジェクトを削除する"+_
"ことによるデストラクター呼び出しです。"

Sub Case1()
WScript.echo vbCRLF +"Case1:"
Set destroyer = new DestroyerClass
Set a_object = new MutualClass : a_object.Name = "a" : destroyer.Add a_object
Set b_object = new MutualClass : b_object.Name = "b" : destroyer.Add b_object
Set a_object.Reference = b_object
Set b_object.Reference = a_object
End Sub

Sub Case2()
WScript.echo vbCRLF +"Case2:"
Set destroyer = new DestroyerClass
Set a_object = new MutualClass : a_object.Name = "a"
Set b_object = new MutualClass : b_object.Name = "b"
Set a_object.Reference = b_object
Set b_object.Reference = a_object
End Sub

Class MutualClass
Public Name
Public Reference
Public IsDestroyer '// ■追加

Private Sub Class_Terminate()
WScript.echo Me.Name +".Class_Terminate"
CheckUnderDestroyer Me '// ■追加
End Sub

Public Sub DestroyReferences() '// ■追加
Me.Reference = Empty
End Sub
End Class

相互参照を切る

関数が終了したときにオブジェクトを参照している変数がなくなると、ガーベージコレクターによって
Class_Terminate が呼ばれますが、相互参照していると Class_Terminate は呼ばれません。
プログラム終了時に呼ばれます。 DestroyerClass は、相互参照しているオブジェクトでも
Class_Terminate が呼ばれるようにします。

相互参照するクラスは、相互参照を切る DestroyReferences メソッドと、DestroyerClass に
登録されると True になる IsDestroyer 属性（プロパティ）を実装してください。下記サンプルの
MutualClass を参照。

→ ガーベージコレクション (GC)

Case1:
Case1: a.Class_Terminate
Case1: b.Class_Terminate
Case2:
End of Main
もし、ここ以降でデストラクターが動くときは、プログラム終了時にすべての
オブジェクトを削除することによるデストラクター呼び出しです。
Case2: a.Class_Terminate
Case2: b.Class_Terminate

の使用を推奨します。

DestroyerClass の代わりに

Sub DestroyerClass::Add( Object as variant )

相互参照するオブジェクトを登録します。

登録するオブジェクト

本関数は、Object の IsDestroyer 属性（プロパティ）を True に設定します。
DestroyerClass が削除されるタイミングで、Object の DestroyReferences メソッドが
呼ばれます。

Sub DestroyerClass::Remove( Object as variant )

登録から除外します。

除外するオブジェクト

DestroyerClass が削除されるときよりも早く削除するオブジェクトを指定してください。
本関数は、Object の IsDestroyer 属性（プロパティ）を False に設定します。

Sub CheckUnderDestroyer( Object as variant )

Destroyer によって管理されていなければ、エラーにします。

Sub DefaultFunction( Argument1 as variant )

何もしないコールバック関数の本体。

第1引数（無視します）

イベントが発生したらコールバックされる関数の集合。
イベント関数を呼び出すオブジェクトのプロパティに、本クラスのオブジェクトを設定します。

イベントが発生したときにコールバックされる関数を登録します。

コールバックされる関数を登録解除します。

→ T_Item_vbslib フォルダ

イベントが発生したときに、登録されているコールバック関数を呼び出します。

Sub EventResponders::Add( Func as EventFunction, Responder as variant, Priority as integer )

イベントが発生したときにコールバックされる関数を登録します。

コールバックされる関数

イベントに応答するオブジェクト

caller_object.OnEventX.Add GetRef( "ResponderClass_OnEventX" ), Me, 1000

1000 が標準。
EventResponders のオブジェクトに登録した複数のコールバックのうち、
Priority が小さいものから先にコールバックされます。

Sub EventFunctionSample( Responder as variant, Caller as variant, Args as variant )

イベント関数。イベントが発生したらコールバックされる関数の型。

イベントに応答するオブジェクト

イベントが発生したオブジェクト

イベントのパラメーター（イベントの内容による）

caller_object.OnEventX.Remove Me

Sub EventResponders::Remove( Responder as variant )

コールバックされる関数を登録解除します。

イベントに応答するオブジェクト

Sub EventResponders::Calls( Caller as variant, Args as variant )

イベントが発生したときに使い、登録されているコールバック関数を全て呼び出します。

イベントが発生したオブジェクト

イベントのパラメーター（イベントの内容による）

Me.OnEventX.Calls Me, Empty

Class_Initialize でエラーが発生してもエラーが発生しない問題に対応します。

Function CreateGuid() as string

GUID を生成します。

2D7E3038-E395-460A-86CC-C8AB3C3D5D54

グローバル変数 g_TestModeFlags に、F_NotRandom を設定すると、
テスト・プログラム用に 00000000-0000-0000-0000-000000000000 から順番に
+1 された値が返ります。
g_TypeLib = 0 にすると、再び 1 から順番に値を返します。

Function KeyClass::IsSame( Key as object ) as boolean

Function KeyClass::SetKey( Key as object ) as object

キーとなるオブジェクトを登録します。一度しか登録できません。返り値は、Key です。

以前登録したキーと同じかどうかを判定します。

Dim g_AppKey

Dim AppKey : Set AppKey = new KeyClass ' for Ident only
Set g_AppKey = new KeyClass : g_AppKey.SetKey( AppKey )

If not g_AppKey.IsSame( AppKey ) Then Err.Raise 1,,"Invalied AppKey"

以前登録した特定のオブジェクトかどうかを判定します。
KeyClass から特定のオブジェクトを取得することはできないので、グローバルスコープに、
KeyClass オブジェクトを置いても、特定のオブジェクトへの参照を複製することから守ります。

ファイル、またはフォルダが同一かどうかを比較します。

ファイルまたはフォルダを削除します。

src から dst にファイルまたはフォルダをコピーします。

フォルダを作成します。

カレントフォルダを移動します。

src から dst にファイルまたはフォルダを移動します。

フォルダまたはファイルが存在するかどうかを返します。

テキストファイルの中で、指定したキーワードを含む行を返します。

指定のテキストを内容とした、テキストファイルを作成します。

ワイルドカードを展開します。サブ・フォルダーも検索します。

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

ファイル名を変更します。

相対パスを返します。

書き込み可能なフォルダの設定オブジェクトを生成します。

書き込み可能なフォルダを設定します。

書き込み可能でない場所にライトしたときの動きを設定します。

スクリプトが想定していない場所にライトしたときの警告

テキストファイルの内容を表示します。

コマンドプロンプト準拠関数

vbslib オリジナル関数

圧縮(zip)ファイルを解凍します。

FileSystemObject を参照するグローバル変数です。

ファイルを操作する主な関数を下に一覧します。
すべての関数は、左のツリーを展開してください。

テキストファイルを開きます。（リード用）

テキストファイルを開きます。（ライト用）

テキストファイルの内容を変更します。

フル・パスを返します。

テンポラリ・フォルダの中のパスを返します。

サブフォルダのオブジェクトを高速に辞書に列挙します。

指定した名前のファイルをライトするときにブレークさせます。

負荷が高いときに発生する書き込み拒否エラーに対処します。

一部がバイナリになっているテキストファイルを作成します。

CSV 形式の１行を解析して、配列に格納します。

XML ファイル、または XML 形式の文字列を読み込みます。

Sub cd( Path as string )

カレント・フォルダーを変更します。

存在しないフォルダを指定すると、E_WIN32_FILE_NOT_FOUND エラーになります。
ファイルのパスを指定すると、E_WIN32_DIRECTORY エラーになります。

cd "FolderA"
t = ReadFile( "File.txt" )

→ T_cd_do.vbs # cd

カレント・フォルダーの中にある FolderA フォルダーに、カレント・フォルダー
を変更します。 File.txt は、FolderA フォルダーにあるファイルになります。

現在のカレント・フォルダーを、プロセス起動時のカレント・フォルダーに
変更します。

main 関数、または main2 関数を呼ばれたときのカレント・フォルダーは、プロセス起動時
のカレント・フォルダーではなく、メイン.vbs ファイルがあるフォルダーになります。
メイン.vbs ファイルがあるフォルダーからの相対パスを指定するときは、cd 関数を呼び
出す必要はありません。 (この仕様は、vbslib4 から)

新しいカレント・フォルダーのパス

Sub funcA()
Dim ds_:Set ds_= new CurDirStack

cd "sub"
End Sub '// 元のフォルダに戻る

オブジェクトが破棄されるタイミングで、カレント・フォルダーを元に戻すオブジェクトです。
下記の場合、関数 funcA から返ると、CurDirStack オブジェクトのデストラクタで、関数に
入ったときのカレント・フォルダーに戻ります。

→ T_cd_do.vbs # CurDirStack

Sub pushd( dir as string )

カレントフォルダを移動します。ただし、popd で戻れるようにします。

→ T_cd_do.vbs # pushd

pushd "FolderA"
popd '// 元のフォルダに戻る

カレントフォルダを pushd する前に戻します。

→ T_cd_do.vbs # popd

pushd "FolderA"
popd '// 元のフォルダに戻る

Sub cd_UpperCaseDrive()

カレント・フォルダーのドライブの文字を大文字に変更します。

cd "c:\Folder"
cd_UpperCaseDrive
Assert g_sh.CurrentDirectory = "C:\Folder"

→ vbslib.vbs [cd_UpperCaseDrive]

→ T_cd_do.vbs # [T_cd_UpperCaseDrive]

SrcPath のファイルまたはフォルダを、DstFolderPath フォルダーの中にコピーします。

Sub copy( SrcPath as string, DstFolderPath as string )

copy 関数は、ファイルやフォルダの有無によって動きが変わらないようにするため、コマンド
プロンプトの copy や FileSystemObject の CopyFile 関数と、若干動きが異なります。
しかし、エクスプローラーなどの一般的なファイラーの動きと同じです。

DstFolderPath 引数

a.txt を dst_folder にコピーします
（dst_folderがフォルダのとき）

a.txt フォルダーを作成して、その中に a.txt を
コピーします

フォルダ aa を作成して、aa フォルダの中に
aa フォルダをコピーします

フォルダ aa を dst_folder の中にコピーします

ワイルドカード

ファイルとフォルダを dst_folder にコピーします

フォルダ bb を作成して、その中へファイルと
フォルダをコピーします。