| |
Nov さん今日は、ひろです。
> 保存・読み込みの標準の文字コードは自動にしています
これを指定しても、開くときの文字コードの自動認識はしません。「動作
環境」→「編集」で「文字コードの自動認識をする」を ON にしてください。
これで私自身はこれで誤認識することは最近殆どないですが、誤認識する
可能性はあります。また
> IEでなれているせいか、秀丸でもIEのようにメニューから強制的に漢字コードを指定
> できればなあと思ってしまいます。
というように、メニューから選択するマクロが何処かに転がっていたと思い
ますが、末尾のマクロでも役に立つと思います。文字化けが起きたときに使っ
てください。
//文字 code 自動変更 macro
main:
disabledraw;
if(!selecting)call select;
searchdown "\x1B",inselect;
if(result)##charset=4;
else{
call check_charset;
##charset=##return;
}if(updated==1){
message "ファイルが更新されています\n複数の文字コード混在すると、"
+ "復旧できなくなる恐れがあるので、マクロを終了します。";
goto ending;
}call save_search;
##org_line=lineno;
##org_column=column;
##handle = hidemaruhandle(0);
$$option = "/(" + str(windowposx) + "," + str(windowposy) + ","
+ str(windowcx) + "," + str(windowcy) + ") ";
$$filename = filename2;
openfile $$option;
closehidemaru ##handle;
if(##charset==1) openfile $$filename,euc;
else if(##charset==3) openfile $$filename,sjis;
else if(##charset==4) openfile $$filename,jis;
movetolineno ##org_column,##org_line;
goto ending;
save_search:
$search=searchbuffer;
#search=searchoption;
return;
check_charset:
##charset=(charset&63);
if(##charset==2){
message "文字化けしている理由が不明(;_;)";
goto ending;
}else if(##charset==4){
##return_code=(charset&192)/64;
if(##return_code==1)return 1;
else return 3;
}else return ##charset;
ending:
setsearch $search, #search;
endmacro;
select:// escape sequence を探す
beginsel;
##num=0;
while(##num<30){
down;
if(!result){
gofileend;
##num=30;
}else ##num=##num+1;
}return;
|
|