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, maxcol_m, maxrow_t, maxcol_t As Long
    Dim dicT1 As Object         '項目管理（シート１）
    Dim dicT2 As Object         '項目管理（シート２）
    Dim dicTw As Object         '項目管理
    Dim dicN1 As Object         '項目管理（シート１）
    Dim dicN2 As Object         '項目管理（シート２）
    Dim dicR As Object          '追加2020/3/14
    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        '追加　回答者
    Set ssh = Worksheets("設定")
    Set dicT1 = CreateObject("Scripting.Dictionary")    ' 連想配列の定義
    Set dicT2 = CreateObject("Scripting.Dictionary")    ' 連想配列の定義
    Set dicTw = CreateObject("Scripting.Dictionary")    ' 連想配列の定義
    Set dicN1 = CreateObject("Scripting.Dictionary")    ' 連想配列の定義
    Set dicN2 = CreateObject("Scripting.Dictionary")    ' 連想配列の定義
    Set dicR = CreateObject("Scripting.Dictionary")    ' 連想配列の定義 追加2020/3/14
 
 
 
 
'/////////////////////////////////コモンダイアログから転記先のシートを開く
 
    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
 
 
'/////////////////////////////////最大行の取得し、設定シートに記載した列を取得
 
    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)              '追加回答者
    '設定シート列取得
    For wrow = 3 To maxrow_s
        dicT1(ssh.Cells(wrow, "G").Value) = ssh.Cells(wrow, "H").Value
        dicT2(ssh.Cells(wrow, "G").Value) = ssh.Cells(wrow, "I").Value
        dicR(ssh.Cells(wrow, "H").Value) = ssh.Cells(wrow, "I").Value   '追加2020/3/14
    Next
 
    If dicT1.Exists("ユニークキー") = False Then
        MsgBox ("設定シートに「ユニークキー」の項目なし")
        Exit Sub
    End If
 
    ser_m = dicT1("ユニークキー")
    ser_t = dicT2("ユニークキー")
 
    '各項目を記憶(シート１の列指定部分)
    maxcol_m = msh.Cells(4, Columns.Count).End(xlToLeft).Column   '1行目の最終列を求める
    For wcol = 1 To maxcol_m
        dicTw(msh.Cells(4, wcol).Value) = wcol
    Next
 
 
    '項目存在チェック
    For Each item In dicT1
        If dicTw.Exists(item) = False Then
            MsgBox (item & "は管理表にありません")
            Exit Sub
        End If
    Next
 
 
    '項目の列位置チェック
    For Each item In dicT1
        wcols = dicT1(item)
        If msh.Cells(4, wcols).Value <> item Then
            msh.Cells(4, dicTw(item)).Interior.Color = vbYellow
            MsgBox ("処理中止しました")
            Exit Sub
        End If
    Next
 
 
    maxrow_m = msh.Cells(Rows.Count, ser_m).End(xlUp).Row    'sheet1 ユニークキー列の最大行取得
    'ユニークキーの行を記憶
    For wrow = 4 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("管理表")
 
 
    '各項目を記憶
    maxcol_t = tsh.Cells(3, Columns.Count).End(xlToLeft).Column   '1行目の最終列を求める
    dicTw.RemoveAll
    For wcol = 1 To maxcol_t
        dicTw(tsh.Cells(3, wcol).Value) = wcol
    Next
 
 
    '項目存在チェック
    For Each item In dicT2
        If dicTw.Exists(item) = False Then
            MsgBox (item & "は管理表にありません")
            Exit Sub
        End If
    Next
 
 
    '項目の列位置チェック
    For Each item In dicT2
        wcols = dicT2(item)
        If tsh.Cells(3, wcols).Value <> item Then
            MsgBox (item & "の列が異なります")
            Exit Sub
        End If
    Next
 
 
    maxrow_t = tsh.Cells(Rows.Count, ser_t).End(xlUp).Row    'sheet1 ユニークキー列の最大行取得
    'ユニークキーの行を記憶
    For wrow = 3 To maxrow_t
        dicN2(tsh.Cells(wrow, ser_t).Value) = wrow
    Next
 
 
 
    'DE列をクリア
    msh.Range("DE2:DE" & maxrow_m).Value = ""
    msh.Range("DE2:DE" & maxrow_m).Interior.Pattern = xlNone
 
 
 
