SHIFT_JIS でURLエンコード(Code:127以下は％エンコードしない)

詳細
カテゴリ: FileMaker Custom Function
参照数: 360

FileMaker スクリプト:URLから挿入 で、Windowsの場合、プロトコル「file://」や「smb://」を使う場合、日本語(全角混じり)のパスではエラーになります。
以下の式でURLエンコードすればOK。

FileMaker 16以降

％エンコード部分の再帰式は、Shinさんが書いたモノです。
https://fm-aid.com/bbs2/viewtopic.php?pid=50129#p50129

SHIFT-JIS, SHIFT_JIS, エンコード

function(関数):
GetUrlEncSJIS( Text )
Sample input(入力例):
GetUrlEncSJIS( "D:\!TEMP\フォルダー\ドキュメント.txt" )
Sample output(出力例):
D:\!TEMP\%83%74%83%48%83%8B%83%5F%81%5B\%83%68%83%4C%83%85%83%81%83%93%83%67.txt
formula(式): 

Let(
[
   $Val = Text ;
   $MAX = Length ( $Val ) ;
   $n = 1 ;
   $fnc0=
      "Case ( $n > $MAX ; $Result ;
         Let(
         [
         $text=Middle ( $Val ; $n ; 1 );
          $Result = $Result  & if(Code ( $text )>127;
        
Let(
[
   $txt = HexEncode ( TextEncode ( $text ; \"shift_jis\" ; 1 ) ) ;
   $pos = Length ( $txt ) - 1 ;
   $fnc=
      \"Case ( $pos < 0 ; $txt ;
         Let(
         [
            $txt = Replace ( $txt ; $pos ; 0 ; \\\"%\\\" ) ;
            $pos = $pos - 2
         ];
            Evaluate($fnc))
      )\"
];
   Evaluate($fnc)
)

           ;
            Middle ( $Val ; $n ; 1 )
           );
            $n = $n + 1
         ];
            Evaluate($fnc0))
      )"
];
   Evaluate($fnc0)
)