PowerAppsで英数記号の全角と半角を相互に変換する方法

Code thinking
2024.03.14

はじめに

Excelでアルファベットや数字、記号を全角↔半角で相互に変換したいときには、JIS/ASC関数という便利なのものがありますが、残念ながらPowerAppsにはそういった関数が用意されていないため、実現には少し工夫が必要になります。

ということで、この記事では、PowerApps上で全角文字と半角文字を相互に変換する方法をご紹介します。

なお、実装に当たっては、以下のサイトをかなり参考にさせていただきました。

PowerAppsで全角を半角にする｜としじ
VBAみたいに便利な関数はないみたい、対応表作って自作がベスト？ OnStartあたりにこれ仕込んでおく ClearCollect(_W_N_, {W:"０",N:"0"}, {W:"１",N:"1"}, {W:"２",N:"2"}, {W...
note.com
最終目標
  • PowerAppsでアルファベット、数字、記号の全角・半角を相互に変換できるようにする

コレクションの作成

少し長いですが、まず、全角文字と半角文字のペアを格納するコレクションを作成します。

このコレクションをアプリの起動時に初期化されるようにしたい場合は、AppのOnstartに記載しておけば大丈夫です。

// 全角・半角のペアコレクションを作成する
ClearColect(
    colZenHanPairs,
    {Zenkaku: "ａ", Hankaku: "a"},
    {Zenkaku: "ｂ", Hankaku: "b"},
    {Zenkaku: "ｃ", Hankaku: "c"},
    {Zenkaku: "ｄ", Hankaku: "d"},
    {Zenkaku: "ｅ", Hankaku: "e"},
    {Zenkaku: "ｆ", Hankaku: "f"},
    {Zenkaku: "ｇ", Hankaku: "g"},
    {Zenkaku: "ｈ", Hankaku: "h"},
    {Zenkaku: "ｉ", Hankaku: "i"},
    {Zenkaku: "ｊ", Hankaku: "j"},
    {Zenkaku: "ｋ", Hankaku: "k"},
    {Zenkaku: "ｌ", Hankaku: "l"},
    {Zenkaku: "ｍ", Hankaku: "m"},
    {Zenkaku: "ｎ", Hankaku: "n"},
    {Zenkaku: "ｏ", Hankaku: "o"},
    {Zenkaku: "ｐ", Hankaku: "p"},
    {Zenkaku: "ｑ", Hankaku: "q"},
    {Zenkaku: "ｒ", Hankaku: "r"},
    {Zenkaku: "ｓ", Hankaku: "s"},
    {Zenkaku: "ｔ", Hankaku: "t"},
    {Zenkaku: "ｕ", Hankaku: "u"},
    {Zenkaku: "ｖ", Hankaku: "v"},
    {Zenkaku: "ｗ", Hankaku: "w"},
    {Zenkaku: "ｘ", Hankaku: "x"},
    {Zenkaku: "ｙ", Hankaku: "y"},
    {Zenkaku: "ｚ", Hankaku: "z"},
    {Zenkaku: "Ａ", Hankaku: "A"},
    {Zenkaku: "Ｂ", Hankaku: "B"},
    {Zenkaku: "Ｃ", Hankaku: "C"},
    {Zenkaku: "Ｄ", Hankaku: "D"},
    {Zenkaku: "Ｅ", Hankaku: "E"},
    {Zenkaku: "Ｆ", Hankaku: "F"},
    {Zenkaku: "Ｇ", Hankaku: "G"},
    {Zenkaku: "Ｈ", Hankaku: "H"},
    {Zenkaku: "Ｉ", Hankaku: "I"},
    {Zenkaku: "Ｊ", Hankaku: "J"},
    {Zenkaku: "Ｋ", Hankaku: "K"},
    {Zenkaku: "Ｌ", Hankaku: "L"},
    {Zenkaku: "Ｍ", Hankaku: "M"},
    {Zenkaku: "Ｎ", Hankaku: "N"},
    {Zenkaku: "Ｏ", Hankaku: "O"},
    {Zenkaku: "Ｐ", Hankaku: "P"},
    {Zenkaku: "Ｑ", Hankaku: "Q"},
    {Zenkaku: "Ｒ", Hankaku: "R"},
    {Zenkaku: "Ｓ", Hankaku: "S"},
    {Zenkaku: "Ｔ", Hankaku: "T"},
    {Zenkaku: "Ｕ", Hankaku: "U"},
    {Zenkaku: "Ｖ", Hankaku: "V"},
    {Zenkaku: "Ｗ", Hankaku: "W"},
    {Zenkaku: "Ｘ", Hankaku: "X"},
    {Zenkaku: "Ｙ", Hankaku: "Y"},
    {Zenkaku: "Ｚ", Hankaku: "Z"},
    {Zenkaku: "０", Hankaku: "0"},
    {Zenkaku: "１", Hankaku: "1"},
    {Zenkaku: "２", Hankaku: "2"},
    {Zenkaku: "３", Hankaku: "3"},
    {Zenkaku: "４", Hankaku: "4"},
    {Zenkaku: "５", Hankaku: "5"},
    {Zenkaku: "６", Hankaku: "6"},
    {Zenkaku: "７", Hankaku: "7"},
    {Zenkaku: "８", Hankaku: "8"},
    {Zenkaku: "９", Hankaku: "9"},
    {Zenkaku: "　", Hankaku: " "},
    {Zenkaku: "｀", Hankaku: "`"},
    {Zenkaku: "－", Hankaku: "-"},
    {Zenkaku: "＝", Hankaku: "="},
    {Zenkaku: "［", Hankaku: "["},
    {Zenkaku: "］", Hankaku: "]"},
    {Zenkaku: "；", Hankaku: ";"},
    {Zenkaku: "’", Hankaku: "'"},
    {Zenkaku: "，", Hankaku: ","},
    {Zenkaku: "．", Hankaku: "."},
    {Zenkaku: "／", Hankaku: "/"},
    {Zenkaku: "～", Hankaku: "~"},
    {Zenkaku: "！", Hankaku: "!"},
    {Zenkaku: "＠", Hankaku: "@"},
    {Zenkaku: "＃", Hankaku: "#"},
    {Zenkaku: "＄", Hankaku: "$"},
    {Zenkaku: "％", Hankaku: "%"},
    {Zenkaku: "＾", Hankaku: "^"},
    {Zenkaku: "＆", Hankaku: "&"},
    {Zenkaku: "＊", Hankaku: "*"},
    {Zenkaku: "（", Hankaku: "("},
    {Zenkaku: "）", Hankaku: ")"},
    {Zenkaku: "＿", Hankaku: "_"},
    {Zenkaku: "＋", Hankaku: "+"},
    {Zenkaku: "｛", Hankaku: "{"},
    {Zenkaku: "｝", Hankaku: "}"},
    {Zenkaku: "｜", Hankaku: "|"},
    {Zenkaku: "：", Hankaku: ":"},
    {Zenkaku: "＂", Hankaku: """"},
    {Zenkaku: "＜", Hankaku: "<"},
    {Zenkaku: "＞", Hankaku: ">"},
    {Zenkaku: "？", Hankaku: "?"}
)

変換の適用

次に、作成したコレクションを使って、テキストを変換します。

// 全角を半角にしたい場合
Concat(
    Split("YourTextInput", ""),
    Coalesce(
        LookUp(colZenHanPairs, Zenkaku=Value).Hankaku, Value)
    )
)
// 半角を全角にしたい場合
Concat(
    Split("YourTextInput", ""),
    Coalesce(
        LookUp(colZenHanPairs, Hankaku=Value).Zenkaku, Value)
    )
)

このコードは入力されたテキスト “YourTextInput” の各文字を一文字ずつ確認し、それが全角文字であれば対応する半角文字に変換しています。なお、対応する半角文字がない場合（LookUpがnullを返す場合）、元の文字（Value）がそのまま使用されます。

そして、最後に変換された文字列全体が結合されて出力されます。

各関数の細かい説明は下記のとおりです。

  1. Concat(…)
    複数の文字列を結合して一つの文字列にします。
  2. Split(“YourTextInput”, “”)
    “YourTextInput” というテキストを一文字ずつに分割し、配列にします。例えば、[“Y”, “o”, “u”, …] といった形です。
  3. Coalesce(…)
    複数の引数を取り、最初にnullではない値を返します。
  4. LookUp(colZenHanPairs, Zenkaku=Value).Hankaku
    （例）全角→半角の変換
    colZenHanPairsコレクションを検索して、Zenkaku（全角文字）が分割された文字（Value）と一致するものを見つけ、その対応する半角文字（Hankaku）を取得します。

まとめ

この方法を使えば、PowerAppsで簡単に全角文字と半角文字の変換を行うことができます。コレクションさえ作っておけば、変換自体は難しくないので、その点がメリットかなと思います。

コメント