お世話になっております．

BaseElementsの、BE_RegularExpression関数を使って、改行区切りリストから、正規表現にマッチした値を取り出したいのですが、
以下のような式だと、「?」が戻り値となります。
（改行コードの問題なのか、正規表現の問題なのか、判断がつかないです）
どなたか、BaseElementsをお使いの方、いらっしゃいましたら教えていただけないでしょうか？
よろしくお願いします。

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
While (
        [
         i=1 ; string = "あ¶い¶う¶" ; NumOfVals=ValueCount(string); result = ""                //初期変数
        ] ;
          i ≤ NumOfVals       ;             //継続条件
        [
        Val = GetValue(string ; i) ;
        MatchReg = BE_RegularExpression ( Val ; "^.{1}" ; "gm" ) ;
        result = result  & If ( IsEmpty ( MatchReg ) ;  "" ; MatchReg  )  & "¶";  //マッチしないときはヌル、マッチすればその文字列を追加
        i = i+1                        //ロジック
               
        ] ;
        result                         //結果
)
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

あるテキストフィールド「Text」に"あいうえお"というテキストが入っており，"お"だけが太字（Bold）になっている状態があるとします．

この状態で，
GetAsCSS ( Text )

を実行すると，結果は，

<span style="" >&#12354;&#12356;&#12358;&#12360;</span><span style="font-weight: bold;" >&#12362;</span>

となります． （日本語文字は実体参照化されている）

しかし，自分が取得したい結果は

<span style="" >あいうえ</span><span style="font-weight: bold;" >お</span>

というものです．
（日本語の部分はそのままで，スタイルのタグだけを付けた状態にしたい）

これを実現する方法は何かありますでしょうか？
どうぞよろしくお願いします．

ファイルAで使っているカスタム関数の関数名は変えずに，式の内容だけファイルBのものと入れ替えたいのですが、どうするのが最も良い方法でしょうか？

・置き換えたい関数は多数あって、コピペは面倒なので，関数のインポートで置き換えたいのです。

自分で試してみたのは以下の方法です。

①今のファイルAの関数を削除してからインポート
→ 関数名の競合は起きないが，計算フィールドなどで使っている場合は「関数が見つかりません」になる
→ 後から同一名の関数をインポートしても，「関数が見つかりません」のまま。

②名前の競合は起きるのが前提で，いったんインポートしてから名前を変更
→ インポートすると，名前の競合により，「カスタム関数 2」などの序数がついてインポートされる
→ 元の関数を削除した後，2を取って元の名前にする
→ 計算フィールドなどで使っている場合は「関数が見つかりません」のまま。

①、②、どちらも計算フィールドやスクリプト上で、「関数が見つかりません」が出た場所を全てチェックしなければならないようです。

このような場合ベストな方法、定石のような方法はあるのでしょうか？ それとも、コピペする方が良いのでしょうか？

お世話になっております．

カスタム関数を作ろうと思い，以下のような式を書き，データビューワ上では意図した通りに動作することを確認できました．

やろうとしていることは，「にばん」という正解の語を左から読んで，
その中に，解答候補「いち」「に」「さん」のどれかが含まれていれば，その直後に「●」を挿入する，ということです．
（この例では「に●ばん」が出力される）

データビューワでは動作したので，$をチルダに置き換えて，カスタム関数として登録したところ，意図した動作になりません．
（$を全て消去して，計算フィールドの定義として使用してみましたが同じでした）

何か単純な見落としではないかと思いますが，自分では思いつきません．
どなたか手助けいただけないでしょうか？

よろしくお願いします．

式：

``````````````````````````````````````````````````````````
Let ( [
  $lst= List( "いち" ; "に" ; "さん" ) ;
  $ExactAns = "にばん" ;
  $Ans = "";
  $NumOfValues = ValueCount ( $lst )
  ] ;                               //Let内の初期値
  While (
    [   
      $i = 1
    ] ;                             //初期変数
      $i  ≤  $NumOfValues and IsEmpty ( $Ans );
                                    //継続条件：全ての値をトライしたか、または、値が見つかったら終了
        [
        $tpAns = GetValue ( $lst ; $i )  ;
        $LenTpAns = Length($tpAns);
        $ExactAnsLeft = Left ( $ExactAns ; $LenTpAns );
        $i = $i + 1 ;
        $Ans = If (
                            Exact ( $ExactAnsLeft ; $tpAns ) ;
                            $ExactAnsLeft ; ""
                           )
        ] ;       //ロジック。ぴったりの語が見つかれば，その直後に●を挿入，そうでなければ「なし」
     If ( IsEmpty ( $Ans ) ; "なし" ;
                                   Substitute ( Left ( $ExactAns ; $LenTpAns ) ; $tpAns ; $tpAns & "●" ) & Right ( $ExactAns ; Length ( $ExactAns ) - $LenTpAns )
                                   )      //結果 全ての値をトライしてなければ「なし」、あれば推定値
    )
  )
``````````````````````````````````````````````````````````

1
2
3
5
7
8

などの整数値が改行区切りでフィールドに入っています。
これを、

1―3
5
7―8

という風に、「連続する整数ならダッシュつなぎでまとめる、そうでなければ、単独の数値として表記する」としたくてカスタム関数を書いてみたのですが、うまくいきません。

以下のように、処理する部分に分けて、2つの関数を書いてみて、この2つを何らかの方法で組み合わせることで、できそうな気がするのですが、複雑になりすぎて組み合わせ方がわかりません。

どなたか、わかる方がいらっしゃったら、アドバイスをお願いします。

■書いてみた1つ目の関数、RenzokuNum(lst)
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
/*RenzokuNum() ひと続きの連続の数字をダッシュつなぎでまとめる（1回のみ、単独の数字は処理しない）*/

