'// vbslib ヘッダが必要

Sub  Main( Opt, AppKey )
  Set w_= AppKey.NewWritable( g_sh.SpecialFolders( "desktop" ) + "\_RepliCmp" ).Enable()
  Dim opt : Set opt = new RepliCmp_Option
  opt.m_EditorPath = Setting_getEditorCmdLine(0)
  opt.m_DiffPath = Setting_getDiffCmdLine(0)

  folders = Array( _
    "data\folder0", _
    "data\folder1" )

  files = Array( _
    "file1.txt" )

  RepliCmp  folders, files, Opt
End Sub

RepliCmp

(src)

Sub  SyncFiles::AddRepliFile( Path as string )

内容が異なるファイルのうち、代表のファイルのパスを登録します

【引数】

Path

内容が異なるファイルの代表のパス

(src)

Sub  SyncFiles::AddSameFile( Path as string )

以前に AddRepliFile に指定したファイルと内容が同じファイルのパスを登録します

【引数】

Path

内容が同じファイルのパス

(src)

Sub  SyncFiles::NextSyncFile()

AddRepliFile, AddSameFile に指定するファイルを、次の同期セットに切り替えます。

(src)

'// vbslib ヘッダが必要

Sub main()
  Dim  patch_files : Set patch_files = new PatchFiles
  Dim  opt : Set opt = new Merge_Option

  opt.m_EditorPath = Setting_getEditorPath()
  opt.m_DiffPath = Setting_getDiffPath()

  With  patch_files
    Set .m_MergeOption = opt
    .m_OldFolderPath   = "C:\folder0"
    .m_PatchFolderPath = "C:\Patches"
    .m_NewFolderPath   = "C:\folder1"
  End With

  patch_files.AddPatchFile  "sub1\file1.txt"
  patch_files.AddPatchFile  "sub2\sub\file2.txt"

  Dim  old, new

  old = "folderA" : new = old
  patch_files.AddReplace  old, new, "folderA_org"
  patch_files.AddReplace  old, new, "folderA_plus"

  patch_files.AddRenamed  "sub2", "sub2A"

  patch_files.RunMergePrompt
End Sub

バージョンアップ・マージするときの手助けをするプロンプトです。

(src)

が下記のコードを出力します。

Merge.vbs

PatchSel::OutUpdateHelpScript

サンプル

Sub  PatchFiles::AddRenamed( OldPath as string, NewPath as string )

パッチの適用元が新しくなって、フォルダやファイルが移動したことを設定します。

【引数】

OldPath

移動前のパス（m_OldFolderPath からの相対パス）

NewPath

移動後のパス（m_NewFolderPath からの相対パス）

Sub  PatchFiles::AddPatchFile( StepPath as string )

比較するファイルを登録します。

【引数】

StepPath

surf

比較するファイル。

（出力） オブジェクトへのハンドル

Me.m_OldFolderPath, Me.m_NewFolderPath, Me.m_PatchFolderPath
からの相対パスです。

(src)

Sub  PatchFiles::AddReplace( OldStepPath as string, NewStepPath as string,
                             PatchStepPath  as string )

置き換えるファイルかフォルダを登録します。

【引数】

StepPath

surf

比較するファイルかフォルダ

（出力） オブジェクトへのハンドル

(src)

Sub  RunMergePrompt( Pathes as array of string, Opt as Merge_Option )

１つのファイルをマージする手助けをするプロンプトに入ります。

【引数】

Pathes

Opt

マージするファイルのパスの配列。(0) はマスター

オプション

Sub  RunMergeUpdate( NewPath as string, Pathes as array of string, Opt as Merge_Option )

同じ名前のファイルの内容を、すべて同じになるようにコピーします。

【引数】

NewPath

Pathes

コピーする内容が書かれたファイル

内容を変更するファイルが格納されたフォルダのパス

Opt

→ Merge_Option

Opt.m_SyncPathes には、Empty か、Pathes に追加するフォルダのパスが格納された配列を
指定します。

および、下記

Opt 引数

操作方法

→ マージ・ステップ Fin

(src)

内部フロー

RunMergeUpdate

RunMergeUpdateSub

'//=== Compare file with New file

b_equal( i ) = fc_r( NewPath, Pathes( i ), Empty )

i = input( "以上のファイルを更新しますか [Y/N]" )

If not b_equal( i ) Then

copy NewPath, Pathes(i)

new_path, Pathes, Opt

RunMergePrompt

Pathes, Opt

cscript PartCmp.vbs C:\file1.txt C:\file2.txt [start]