// 秀丸Ver5.10β1以降に実装された「unichar関数」を使用します。それ以前
// のバージョンでは動作しません。

$Name = basename2;

//出力するファイルのパス。それぞれの環境に合わせて変更してください。
$OUTTXT = "C:\\Temp\\Unicode漢字變換處理濟み" + $Name;
saveas $OUTTXT, unicode;

#x = x;
#y = y;
#n = 0;
gofiletop;
searchdown2 "&#[0-9][0-9][0-9][0-9][0-9];", regular;
while( result ) {
    #tx = seltopx; #ty = seltopy;
    #ex = selendx; #ey = selendy;
    $sgml = gettext(#tx, #ty, #ex, #ey);
    escape;
    #uni = val( midstr($sgml,2,5) );
    $unistr = unichar( #uni );
        beginsel;
    moveto #ex, #ey;
    insert $unistr;
    #n = #n + 1;
    finddown2;
 }

moveto #x, #y;
save;
message str(#n) + "個置換しました。";
endmacro;