vbslib

(for Internet Explorer)

バイナリ・ファイルを比較します。

Function IsSameBinaryFile( PathA as string, PathB as string, Opt as integer ) as boolean

比較するファイル A のパス

２つのファイルの内容が同じかどうか

比較するファイル B のパス

Empty を指定してください

Assert IsSameBinaryFile( "FileA.jpg", "FileB.jpg", Empty )

→ FileT_isSameBinaryFile (clib)

PathA か PathB のどちらかのファイルがないときは、False を返します。
PathA か PathB の両方のファイルがないときは、True を返します。

IsSameBinaryFile は、

テキストファイルの拡張子の設定

Function IsSameFolder( PathA as string, PathB as string,
in_out_Options as variant ) as boolean

If IsSameFolder( folder_A, folder_B, Empty ) Then

フォルダーの内容が同じかどうか比較します。

オプション、または Empty

比較するフォルダー A のパス

比較するフォルダー B のパス

Empty または比較しないファイルまたはフォルダー名

２つのフォルダーの内容が同じかどうか

フォルダーの中のファイルの比較は、デフォルトでは、

違いがあったときに、そのパスを echo_v で表示します

サブ・フォルダーは調べません

Empty または、下記の定数の or、または、

Thumb.db などの隠しファイルを指定すれば、そのファイルは比較対象ではなくします。

PathA と PathB にファイルのパスを指定することもできます。

Set options = new OptionsFor_IsSameFolder_Class
options.BitFlags = c.EchoV_NotSame
options.ExceptNames = Array( "Thumbs.db" )
If IsSameFolder( folder_A, folder_B, options ) Then

ファイルを比較する関数。

.IsSameFileFunction_Parameter

IsSameFileFunction に指定した関数の第3引数に渡す値

拡張子によって比較する処理を変えたいときは、拡張子で分岐する関数を作成して、オプション
の IsSameFileFunction に指定してください。

c は、g_VBS_Lib の返り値です。

を指定できます。

で比較します。

指定した両方のフォルダーが存在しないときは、True を返します。

Function fc( PathA as string, PathB as string )

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

比較するファイルパスA、またはフォルダパスA

比較するファイルパスB、またはフォルダパスB

Assert fc( "result.txt", "ans.txt" )

vbslib.vbs が入ったフォルダに、feq.exe が必要です。

標準出力：ファイルの内容が同じだったとき

fc "result.txt", "ans.txt"
same.

fc "result.txt", "ans.txt"
different.

標準出力：ファイルの内容が違ったとき

標準出力：フォルダの内容が同じだったとき

fc "folder1", "folder2"
same.

標準出力：フォルダの内容が違ったとき

fc "folder1", "folder2"
Not found "sub\file1.txt" in "folder1"
Not found "sub2" in "folder2"
Not same "sub\file2.txt"
different.

If not fc( "result.txt", "ans.txt" ) Then raise E_TestFail,""

→ T_fc フォルダ

→ feq フォルダー

feq.exe のソース

→ T_feq フォルダー

Function fc_r( path_a as string, path_b as string, redirect_path as string ) as boolean

ファイルやフォルダの内容が同じかどうか調べます。

１つ目のファイルのパス、またはフォルダのパス

２つ目のファイルのパス、またはフォルダのパス

調べた結果の詳細の出力先のファイルパス、Empty、"nul" 可

vbslib.vbs が入ったフォルダに、feq.exe が必要です。

redirect_path の値

出力内容については、

Function fc_ex( PathA as string, PathB as string, Opt as fc_option ) as boolean

ファイルやフォルダの内容が同じかどうか調べます。

１つ目のファイルのパス、またはフォルダのパス

Empty またはオプション

vbslib.vbs が入ったフォルダに、feq.exe が必要です。

２つ目のファイルのパス、またはフォルダのパス

Class fc_option
Public FcOptionIniPath
Public FcResultRedirectPath
Public m_bStdOut
Public IsStartDiffIfNotSame
Public IsXmlComparedAsBinary
End Class

オプション指定ファイル fc.ini のパス

FcOptionIniPath、オプション指定ファイル fc.ini

[Excludes]
A = obj
A = proj\Debug
: :

比較を行わないファイルの一覧

IsStartDiffIfNotSame

違いが発見されたら、diff を起動。起動したら、False になります

diff ツールは、

で設定します。

結果を出力するファイルのパス

XML として同じでも、テキストが異なれば、異なると判定する

IsXmlComparedAsBinary

False なら、文字コードや空白文字などの違いがあっても、XML ドキュメントのデータが同じであれば
同じと判定します。
デフォルト（Empty）は True です。

→ T_XML.vbs # [T_CompareXml]

set_fc_option( new fc_option ).m_bStartDiff = True
If not fc( file_a, file_b ) Then Fail
If not fc( file_a, file_c ) Then Fail
set_fc_option Empty

Function set_fc_option( opt as fc_option ) as fc_option

のオプションを設定します。デバッグ用です。

サンプル： fc で違いが発見されたら、そのファイルに対して diff を起動します。

このオプションは、fc, fc_r, fc_ex のすべてに設定され、set_fc_option Empty するまで有効です。

返り値は、opt 引数がそのまま返ります。

Function diff( in_LeftPath as string, in_RightPath as string, in_OutputPath as string,
in_out_Option ) as string

