Power Apps の数式

Power Apps のボタンには以下の数式を設定しています。

With({srcXml:TextInput1.Text},//TextInput1.Text --> Source XML
    ClearCollect(tmp,{val:srcXml});
    ForAll(
        Sequence(CountRows(MatchAll(srcXml,">\s{0,}<")),1),
        Collect(tmp,{val:Substitute(Last(tmp).val,Last(FirstN(MatchAll(srcXml,">\s{0,}<"),ThisRecord.Value)).FullMatch,"><")})
    )
);
With({medXml:RenameColumns(AddColumns(Filter(Split(Substitute(Last(tmp).val,"<","~::~<"),"~::~"),!IsBlank(ThisRecord.Value)),"startElm",IsMatch(Value,"<\w",MatchOptions.Contains)&&Not(IsMatch(Value,"</",MatchOptions.Contains))&&Not(IsMatch(Value,"/>",MatchOptions.Contains)),"endElm",IsMatch(Value,"</",MatchOptions.Contains),
"oneLine",IsMatch(Value,"/>",MatchOptions.Contains)),"Value","row")},
    ClearCollect(spltLines,{val:"",withValue:false,startElm:false,endElm:false,oneLine:false});
    Clear(spltLines);
    ForAll(
        Sequence(CountRows(medXml),1),
        Collect(spltLines,
            {val:Index(medXml,Value).row,withValue:If(ThisRecord.Value<>1,IsMatch(Last(FirstN(medXml,ThisRecord.Value-1)).row,"^<\w",MatchOptions.Contains) && IsMatch(Last(FirstN(medXml,ThisRecord.Value)).row,"^</\w",MatchOptions.Contains) &&
                (Match(Last(FirstN(medXml,ThisRecord.Value-1)).row,"^<[\w:\-\.\,]+").FullMatch = Substitute(Match(Last(FirstN(medXml,ThisRecord.Value)).row,"^<\/[\w:\-\.\,]+").FullMatch,"/","")),false),startElm:Last(FirstN(medXml,ThisRecord.Value)).startElm,endElm:Last(FirstN(medXml,ThisRecord.Value)).endElm,oneLine:Last(FirstN(medXml,ThisRecord.Value)).oneLine}
        )
    )
);
With({shiftTable:Table({Index:0,shift:Char(13)},{Index:1,shift:Char(13)&"  "},{Index:2,shift:Char(13)&"  "&"  "},{Index:3,shift:Char(13)&"  "&"  "&"  "},{Index:4,shift:Char(13)&"  "&"  "&"  "&"  "},{Index:5,shift:Char(13)&"  "&"  "&"  "&"  "&"  "},{Index:6,shift:Char(13)&"  "&"  "&"  "&"  "&"  "&" 
 "},{Index:7,shift:Char(13)&"  "&"  "&"  "&"  "&"  "&"  "&"  "})},
    ClearCollect(arBeautified,{str:"",depth:0});
    Clear(arBeautified);
    ForAll(
        Sequence(CountRows(spltLines),1),
        If(ThisRecord.Value=1,Collect(arBeautified,{str:First(spltLines).val,depth:1}),
        If(Index(spltLines,ThisRecord.Value).withValue,Collect(arBeautified,{str:Last(arBeautified).str&Index(spltLines,ThisRecord.Value).val,depth:Last(arBeautified).depth-1}),
        If(Index(spltLines,ThisRecord.Value).startElm,Collect(arBeautified,{str:Last(arBeautified).str&LookUp(shiftTable,Index=Last(arBeautified).depth).shift&Index(spltLines,ThisRecord.Value).val,depth:Last(arBeautified).depth+1}),
        If(Index(spltLines,ThisRecord.Value).endElm,Collect(arBeautified,{str:Last(arBeautified).str&LookUp(shiftTable,Index=Last(arBeautified).depth-1).shift&Index(spltLines,ThisRecord.Value).val,depth:Last(arBeautified).depth-1}),
        If(Index(spltLines,ThisRecord.Value).oneLine,Collect(arBeautified,{str:Last(arBeautified).str&LookUp(shiftTable,Index=Last(arBeautified).depth).shift&Index(spltLines,ThisRecord.Value).val,depth:Last(arBeautified).depth}))))
        ))
    )
);//Last(arBeautified).str --> beautified XML

vkBeautifyのロジックを見てみると、Forループを使っていることがわかります。

Power Appsでは ForAll関数を利用しますが、ForAll関数の中では変数の設定 ( Set関数 ) が使えないため工夫が必要です。

たとえば単純なForループ、1~10までループさせて各ループで整数型の変数を2ずつふやしていくようなループでは以下のように実装します。

ClearCollect(output,{val:0});
ForAll(
    Sequence(10,1),
    Collect(output,{val:Last(output).val+2})
)
//Last(output).val -->20

ForAll内では変数の設定が使えないため、各ループ処理で得られた"変数"を格納するための配列（コレクション）を用意します。

"変数"の更新は、前のループ処理の結果（コレクションの最後）を基にして更新後の値を計算し、それをコレクションに追加することで実現します。

今回のアプリではXMLの各要素をループ処理しているようなイメージですが、その際にも疑似Forループを活用しています。

    ClearCollect(arBeautified,{str:"",depth:0});
    Clear(arBeautified);
    ForAll(
        Sequence(CountRows(spltLines),1),
        If(ThisRecord.Value=1,Collect(arBeautified,{str:First(spltLines).val,depth:1}),
        If(Index(spltLines,ThisRecord.Value).withValue,Collect(arBeautified,{str:Last(arBeautified).str&Index(spltLines,ThisRecord.Value).val,depth:Last(arBeautified).depth-1}),

このあたりです。

ということで、Power Appsの疑似Forループを利用して、XMLの整形ツールが作れたよという内容でした。

サンプルは以下からどうぞ

github.com