Option Explicit
 
Public Sub 新比較()
    Dim ssh As Worksheet
    Dim msh As Worksheet
    Dim sbsh As Worksheet
    Dim wrow As Long
    Dim wcol As Long
    Dim wcols As String
    Dim trow As Long
    Dim tcol As Long
    Dim tcols As String
    Dim maxrow_s, maxrow_m, maxrow_t As Long
    Dim dicT1 As Object         '項目管理（シート１）キー：列の値　内容：列名
    Dim dicT2 As Object         '項目管理（シート２）キー：列の値　内容：列名
    Dim dicTw As Object         '項目管理            キー：列名　　内容：0又は1（0=列名重複なし、1=列名重複あり）
    Dim dicTX As Object         '項目管理（シート１）キー：列の値　内容：列名（但し同じ列名には連番を付加）
    Dim dicN1 As Object         '項目管理（シート１）キー：列名　　内容：行番号
    Dim dicN2 As Object         '項目管理（シート２）キー：列名　　内容：行番号
    Dim dicR As Object          '項目管理（シート１／２）キー：シート１の列の値　　内容：シート２の列の値
    Dim ser_m As String      'ユニークキー列（シート１）
    Dim ser_t As String      'ユニークキー列（シート２）
    Dim Key As Variant
    Dim item As Variant
    Dim RC As Variant
    Dim SetFile As Variant
    Dim newSh As Worksheet
    Dim mwb As Workbook
    Dim twb As Workbook
    Dim tsh As Worksheet
    Dim maxrow_s2 As Long
    Dim rng As Range
    Dim sts_m As String     'ステータス列
    Set ssh = Worksheets("設定")
    Set dicT1 = CreateObject("Scripting.Dictionary")    ' 連想配列の定義
    Set dicT2 = CreateObject("Scripting.Dictionary")    ' 連想配列の定義
    Set dicTw = CreateObject("Scripting.Dictionary")    ' 連想配列の定義
    Set dicTX = CreateObject("Scripting.Dictionary")    ' 連想配列の定義
    Set dicN1 = CreateObject("Scripting.Dictionary")    ' 連想配列の定義
    Set dicN2 = CreateObject("Scripting.Dictionary")    ' 連想配列の定義
    Set dicR = CreateObject("Scripting.Dictionary")     ' 連想配列の定義
 
 
 
 
    '/////////////////////////////////コモンダイアログから転記先のシートを開く
 
    RC = MsgBox("書き込むファイルを選択してください。", vbYesNo + vbQuestion, "確認")
 
    If RC = vbNo Then Exit Sub
    SetFile = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
    If SetFile = "False" Then
        MsgBox "キャンセルしました"
        Exit Sub
    End If
 
    Set mwb = Workbooks.Open(SetFile)
    Set msh = mwb.Worksheets("管理表")
 
    Worksheets.Add After:=msh
    Set newSh = ActiveSheet
    newSh.name = "差分"
 
    Set sbsh = Worksheets("差分")
 
    '/////////////////////////////////後で書き換えます◎
 
    Sheets("管理表").Select
    Rows("1:4").Select
    Selection.Copy
    Sheets("差分").Select
    Rows("1:1").Select
    ActiveSheet.Paste
 
    Application.DisplayAlerts = True
    Application.CutCopyMode = True
 
 
    '/////////////////////////////////最大行の取得し、設定シートに記載した列を取得
    sts_m = ssh.Range("O3").Value  'ステータス列
    maxrow_s = ssh.Cells(Rows.Count, "G").End(xlUp).Row  'A列の最大行取得
    maxrow_s2 = ssh.Cells(Rows.Count, "L").End(xlUp).Row  '追加回答者 L列の最大行取得
    Set rng = ssh.Range("L2:L" & maxrow_s2)              '追加回答者
    ser_m = ""
    ser_t = ""
    '設定シート列取得
    For wrow = 3 To maxrow_s
        dicT1(ssh.Cells(wrow, "H").Value) = ssh.Cells(wrow, "G").Value
        dicT2(ssh.Cells(wrow, "I").Value) = ssh.Cells(wrow, "G").Value
        dicR(ssh.Cells(wrow, "H").Value) = ssh.Cells(wrow, "I").Value
        If ssh.Cells(wrow, "G").Value = "ユニークキー" Then
            ser_m = ssh.Cells(wrow, "H").Value
            ser_t = ssh.Cells(wrow, "I").Value
        End If
        Key = ssh.Cells(wrow, "G").Value
        If dicTw.Exists(Key) = False Then
            dicTw(Key) = 0
        Else
            dicTw(Key) = 1
        End If
    Next
    '重複している列のみを残す
    For Each Key In dicTw.keys()
        If dicTw(Key) = 0 Then
            dicTw.Remove (Key)
        End If
    Next
    '重複している列に連番を付加する
    For wrow = 3 To maxrow_s
        Key = ssh.Cells(wrow, "G").Value
        dicTX(ssh.Cells(wrow, "H").Value) = Key
        If dicTw.Exists(Key) = True Then
            dicTX(ssh.Cells(wrow, "H").Value) = dicTX(ssh.Cells(wrow, "H").Value) & dicTw(Key)
            dicTw(Key) = dicTw(Key) + 1
        End If
    Next
 
    If ser_m = "" Then
        MsgBox ("設定シートに「ユニークキー」の項目なし")
        Exit Sub
    End If
 
    '項目の列位置チェック
    For Each item In dicT1.keys()
        If msh.Cells(4, item).Value <> dicT1(item) Then
            msh.Cells(4, item).Interior.Color = vbYellow
            MsgBox ("シート１の列名不正:" & item & "=" & dicT1(item))
            Exit Sub
        End If
    Next
    maxrow_m = msh.Cells(Rows.Count, ser_m).End(xlUp).Row    'sheet1 ユニークキー列の最大行取得
    'ユニークキーの行を記憶
    For wrow = 5 To maxrow_m
        dicN1(msh.Cells(wrow, ser_m).Value) = wrow
    Next
    RC = MsgBox("参照するファイルを選択してください。", vbYesNo + vbQuestion, "確認")
    If RC = vbNo Then Exit Sub
    SetFile = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
    If SetFile = "False" Then
        MsgBox "キャンセルしました"
        Exit Sub
    End If
    Set twb = Workbooks.Open(SetFile)
    Set tsh = twb.Worksheets("管理表")
 
 
    '項目の列位置チェック
    For Each item In dicT2
        If tsh.Cells(3, item).Value <> dicT2(item) Then
            MsgBox ("シート２の列名不正:" & item & "=" & dicT2(item))
            Exit Sub
        End If
    Next
 
 
    maxrow_t = tsh.Cells(Rows.Count, ser_t).End(xlUp).Row    'sheet1 ユニークキー列の最大行取得
    'ユニークキーの行を記憶
    For wrow = 4 To maxrow_t
        dicN2(tsh.Cells(wrow, ser_t).Value) = wrow
    Next
 
 
 
    'DE,DF列をクリア
    msh.Range("DE5:DE" & maxrow_m).Value = ""
    msh.Range("DE5:DE" & maxrow_m).Interior.Pattern = xlNone
    msh.Range("DF5:DF" & maxrow_m).Value = ""
    msh.Range("DF5:DF" & maxrow_m).Interior.Pattern = xlNone
 
 
 
    '/////////////////////////////////比較⇒処理
 
    For wrow = 5 To maxrow_m
        Key = msh.Cells(wrow, ser_m).Value
        If IfInstrs(msh.Cells(wrow, ser_m).Value, rng) = True Then
            If msh.Cells(wrow, sts_m).Value = "設計OK" Or msh.Cells(wrow, sts_m).Value = "検討中" Then
                If dicN2.Exists(Key) = False Then
                    'シート１にありシート２にないユニークキーの処理
                    msh.Cells(wrow, "DE").Value = "レコード削除"
                    msh.Cells(wrow, "DE").Interior.Color = vbYellow
                Else
                    trow = dicN2(Key)
                    For Each item In dicR.keys()
                        If item <> ser_m Then
                            wcols = item
                            tcols = dicR(item)
                            If msh.Cells(wrow, wcols).Value = "" _
                               And tsh.Cells(trow, tcols).Value = "" Then
                            Else
                                '転記処理'
                                If msh.Cells(wrow, wcols).Value = "" Or msh.Cells(wrow, wcols).Value = "-" Then
                                    msh.Cells(wrow, wcols).Value = Trim(tsh.Cells(trow, tcols).Value)   '前後の空白を削除して転記
                                    'Debug.Print wcols, msh.Cells(wrow, wcols).Column
                                    msh.Cells(wrow, "DE").Value = add_colName(msh.Cells(wrow, "DE").Value, dicTX(item))
                                    msh.Cells(wrow, wcols).Interior.Color = vbCyan
                                Else
                                    '元データがあり差分がある場合、DE列に「変更あり」を記載し、黄色く色付け
                                    '差分ファイルに転記し色付け
                                    If msh.Cells(wrow, wcols).Value <> tsh.Cells(trow, tcols).Value Then
                                        msh.Cells(wrow, "DF").Interior.Color = vbYellow
                                        msh.Cells(wrow, "DF").Value = add_colName(msh.Cells(wrow, "DF").Value, dicTX(item))
                                        msh.Cells(wrow, wcols).Interior.Color = vbYellow
                                        sbsh.Cells(wrow, wcols).Value = tsh.Cells(trow, tcols).Value
                                        sbsh.Cells(wrow, wcols).Interior.Color = vbYellow
                                    End If
                                End If
                            End If
                        End If
                    Next
                    dicN2.Remove (Key)
                End If
            End If
        End If
    Next
 
 
    '/////////////////////////////////ユニークキーが追加されるようなことがある場合、ここをアクティブにする
 
    'シート２にありシート１にないユニークキーを追加する
    'wrow = maxrow_m + 1
    'For Each Key In dicN2
    '    trow = dicN2(Key)
    '    For Each item In dicR       '修正2020/3/14
    '        wcols = item            '修正2020/3/14
    '        tcols = dicR(item)      '修正2020/3/14
    '        msh.Cells(wrow, wcols).Value = tsh.Cells(trow, tcols).Value
    '    Next
    '    wrow = wrow + 1
    'Next
 
 
    '/////////////////////////////////ファイルを閉じて完了
 
    Application.DisplayAlerts = False
    twb.Close False
    Application.DisplayAlerts = True
    MsgBox "完了しました"
