Option Explicit
 
Const Folder1 As String = "d:\goo\data10\IN"        '転記元ブック格納フォルダ
Const Folder2 As String = "d:\goo\data10\OUT"       '転記先ブック格納フォルダ
Const Book2 As String = "★【PGB】2024～2029年度 電源国内_PGB 投資予測_帳票"
Dim RE As Object        '正規表現オブジェクト
Dim ks1 As Worksheet    '管理シート
Dim ks2 As Worksheet    '変換結果シート
Dim k_maxrow1 As Long   '管理シート最大行番号
Dim k_maxrow2 As Long   '変換結果シート最大行番号
Dim ows1 As Worksheet   '投資用シート
Dim ows2 As Worksheet   '計上用シート
Dim dicT As Object      'ディクショナリ キー：装置名　値：予測の行番号
Public Sub 月度対応転記()
    Dim krow1 As Long       '管理シート行番号
    Dim sname As String     '装置名称
    Dim bname As String
    Dim bname2 As String    '転記先ブック名
    Dim bpath2 As String    '転記先ブックのパス名
    Dim wb1 As Workbook     '転記元ブック
    Dim wb2 As Workbook     '転記先ブック
    Dim out_mm As Long      '出力月数
    Application.ScreenUpdating = False
 
    Set dicT = CreateObject("Scripting.Dictionary")
    Set RE = CreateObject("VBScript.RegExp")
    RE.Pattern = "^\d{4}/\d{2}$"
    RE.Global = True
    Set ks1 = Worksheets("管理")
    Set ks2 = Worksheets("変換結果")
    out_mm = 0
    If IsNumeric(ks1.Range("E2").Value) = True Then
        out_mm = CLng(ks1.Range("E2").Value)
    End If
    If out_mm < 1 Or out_mm > 12 Then
        MsgBox ("管理シートの出力月が不正です")
        Exit Sub
    End If
    k_maxrow2 = 2
    '転記先ブックオープン
    bname2 = Book2 & ".xlsx"
    bpath2 = Folder2 & "\" & bname2
    Set wb2 = Workbooks.Open(bpath2)
    Set ows1 = wb2.Worksheets("国内_連結修正後")
    Set ows2 = wb2.Worksheets("国内_計上連結修正後")
    '投資用シート、計上用シート読込
    If check_out_sheet() = False Then Exit Sub
    '管理シート読込及び転記先名称のチェック
    k_maxrow1 = ks1.Cells(Rows.Count, "A").End(xlUp).Row
    For krow1 = 2 To k_maxrow1
        sname = ks1.Cells(krow1, "B").Value
        If dicT(sname) = False Then
            MsgBox ("管理シートの[" & sname & "]は転記先シートに存在しません")
            Exit Sub
        End If
    Next
 
    '転記元ブックの読込
    bname = Dir(Folder1 & "\*.xlsx")
    Application.Calculation = xlCalculationManual
    Do While bname <> ""
        Set wb1 = Workbooks.Open(Folder1 & "\" & bname)
        If read_all_sheets(wb1) = False Then
            Application.Calculation = xlCalculationAutomatic
            Exit Sub
        End If
        wb1.Close
        bname = Dir()
    Loop
    '転記先ブックの名称を変えて保存する
    Application.Calculation = xlCalculationAutomatic
    bname2 = Book2 & "_" & out_mm & "月予測.xlsx"
    bpath2 = Folder2 & "\" & bname2
    Application.DisplayAlerts = False
    wb2.SaveAs (bpath2)
    Application.DisplayAlerts = True
    wb2.Close
    Application.ScreenUpdating = True
    MsgBox ("完了")
End Sub
'転記先ブックのシートチェック
Private Function check_out_sheet() As Boolean
    Dim eflag As Boolean: eflag = False
    Dim maxrow1 As Long
    Dim maxrow2 As Long
    check_out_sheet = False
    maxrow1 = ows1.Cells(Rows.Count, "C").End(xlUp).Row
    maxrow2 = ows2.Cells(Rows.Count, "C").End(xlUp).Row
    If maxrow1 <> maxrow2 Then
        MsgBox ("転記先ブックの２つのシートの行数が不一致です")
        Exit Function
    End If
    If maxrow1 < 6 Then eflag = True
    If (maxrow1 - 2) Mod 4 <> 0 Then eflag = True
    If eflag = True Then
        MsgBox ("転記先ブックの２つのシートの行数が正しくありません")
        Exit Function
    End If
    Dim wrow As Long
    Dim key1 As String
    Dim key2 As String
    For wrow = 3 To maxrow1 Step 4
        key1 = ows1.Cells(wrow, "B").Value
        key2 = ows2.Cells(wrow, "B").Value
        If key1 <> key2 Then
            MsgBox ("転記先ブックの２つのシートの装置名の並びが不一致です")
            Exit Function
        End If
        dicT(key1) = wrow + 2    '予測の行を設定
    Next
    check_out_sheet = True
End Function
'転記元の全シートを処理する
Private Function read_all_sheets(ByRef wb1 As Workbook) As Boolean
    read_all_sheets = False
    Dim sarray As Variant
    Dim elm As Variant
    Dim result As Boolean
    '処理対象となるシートの一覧
    sarray = Array("D6110", "D6120", "D6125", "D6560")
    For Each elm In sarray
        If exist_sheet(wb1, elm) = True Then
            result = read_1_sheet(wb1, elm)
            If result = False Then Exit Function
        End If
    Next
    read_all_sheets = True
End Function
'指定シートがブック内にあるかチェックする
Private Function exist_sheet(ByRef wb1, ByVal elm As String)
    Dim i As Long
    exist_sheet = False
    For i = 1 To wb1.Worksheets.Count
        If UCase(elm) = UCase(wb1.Worksheets(i).Name) Then
            exist_sheet = True
            Exit Function
        End If
    Next
End Function
'1シートを処理する
Private Function read_1_sheet(ByRef wb1, ByVal elm As String)
    Dim ws As Worksheet
    Dim maxrow As Long
    Dim wrow As Long
    Dim wmonth As String
    Dim sname As String
    Dim t_mm As Long
    Dim k_mm As Long
    Dim tk_row As Long
    Dim t_col As Long
    Dim k_col As Long
    read_1_sheet = False
    Set ws = wb1.Worksheets(elm)
    maxrow = ws.Cells(Rows.Count, "A").End(xlUp).Row
    For wrow = 2 To maxrow
        '投資月チェック
        wmonth = ws.Cells(wrow, "C").Value
        t_mm = get_month(wmonth)
        If t_mm = 0 Then
            ws.Activate
            ws.Cells(wrow, "C").Select
            MsgBox ("転記元シート[" & elm & "]投資月エラー:" & wmonth)
            Exit Function
        End If
        '計上月チェック
        wmonth = ws.Cells(wrow, "D").Value
        k_mm = get_month(wmonth)
        If k_mm = 0 Then
            ws.Activate
            ws.Cells(wrow, "D").Select
            MsgBox ("転記元シート[" & elm & "]計上月エラー:" & wmonth)
            Exit Function
        End If
        '装置名チェック
        sname = ws.Cells(wrow, "B").Value
        If dicT.exists(sname) = False Then
            sname = get_sname(ws.Cells(wrow, "A").Value)
        End If
        '転記先の装置名が存在する場合
        If sname <> "" Then
            tk_row = dicT(sname)
            t_col = get_column(t_mm)
            k_col = get_column(k_mm)
            ows1.Cells(tk_row, t_col).Value = ws.Cells(wrow, "E").Value  '投資用金額
            ows2.Cells(tk_row, k_col).Value = ws.Cells(wrow, "E").Value  '計上用金額
        End If
    Next
    read_1_sheet = True
End Function
'月の取得 yyyy/mm からmmの数値を取得（0はエラー）
Private Function get_month(ByVal wmonth) As Long
    get_month = 0
    Dim w_mm As Long
    If RE.test(wmonth) = False Then Exit Function
    w_mm = CLng(Right(wmonth, 2))
    If w_mm < 1 Or w_mm > 12 Then Exit Function
    get_month = w_mm
End Function
'管理番号から転記先の装置名を取得する
Private Function get_sname(ByVal kbango As String)
    Dim ptn As String
    Dim wrow As Long
    For wrow = 2 To k_maxrow1
        ptn = ks1.Cells(wrow, "A").Value
        If kbango Like ptn Then
            get_sname = ks1.Cells(wrow, "B").Value
            ks2.Cells(k_maxrow2, "A").Value = kbango
            ks2.Cells(k_maxrow2, "B").Value = ptn
            ks2.Cells(k_maxrow2, "C").Value = ks1.Cells(wrow, "B").Value
            k_maxrow2 = k_maxrow2 + 1
            Exit Function
        End If
    Next
    get_sname = ""
End Function
'月数からカラム番号を取得する
Private Function get_column(ByVal mm As Long) As Long
    Dim bias As Long: bias = 1
    If mm < 4 Then mm = mm + 12
    If mm > 9 Then bias = bias + 1
    get_column = mm + bias
End Function
 

T3B0aW9uIEV4cGxpY2l0CgpDb25zdCBGb2xkZXIxIEFzIFN0cmluZyA9ICJkOlxnb29cZGF0YTEwXElOIiAgICAgICAgJ+i7ouiomOWFg+ODluODg+OCr+agvOe0jeODleOCqeODq+ODgApDb25zdCBGb2xkZXIyIEFzIFN0cmluZyA9ICJkOlxnb29cZGF0YTEwXE9VVCIgICAgICAgJ+i7ouiomOWFiOODluODg+OCr+agvOe0jeODleOCqeODq+ODgApDb25zdCBCb29rMiBBcyBTdHJpbmcgPSAi4piF44CQUEdC44CRMjAyNO+9njIwMjnlubTluqYg6Zu75rqQ5Zu95YaFX1BHQiDmipXos4fkuojmuKxf5biz56WoIgpEaW0gUkUgQXMgT2JqZWN0ICAgICAgICAn5q2j6KaP6KGo54++44Kq44OW44K444Kn44Kv44OICkRpbSBrczEgQXMgV29ya3NoZWV0ICAgICfnrqHnkIbjgrfjg7zjg4gKRGltIGtzMiBBcyBXb3Jrc2hlZXQgICAgJ+WkieaPm+e1kOaenOOCt+ODvOODiApEaW0ga19tYXhyb3cxIEFzIExvbmcgICAn566h55CG44K344O844OI5pyA5aSn6KGM55Wq5Y+3CkRpbSBrX21heHJvdzIgQXMgTG9uZyAgICflpInmj5vntZDmnpzjgrfjg7zjg4jmnIDlpKfooYznlarlj7cKRGltIG93czEgQXMgV29ya3NoZWV0ICAgJ+aKleizh+eUqOOCt+ODvOODiApEaW0gb3dzMiBBcyBXb3Jrc2hlZXQgICAn6KiI5LiK55So44K344O844OICkRpbSBkaWNUIEFzIE9iamVjdCAgICAgICfjg4fjgqPjgq/jgrfjg6fjg4rjg6og44Kt44O877ya6KOF572u5ZCN44CA5YCk77ya5LqI5ris44Gu6KGM55Wq5Y+3ClB1YmxpYyBTdWIg5pyI5bqm5a++5b+c6Lui6KiYKCkKICAgIERpbSBrcm93MSBBcyBMb25nICAgICAgICfnrqHnkIbjgrfjg7zjg4jooYznlarlj7cKICAgIERpbSBzbmFtZSBBcyBTdHJpbmcgICAgICfoo4Xnva7lkI3np7AKICAgIERpbSBibmFtZSBBcyBTdHJpbmcKICAgIERpbSBibmFtZTIgQXMgU3RyaW5nICAgICfou6LoqJjlhYjjg5bjg4Pjgq/lkI0KICAgIERpbSBicGF0aDIgQXMgU3RyaW5nICAgICfou6LoqJjlhYjjg5bjg4Pjgq/jga7jg5HjgrnlkI0KICAgIERpbSB3YjEgQXMgV29ya2Jvb2sgICAgICfou6LoqJjlhYPjg5bjg4Pjgq8KICAgIERpbSB3YjIgQXMgV29ya2Jvb2sgICAgICfou6LoqJjlhYjjg5bjg4Pjgq8KICAgIERpbSBvdXRfbW0gQXMgTG9uZyAgICAgICflh7rlipvmnIjmlbAKICAgIEFwcGxpY2F0aW9uLlNjcmVlblVwZGF0aW5nID0gRmFsc2UKCiAgICBTZXQgZGljVCA9IENyZWF0ZU9iamVjdCgiU2NyaXB0aW5nLkRpY3Rpb25hcnkiKQogICAgU2V0IFJFID0gQ3JlYXRlT2JqZWN0KCJWQlNjcmlwdC5SZWdFeHAiKQogICAgUkUuUGF0dGVybiA9ICJeXGR7NH0vXGR7Mn0kIgogICAgUkUuR2xvYmFsID0gVHJ1ZQogICAgU2V0IGtzMSA9IFdvcmtzaGVldHMoIueuoeeQhiIpCiAgICBTZXQga3MyID0gV29ya3NoZWV0cygi5aSJ5o+b57WQ5p6cIikKICAgIG91dF9tbSA9IDAKICAgIElmIElzTnVtZXJpYyhrczEuUmFuZ2UoIkUyIikuVmFsdWUpID0gVHJ1ZSBUaGVuCiAgICAgICAgb3V0X21tID0gQ0xuZyhrczEuUmFuZ2UoIkUyIikuVmFsdWUpCiAgICBFbmQgSWYKICAgIElmIG91dF9tbSA8IDEgT3Igb3V0X21tID4gMTIgVGhlbgogICAgICAgIE1zZ0JveCAoIueuoeeQhuOCt+ODvOODiOOBruWHuuWKm+aciOOBjOS4jeato+OBp+OBmSIpCiAgICAgICAgRXhpdCBTdWIKICAgIEVuZCBJZgogICAga19tYXhyb3cyID0gMgogICAgJ+i7ouiomOWFiOODluODg+OCr+OCquODvOODl+ODswogICAgYm5hbWUyID0gQm9vazIgJiAiLnhsc3giCiAgICBicGF0aDIgPSBGb2xkZXIyICYgIlwiICYgYm5hbWUyCiAgICBTZXQgd2IyID0gV29ya2Jvb2tzLk9wZW4oYnBhdGgyKQogICAgU2V0IG93czEgPSB3YjIuV29ya3NoZWV0cygi5Zu95YaFX+mAo+e1kOS/ruato+W+jCIpCiAgICBTZXQgb3dzMiA9IHdiMi5Xb3Jrc2hlZXRzKCLlm73lhoVf6KiI5LiK6YCj57WQ5L+u5q2j5b6MIikKICAgICfmipXos4fnlKjjgrfjg7zjg4jjgIHoqIjkuIrnlKjjgrfjg7zjg4joqq3ovrwKICAgIElmIGNoZWNrX291dF9zaGVldCgpID0gRmFsc2UgVGhlbiBFeGl0IFN1YgogICAgJ+euoeeQhuOCt+ODvOODiOiqrei+vOWPiuOBs+i7ouiomOWFiOWQjeensOOBruODgeOCp+ODg+OCrwogICAga19tYXhyb3cxID0ga3MxLkNlbGxzKFJvd3MuQ291bnQsICJBIikuRW5kKHhsVXApLlJvdwogICAgRm9yIGtyb3cxID0gMiBUbyBrX21heHJvdzEKICAgICAgICBzbmFtZSA9IGtzMS5DZWxscyhrcm93MSwgIkIiKS5WYWx1ZQogICAgICAgIElmIGRpY1Qoc25hbWUpID0gRmFsc2UgVGhlbgogICAgICAgICAgICBNc2dCb3ggKCLnrqHnkIbjgrfjg7zjg4jjga5bIiAmIHNuYW1lICYgIl3jga/ou6LoqJjlhYjjgrfjg7zjg4jjgavlrZjlnKjjgZfjgb7jgZvjgpMiKQogICAgICAgICAgICBFeGl0IFN1YgogICAgICAgIEVuZCBJZgogICAgTmV4dAoKICAgICfou6LoqJjlhYPjg5bjg4Pjgq/jga7oqq3ovrwKICAgIGJuYW1lID0gRGlyKEZvbGRlcjEgJiAiXCoueGxzeCIpCiAgICBBcHBsaWNhdGlvbi5DYWxjdWxhdGlvbiA9IHhsQ2FsY3VsYXRpb25NYW51YWwKICAgIERvIFdoaWxlIGJuYW1lIDw+ICIiCiAgICAgICAgU2V0IHdiMSA9IFdvcmtib29rcy5PcGVuKEZvbGRlcjEgJiAiXCIgJiBibmFtZSkKICAgICAgICBJZiByZWFkX2FsbF9zaGVldHMod2IxKSA9IEZhbHNlIFRoZW4KICAgICAgICAgICAgQXBwbGljYXRpb24uQ2FsY3VsYXRpb24gPSB4bENhbGN1bGF0aW9uQXV0b21hdGljCiAgICAgICAgICAgIEV4aXQgU3ViCiAgICAgICAgRW5kIElmCiAgICAgICAgd2IxLkNsb3NlCiAgICAgICAgYm5hbWUgPSBEaXIoKQogICAgTG9vcAogICAgJ+i7ouiomOWFiOODluODg+OCr+OBruWQjeensOOCkuWkieOBiOOBpuS/neWtmOOBmeOCiwogICAgQXBwbGljYXRpb24uQ2FsY3VsYXRpb24gPSB4bENhbGN1bGF0aW9uQXV0b21hdGljCiAgICBibmFtZTIgPSBCb29rMiAmICJfIiAmIG91dF9tbSAmICLmnIjkuojmuKwueGxzeCIKICAgIGJwYXRoMiA9IEZvbGRlcjIgJiAiXCIgJiBibmFtZTIKICAgIEFwcGxpY2F0aW9uLkRpc3BsYXlBbGVydHMgPSBGYWxzZQogICAgd2IyLlNhdmVBcyAoYnBhdGgyKQogICAgQXBwbGljYXRpb24uRGlzcGxheUFsZXJ0cyA9IFRydWUKICAgIHdiMi5DbG9zZQogICAgQXBwbGljYXRpb24uU2NyZWVuVXBkYXRpbmcgPSBUcnVlCiAgICBNc2dCb3ggKCLlrozkuoYiKQpFbmQgU3ViCifou6LoqJjlhYjjg5bjg4Pjgq/jga7jgrfjg7zjg4jjg4Hjgqfjg4Pjgq8KUHJpdmF0ZSBGdW5jdGlvbiBjaGVja19vdXRfc2hlZXQoKSBBcyBCb29sZWFuCiAgICBEaW0gZWZsYWcgQXMgQm9vbGVhbjogZWZsYWcgPSBGYWxzZQogICAgRGltIG1heHJvdzEgQXMgTG9uZwogICAgRGltIG1heHJvdzIgQXMgTG9uZwogICAgY2hlY2tfb3V0X3NoZWV0ID0gRmFsc2UKICAgIG1heHJvdzEgPSBvd3MxLkNlbGxzKFJvd3MuQ291bnQsICJDIikuRW5kKHhsVXApLlJvdwogICAgbWF4cm93MiA9IG93czIuQ2VsbHMoUm93cy5Db3VudCwgIkMiKS5FbmQoeGxVcCkuUm93CiAgICBJZiBtYXhyb3cxIDw+IG1heHJvdzIgVGhlbgogICAgICAgIE1zZ0JveCAoIui7ouiomOWFiOODluODg+OCr+OBru+8kuOBpOOBruOCt+ODvOODiOOBruihjOaVsOOBjOS4jeS4gOiHtOOBp+OBmSIpCiAgICAgICAgRXhpdCBGdW5jdGlvbgogICAgRW5kIElmCiAgICBJZiBtYXhyb3cxIDwgNiBUaGVuIGVmbGFnID0gVHJ1ZQogICAgSWYgKG1heHJvdzEgLSAyKSBNb2QgNCA8PiAwIFRoZW4gZWZsYWcgPSBUcnVlCiAgICBJZiBlZmxhZyA9IFRydWUgVGhlbgogICAgICAgIE1zZ0JveCAoIui7ouiomOWFiOODluODg+OCr+OBru+8kuOBpOOBruOCt+ODvOODiOOBruihjOaVsOOBjOato+OBl+OBj+OBguOCiuOBvuOBm+OCkyIpCiAgICAgICAgRXhpdCBGdW5jdGlvbgogICAgRW5kIElmCiAgICBEaW0gd3JvdyBBcyBMb25nCiAgICBEaW0ga2V5MSBBcyBTdHJpbmcKICAgIERpbSBrZXkyIEFzIFN0cmluZwogICAgRm9yIHdyb3cgPSAzIFRvIG1heHJvdzEgU3RlcCA0CiAgICAgICAga2V5MSA9IG93czEuQ2VsbHMod3JvdywgIkIiKS5WYWx1ZQogICAgICAgIGtleTIgPSBvd3MyLkNlbGxzKHdyb3csICJCIikuVmFsdWUKICAgICAgICBJZiBrZXkxIDw+IGtleTIgVGhlbgogICAgICAgICAgICBNc2dCb3ggKCLou6LoqJjlhYjjg5bjg4Pjgq/jga7vvJLjgaTjga7jgrfjg7zjg4jjga7oo4Xnva7lkI3jga7kuKbjgbPjgYzkuI3kuIDoh7TjgafjgZkiKQogICAgICAgICAgICBFeGl0IEZ1bmN0aW9uCiAgICAgICAgRW5kIElmCiAgICAgICAgZGljVChrZXkxKSA9IHdyb3cgKyAyICAgICfkuojmuKzjga7ooYzjgpLoqK3lrpoKICAgIE5leHQKICAgIGNoZWNrX291dF9zaGVldCA9IFRydWUKRW5kIEZ1bmN0aW9uCifou6LoqJjlhYPjga7lhajjgrfjg7zjg4jjgpLlh6bnkIbjgZnjgosKUHJpdmF0ZSBGdW5jdGlvbiByZWFkX2FsbF9zaGVldHMoQnlSZWYgd2IxIEFzIFdvcmtib29rKSBBcyBCb29sZWFuCiAgICByZWFkX2FsbF9zaGVldHMgPSBGYWxzZQogICAgRGltIHNhcnJheSBBcyBWYXJpYW50CiAgICBEaW0gZWxtIEFzIFZhcmlhbnQKICAgIERpbSByZXN1bHQgQXMgQm9vbGVhbgogICAgJ+WHpueQhuWvvuixoeOBqOOBquOCi+OCt+ODvOODiOOBruS4gOimpwogICAgc2FycmF5ID0gQXJyYXkoIkQ2MTEwIiwgIkQ2MTIwIiwgIkQ2MTI1IiwgIkQ2NTYwIikKICAgIEZvciBFYWNoIGVsbSBJbiBzYXJyYXkKICAgICAgICBJZiBleGlzdF9zaGVldCh3YjEsIGVsbSkgPSBUcnVlIFRoZW4KICAgICAgICAgICAgcmVzdWx0ID0gcmVhZF8xX3NoZWV0KHdiMSwgZWxtKQogICAgICAgICAgICBJZiByZXN1bHQgPSBGYWxzZSBUaGVuIEV4aXQgRnVuY3Rpb24KICAgICAgICBFbmQgSWYKICAgIE5leHQKICAgIHJlYWRfYWxsX3NoZWV0cyA9IFRydWUKRW5kIEZ1bmN0aW9uCifmjIflrprjgrfjg7zjg4jjgYzjg5bjg4Pjgq/lhoXjgavjgYLjgovjgYvjg4Hjgqfjg4Pjgq/jgZnjgosKUHJpdmF0ZSBGdW5jdGlvbiBleGlzdF9zaGVldChCeVJlZiB3YjEsIEJ5VmFsIGVsbSBBcyBTdHJpbmcpCiAgICBEaW0gaSBBcyBMb25nCiAgICBleGlzdF9zaGVldCA9IEZhbHNlCiAgICBGb3IgaSA9IDEgVG8gd2IxLldvcmtzaGVldHMuQ291bnQKICAgICAgICBJZiBVQ2FzZShlbG0pID0gVUNhc2Uod2IxLldvcmtzaGVldHMoaSkuTmFtZSkgVGhlbgogICAgICAgICAgICBleGlzdF9zaGVldCA9IFRydWUKICAgICAgICAgICAgRXhpdCBGdW5jdGlvbgogICAgICAgIEVuZCBJZgogICAgTmV4dApFbmQgRnVuY3Rpb24KJzHjgrfjg7zjg4jjgpLlh6bnkIbjgZnjgosKUHJpdmF0ZSBGdW5jdGlvbiByZWFkXzFfc2hlZXQoQnlSZWYgd2IxLCBCeVZhbCBlbG0gQXMgU3RyaW5nKQogICAgRGltIHdzIEFzIFdvcmtzaGVldAogICAgRGltIG1heHJvdyBBcyBMb25nCiAgICBEaW0gd3JvdyBBcyBMb25nCiAgICBEaW0gd21vbnRoIEFzIFN0cmluZwogICAgRGltIHNuYW1lIEFzIFN0cmluZwogICAgRGltIHRfbW0gQXMgTG9uZwogICAgRGltIGtfbW0gQXMgTG9uZwogICAgRGltIHRrX3JvdyBBcyBMb25nCiAgICBEaW0gdF9jb2wgQXMgTG9uZwogICAgRGltIGtfY29sIEFzIExvbmcKICAgIHJlYWRfMV9zaGVldCA9IEZhbHNlCiAgICBTZXQgd3MgPSB3YjEuV29ya3NoZWV0cyhlbG0pCiAgICBtYXhyb3cgPSB3cy5DZWxscyhSb3dzLkNvdW50LCAiQSIpLkVuZCh4bFVwKS5Sb3cKICAgIEZvciB3cm93ID0gMiBUbyBtYXhyb3cKICAgICAgICAn5oqV6LOH5pyI44OB44Kn44OD44KvCiAgICAgICAgd21vbnRoID0gd3MuQ2VsbHMod3JvdywgIkMiKS5WYWx1ZQogICAgICAgIHRfbW0gPSBnZXRfbW9udGgod21vbnRoKQogICAgICAgIElmIHRfbW0gPSAwIFRoZW4KICAgICAgICAgICAgd3MuQWN0aXZhdGUKICAgICAgICAgICAgd3MuQ2VsbHMod3JvdywgIkMiKS5TZWxlY3QKICAgICAgICAgICAgTXNnQm94ICgi6Lui6KiY5YWD44K344O844OIWyIgJiBlbG0gJiAiXeaKleizh+aciOOCqOODqeODvDoiICYgd21vbnRoKQogICAgICAgICAgICBFeGl0IEZ1bmN0aW9uCiAgICAgICAgRW5kIElmCiAgICAgICAgJ+ioiOS4iuaciOODgeOCp+ODg+OCrwogICAgICAgIHdtb250aCA9IHdzLkNlbGxzKHdyb3csICJEIikuVmFsdWUKICAgICAgICBrX21tID0gZ2V0X21vbnRoKHdtb250aCkKICAgICAgICBJZiBrX21tID0gMCBUaGVuCiAgICAgICAgICAgIHdzLkFjdGl2YXRlCiAgICAgICAgICAgIHdzLkNlbGxzKHdyb3csICJEIikuU2VsZWN0CiAgICAgICAgICAgIE1zZ0JveCAoIui7ouiomOWFg+OCt+ODvOODiFsiICYgZWxtICYgIl3oqIjkuIrmnIjjgqjjg6njg7w6IiAmIHdtb250aCkKICAgICAgICAgICAgRXhpdCBGdW5jdGlvbgogICAgICAgIEVuZCBJZgogICAgICAgICfoo4Xnva7lkI3jg4Hjgqfjg4Pjgq8KICAgICAgICBzbmFtZSA9IHdzLkNlbGxzKHdyb3csICJCIikuVmFsdWUKICAgICAgICBJZiBkaWNULmV4aXN0cyhzbmFtZSkgPSBGYWxzZSBUaGVuCiAgICAgICAgICAgIHNuYW1lID0gZ2V0X3NuYW1lKHdzLkNlbGxzKHdyb3csICJBIikuVmFsdWUpCiAgICAgICAgRW5kIElmCiAgICAgICAgJ+i7ouiomOWFiOOBruijhee9ruWQjeOBjOWtmOWcqOOBmeOCi+WgtOWQiAogICAgICAgIElmIHNuYW1lIDw+ICIiIFRoZW4KICAgICAgICAgICAgdGtfcm93ID0gZGljVChzbmFtZSkKICAgICAgICAgICAgdF9jb2wgPSBnZXRfY29sdW1uKHRfbW0pCiAgICAgICAgICAgIGtfY29sID0gZ2V0X2NvbHVtbihrX21tKQogICAgICAgICAgICBvd3MxLkNlbGxzKHRrX3JvdywgdF9jb2wpLlZhbHVlID0gd3MuQ2VsbHMod3JvdywgIkUiKS5WYWx1ZSAgJ+aKleizh+eUqOmHkemhjQogICAgICAgICAgICBvd3MyLkNlbGxzKHRrX3Jvdywga19jb2wpLlZhbHVlID0gd3MuQ2VsbHMod3JvdywgIkUiKS5WYWx1ZSAgJ+ioiOS4iueUqOmHkemhjQogICAgICAgIEVuZCBJZgogICAgTmV4dAogICAgcmVhZF8xX3NoZWV0ID0gVHJ1ZQpFbmQgRnVuY3Rpb24KJ+aciOOBruWPluW+lyB5eXl5L21tIOOBi+OCiW1t44Gu5pWw5YCk44KS5Y+W5b6X77yIMOOBr+OCqOODqeODvO+8iQpQcml2YXRlIEZ1bmN0aW9uIGdldF9tb250aChCeVZhbCB3bW9udGgpIEFzIExvbmcKICAgIGdldF9tb250aCA9IDAKICAgIERpbSB3X21tIEFzIExvbmcKICAgIElmIFJFLnRlc3Qod21vbnRoKSA9IEZhbHNlIFRoZW4gRXhpdCBGdW5jdGlvbgogICAgd19tbSA9IENMbmcoUmlnaHQod21vbnRoLCAyKSkKICAgIElmIHdfbW0gPCAxIE9yIHdfbW0gPiAxMiBUaGVuIEV4aXQgRnVuY3Rpb24KICAgIGdldF9tb250aCA9IHdfbW0KRW5kIEZ1bmN0aW9uCifnrqHnkIbnlarlj7fjgYvjgonou6LoqJjlhYjjga7oo4Xnva7lkI3jgpLlj5blvpfjgZnjgosKUHJpdmF0ZSBGdW5jdGlvbiBnZXRfc25hbWUoQnlWYWwga2JhbmdvIEFzIFN0cmluZykKICAgIERpbSBwdG4gQXMgU3RyaW5nCiAgICBEaW0gd3JvdyBBcyBMb25nCiAgICBGb3Igd3JvdyA9IDIgVG8ga19tYXhyb3cxCiAgICAgICAgcHRuID0ga3MxLkNlbGxzKHdyb3csICJBIikuVmFsdWUKICAgICAgICBJZiBrYmFuZ28gTGlrZSBwdG4gVGhlbgogICAgICAgICAgICBnZXRfc25hbWUgPSBrczEuQ2VsbHMod3JvdywgIkIiKS5WYWx1ZQogICAgICAgICAgICBrczIuQ2VsbHMoa19tYXhyb3cyLCAiQSIpLlZhbHVlID0ga2JhbmdvCiAgICAgICAgICAgIGtzMi5DZWxscyhrX21heHJvdzIsICJCIikuVmFsdWUgPSBwdG4KICAgICAgICAgICAga3MyLkNlbGxzKGtfbWF4cm93MiwgIkMiKS5WYWx1ZSA9IGtzMS5DZWxscyh3cm93LCAiQiIpLlZhbHVlCiAgICAgICAgICAgIGtfbWF4cm93MiA9IGtfbWF4cm93MiArIDEKICAgICAgICAgICAgRXhpdCBGdW5jdGlvbgogICAgICAgIEVuZCBJZgogICAgTmV4dAogICAgZ2V0X3NuYW1lID0gIiIKRW5kIEZ1bmN0aW9uCifmnIjmlbDjgYvjgonjgqvjg6njg6Dnlarlj7fjgpLlj5blvpfjgZnjgosKUHJpdmF0ZSBGdW5jdGlvbiBnZXRfY29sdW1uKEJ5VmFsIG1tIEFzIExvbmcpIEFzIExvbmcKICAgIERpbSBiaWFzIEFzIExvbmc6IGJpYXMgPSAxCiAgICBJZiBtbSA8IDQgVGhlbiBtbSA9IG1tICsgMTIKICAgIElmIG1tID4gOSBUaGVuIGJpYXMgPSBiaWFzICsgMQogICAgZ2V0X2NvbHVtbiA9IG1tICsgYmlhcwpFbmQgRnVuY3Rpb24K