'/////////////////////////////////比較⇒処理
 
    For wrow = 4 To maxrow_m
        Key = msh.Cells(wrow, ser_m).Value
 
        'If msh.Cells(wrow, "B").Value Like "*A*" _
        'Or msh.Cells(wrow, "B").Value Like "*B*" Then
        If IfInstrs(msh.Cells(wrow, "B").Value, rng) = True Then    '追加 回答者
        If msh.Cells(wrow, "G").Value = "設計OK" Or msh.Cells(wrow, "G").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               '修正2020/3/14
                If item <> ser_m Then           '修正2020/3/14
                    wcols = item                '修正2020/3/14
                    tcols = dicR(item)          '修正2020/3/14
 
 
                    If msh.Cells(wrow, wcols).Value = "" _
                    And tsh.Cells(trow, tcols).Value = "" Then
 
                    Else
                    '転記処理'
                    If msh.Cells(wrow, "B").Value Like "*A*" _
                    Or msh.Cells(wrow, "B").Value Like "*B*" Then
                    If msh.Cells(wrow, "G").Value = "設計OK" Or msh.Cells(wrow, "G").Value = "検討中" Then
                    If msh.Cells(wrow, wcols).Value = "" Or msh.Cells(wrow, wcols).Value = "-" Then
 
                        msh.Cells(wrow, wcols).Value = tsh.Cells(trow, tcols).Value
                        msh.Cells(wrow, "DE").Value = "転記あり"
                        msh.Cells(wrow, wcols).Interior.Color = vbCyan
                        msh.Cells(wrow, wcols).Interior.Color = vbCyan
 
                    Else
                        '元データがあり差分がある場合、DE列に「変更あり」を記載し、黄色く色付け
                        '差分ファイルに転記し色付け
                        If msh.Cells(wrow, "B").Value Like "*A*" _
                        Or msh.Cells(wrow, "B").Value Like "*B*" Then
                        If msh.Cells(wrow, "G").Value = "設計OK" Or msh.Cells(wrow, "G").Value = "検討中" Then
                        If msh.Cells(wrow, wcols).Value <> tsh.Cells(trow, tcols).Value Then
 
                            msh.Cells(wrow, "DF").Interior.Color = vbYellow
                            msh.Cells(wrow, "DF") = "変更あり"
                            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
                    End If
                    End If
                    End If
                End If
               Next
            '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
 
Public 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
 

