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

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

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

関数 : While 版

FileMaker 18以降

 

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(式): 

While (
    [
#Val = Text ;
$Result="";  
#MAX = Length ( #Val )  ;
#n = 1
    ] ;
    #n   ≤   #MAX ;
    [
        #text=Middle ( #Val ; #n ; 1 );
              $Result = $Result  & If(Code ( #text )>127;

	While (
	[
		#txt = HexEncode ( TextEncode ( #text ; "shift_jis" ; 1 ) ) ;
		#pos = Length ( #txt ) - 1
	];
	#pos > 0  ;
	[
		#txt = Replace ( #txt ; #pos ; 0 ; "%" ) ;
		#pos = #pos - 2
	];
	#txt
	 )
;
            Middle ( #Val ; #n ; 1 )
           );//if
#n = #n + 1
    ] ;
    $Result
)