vbslib

(for Internet Explorer)

Set patch_A = EnumerateToPatchAndBackUpDictionary( "PatchA" )
Set patch_B = EnumerateToPatchAndBackUpDictionary( "PatchB" )
state = CanAttachFriendPatchAndBackUpDictionary( patch_A, "Target\A", patch_B, "Target\B" )
If state = c.MustAttachAfterFriend or state = c.MustMergeWithFriend Then
Set patch = patch_A.Copy()
MergePatchAndBackUpDictionary patch, "Target\A", patch_B, "Target\B"
End If

Function CanAttachFriendPatchAndBackUpDictionary( _
in_AttachingPatch as PatchAndBackUpDictionaryClass, in_TargetRootPathOfAttaching as string, _
in_FriendPatch as PatchAndBackUpDictionaryClass, in_TargetRootPathOfFriend as string ) as integer

しなければならないかどうかを調べます。

先にアタッチするパッチA

後でアタッチするパッチF

CanAttachFriendPatchAndBackUpDictionary

T_PatchAndBackUp_Merge

複数のパッチをあてるときに

調べた結果（下記）

c.MustAttachAfterFriend

c.MustMergeWithFriend

パッチA とパッチF の両方をアタッチすることはできません

パッチA とパッチF の両方をアタッチするには、先にパッチF をあてるか、

返り値について

パッチA とパッチF の両方をアタッチすることができます

パッチA とパッチF の両方をアタッチするには、

する必要があります

下記のいずれかが返ります。なお、c = get_ToolsLibConsts() です。

in_TargetRootPathOfAttaching

Empty または、in_AttachingPatch パッチをあてる対象フォルダーのパス

in_TargetRootPathOfFriend

Empty または、in_FriendPatch パッチをあてる対象フォルダーのパス

in_TargetRootPathOfAttaching, in_TargetRootPathOfFriend 引数について

の in_TargetRootPathOfDestination 引数の説明

in_TargetRootPathOfAttaching と in_TargetRootPathOfFriend に配列を指定することもできます。

Sub AttachPatchAndBackUpDictionary(
in_out_LeafPathDictionary as dictionary of NameOnlyClass,
in_PatchAndBackUpDictionary as PatchAndBackUpDictionaryClass or string,
in_RootPathInLeafPath as string, _
in_out_Options as boolean or ThreeWayMergeOptionClass )

パッチをあてるように、ファイルの一覧を変更します

in_out_LeafPathDictionary

変更されるファイルパスの一覧

in_RootPathInLeafPath

in_PatchAndBackUpDictionary

パッチを当てる対象のルートのパス

パッチ（パッチファイルの一覧）

オプション（下記）、通常 True

バックアップファイルが同じ内容かどうかを調べるのに、

を使っています。

T_LeafPath_CheckBackUp

in_PatchAndBackUpDictionary 引数に文字列型の値を指定すると、内部で

を呼び出します。

ファイルのコピーを実際にするときは、AttachPatchAndBackUpDictionary で変更した後（変数の中でパッチを

を呼び出します。その関数の中で、

in_out_LeafPathDictionary 引数に値が Empty の変数を指定すると、その変数に

が格納されます。 in_RootPathInLeafPath が指すフォルダーに、in_PatchAndBackUpDictionary のパッチを
あてたファイルの一覧が格納されます。そのキーとアイテムには、フルパスが格納されます。

→ T_ModuleAssort.vbs

in_out_Options に boolean 型を指定したときは、バックアップファイルが同じ内容でなければエラーにするか

どうかを指定したことになります。 True を指定すると、バックアップにあるファイルが対象のフォルダーに
ないときでもエラーになります。

を指定することもできます。

手動でパッチをあてるときは、

in_out_LeafPathDictionary 引数と in_PatchAndBackUpDictionary 引数のキーとアイテムには、フルパスを
格納しておいてください。

バックアップファイルがあるフォルダーに対応するプロジェクト内のフォルダーと、パッチファイルがある
フォルダーに対応するプロジェクト内のフォルダーが異なるときは、

の in_TargetPath 引数に配列を指定することで、

プロジェクト内のフォルダーをそろえてください。

行頭の空白文字をタブ文字に変換します

→ T_ChangeTabSpace フォルダ

行頭のタブ文字を空白文字に変換します

行頭以外の空白文字をタブ文字に変換します

行頭以外のタブ文字を空白文字に変換します

Sub ChangeHeadSpaceToTab( ReadStream as TextStream, WriteStream as TextStream,
TabSize as integer )

行頭の空白文字をタブ文字に変換します。

変換前のテキスト・ファイル・ストリーム

変換後のテキスト・ファイル・ストリーム

１つのタブ文字あたりの空白文字の数

Sub ChangeHeadTabToSpace( ReadStream as TextStream, WriteStream as TextStream,
TabSize as integer )

行頭のタブ文字を空白文字に変換します。

変換前のテキスト・ファイル・ストリーム

変換後のテキスト・ファイル・ストリーム

１つのタブ文字あたりの空白文字の数

Set rep = StartReplace( "in\sample.c", "out\sample.c", True )
ChangeHeadTabToSpace rep.r, rep.w, 4
rep.Finish

Sub ChangeMiddleSpaceToTab( ReadStream as TextStream, WriteStream as TextStream,
TabSize as integer )

行頭以外の空白文字をタブ文字に変換します。

