和暦を西暦に変換するPower Automate for desktopフロー(全角対応)

JapaneseCalendarToWesternCalendar.robin

/# ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
和暦を西暦に変換するフロー(全角対応)
Power Automate for desktop バージョン 2.37.00181.23279 で動作確認
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★#/
SET NewVar TO $'''令和５年１０月１９日　０１：２３：４５'''
/# ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
全角文字と半角文字の対応表を用意してループで置換
※必要に応じて文字は追加
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★#/
SET StringTable TO { ^['FullWidth', 'HalfWidth'], ['０', 0], ['１', 1], ['２', 2], ['３', 3], ['４', 4], ['５', 5], ['６', 6], ['７', 7], ['８', 8], ['９', 9], ['　', ' '], ['／', '/'], ['：', ':'], ['．', '.'] }
LOOP LoopIndex FROM 0 TO StringTable.RowsCount - 1 STEP 1
    Text.Replace Text: NewVar TextToFind: StringTable[LoopIndex]['FullWidth'] IsRegEx: False IgnoreCase: False ReplaceWith: StringTable[LoopIndex]['HalfWidth'] ActivateEscapeSequences: False Result=> NewVar
END
Text.ConvertTextToDateTime.ToDateTime Text: NewVar DateTime=> TextAsDateTime
Display.ShowMessageDialog.ShowMessage Message: TextAsDateTime Icon: Display.Icon.None Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: False ButtonPressed=> ButtonPressed

画面イメージ.md