競合文書の差分チェックを全自動で行うLotusScript

LotusNotesはデフォルトの設定では文書の排他制御を行っていません。1つの文書に同時に複数のユーザーが更新をした場合、最後に更新した文書が「正」の文書となり、他の文書が競合となります。
運用保守をしていると、競合している文書のどちらかを削除したいが、どちらの文書が正しいのかを判断するため、文書の差異を確認したいという問い合わせが来ることがあります。
そのため、競合している文書の全フィールド（システムフィールドを含む）の情報をテキストファイルに出力し、FileCompareするバッチファイルを作成した上で、キックまで行うスクリプトを作成してみました。

補足説明

• 文書の全フィールドの情報をテキストファイルに出力する処理は、「正」の文書も競合文書も同じ動作になるため、関数(ItemsOutPut) にして呼び出すようにしています。
• 変数 FileNum と FileName は、メイン処理と関数をまたいで使用するため、Declare での宣言となります。
• 出力先は C:\Temp で、ファイル名は「正」のNotes文書のユニバーサルIDを基準にしています。

Lotus Script

%REM
	Agent 競合チェック
	Created 2021/01/07 by Taro Yamada/Taro Yamada
	Description: Comments for Agent
%END REM
Option Public
Option Declare

	Dim FileNum As Integer
	Dim FileName As String
	
Sub Initialize
	
	Dim ss As New NotesSession
	Dim db As NotesDatabase
	Set db = ss.currentdatabase

	Dim ws As New NotesUIWorkspace
	Dim uiview As NotesUIView
	Dim view As NotesView
	Dim doc As NotesDocument
	Dim conf As NotesDocument
	'ファイル名はUNIDを使用する
	Dim Stamp As String
	Dim Stamp_Conf As String
	'DiffのDOSコマンド
	Dim Dos As String

	Set uiview = ws.Currentview
	Set view = uiview.View
	Set doc = view.GetFirstDocument
	While Not(doc Is Nothing)
		'競合文書であれば
		If doc.HasItem("$Conflict") Then
			Stamp_Conf = doc.Getitemvalue("$REF")(0)& "_Conf"
			'アイテムを全て書き出す
			Call ItemsOutPut(doc, Stamp_Conf)
			'競合先の文書を取得する
			Set Conf = db.GetDocumentByUNID(Stamp_Conf)
			Stamp = Conf.Universalid
			Call ItemsOutPut(Conf, Stamp)
			
			'差分チェックファイルの作成
			FileNum = FreeFile()
			FileName = "C:\Temp\" & Stamp & ".bat"
			Open FileName For Output As FileNum
			Dos = "fc /N " & "C:\Temp\" & Stamp & ".csv " &_
			"C:\Temp\" & Stamp_Conf & ".csv > C:\Temp\" & Stamp & "_FC.txt"
			Print #fileNum%, Dos
			Close fileNum
			
			'バッチファイルの実行
			Dim result As Integer
			result = Shell(FileName, 1)
			'Dim wsh As Variant
			'Set wsh = CreateObject("WScript.Shell")
			'wsh.Run FileName, 1, True
			
		End If

		Set doc = view.GetNextDocument(doc)
	Wend

End Sub
Sub Terminate
	
End Sub


%REM
	文書のフィールド情報書き出し処理
%END REM
Sub ItemsOutPut(doc As NotesDocument, Stamp As string)
	
	FileNum = FreeFile()
	FileName = "C:\Temp\" & Stamp & ".csv"
	
	Open fileName For Output As fileNum
	
	'自分自身の情報を書き出す
	ForAll item In doc.Items
		Write #fileNum, item.name & "," & item.text
	End ForAll

	Close fileNum

End Sub

実行結果

ファイルの種類について

ファイル名	内容	画像
Notes文書のユニバーサルID.csv	「正」の文書のフィールド情報リスト

|
|Notes文書のユニバーサルID_Conf.csv|競合文書のフィールド情報リスト|
|
|Notes文書のユニバーサルID.csv|「正」の文書と競合文書をFileCompareするバッチファイル|
|
|Notes文書のユニバーサルID.csv|バッチファイルの実行結果|
|

競合文書が２つ以上の場合について

このLotusScriptは正の文書と競合文書の２文書だけの状態を想定して書きましたが、この記事を書いているときに「複数の競合文書が作成される状況もある」ということに気付きました…。その場合は、ファイル名に連番を振るなどの記述を追記してください。（経験上、競合文書が2つ以上というのは、あまり見たことないですが……）