diff を実行して、テキストファイルの内容を比較します。

１つ目の比較するテキストファイルのパス

２つ目の比較するテキストファイルのパス

比較した結果を出力するファイルのパス

Empty または get_ToolsLibConsts().DiffForPatch

1
<<<<<<< Left.txt
LLL
=======
RRR
>>>>>>> Right.txt
2
3

diff 関数は、内部で scriptlib\GPL に入っている

をコマンドライン経由で

呼び出し、Diffutils の出力「データ」を使用しています。このため、GPL の派生プログラムに
該当しない（両立する必要がない）ものと考えています。

Windows の GNU UNIX コマンドの注意

を守るための処理が行われています。

使い易くするため、ThreeWayMerge の内部で

diff "Left.txt", "Right.txt", "Output.txt", Empty

比較した結果（in_OutputPath = Empty のとき）

比較するテキストが同じ内容だったときは、その内容がそのまま出力されます。
in_out_Option = get_ToolsLibConsts().DiffForPatch を指定すると、unified 形式で出力されます。

GnuWin の diff とは異なり、Ascii コード以外の文字にも対応しています。
ただし、get_ToolsLibConsts().DiffForPatch を指定しても、GnuWin の patch には使えなくなり

Set tc = get_ToolsLibConsts()
diff "Left.txt", "Right.txt", "Output.txt", tc.DiffForPatch

--- Left.txt 2016-09-04 17:45:05.422985300 +0900
+++ Right.txt 2016-09-04 17:45:05.423985100 +0900
@@ -1,4 +1,4 @@
1
-LLL
+RRR
2
3

には使えます。

上記の差分は GUI で比較表示できます。

Function ParseUnifiedDiff( in_UnifiedDiff as string ) as UnifiedDiffClass

の出力（unified 形式）を解析します。

array < UnifiedOneDifferenceClass >

.PlusStart
.PlusOver
.MinusStart
.MinusOver

integer
integer
integer
integer

diff の出力（unified 形式）

追加開始行番号
追加の次の行番号
削除開始行番号
削除の次の行番号

→ diff の出力形式

Sub DiffWithoutKS( in_PathA as string, in_PathB as string, in_PathC as string,
in_Option as Empty or DiffCmdLineOptionClass )

SubVersion などの Keyword Substitution をカットしてから、フォルダーの内容を比較します。

１つ目の比較するフォルダーのパス

２つ目の比較するフォルダーのパス

Empty または、３つ目の比較するフォルダーのパス

デスクトップの _DiffWithoutKS フォルダーを作り、その中に Keyword Substitution をカットした
ファイルをコピーして、Diff ツールを開きます。

Diff ツールについては、

→ KS フォルダー

/*************************
* $Rev: 43 $
**************************/

/*************************
* $Rev: $
**************************/

→ SubVersion - Keyword Substitution

Sub patch( in_OldPath as string, in_DiffFilePath as string, in_OutputPath as string,
in_out_Option )

patch を実行して、テキストファイルの内容を更新します。（パッチをあてます）

パッチをあてる前のテキストファイルのパス

unified 形式の差分のテキストファイルのパス

パッチをあてた後のテキストファイルのパス

Empty を指定してください

GnuWin の diff とは異なり、Ascii コード以外の文字にも対応しています。

patch 関数は、内部で scriptlib\GPL に入っている

をコマンドライン経由で呼び出して

Sub ThreeWayMerge( in_BasePath as string, in_LeftPath as string, in_RightPath as string,
in_MergedOutputPath as string, in_out_Option as ThreeWayMergeOptionClass )

3ウェイマージ（3方向マージ）をします。

ブランチする前のテキストファイルのパス

ブランチ Left で更新したテキストファイルのパス

ブランチ Right で更新したテキストファイルのパス

Windows の GNU UNIX コマンドの注意

を守るための処理が行われています。

3ウェイマージした結果を出力するファイルのパス

コンフリクトが発生したら、E_Conflict エラーになります。
エラーのときでも、in_MergedOutputPath 引数に渡したパスにファイルが出力され、下記のように
コンフリクトしたことを示す内容が出力されます。 (diff3 では、一部自動的にマージします）

Empty またはオプション

<<<<<<< Left.txt
LLL
||||||| Base.txt
=======
RRR
>>>>>>> Right.txt

T_ThreeWayMerge など

使い易くするため、ThreeWayMerge の内部で

ThreeWayMerge は、内部で scriptlib\GPL に入っている

をコマンドライン経由で

上記の差分は GUI で比較表示できます。

→ diff3 の詳細なサンプル

True = 拡張自動マージ（デフォルト）、False = diff3 の -E 相当

今までにコンフリクトが発生したかどうか。初期値=False

.IsEnableToRaiseConflictError

コンフリクトが発生したらエラーにするかどうか。初期値=True

コンフリクトが発生したときの置き換えテンプレート。

マージ設定ファイルには、MergeTemplatePath タグに、
new_ReplaceTemplateClass 関数の引数に渡すパスを指定します。

のタグ名と同じです。一部異なる名前のものは下記に特記しています。

のオプションのクラスです。

の配列。正規表現で指定

コンフリクトが発生したら、それぞれ（左と右）を並べるかどうか。
初期値=False

ステップ実行を開始するステップ番号、Empty=ステップ実行しない

ステップ実行の詳細