End Sub
 
Private Function IfInstrs(ByVal word As String, ByVal rng As Range) As Boolean
    Dim wrg As Range
    For Each wrg In rng
        If InStr(1, word, wrg.Value) > 0 Then
            IfInstrs = True
            Exit Function
        End If
    Next
    IfInstrs = False
End Function
 
Private Function add_colName(ByVal str As String, ByVal name As String) As String
    If str = "" Then
        add_colName = name
    Else
        add_colName = str & "/" & name
    End If
End Function
 

T3B0aW9uIEV4cGxpY2l0CgpQdWJsaWMgU3ViIOaWsOavlOi8gygpCiAgICBEaW0gc3NoIEFzIFdvcmtzaGVldAogICAgRGltIG1zaCBBcyBXb3Jrc2hlZXQKICAgIERpbSBzYnNoIEFzIFdvcmtzaGVldAogICAgRGltIHdyb3cgQXMgTG9uZwogICAgRGltIHdjb2wgQXMgTG9uZwogICAgRGltIHdjb2xzIEFzIFN0cmluZwogICAgRGltIHRyb3cgQXMgTG9uZwogICAgRGltIHRjb2wgQXMgTG9uZwogICAgRGltIHRjb2xzIEFzIFN0cmluZwogICAgRGltIG1heHJvd19zLCBtYXhyb3dfbSwgbWF4cm93X3QgQXMgTG9uZwogICAgRGltIGRpY1QxIEFzIE9iamVjdCAgICAgICAgICfpoIXnm67nrqHnkIbvvIjjgrfjg7zjg4jvvJHvvInjgq3jg7zvvJrliJfjga7lgKTjgIDlhoXlrrnvvJrliJflkI0KICAgIERpbSBkaWNUMiBBcyBPYmplY3QgICAgICAgICAn6aCF55uu566h55CG77yI44K344O844OI77yS77yJ44Kt44O877ya5YiX44Gu5YCk44CA5YaF5a6577ya5YiX5ZCNCiAgICBEaW0gZGljVHcgQXMgT2JqZWN0ICAgICAgICAgJ+mgheebrueuoeeQhiAgICAgICAgICAgIOOCreODvO+8muWIl+WQjeOAgOOAgOWGheWuue+8mjDlj4jjga8x77yIMD3liJflkI3ph43opIfjgarjgZfjgIExPeWIl+WQjemHjeikh+OBguOCiu+8iQogICAgRGltIGRpY1RYIEFzIE9iamVjdCAgICAgICAgICfpoIXnm67nrqHnkIbvvIjjgrfjg7zjg4jvvJHvvInjgq3jg7zvvJrliJfjga7lgKTjgIDlhoXlrrnvvJrliJflkI3vvIjkvYbjgZflkIzjgZjliJflkI3jgavjga/pgKPnlarjgpLku5jliqDvvIkKICAgIERpbSBkaWNOMSBBcyBPYmplY3QgICAgICAgICAn6aCF55uu566h55CG77yI44K344O844OI77yR77yJ44Kt44O877ya5YiX5ZCN44CA44CA5YaF5a6577ya6KGM55Wq5Y+3CiAgICBEaW0gZGljTjIgQXMgT2JqZWN0ICAgICAgICAgJ+mgheebrueuoeeQhu+8iOOCt+ODvOODiO+8ku+8ieOCreODvO+8muWIl+WQjeOAgOOAgOWGheWuue+8muihjOeVquWPtwogICAgRGltIGRpY1IgQXMgT2JqZWN0ICAgICAgICAgICfpoIXnm67nrqHnkIbvvIjjgrfjg7zjg4jvvJHvvI/vvJLvvInjgq3jg7zvvJrjgrfjg7zjg4jvvJHjga7liJfjga7lgKTjgIDjgIDlhoXlrrnvvJrjgrfjg7zjg4jvvJLjga7liJfjga7lgKQKICAgIERpbSBzZXJfbSBBcyBTdHJpbmcgICAgICAn44Om44OL44O844Kv44Kt44O85YiX77yI44K344O844OI77yR77yJCiAgICBEaW0gc2VyX3QgQXMgU3RyaW5nICAgICAgJ+ODpuODi+ODvOOCr+OCreODvOWIl++8iOOCt+ODvOODiO+8ku+8iQogICAgRGltIEtleSBBcyBWYXJpYW50CiAgICBEaW0gaXRlbSBBcyBWYXJpYW50CiAgICBEaW0gUkMgQXMgVmFyaWFudAogICAgRGltIFNldEZpbGUgQXMgVmFyaWFudAogICAgRGltIG5ld1NoIEFzIFdvcmtzaGVldAogICAgRGltIG13YiBBcyBXb3JrYm9vawogICAgRGltIHR3YiBBcyBXb3JrYm9vawogICAgRGltIHRzaCBBcyBXb3Jrc2hlZXQKICAgIERpbSBtYXhyb3dfczIgQXMgTG9uZwogICAgRGltIHJuZyBBcyBSYW5nZQogICAgRGltIHN0c19tIEFzIFN0cmluZyAgICAgJ+OCueODhuODvOOCv+OCueWIlwogICAgU2V0IHNzaCA9IFdvcmtzaGVldHMoIuioreWumiIpCiAgICBTZXQgZGljVDEgPSBDcmVhdGVPYmplY3QoIlNjcmlwdGluZy5EaWN0aW9uYXJ5IikgICAgJyDpgKPmg7PphY3liJfjga7lrprnvqkKICAgIFNldCBkaWNUMiA9IENyZWF0ZU9iamVjdCgiU2NyaXB0aW5nLkRpY3Rpb25hcnkiKSAgICAnIOmAo+aDs+mFjeWIl+OBruWumue+qQogICAgU2V0IGRpY1R3ID0gQ3JlYXRlT2JqZWN0KCJTY3JpcHRpbmcuRGljdGlvbmFyeSIpICAgICcg6YCj5oOz6YWN5YiX44Gu5a6a576pCiAgICBTZXQgZGljVFggPSBDcmVhdGVPYmplY3QoIlNjcmlwdGluZy5EaWN0aW9uYXJ5IikgICAgJyDpgKPmg7PphY3liJfjga7lrprnvqkKICAgIFNldCBkaWNOMSA9IENyZWF0ZU9iamVjdCgiU2NyaXB0aW5nLkRpY3Rpb25hcnkiKSAgICAnIOmAo+aDs+mFjeWIl+OBruWumue+qQogICAgU2V0IGRpY04yID0gQ3JlYXRlT2JqZWN0KCJTY3JpcHRpbmcuRGljdGlvbmFyeSIpICAgICcg6YCj5oOz6YWN5YiX44Gu5a6a576pCiAgICBTZXQgZGljUiA9IENyZWF0ZU9iamVjdCgiU2NyaXB0aW5nLkRpY3Rpb25hcnkiKSAgICAgJyDpgKPmg7PphY3liJfjga7lrprnvqkKCgoKCiAgICAnLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8v44Kz44Oi44Oz44OA44Kk44Ki44Ot44Kw44GL44KJ6Lui6KiY5YWI44Gu44K344O844OI44KS6ZaL44GPCgogICAgUkMgPSBNc2dCb3goIuabuOOBjei+vOOCgOODleOCoeOCpOODq+OCkumBuOaKnuOBl+OBpuOBj+OBoOOBleOBhOOAgiIsIHZiWWVzTm8gKyB2YlF1ZXN0aW9uLCAi56K66KqNIikKCiAgICBJZiBSQyA9IHZiTm8gVGhlbiBFeGl0IFN1YgogICAgU2V0RmlsZSA9IEFwcGxpY2F0aW9uLkdldE9wZW5GaWxlbmFtZSgiTWljcm9zb2Z0IEV4Y2Vs44OW44OD44KvLCoueGxzPyIpCiAgICBJZiBTZXRGaWxlID0gIkZhbHNlIiBUaGVuCiAgICAgICAgTXNnQm94ICLjgq3jg6Pjg7Pjgrvjg6vjgZfjgb7jgZfjgZ8iCiAgICAgICAgRXhpdCBTdWIKICAgIEVuZCBJZgoKICAgIFNldCBtd2IgPSBXb3JrYm9va3MuT3BlbihTZXRGaWxlKQogICAgU2V0IG1zaCA9IG13Yi5Xb3Jrc2hlZXRzKCLnrqHnkIbooagiKQoKICAgIFdvcmtzaGVldHMuQWRkIEFmdGVyOj1tc2gKICAgIFNldCBuZXdTaCA9IEFjdGl2ZVNoZWV0CiAgICBuZXdTaC5uYW1lID0gIuW3ruWIhiIKCiAgICBTZXQgc2JzaCA9IFdvcmtzaGVldHMoIuW3ruWIhiIpCgogICAgJy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vL+W+jOOBp+abuOOBjeaPm+OBiOOBvuOBmeKXjgoKICAgIFNoZWV0cygi566h55CG6KGoIikuU2VsZWN0CiAgICBSb3dzKCIxOjQiKS5TZWxlY3QKICAgIFNlbGVjdGlvbi5Db3B5CiAgICBTaGVldHMoIuW3ruWIhiIpLlNlbGVjdAogICAgUm93cygiMToxIikuU2VsZWN0CiAgICBBY3RpdmVTaGVldC5QYXN0ZQoKICAgIEFwcGxpY2F0aW9uLkRpc3BsYXlBbGVydHMgPSBUcnVlCiAgICBBcHBsaWNhdGlvbi5DdXRDb3B5TW9kZSA9IFRydWUKCgogICAgJy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vL+acgOWkp+ihjOOBruWPluW+l+OBl+OAgeioreWumuOCt+ODvOODiOOBq+iomOi8ieOBl+OBn+WIl+OCkuWPluW+lwogICAgc3RzX20gPSBzc2guUmFuZ2UoIk8zIikuVmFsdWUgICfjgrnjg4bjg7zjgr/jgrnliJcKICAgIG1heHJvd19zID0gc3NoLkNlbGxzKFJvd3MuQ291bnQsICJHIikuRW5kKHhsVXApLlJvdyAgJ0HliJfjga7mnIDlpKfooYzlj5blvpcKICAgIG1heHJvd19zMiA9IHNzaC5DZWxscyhSb3dzLkNvdW50LCAiTCIpLkVuZCh4bFVwKS5Sb3cgICfov73liqDlm57nrZTogIUgTOWIl+OBruacgOWkp+ihjOWPluW+lwogICAgU2V0IHJuZyA9IHNzaC5SYW5nZSgiTDI6TCIgJiBtYXhyb3dfczIpICAgICAgICAgICAgICAn6L+95Yqg5Zue562U6ICFCiAgICBzZXJfbSA9ICIiCiAgICBzZXJfdCA9ICIiCiAgICAn6Kit5a6a44K344O844OI5YiX5Y+W5b6XCiAgICBGb3Igd3JvdyA9IDMgVG8gbWF4cm93X3MKICAgICAgICBkaWNUMShzc2guQ2VsbHMod3JvdywgIkgiKS5WYWx1ZSkgPSBzc2guQ2VsbHMod3JvdywgIkciKS5WYWx1ZQogICAgICAgIGRpY1QyKHNzaC5DZWxscyh3cm93LCAiSSIpLlZhbHVlKSA9IHNzaC5DZWxscyh3cm93LCAiRyIpLlZhbHVlCiAgICAgICAgZGljUihzc2guQ2VsbHMod3JvdywgIkgiKS5WYWx1ZSkgPSBzc2guQ2VsbHMod3JvdywgIkkiKS5WYWx1ZQogICAgICAgIElmIHNzaC5DZWxscyh3cm93LCAiRyIpLlZhbHVlID0gIuODpuODi+ODvOOCr+OCreODvCIgVGhlbgogICAgICAgICAgICBzZXJfbSA9IHNzaC5DZWxscyh3cm93LCAiSCIpLlZhbHVlCiAgICAgICAgICAgIHNlcl90ID0gc3NoLkNlbGxzKHdyb3csICJJIikuVmFsdWUKICAgICAgICBFbmQgSWYKICAgICAgICBLZXkgPSBzc2guQ2VsbHMod3JvdywgIkciKS5WYWx1ZQogICAgICAgIElmIGRpY1R3LkV4aXN0cyhLZXkpID0gRmFsc2UgVGhlbgogICAgICAgICAgICBkaWNUdyhLZXkpID0gMAogICAgICAgIEVsc2UKICAgICAgICAgICAgZGljVHcoS2V5KSA9IDEKICAgICAgICBFbmQgSWYKICAgIE5leHQKICAgICfph43opIfjgZfjgabjgYTjgovliJfjga7jgb/jgpLmrovjgZkKICAgIEZvciBFYWNoIEtleSBJbiBkaWNUdy5rZXlzKCkKICAgICAgICBJZiBkaWNUdyhLZXkpID0gMCBUaGVuCiAgICAgICAgICAgIGRpY1R3LlJlbW92ZSAoS2V5KQogICAgICAgIEVuZCBJZgogICAgTmV4dAogICAgJ+mHjeikh+OBl+OBpuOBhOOCi+WIl+OBq+mAo+eVquOCkuS7mOWKoOOBmeOCiwogICAgRm9yIHdyb3cgPSAzIFRvIG1heHJvd19zCiAgICAgICAgS2V5ID0gc3NoLkNlbGxzKHdyb3csICJHIikuVmFsdWUKICAgICAgICBkaWNUWChzc2guQ2VsbHMod3JvdywgIkgiKS5WYWx1ZSkgPSBLZXkKICAgICAgICBJZiBkaWNUdy5FeGlzdHMoS2V5KSA9IFRydWUgVGhlbgogICAgICAgICAgICBkaWNUWChzc2guQ2VsbHMod3JvdywgIkgiKS5WYWx1ZSkgPSBkaWNUWChzc2guQ2VsbHMod3JvdywgIkgiKS5WYWx1ZSkgJiBkaWNUdyhLZXkpCiAgICAgICAgICAgIGRpY1R3KEtleSkgPSBkaWNUdyhLZXkpICsgMQogICAgICAgIEVuZCBJZgogICAgTmV4dAoKICAgIElmIHNlcl9tID0gIiIgVGhlbgogICAgICAgIE1zZ0JveCAoIuioreWumuOCt+ODvOODiOOBq+OAjOODpuODi+ODvOOCr+OCreODvOOAjeOBrumgheebruOBquOBlyIpCiAgICAgICAgRXhpdCBTdWIKICAgIEVuZCBJZgoKICAgICfpoIXnm67jga7liJfkvY3nva7jg4Hjgqfjg4Pjgq8KICAgIEZvciBFYWNoIGl0ZW0gSW4gZGljVDEua2V5cygpCiAgICAgICAgSWYgbXNoLkNlbGxzKDQsIGl0ZW0pLlZhbHVlIDw+IGRpY1QxKGl0ZW0pIFRoZW4KICAgICAgICAgICAgbXNoLkNlbGxzKDQsIGl0ZW0pLkludGVyaW9yLkNvbG9yID0gdmJZZWxsb3cKICAgICAgICAgICAgTXNnQm94ICgi44K344O844OI77yR44Gu5YiX5ZCN5LiN5q2jOiIgJiBpdGVtICYgIj0iICYgZGljVDEoaXRlbSkpCiAgICAgICAgICAgIEV4aXQgU3ViCiAgICAgICAgRW5kIElmCiAgICBOZXh0CiAgICBtYXhyb3dfbSA9IG1zaC5DZWxscyhSb3dzLkNvdW50LCBzZXJfbSkuRW5kKHhsVXApLlJvdyAgICAnc2hlZXQxIOODpuODi+ODvOOCr+OCreODvOWIl+OBruacgOWkp+ihjOWPluW+lwogICAgJ+ODpuODi+ODvOOCr+OCreODvOOBruihjOOCkuiomOaGtgogICAgRm9yIHdyb3cgPSA1IFRvIG1heHJvd19tCiAgICAgICAgZGljTjEobXNoLkNlbGxzKHdyb3csIHNlcl9tKS5WYWx1ZSkgPSB3cm93CiAgICBOZXh0CiAgICBSQyA9IE1zZ0JveCgi5Y+C54Wn44GZ44KL44OV44Kh44Kk44Or44KS6YG45oqe44GX44Gm44GP44Gg44GV44GE44CCIiwgdmJZZXNObyArIHZiUXVlc3Rpb24sICLnorroqo0iKQogICAgSWYgUkMgPSB2Yk5vIFRoZW4gRXhpdCBTdWIKICAgIFNldEZpbGUgPSBBcHBsaWNhdGlvbi5HZXRPcGVuRmlsZW5hbWUoIk1pY3Jvc29mdCBFeGNlbOODluODg+OCrywqLnhscz8iKQogICAgSWYgU2V0RmlsZSA9ICJGYWxzZSIgVGhlbgogICAgICAgIE1zZ0JveCAi44Kt44Oj44Oz44K744Or44GX44G+44GX44GfIgogICAgICAgIEV4aXQgU3ViCiAgICBFbmQgSWYKICAgIFNldCB0d2IgPSBXb3JrYm9va3MuT3BlbihTZXRGaWxlKQogICAgU2V0IHRzaCA9IHR3Yi5Xb3Jrc2hlZXRzKCLnrqHnkIbooagiKQoKCiAgICAn6aCF55uu44Gu5YiX5L2N572u44OB44Kn44OD44KvCiAgICBGb3IgRWFjaCBpdGVtIEluIGRpY1QyCiAgICAgICAgSWYgdHNoLkNlbGxzKDMsIGl0ZW0pLlZhbHVlIDw+IGRpY1QyKGl0ZW0pIFRoZW4KICAgICAgICAgICAgTXNnQm94ICgi44K344O844OI77yS44Gu5YiX5ZCN5LiN5q2jOiIgJiBpdGVtICYgIj0iICYgZGljVDIoaXRlbSkpCiAgICAgICAgICAgIEV4aXQgU3ViCiAgICAgICAgRW5kIElmCiAgICBOZXh0CgoKICAgIG1heHJvd190ID0gdHNoLkNlbGxzKFJvd3MuQ291bnQsIHNlcl90KS5FbmQoeGxVcCkuUm93ICAgICdzaGVldDEg44Om44OL44O844Kv44Kt44O85YiX44Gu5pyA5aSn6KGM5Y+W5b6XCiAgICAn44Om44OL44O844Kv44Kt44O844Gu6KGM44KS6KiY5oa2CiAgICBGb3Igd3JvdyA9IDQgVG8gbWF4cm93X3QKICAgICAgICBkaWNOMih0c2guQ2VsbHMod3Jvdywgc2VyX3QpLlZhbHVlKSA9IHdyb3cKICAgIE5leHQKCgoKICAgICdERSxERuWIl+OCkuOCr+ODquOCogogICAgbXNoLlJhbmdlKCJERTU6REUiICYgbWF4cm93X20pLlZhbHVlID0gIiIKICAgIG1zaC5SYW5nZSgiREU1OkRFIiAmIG1heHJvd19tKS5JbnRlcmlvci5QYXR0ZXJuID0geGxOb25lCiAgICBtc2guUmFuZ2UoIkRGNTpERiIgJiBtYXhyb3dfbSkuVmFsdWUgPSAiIgogICAgbXNoLlJhbmdlKCJERjU6REYiICYgbWF4cm93X20pLkludGVyaW9yLlBhdHRlcm4gPSB4bE5vbmUKCgoKICAgICcvLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy/mr5TovIPih5Llh6bnkIYKCiAgICBGb3Igd3JvdyA9IDUgVG8gbWF4cm93X20KICAgICAgICBLZXkgPSBtc2guQ2VsbHMod3Jvdywgc2VyX20pLlZhbHVlCiAgICAgICAgSWYgSWZJbnN0cnMobXNoLkNlbGxzKHdyb3csIHNlcl9tKS5WYWx1ZSwgcm5nKSA9IFRydWUgVGhlbgogICAgICAgICAgICBJZiBtc2guQ2VsbHMod3Jvdywgc3RzX20pLlZhbHVlID0gIuioreioiE9LIiBPciBtc2guQ2VsbHMod3Jvdywgc3RzX20pLlZhbHVlID0gIuaknOiojuS4rSIgVGhlbgogICAgICAgICAgICAgICAgSWYgZGljTjIuRXhpc3RzKEtleSkgPSBGYWxzZSBUaGVuCiAgICAgICAgICAgICAgICAgICAgJ+OCt+ODvOODiO+8keOBq+OBguOCiuOCt+ODvOODiO+8kuOBq+OBquOBhOODpuODi+ODvOOCr+OCreODvOOBruWHpueQhgogICAgICAgICAgICAgICAgICAgIG1zaC5DZWxscyh3cm93LCAiREUiKS5WYWx1ZSA9ICLjg6zjgrPjg7zjg4nliYrpmaQiCiAgICAgICAgICAgICAgICAgICAgbXNoLkNlbGxzKHdyb3csICJERSIpLkludGVyaW9yLkNvbG9yID0gdmJZZWxsb3cKICAgICAgICAgICAgICAgIEVsc2UKICAgICAgICAgICAgICAgICAgICB0cm93ID0gZGljTjIoS2V5KQogICAgICAgICAgICAgICAgICAgIEZvciBFYWNoIGl0ZW0gSW4gZGljUi5rZXlzKCkKICAgICAgICAgICAgICAgICAgICAgICAgSWYgaXRlbSA8PiBzZXJfbSBUaGVuCiAgICAgICAgICAgICAgICAgICAgICAgICAgICB3Y29scyA9IGl0ZW0KICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRjb2xzID0gZGljUihpdGVtKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgSWYgbXNoLkNlbGxzKHdyb3csIHdjb2xzKS5WYWx1ZSA9ICIiIF8KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIEFuZCB0c2guQ2VsbHModHJvdywgdGNvbHMpLlZhbHVlID0gIiIgVGhlbgogICAgICAgICAgICAgICAgICAgICAgICAgICAgRWxzZQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICfou6LoqJjlh6bnkIYnCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgSWYgbXNoLkNlbGxzKHdyb3csIHdjb2xzKS5WYWx1ZSA9ICIiIE9yIG1zaC5DZWxscyh3cm93LCB3Y29scykuVmFsdWUgPSAiLSIgVGhlbgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtc2guQ2VsbHMod3Jvdywgd2NvbHMpLlZhbHVlID0gVHJpbSh0c2guQ2VsbHModHJvdywgdGNvbHMpLlZhbHVlKSAgICfliY3lvozjga7nqbrnmb3jgpLliYrpmaTjgZfjgabou6LoqJgKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgJ0RlYnVnLlByaW50IHdjb2xzLCBtc2guQ2VsbHMod3Jvdywgd2NvbHMpLkNvbHVtbgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtc2guQ2VsbHMod3JvdywgIkRFIikuVmFsdWUgPSBhZGRfY29sTmFtZShtc2guQ2VsbHMod3JvdywgIkRFIikuVmFsdWUsIGRpY1RYKGl0ZW0pKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtc2guQ2VsbHMod3Jvdywgd2NvbHMpLkludGVyaW9yLkNvbG9yID0gdmJDeWFuCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgRWxzZQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAn5YWD44OH44O844K/44GM44GC44KK5beu5YiG44GM44GC44KL5aC05ZCI44CBREXliJfjgavjgIzlpInmm7TjgYLjgorjgI3jgpLoqJjovInjgZfjgIHpu4ToibLjgY/oibLku5jjgZEKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgJ+W3ruWIhuODleOCoeOCpOODq+OBq+i7ouiomOOBl+iJsuS7mOOBkQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBJZiBtc2guQ2VsbHMod3Jvdywgd2NvbHMpLlZhbHVlIDw+IHRzaC5DZWxscyh0cm93LCB0Y29scykuVmFsdWUgVGhlbgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbXNoLkNlbGxzKHdyb3csICJERiIpLkludGVyaW9yLkNvbG9yID0gdmJZZWxsb3cKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1zaC5DZWxscyh3cm93LCAiREYiKS5WYWx1ZSA9IGFkZF9jb2xOYW1lKG1zaC5DZWxscyh3cm93LCAiREYiKS5WYWx1ZSwgZGljVFgoaXRlbSkpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtc2guQ2VsbHMod3Jvdywgd2NvbHMpLkludGVyaW9yLkNvbG9yID0gdmJZZWxsb3cKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNic2guQ2VsbHMod3Jvdywgd2NvbHMpLlZhbHVlID0gdHNoLkNlbGxzKHRyb3csIHRjb2xzKS5WYWx1ZQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2JzaC5DZWxscyh3cm93LCB3Y29scykuSW50ZXJpb3IuQ29sb3IgPSB2YlllbGxvdwogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgICAgICAgICAgICAgICAgIEVuZCBJZgogICAgICAgICAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgICAgICAgICBOZXh0CiAgICAgICAgICAgICAgICAgICAgZGljTjIuUmVtb3ZlIChLZXkpCiAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgRW5kIElmCiAgICAgICAgRW5kIElmCiAgICBOZXh0CgoKICAgICcvLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy/jg6bjg4vjg7zjgq/jgq3jg7zjgYzov73liqDjgZXjgozjgovjgojjgYbjgarjgZPjgajjgYzjgYLjgovloLTlkIjjgIHjgZPjgZPjgpLjgqLjgq/jg4bjgqPjg5bjgavjgZnjgosKCiAgICAn44K344O844OI77yS44Gr44GC44KK44K344O844OI77yR44Gr44Gq44GE44Om44OL44O844Kv44Kt44O844KS6L+95Yqg44GZ44KLCiAgICAnd3JvdyA9IG1heHJvd19tICsgMQogICAgJ0ZvciBFYWNoIEtleSBJbiBkaWNOMgogICAgJyAgICB0cm93ID0gZGljTjIoS2V5KQogICAgJyAgICBGb3IgRWFjaCBpdGVtIEluIGRpY1IgICAgICAgJ+S/ruatozIwMjAvMy8xNAogICAgJyAgICAgICAgd2NvbHMgPSBpdGVtICAgICAgICAgICAgJ+S/ruatozIwMjAvMy8xNAogICAgJyAgICAgICAgdGNvbHMgPSBkaWNSKGl0ZW0pICAgICAgJ+S/ruatozIwMjAvMy8xNAogICAgJyAgICAgICAgbXNoLkNlbGxzKHdyb3csIHdjb2xzKS5WYWx1ZSA9IHRzaC5DZWxscyh0cm93LCB0Y29scykuVmFsdWUKICAgICcgICAgTmV4dAogICAgJyAgICB3cm93ID0gd3JvdyArIDEKICAgICdOZXh0CgoKICAgICcvLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy/jg5XjgqHjgqTjg6vjgpLplonjgZjjgablrozkuoYKCiAgICBBcHBsaWNhdGlvbi5EaXNwbGF5QWxlcnRzID0gRmFsc2UKICAgIHR3Yi5DbG9zZSBGYWxzZQogICAgQXBwbGljYXRpb24uRGlzcGxheUFsZXJ0cyA9IFRydWUKICAgIE1zZ0JveCAi5a6M5LqG44GX44G+44GX44GfIgpFbmQgU3ViCgpQcml2YXRlIEZ1bmN0aW9uIElmSW5zdHJzKEJ5VmFsIHdvcmQgQXMgU3RyaW5nLCBCeVZhbCBybmcgQXMgUmFuZ2UpIEFzIEJvb2xlYW4KICAgIERpbSB3cmcgQXMgUmFuZ2UKICAgIEZvciBFYWNoIHdyZyBJbiBybmcKICAgICAgICBJZiBJblN0cigxLCB3b3JkLCB3cmcuVmFsdWUpID4gMCBUaGVuCiAgICAgICAgICAgIElmSW5zdHJzID0gVHJ1ZQogICAgICAgICAgICBFeGl0IEZ1bmN0aW9uCiAgICAgICAgRW5kIElmCiAgICBOZXh0CiAgICBJZkluc3RycyA9IEZhbHNlCkVuZCBGdW5jdGlvbgoKUHJpdmF0ZSBGdW5jdGlvbiBhZGRfY29sTmFtZShCeVZhbCBzdHIgQXMgU3RyaW5nLCBCeVZhbCBuYW1lIEFzIFN0cmluZykgQXMgU3RyaW5nCiAgICBJZiBzdHIgPSAiIiBUaGVuCiAgICAgICAgYWRkX2NvbE5hbWUgPSBuYW1lCiAgICBFbHNlCiAgICAgICAgYWRkX2NvbE5hbWUgPSBzdHIgJiAiLyIgJiBuYW1lCiAgICBFbmQgSWYKRW5kIEZ1bmN0aW9uCg==