' 2 つのベースラインの間で変更されたバージョンとアクティビティ、
' および 2 つのベースラインの特定のアクティビティで変更されたバージョンについての
' 情報を表示します。
Dim CC As New ClearCase.Application
' ¥projects というタグが付いたプロジェクト VOB を取得します。
Dim PVOB As CCProjectVOB
Set PVOB = CC.ProjectVOB("¥projects")
' プロジェクト VOB 内の特定のベースラインを取得します。
Dim Baseline1 As CCBaseline
Dim Baseline2 As CCBaseline
Set Baseline1 = PVOB.Baseline("V1.0.BL2.0004.test@¥projects")
Set Baseline2 = PVOB.Baseline("V1.0.BL2.0005.test@¥projects")
' バージョン比較のためのビュー コンテキストを設定します。
ChDir "W:¥automation"
' ベースライン比較オブジェクトを作成し、比較する 2 つのベースラインを割り当てます。
Dim BaselineComp As CCBaselineComparison
Set BaselineComp = CC.CreateBaselineComparison
BaselineComp.BaselineOne = Baseline1
BaselineComp.BaselineTwo = Baseline2
' ベースラインの比較を実行します。
Dim Str As String
On Error Resume Next
BaselineComp.Compare
If Err.Number <> 0 Then
MsgBox "Error in baseline comparison: " & Err.Description
Else
Dim Versions As CCVersions
Dim Version As CCVersion
Set Versions = BaselineComp.VersionsInTwoButNotOne
Str = ""
For Each Version In Versions
Str = Str & Version.Identifier & vbCrLf
Next
If Str = "" Then
MsgBox "There are no versions in " & Baseline2.Title & _
"and not in " & Baseline1.Title
Else
MgBox "The versions in " & Baseline2.Title & " and not " & _
Baseline1.Title & " are: " & vbCrLf & Str
End If
Set Versions = BaselineComp.VersionsInOneButNotTwo
Str = ""
For Each Version In Versions
Str = Str & Version.Identifier & vbCrLf
Next
If Str = "" Then
MsgBox "There are no versions in " & Baseline1.Title & _
"and not in " & Baseline2.Title
Else
MsgBox "The versions in " & Baseline1.Title & " and not " & _
Baseline2.Title & " are: " & vbCrLf & Str
End If
' ベースライン間で変更されたアクティビティを表示します。
Dim Activity As CCActivity
Dim Activities As CCActivities
Set Activities = BaselineComp.ChangedActivities
Str = ""
For Each Activity In Activities
Str = Str & Activity.Name & vbCrLf
Next
If Str = "" Then
MsgBox "There are no changed activities between the baselines"
Else
MsgBox "Activities that changed between the baselines are:" & _
vbCrLf & Str
End If
End If