Zenn
🐶

PowerAppsで全角から半角へ変換するカスタム関数の作成

2023/09/22に公開
Power Apps
カスタム関数
半角全角変換
tech

全角数字から半角数字へ変換するカスタム関数

数字の変換処理ですが、全角カナ⇒半角カナ、ひらがな⇒カタカナなどの変換にも対応できます。

出来上がりイメージ

作成方法

キャンバスアプリの作成

タブレットで作成してみました。

アプリの設定

設定＞近日公開の機能＞試験段階 の　拡張コンポーネントのプロパティをオンにします。

コンポーネントの作成

  1. 新しいコンポーネントを作成する
    コンポーネント＞＋新しいコンポーネント
    コンポーネント名を『CompConvertNum』に設定

  2. サイズを小さく

    アプリ上に表示するものではなく、関数と利用するものなので小さくしておきましょう
    CompConvertNumのサイズを幅と高さを10に設定しました。

  3. 関数を作成する
    ＋新しいカスタム プロパティを選択し　各値を設定します
    プロパティの型：関数
    プロパティ定義：出力
    データ型：テキスト

  4. パラメーターを作成
    ＋新しいパラメーターを選択し　各値を設定します
    データ型：テキスト
    必須：✓

  5. 作成ボタンを押す
    【作成】ボタンを押してカスタムプロパティを作成します

  6. 変換処理の作成
    作成したカスタムプロパティをクリックし、下記処理を追加する

    ▼コピペ用

With({tblNumList:Table( 
        {key:"１",val:"1"},{key:"２",val:"2"},{key:"３",val:"3"},{key:"４",val:"4"},{key:"５",val:"5"},
        {key:"６",val:"6"},{key:"７",val:"7"},{key:"８",val:"8"},{key:"９",val:"9"},{key:"０",val:"0"} 
    )}, 
    With({tblResult: 
        AddColumns( 
            Split(strInput,"") As SPLT, 
            strOutput,
            Coalesce( LookUp(tblNumList,key=SPLT.Value,val),SPLT.Value)
        ) }, 
        Concat(tblResult,strOutput) 
    ) 
)

スクリーンでコンポーネントを利用する

  1. 作成したコンポーネントとテキスト入力を追加

  2. テキストに呼び出し処理を追加
    追加したTextInput1のOnChangeプロパティへ下記処理を設定

    ▼コピペ用

    UpdateContext({_strCnvt:CompConvertNum_1.ZenkakuToHankaku(Self.Text)});

    さらにDefaultプロパティへ下記処理設定

  3. 完了
    上記で処理が完成となります

補足

大文字小文字変換

カスタムプロパティの処理で、全角と半角の対応表のようなテーブルを作成することで対応しました。そのため、この対応表をカスタマイズすることで、かな⇒カナの変換などの対応が可能です。
また、アルファベットのA⇒aなどの大文字小文字変換はUpper関数Lower関数が存在するのでそちらを使うと便利です。

全角アルファベットから半角アルファベットへ

With({tblNumList:Table( 
        {key:"Ａ",val:"A"},{key:"Ｂ",val:"B"},{key:"Ｃ",val:"C"},{key:"Ｄ",val:"D"},{key:"Ｅ",val:"E"},
        {key:"Ｆ",val:"F"},{key:"Ｇ",val:"G"},{key:"Ｈ",val:"H"},{key:"Ｉ",val:"I"},{key:"Ｊ",val:"J"},
        {key:"Ｋ",val:"K"},{key:"Ｌ",val:"L"},{key:"Ｍ",val:"M"},{key:"Ｎ",val:"N"},{key:"Ｏ",val:"O"},
        {key:"Ｐ",val:"P"},{key:"Ｑ",val:"Q"},{key:"Ｒ",val:"R"},{key:"Ｓ",val:"S"},{key:"Ｔ",val:"T"},
        {key:"Ｕ",val:"U"},{key:"Ｖ",val:"V"},{key:"Ｗ",val:"W"},{key:"Ｘ",val:"X"},{key:"Ｙ",val:"Y"},{key:"Ｚ",val:"Z"},
        {key:"ａ",val:"a"},{key:"ｂ",val:"b"},{key:"ｃ",val:"c"},{key:"ｄ",val:"d"},{key:"ｅ",val:"e"},
        {key:"ｆ",val:"f"},{key:"ｇ",val:"g"},{key:"ｈ",val:"h"},{key:"ｉ",val:"i"},{key:"ｊ",val:"j"},
        {key:"ｋ",val:"k"},{key:"ｌ",val:"l"},{key:"ｍ",val:"m"},{key:"ｎ",val:"n"},{key:"ｏ",val:"o"},
        {key:"ｐ",val:"p"},{key:"ｑ",val:"q"},{key:"ｒ",val:"r"},{key:"ｓ",val:"s"},{key:"ｔ",val:"t"},
        {key:"ｕ",val:"u"},{key:"ｖ",val:"v"},{key:"ｗ",val:"w"},{key:"ｘ",val:"x"},{key:"ｙ",val:"y"},{key:"Ｚ",val:"z"}
    )}, 
    With({tblResult: 
        AddColumns( 
            Split(strInput,"") As SPLT, 
            strOutput,
            Coalesce(LookUp(tblNumList,key=SPLT.Value,val),SPLT.Value)
        ) }, 
        Concat(tblResult,strOutput) 
    ) 
)

Discussion