ファイル名から拡張子を取り除く秀丸マクロ

必要に迫られて、秀丸ちま～る ＜ 秀丸マクロテクニックを参考にファイル名から拡張子を取り除く秀丸マクロを書いた。しかし、やっぱり秀丸マクロは酷いマクロだと思う。

// 拡張子を取り除く
CutExt:
    $$nFILE = $$1;
    $$FileName = "";    //ファイル名の初期化
    ##a = strlen($$nFILE);//FILEの文字長を設定
    while( ##a > 0 ){
        if( midstr($$nFILE,##a,1) == "."){
	    $$FileName = midstr( $$nFILE,0,##a );    //ファイル名の取得
	    break;
        }
        ##a = ##a-1;
    };
    if(##a == 0){
        $$FileName = $$nFILE; // 拡張子が無い場合はそのままのファイル名
    }
    return $$FileName;