| |
>2. 保存するとき，HTMLなら7ビットJIS，EUC指定ドライブならEUC，そうでないなら
>シフトJIS
// とりあえず、こんなマクロで回避は出来ますが !
//* SaveAs2.mac
if( basename == "" ){ endmacro; } // (無題) です !
$wk1 = getinistr("hidemaru.ini","Env","EucDrives");
$wk1 = " " + $wk1 + " ";
$wk2 = " " + leftstr(directory2,2) + " ";
if( strstr($wk1,$wk2) != -1 ){
//R message "EUC Drive !";
saveas filename2, euc, lf; // EUC, LF
} else if( strstr(basename+"/",".htm/") != -1 || strstr(basename+"/",".html/") != -1 ){
//R message ".html file !";
saveas filename2, jis, lf; // JIS, LF
} else {
saveas filename2, sjis; // SJIS, CR/LF
}
if( ! result ){ message "saveas - failed !"; endmacro; }
endmacro;
|
|