Let([
        $lst= SortValues ( lst ; 2 );        /*改行区切りのテキストを、数字としてソート縦郭*/
        $CR="¶";                            /*改行（関数内で、ダブルコーテーションをエスケープするのが面倒なので、変数に入れておく）*/
        $null="";
        $Dash="―";
        $i=0;
        $Itm = GetValue($lst; 1);                           /*現在の値*/
        $NextItm= GetValue($lst; 2);                        /*次の値*/
        $FirstItm = GetValue($lst; 1);                      /*n―mの開始値*/
        $LastItm=$null;                                     /*n―mの終了値*/
        $res="";
        $fnc="                                              /*$fnc開始*/
Case($NextItm - $Itm  ≠  1; $res;                          /*終了条件：現在の値と次の値の差が1でないなら終了*/
                   Let([
                         $i=$i+1;
                         $itm=GetValue($lst; $i);                        /*$i番目の値を取得*/
                         $NextItm=GetValue($lst; $i+1) ;                 /*$i+1番目の値を取得*/
                         $LastItm= $Itm  ;                               /* 終了値を更新*/
                         $res=$FirstItm & $Dash & $LastItm & $CR         /*ダッシュつなぎにして、改行を追加*/
                       ]; Evaluate($fnc))                                /*内側の$fnc計算*/
   )
"
   ];
  Evaluate($fnc)                                                         /*外側の$fnc計算*/
)
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
↑この関数は、

1
2
3
5
7
8

の入力を受け取ったとき、

1―3

のように、「最初の連続した数字をダッシュつなぎでまとめる」ことはできます。

■書いてみた2つ目の関数、StraightNum(lst)
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
/*StraightNum(lst)改行区切りの値全てをダッシュつなぎでまとめる（正常動作しない） */
Let([
        $lst= SortValues ( lst ; 2 );        /*改行区切りのテキストを、数字としてソート*/
        $CR="¶";                            /*改行（関数内で、ダブルコーテーションをエスケープするのが面倒なので、変数に入れておく）*/
        $null="";
        $Dash="―";
        $i=0;
        $Itm = GetValue($lst; 1);                                  /*現在の値*/
        $NextItm= GetValue($lst; 2);                               /*次の値*/
        $FirstItm = GetValue($lst; 1);                             /*n―mの開始値*/
        $LastItm=$null;                                            /*n―mの終了値*/
        $res="";
        $fnc="                                                     /*$fnc開始*/
             Case($i=ValueCount($lst); $res;                       /*Case文開始。終了条件：$iが値の数に達したら終了*/
                       Let(
                            [                                      /*内側のLet開始*/
                             $i=$i+1;
                             $itm=GetValue($lst; $i);              /*$i番目の値を取得*/
                             $NextItm=GetValue($lst; $i+1) ;       /*$i+1番目の値を取得*/
                             $FirstItm=If($FirstItm=$null  ; $itm ; $FirstItm) ;             /*$FirstItmがヌルなら取得しなおす。ヌルでなければそのまま*/
                             $LastItm=$itm ;
                             $res=Case( $NextItm -$itm ≠  1 ;                               /*連続した数（差が１でない）ときの条件と計算式*/
                                               Case($FirstItm =  $itm ; $res & $itm & $CR ;
                                                    $FirstItm ≠ $itm ; $res & $FirstItm & $Dash & $LastItm & $CR  )
                                           ;
                                           $NextItm -$itm  =  1 ; Let([ $LastItm = $null  ] ;  $res )                      /*連続した数（差が１）のとき（出力しない）の条件と計算式*/
                                           )
                           ]; Evaluate($fnc)
                           )                                       /*内側のLet終了、内側の$fnc計算*/
                   )                                               /*Case文終了*/
"                                             
  ];
   Evaluate($fnc)                                                  /*外側の$fnc計算*/
  )                                                                /*外側のLet終了*/
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

↑この関数は

1
2
3
5
7
8

の入力を受け取ったとき、

1―3
1―5
1―8

のように、「最初の開始値から、連続した数字をダッシュつなぎでまとめる」ことはできますが、2つ目以降の値の開始値が、最初に取得したもののままになってしまいます。

1行ポータルをボタン化し、（ポータル全体、またはポータル内のフィールド１つをボタンにしたいと考えています）動作はするのですが、
その際、ポータルとフィールドがグループ化されてしまいます。

これをグループ化しないでボタン化する方法はあるのでしょうか？

どなたかご存じの方がいればご教示いただけたら幸いです。

文字列中のひらがなの個数をカウントしたくて、カスタム関数を作ってみましたが、うまく動作しません。
どこが悪いのでしょうか？ どなたかわかりましたらよろしくお願いします。
（ちなみに再帰を使ったカスタム関数、みなさんはどうやってデバッグしているのでしょうか？）

関数名：HiraganaCount()
引数：txt（下記の例では"航空センターあかし"を代入しています）

Let([
   $txt="航空センターあかし";
   $num = 0 ;                       /*ひらがなの個数*/
   $len = Length($txt) ;    	    /*文字列の長さ*/
   $pos = 0 ;                       /*何文字目か*/
   $tp = Middle($txt;$pos;1);
   $code = Code($tp);
   $fnc="Case($pos ≥ $len ; $num ; /*終了条件：最後の文字まで判定したら$numを返す*/
      Let([
         $pos = $pos+1;
         $tp = Middle( $txt ; $pos ; 1);
         $code = Code( $tp );
         $num = $num + ($code ≥ 12353 and $code ≤ 12438)
      ]; Evaluate($fnc))
   )"
];
   Evaluate($fnc)
)