T3B0aW9uIEV4cGxpY2l0CiAKUHVibGljIFN1YiDmlrDmr5TovIMoKQogICAgRGltIHNzaCBBcyBXb3Jrc2hlZXQKICAgIERpbSBtc2ggQXMgV29ya3NoZWV0CiAgICBEaW0gc2JzaCBBcyBXb3Jrc2hlZXQKICAgIERpbSB3cm93IEFzIExvbmcKICAgIERpbSB3Y29sIEFzIExvbmcKICAgIERpbSB3Y29scyBBcyBTdHJpbmcKICAgIERpbSB0cm93IEFzIExvbmcKICAgIERpbSB0Y29sIEFzIExvbmcKICAgIERpbSB0Y29scyBBcyBTdHJpbmcKICAgIERpbSBtYXhyb3dfcywgbWF4cm93X20sIG1heGNvbF9tLCBtYXhyb3dfdCwgbWF4Y29sX3QgQXMgTG9uZwogICAgRGltIGRpY1QxIEFzIE9iamVjdCAgICAgICAgICfpoIXnm67nrqHnkIbvvIjjgrfjg7zjg4jvvJHvvIkKICAgIERpbSBkaWNUMiBBcyBPYmplY3QgICAgICAgICAn6aCF55uu566h55CG77yI44K344O844OI77yS77yJCiAgICBEaW0gZGljVHcgQXMgT2JqZWN0ICAgICAgICAgJ+mgheebrueuoeeQhgogICAgRGltIGRpY04xIEFzIE9iamVjdCAgICAgICAgICfpoIXnm67nrqHnkIbvvIjjgrfjg7zjg4jvvJHvvIkKICAgIERpbSBkaWNOMiBBcyBPYmplY3QgICAgICAgICAn6aCF55uu566h55CG77yI44K344O844OI77yS77yJCiAgICBEaW0gZGljUiBBcyBPYmplY3QgICAgICAgICAgJ+i/veWKoDIwMjAvMy8xNAogICAgRGltIHNlcl9tIEFzIFN0cmluZyAgICAgICfjg6bjg4vjg7zjgq/jgq3jg7zliJfvvIjjgrfjg7zjg4jvvJHvvIkKICAgIERpbSBzZXJfdCBBcyBTdHJpbmcgICAgICAn44Om44OL44O844Kv44Kt44O85YiX77yI44K344O844OI77yS77yJCiAgICBEaW0gS2V5IEFzIFZhcmlhbnQKICAgIERpbSBpdGVtIEFzIFZhcmlhbnQKICAgIERpbSBSQyBBcyBWYXJpYW50CiAgICBEaW0gU2V0RmlsZSBBcyBWYXJpYW50CiAgICBEaW0gbmV3U2ggQXMgV29ya3NoZWV0CiAgICBEaW0gbXdiIEFzIFdvcmtib29rCiAgICBEaW0gdHdiIEFzIFdvcmtib29rCiAgICBEaW0gdHNoIEFzIFdvcmtzaGVldAogICAgRGltIG1heHJvd19zMiBBcyBMb25nICAgJ+i/veWKoOOAgOWbnuetlOiAhQogICAgRGltIHJuZyBBcyBSYW5nZSAgICAgICAgJ+i/veWKoOOAgOWbnuetlOiAhQogICAgU2V0IHNzaCA9IFdvcmtzaGVldHMoIuioreWumiIpCiAgICBTZXQgZGljVDEgPSBDcmVhdGVPYmplY3QoIlNjcmlwdGluZy5EaWN0aW9uYXJ5IikgICAgJyDpgKPmg7PphY3liJfjga7lrprnvqkKICAgIFNldCBkaWNUMiA9IENyZWF0ZU9iamVjdCgiU2NyaXB0aW5nLkRpY3Rpb25hcnkiKSAgICAnIOmAo+aDs+mFjeWIl+OBruWumue+qQogICAgU2V0IGRpY1R3ID0gQ3JlYXRlT2JqZWN0KCJTY3JpcHRpbmcuRGljdGlvbmFyeSIpICAgICcg6YCj5oOz6YWN5YiX44Gu5a6a576pCiAgICBTZXQgZGljTjEgPSBDcmVhdGVPYmplY3QoIlNjcmlwdGluZy5EaWN0aW9uYXJ5IikgICAgJyDpgKPmg7PphY3liJfjga7lrprnvqkKICAgIFNldCBkaWNOMiA9IENyZWF0ZU9iamVjdCgiU2NyaXB0aW5nLkRpY3Rpb25hcnkiKSAgICAnIOmAo+aDs+mFjeWIl+OBruWumue+qQogICAgU2V0IGRpY1IgPSBDcmVhdGVPYmplY3QoIlNjcmlwdGluZy5EaWN0aW9uYXJ5IikgICAgJyDpgKPmg7PphY3liJfjga7lrprnvqkg6L+95YqgMjAyMC8zLzE0CiAKIAogCiAKJy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vL+OCs+ODouODs+ODgOOCpOOCouODreOCsOOBi+OCiei7ouiomOWFiOOBruOCt+ODvOODiOOCkumWi+OBjwogCiAgICBSQyA9IE1zZ0JveCgi5pu444GN6L6844KA44OV44Kh44Kk44Or44KS6YG45oqe44GX44Gm44GP44Gg44GV44GE44CCIiwgdmJZZXNObyArIHZiUXVlc3Rpb24sICLnorroqo0iKQogCiAgICBJZiBSQyA9IHZiTm8gVGhlbiBFeGl0IFN1YgogICAgICAgIFNldEZpbGUgPSBBcHBsaWNhdGlvbi5HZXRPcGVuRmlsZW5hbWUoIk1pY3Jvc29mdCBFeGNlbOODluODg+OCrywqLnhscz8iKQogICAgICAgICAgICBJZiBTZXRGaWxlID0gIkZhbHNlIiBUaGVuCiAgICAgICAgICAgICAgICBNc2dCb3ggIuOCreODo+ODs+OCu+ODq+OBl+OBvuOBl+OBnyIKICAgICAgICBFeGl0IFN1YgogICAgRW5kIElmCiAKICAgIFNldCBtd2IgPSBXb3JrYm9va3MuT3BlbihTZXRGaWxlKQogICAgU2V0IG1zaCA9IG13Yi5Xb3Jrc2hlZXRzKCLnrqHnkIbooagiKQogCiAgICBXb3Jrc2hlZXRzLkFkZCBBZnRlcjo9bXNoCiAgICBTZXQgbmV3U2ggPSBBY3RpdmVTaGVldAogICAgICAgIG5ld1NoLk5hbWUgPSAi5beu5YiGIgogCiAgICBTZXQgc2JzaCA9IFdvcmtzaGVldHMoIuW3ruWIhiIpCiAKJy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vL+W+jOOBp+abuOOBjeaPm+OBiOOBvuOBmeKXjgogCiAgICBTaGVldHMoIueuoeeQhuihqCIpLlNlbGVjdAogICAgUm93cygiMTo0IikuU2VsZWN0CiAgICBTZWxlY3Rpb24uQ29weQogICAgU2hlZXRzKCLlt67liIYiKS5TZWxlY3QKICAgIFJvd3MoIjE6MSIpLlNlbGVjdAogICAgQWN0aXZlU2hlZXQuUGFzdGUKIAogICAgICAgIEFwcGxpY2F0aW9uLkRpc3BsYXlBbGVydHMgPSBUcnVlCiAgICAgICAgQXBwbGljYXRpb24uQ3V0Q29weU1vZGUgPSBUcnVlCiAKIAonLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8v5pyA5aSn6KGM44Gu5Y+W5b6X44GX44CB6Kit5a6a44K344O844OI44Gr6KiY6LyJ44GX44Gf5YiX44KS5Y+W5b6XCiAKICAgIG1heHJvd19zID0gc3NoLkNlbGxzKFJvd3MuQ291bnQsICJHIikuRW5kKHhsVXApLlJvdyAgJ0HliJfjga7mnIDlpKfooYzlj5blvpcKICAgIG1heHJvd19zMiA9IHNzaC5DZWxscyhSb3dzLkNvdW50LCAiTCIpLkVuZCh4bFVwKS5Sb3cgICfov73liqDlm57nrZTogIUgTOWIl+OBruacgOWkp+ihjOWPluW+lwogICAgU2V0IHJuZyA9IHNzaC5SYW5nZSgiTDI6TCIgJiBtYXhyb3dfczIpICAgICAgICAgICAgICAn6L+95Yqg5Zue562U6ICFCiAgICAn6Kit5a6a44K344O844OI5YiX5Y+W5b6XCiAgICBGb3Igd3JvdyA9IDMgVG8gbWF4cm93X3MKICAgICAgICBkaWNUMShzc2guQ2VsbHMod3JvdywgIkciKS5WYWx1ZSkgPSBzc2guQ2VsbHMod3JvdywgIkgiKS5WYWx1ZQogICAgICAgIGRpY1QyKHNzaC5DZWxscyh3cm93LCAiRyIpLlZhbHVlKSA9IHNzaC5DZWxscyh3cm93LCAiSSIpLlZhbHVlCiAgICAgICAgZGljUihzc2guQ2VsbHMod3JvdywgIkgiKS5WYWx1ZSkgPSBzc2guQ2VsbHMod3JvdywgIkkiKS5WYWx1ZSAgICfov73liqAyMDIwLzMvMTQKICAgIE5leHQKIAogICAgSWYgZGljVDEuRXhpc3RzKCLjg6bjg4vjg7zjgq/jgq3jg7wiKSA9IEZhbHNlIFRoZW4KICAgICAgICBNc2dCb3ggKCLoqK3lrprjgrfjg7zjg4jjgavjgIzjg6bjg4vjg7zjgq/jgq3jg7zjgI3jga7poIXnm67jgarjgZciKQogICAgICAgIEV4aXQgU3ViCiAgICBFbmQgSWYKIAogICAgc2VyX20gPSBkaWNUMSgi44Om44OL44O844Kv44Kt44O8IikKICAgIHNlcl90ID0gZGljVDIoIuODpuODi+ODvOOCr+OCreODvCIpCiAKICAgICflkITpoIXnm67jgpLoqJjmhrYo44K344O844OI77yR44Gu5YiX5oyH5a6a6YOo5YiGKQogICAgbWF4Y29sX20gPSBtc2guQ2VsbHMoNCwgQ29sdW1ucy5Db3VudCkuRW5kKHhsVG9MZWZ0KS5Db2x1bW4gICAnMeihjOebruOBruacgOe1guWIl+OCkuaxguOCgeOCiwogICAgRm9yIHdjb2wgPSAxIFRvIG1heGNvbF9tCiAgICAgICAgZGljVHcobXNoLkNlbGxzKDQsIHdjb2wpLlZhbHVlKSA9IHdjb2wKICAgIE5leHQKIAogCiAgICAn6aCF55uu5a2Y5Zyo44OB44Kn44OD44KvCiAgICBGb3IgRWFjaCBpdGVtIEluIGRpY1QxCiAgICAgICAgSWYgZGljVHcuRXhpc3RzKGl0ZW0pID0gRmFsc2UgVGhlbgogICAgICAgICAgICBNc2dCb3ggKGl0ZW0gJiAi44Gv566h55CG6KGo44Gr44GC44KK44G+44Gb44KTIikKICAgICAgICAgICAgRXhpdCBTdWIKICAgICAgICBFbmQgSWYKICAgIE5leHQKIAogCiAgICAn6aCF55uu44Gu5YiX5L2N572u44OB44Kn44OD44KvCiAgICBGb3IgRWFjaCBpdGVtIEluIGRpY1QxCiAgICAgICAgd2NvbHMgPSBkaWNUMShpdGVtKQogICAgICAgIElmIG1zaC5DZWxscyg0LCB3Y29scykuVmFsdWUgPD4gaXRlbSBUaGVuCiAgICAgICAgICAgIG1zaC5DZWxscyg0LCBkaWNUdyhpdGVtKSkuSW50ZXJpb3IuQ29sb3IgPSB2YlllbGxvdwogICAgICAgICAgICBNc2dCb3ggKCLlh6bnkIbkuK3mraLjgZfjgb7jgZfjgZ8iKQogICAgICAgICAgICBFeGl0IFN1YgogICAgICAgIEVuZCBJZgogICAgTmV4dAogCiAKICAgIG1heHJvd19tID0gbXNoLkNlbGxzKFJvd3MuQ291bnQsIHNlcl9tKS5FbmQoeGxVcCkuUm93ICAgICdzaGVldDEg44Om44OL44O844Kv44Kt44O85YiX44Gu5pyA5aSn6KGM5Y+W5b6XCiAgICAn44Om44OL44O844Kv44Kt44O844Gu6KGM44KS6KiY5oa2CiAgICBGb3Igd3JvdyA9IDQgVG8gbWF4cm93X20KICAgICAgICBkaWNOMShtc2guQ2VsbHMod3Jvdywgc2VyX20pLlZhbHVlKSA9IHdyb3cKICAgIE5leHQKICAgIFJDID0gTXNnQm94KCLlj4LnhafjgZnjgovjg5XjgqHjgqTjg6vjgpLpgbjmip7jgZfjgabjgY/jgaDjgZXjgYTjgIIiLCB2Ylllc05vICsgdmJRdWVzdGlvbiwgIueiuuiqjSIpCiAgICBJZiBSQyA9IHZiTm8gVGhlbiBFeGl0IFN1YgogICAgU2V0RmlsZSA9IEFwcGxpY2F0aW9uLkdldE9wZW5GaWxlbmFtZSgiTWljcm9zb2Z0IEV4Y2Vs44OW44OD44KvLCoueGxzPyIpCiAgICBJZiBTZXRGaWxlID0gIkZhbHNlIiBUaGVuCiAgICAgICAgTXNnQm94ICLjgq3jg6Pjg7Pjgrvjg6vjgZfjgb7jgZfjgZ8iCiAgICAgICAgRXhpdCBTdWIKICAgIEVuZCBJZgogICAgU2V0IHR3YiA9IFdvcmtib29rcy5PcGVuKFNldEZpbGUpCiAgICBTZXQgdHNoID0gdHdiLldvcmtzaGVldHMoIueuoeeQhuihqCIpCiAKIAogICAgJ+WQhOmgheebruOCkuiomOaGtgogICAgbWF4Y29sX3QgPSB0c2guQ2VsbHMoMywgQ29sdW1ucy5Db3VudCkuRW5kKHhsVG9MZWZ0KS5Db2x1bW4gICAnMeihjOebruOBruacgOe1guWIl+OCkuaxguOCgeOCiwogICAgZGljVHcuUmVtb3ZlQWxsCiAgICBGb3Igd2NvbCA9IDEgVG8gbWF4Y29sX3QKICAgICAgICBkaWNUdyh0c2guQ2VsbHMoMywgd2NvbCkuVmFsdWUpID0gd2NvbAogICAgTmV4dAogCiAKICAgICfpoIXnm67lrZjlnKjjg4Hjgqfjg4Pjgq8KICAgIEZvciBFYWNoIGl0ZW0gSW4gZGljVDIKICAgICAgICBJZiBkaWNUdy5FeGlzdHMoaXRlbSkgPSBGYWxzZSBUaGVuCiAgICAgICAgICAgIE1zZ0JveCAoaXRlbSAmICLjga/nrqHnkIbooajjgavjgYLjgorjgb7jgZvjgpMiKQogICAgICAgICAgICBFeGl0IFN1YgogICAgICAgIEVuZCBJZgogICAgTmV4dAogCiAKICAgICfpoIXnm67jga7liJfkvY3nva7jg4Hjgqfjg4Pjgq8KICAgIEZvciBFYWNoIGl0ZW0gSW4gZGljVDIKICAgICAgICB3Y29scyA9IGRpY1QyKGl0ZW0pCiAgICAgICAgSWYgdHNoLkNlbGxzKDMsIHdjb2xzKS5WYWx1ZSA8PiBpdGVtIFRoZW4KICAgICAgICAgICAgTXNnQm94IChpdGVtICYgIuOBruWIl+OBjOeVsOOBquOCiuOBvuOBmSIpCiAgICAgICAgICAgIEV4aXQgU3ViCiAgICAgICAgRW5kIElmCiAgICBOZXh0CiAKIAogICAgbWF4cm93X3QgPSB0c2guQ2VsbHMoUm93cy5Db3VudCwgc2VyX3QpLkVuZCh4bFVwKS5Sb3cgICAgJ3NoZWV0MSDjg6bjg4vjg7zjgq/jgq3jg7zliJfjga7mnIDlpKfooYzlj5blvpcKICAgICfjg6bjg4vjg7zjgq/jgq3jg7zjga7ooYzjgpLoqJjmhrYKICAgIEZvciB3cm93ID0gMyBUbyBtYXhyb3dfdAogICAgICAgIGRpY04yKHRzaC5DZWxscyh3cm93LCBzZXJfdCkuVmFsdWUpID0gd3JvdwogICAgTmV4dAogCiAKIAogICAgJ0RF5YiX44KS44Kv44Oq44KiCiAgICBtc2guUmFuZ2UoIkRFMjpERSIgJiBtYXhyb3dfbSkuVmFsdWUgPSAiIgogICAgbXNoLlJhbmdlKCJERTI6REUiICYgbWF4cm93X20pLkludGVyaW9yLlBhdHRlcm4gPSB4bE5vbmUKIAogCiAKJy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vL+avlOi8g+KHkuWHpueQhgogCiAgICBGb3Igd3JvdyA9IDQgVG8gbWF4cm93X20KICAgICAgICBLZXkgPSBtc2guQ2VsbHMod3Jvdywgc2VyX20pLlZhbHVlCiAKICAgICAgICAnSWYgbXNoLkNlbGxzKHdyb3csICJCIikuVmFsdWUgTGlrZSAiKkEqIiBfCiAgICAgICAgJ09yIG1zaC5DZWxscyh3cm93LCAiQiIpLlZhbHVlIExpa2UgIipCKiIgVGhlbgogICAgICAgIElmIElmSW5zdHJzKG1zaC5DZWxscyh3cm93LCAiQiIpLlZhbHVlLCBybmcpID0gVHJ1ZSBUaGVuICAgICfov73liqAg5Zue562U6ICFCiAgICAgICAgSWYgbXNoLkNlbGxzKHdyb3csICJHIikuVmFsdWUgPSAi6Kit6KiIT0siIE9yIG1zaC5DZWxscyh3cm93LCAiRyIpLlZhbHVlID0gIuaknOiojuS4rSIgVGhlbgogICAgICAgIElmIGRpY04yLkV4aXN0cyhLZXkpID0gRmFsc2UgVGhlbgogCiAKICAgICAgICAgICAgJ+OCt+ODvOODiO+8keOBq+OBguOCiuOCt+ODvOODiO+8kuOBq+OBquOBhOODpuODi+ODvOOCr+OCreODvOOBruWHpueQhgogICAgICAgICAgICBtc2guQ2VsbHMod3JvdywgIkRFIikuVmFsdWUgPSAi44Os44Kz44O844OJ5YmK6ZmkIgogICAgICAgICAgICBtc2guQ2VsbHMod3JvdywgIkRFIikuSW50ZXJpb3IuQ29sb3IgPSB2YlllbGxvdwogICAgICAgIEVsc2UKICAgICAgICAgICAgdHJvdyA9IGRpY04yKEtleSkKICAgICAgICAgICAgRm9yIEVhY2ggaXRlbSBJbiBkaWNSICAgICAgICAgICAgICAgJ+S/ruatozIwMjAvMy8xNAogICAgICAgICAgICAgICAgSWYgaXRlbSA8PiBzZXJfbSBUaGVuICAgICAgICAgICAn5L+u5q2jMjAyMC8zLzE0CiAgICAgICAgICAgICAgICAgICAgd2NvbHMgPSBpdGVtICAgICAgICAgICAgICAgICfkv67mraMyMDIwLzMvMTQKICAgICAgICAgICAgICAgICAgICB0Y29scyA9IGRpY1IoaXRlbSkgICAgICAgICAgJ+S/ruatozIwMjAvMy8xNAogCiAKICAgICAgICAgICAgICAgICAgICBJZiBtc2guQ2VsbHMod3Jvdywgd2NvbHMpLlZhbHVlID0gIiIgXwogICAgICAgICAgICAgICAgICAgIEFuZCB0c2guQ2VsbHModHJvdywgdGNvbHMpLlZhbHVlID0gIiIgVGhlbgogCiAgICAgICAgICAgICAgICAgICAgRWxzZQogICAgICAgICAgICAgICAgICAgICfou6LoqJjlh6bnkIYnCiAgICAgICAgICAgICAgICAgICAgSWYgbXNoLkNlbGxzKHdyb3csICJCIikuVmFsdWUgTGlrZSAiKkEqIiBfCiAgICAgICAgICAgICAgICAgICAgT3IgbXNoLkNlbGxzKHdyb3csICJCIikuVmFsdWUgTGlrZSAiKkIqIiBUaGVuCiAgICAgICAgICAgICAgICAgICAgSWYgbXNoLkNlbGxzKHdyb3csICJHIikuVmFsdWUgPSAi6Kit6KiIT0siIE9yIG1zaC5DZWxscyh3cm93LCAiRyIpLlZhbHVlID0gIuaknOiojuS4rSIgVGhlbgogICAgICAgICAgICAgICAgICAgIElmIG1zaC5DZWxscyh3cm93LCB3Y29scykuVmFsdWUgPSAiIiBPciBtc2guQ2VsbHMod3Jvdywgd2NvbHMpLlZhbHVlID0gIi0iIFRoZW4KIAogICAgICAgICAgICAgICAgICAgICAgICBtc2guQ2VsbHMod3Jvdywgd2NvbHMpLlZhbHVlID0gdHNoLkNlbGxzKHRyb3csIHRjb2xzKS5WYWx1ZQogICAgICAgICAgICAgICAgICAgICAgICBtc2guQ2VsbHMod3JvdywgIkRFIikuVmFsdWUgPSAi6Lui6KiY44GC44KKIgogICAgICAgICAgICAgICAgICAgICAgICBtc2guQ2VsbHMod3Jvdywgd2NvbHMpLkludGVyaW9yLkNvbG9yID0gdmJDeWFuCiAgICAgICAgICAgICAgICAgICAgICAgIG1zaC5DZWxscyh3cm93LCB3Y29scykuSW50ZXJpb3IuQ29sb3IgPSB2YkN5YW4KIAogICAgICAgICAgICAgICAgICAgIEVsc2UKICAgICAgICAgICAgICAgICAgICAgICAgJ+WFg+ODh+ODvOOCv+OBjOOBguOCiuW3ruWIhuOBjOOBguOCi+WgtOWQiOOAgURF5YiX44Gr44CM5aSJ5pu044GC44KK44CN44KS6KiY6LyJ44GX44CB6buE6Imy44GP6Imy5LuY44GRCiAgICAgICAgICAgICAgICAgICAgICAgICflt67liIbjg5XjgqHjgqTjg6vjgavou6LoqJjjgZfoibLku5jjgZEKICAgICAgICAgICAgICAgICAgICAgICAgSWYgbXNoLkNlbGxzKHdyb3csICJCIikuVmFsdWUgTGlrZSAiKkEqIiBfCiAgICAgICAgICAgICAgICAgICAgICAgIE9yIG1zaC5DZWxscyh3cm93LCAiQiIpLlZhbHVlIExpa2UgIipCKiIgVGhlbgogICAgICAgICAgICAgICAgICAgICAgICBJZiBtc2guQ2VsbHMod3JvdywgIkciKS5WYWx1ZSA9ICLoqK3oqIhPSyIgT3IgbXNoLkNlbGxzKHdyb3csICJHIikuVmFsdWUgPSAi5qSc6KiO5LitIiBUaGVuCiAgICAgICAgICAgICAgICAgICAgICAgIElmIG1zaC5DZWxscyh3cm93LCB3Y29scykuVmFsdWUgPD4gdHNoLkNlbGxzKHRyb3csIHRjb2xzKS5WYWx1ZSBUaGVuCiAKICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1zaC5DZWxscyh3cm93LCAiREYiKS5JbnRlcmlvci5Db2xvciA9IHZiWWVsbG93CiAgICAgICAgICAgICAgICAgICAgICAgICAgICBtc2guQ2VsbHMod3JvdywgIkRGIikgPSAi5aSJ5pu044GC44KKIgogICAgICAgICAgICAgICAgICAgICAgICAgICAgbXNoLkNlbGxzKHdyb3csIHdjb2xzKS5JbnRlcmlvci5Db2xvciA9IHZiWWVsbG93CiAgICAgICAgICAgICAgICAgICAgICAgICAgICBzYnNoLkNlbGxzKHdyb3csIHdjb2xzKS5WYWx1ZSA9IHRzaC5DZWxscyh0cm93LCB0Y29scykuVmFsdWUKICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNic2guQ2VsbHMod3Jvdywgd2NvbHMpLkludGVyaW9yLkNvbG9yID0gdmJZZWxsb3cKIAogICAgICAgICAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgICAgICAgICAgICAgRW5kIElmCiAgICAgICAgICAgICAgICAgICAgICAgIEVuZCBJZgogICAgICAgICAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgICAgIEVuZCBJZgogICAgICAgICAgICAgICBOZXh0CiAgICAgICAgICAgICdOZXh0CiAgICAgICAgICAgIGRpY04yLlJlbW92ZSAoS2V5KQogICAgICAgIEVuZCBJZgogICAgICAgIEVuZCBJZgogICAgICAgIEVuZCBJZgogICAgTmV4dAogCiAKJy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vL+ODpuODi+ODvOOCr+OCreODvOOBjOi/veWKoOOBleOCjOOCi+OCiOOBhuOBquOBk+OBqOOBjOOBguOCi+WgtOWQiOOAgeOBk+OBk+OCkuOCouOCr+ODhuOCo+ODluOBq+OBmeOCiwogCiAgICAn44K344O844OI77yS44Gr44GC44KK44K344O844OI77yR44Gr44Gq44GE44Om44OL44O844Kv44Kt44O844KS6L+95Yqg44GZ44KLCiAgICAnd3JvdyA9IG1heHJvd19tICsgMQogICAgJ0ZvciBFYWNoIEtleSBJbiBkaWNOMgogICAgJyAgICB0cm93ID0gZGljTjIoS2V5KQogICAgJyAgICBGb3IgRWFjaCBpdGVtIEluIGRpY1IgICAgICAgJ+S/ruatozIwMjAvMy8xNAogICAgJyAgICAgICAgd2NvbHMgPSBpdGVtICAgICAgICAgICAgJ+S/ruatozIwMjAvMy8xNAogICAgJyAgICAgICAgdGNvbHMgPSBkaWNSKGl0ZW0pICAgICAgJ+S/ruatozIwMjAvMy8xNAogICAgJyAgICAgICAgbXNoLkNlbGxzKHdyb3csIHdjb2xzKS5WYWx1ZSA9IHRzaC5DZWxscyh0cm93LCB0Y29scykuVmFsdWUKICAgICcgICAgTmV4dAogICAgJyAgICB3cm93ID0gd3JvdyArIDEKICAgICdOZXh0CiAKIAonLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8v44OV44Kh44Kk44Or44KS6ZaJ44GY44Gm5a6M5LqGCiAKICAgIEFwcGxpY2F0aW9uLkRpc3BsYXlBbGVydHMgPSBGYWxzZQogICAgdHdiLkNsb3NlIEZhbHNlCiAgICBBcHBsaWNhdGlvbi5EaXNwbGF5QWxlcnRzID0gVHJ1ZQogICAgTXNnQm94ICLlrozkuobjgZfjgb7jgZfjgZ8iCkVuZCBTdWIKClB1YmxpYyBGdW5jdGlvbiBJZkluc3RycyhCeVZhbCB3b3JkIEFzIFN0cmluZywgQnlWYWwgcm5nIEFzIFJhbmdlKSBBcyBCb29sZWFuCiAgICBEaW0gd3JnIEFzIFJhbmdlCiAgICBGb3IgRWFjaCB3cmcgSW4gcm5nCiAgICAgICAgSWYgSW5TdHIoMSwgd29yZCwgd3JnLlZhbHVlKSA+IDAgVGhlbgogICAgICAgICAgICBJZkluc3RycyA9IFRydWUKICAgICAgICAgICAgRXhpdCBGdW5jdGlvbgogICAgICAgIEVuZCBJZgogICAgTmV4dAogICAgSWZJbnN0cnMgPSBGYWxzZQpFbmQgRnVuY3Rpb24K