変換前のテキスト・ファイル・ストリーム

変換後のテキスト・ファイル・ストリーム

１つのタブ文字あたりの空白文字の数

Sub ChangeMiddleTabToSpace( ReadStream as TextStream, WriteStream as TextStream,
TabSize as integer )

行頭以外のタブ文字を空白文字に変換します。

変換前のテキスト・ファイル・ストリーム

変換後のテキスト・ファイル・ストリーム

１つのタブ文字あたりの空白文字の数

Sub SetBreakByFName( in_Path as string )

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

ブレークするファイル名

g_debug ≧ 1 のときだけブレークします。
vbslib の関数（copy、del、OpenForWrite など）ではない（g_fs.CopyFile など）関数によって
ライトしたときはブレークしません。

→ T_Debug フォルダ

SetBreakByFName "Out.txt" '// TODO:

Sub SetBreakByPath( in_Path as string, in_Count as integer )

何回目のライトでブレークするか。 Empty = 毎回

Function IsWriteAccessDenied( ErrNumber as integer, Path as string,
FolderOrFile as bitfield, in_out_nRetry as integer )

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

チェックするエラーコード

書き込み拒否エラーが発生したかどうか

VBScript (Windows) では、ファイルがロックされたときだけでなく、ディスク・アクセスの負荷が
高くなると、書き込み拒否エラー(エラーコード 70)が発生します。このエラーに対処しないと、
スクリプトによる自動実行が中断されてしまいます。 IsWriteAccessDenied は、書き込み拒否
エラーによってスクリプトが中断されないように、再試行するスクリプトの記述を補助します。

コマンドプロンプト(cscript.exe)で動く vbslib で、書き込み拒否エラーが発生したら、
次の警告を表示して、グローバル変数 g_FileSystemRetryMSec に指定した時間（ミリ秒）
（通常4秒）だけ Sleep します。グローバル変数 g_FileSystemMaxRetryMSec に指定した
時間（ミリ秒）（通常60秒）だけ再試行したら、書き込み拒否エラーを発生させます。
再試行は、IsWriteAccessDenied の内部では行いません。参考：下記サンプル。

ウィンドウ(wscript.exe)で動く vbslib で、書き込み拒否エラーが発生したら、次の警告を
表示して [ 再試行 ] か [ キャンセル ] を選ぶメッセージボックスが表示されます。
ユーザーが入力するまで自動実行は一時停止します。

書き込みできません。
[再試行] [キャンセル]

アクセスしたパス

（入出力）再試行回数

Dim f, path, n_retry, en, ed

n_retry = 0
Do
On Error Resume Next
Set f = g_fs.CreateTextFile( path )
en = Err.Number : ed = Err.Description : On Error GoTo 0
If not IsWriteAccessDenied( en, path, F_File, n_retry ) Then Exit Do
Loop
If en <> 0 Then Err.Raise en,,ed

サンプル：高負荷状態でも使える CreateTextFile

再試行ユーザーインターフェース

F_File または F_Folder または F_File or F_Folder

→ T_Replace_target.vbs # T_FromLock

→ T_Copy.vbs # T_CopyLocked

→ T_File.vbs # T_OverwriteFolderFile

書き込み拒否エラー(エラーコード 70)が発生する可能性があるものの例

g_fs.CopyFile, g_fs.CopyFolder, g_fs.MoveFile, g_fs.MoveFolder
g_fs.DeleteFolder, g_fs.CreateFolder
g_fs.CreateTextFile, g_fs.OpenTextFile
File::Name への代入による改名, ADODBStream::SaveToFile

vbslib が提供するファイル操作機能は、書き込み拒否エラーが発生しないように対処されて
いるため、IsWriteAccessDenied を呼び出す必要はありません。

→ T_File_w_Manually.vbs

→ T_File_c_Manually.vbs

SetReadOnlyAttribute "C:\Folder", False

指定のファイル、または、指定のフォルダーの中にあるすべてのファイルの、読み取り専用属性を変更します。

読み取り専用属性を変更するファイルが入ったフォルダーのフォルダーのパス

Sub SetReadOnlyAttribute( in_Path as string or Folder or File, in_IsReadOnly )

読み取り専用属性を変更するファイルのパス

読み取り専用属性を変更するファイルが入ったフォルダーの

読み取り専用属性を変更する

SetFilesToReadOnly "C:\Folder"

Sub SetFilesToReadOnly( in_Folder as string or Folder )

フォルダーの中にあるすべてのファイルを、読み取り専用にします。

読み取り専用に設定するファイルが入ったフォルダーの

この仕様は削除される予定です。代わり

SetFilesToNotReadOnly "C:\Folder"

Sub SetFilesToNotReadOnly( in_Folder as string or Folder )

フォルダーの中にあるすべてのファイルを、読み取り専用ではなくします。

読み取り専用を解除するファイルが入ったフォルダーの

この仕様は削除される予定です。代わり

SetFileToReadOnly "C:\Folder\File.txt"

Sub SetFileToReadOnly( in_File as string or File )

ファイルを読み取り専用にします。

読み取り専用に設定する

この仕様は削除される予定です。代わり

SetFileToNotReadOnly "C:\Folder\File.txt"

Sub SetFileToNotReadOnly( in_File as string or File )

ファイルを読み取り専用ではなくします。

読み取り専用を解除する

この仕様は削除される予定です。代わり