| |
マボカルさん今日は、Iranoan です。
<snip>
> 文字コードが何であるのか、ファイル名と共にリストアップするような
> ことは秀丸のマクロで可能でしょうか？
大まかには可能ですが、完全には不可能です。
理由は、秀丸は自動でエンコードの判定をしますが、自動判定を完全に行う
のは秀丸に限らず不可能だからです。大まかで良ければ、次のマクロでどうで
しょう?
--------------------------------------------------------------------
grep "(.|\n)", "*", ".", subdir, filelist, regular, icon;
showwindow 0;
disabledraw;
#grep = hidemaruhandle( 0 );
while( code != eof ){
tagjump;
#charset = charset&63;
if( #charset == 1 )$charset = "Shift-JIS";
else if( #charset == 2 )$charset = "Unicode";
else if( #charset == 3 )$charset = "EUC";
else if( #charset == 4 )$charset = "JIS";
else if( #charset == 5 )$charset = "UTF-7";
else if( #charset == 6 )$charset = "UTF-8";
else if( #charset == 7 )$charset = "Unicode (Big-Endian)";
else if( #charset == 8 )$charset = "欧文";
else if( #charset == 9 )$charset = "簡体字中国語";
else if( #charset == 10 )$charset = "繁体字中国語";
else if( #charset == 11 )$charset = "韓国語";
else if( #charset == 12 )$charset = "韓国語(Johab)";
else if( #charset == 13 )$charset = "中央ヨーロッパ言語";
else if( #charset == 14 )$charset = "バルト語";
else if( #charset == 15 )$charset = "ギリシャ語";
else if( #charset == 16 )$charset = "キリル言語";
else if( #charset == 17 )$charset = "シンボル";
else if( #charset == 18 )$charset = "トルコ語";
else if( #charset == 19 )$charset = "ヘブライ語";
else if( #charset == 20 )$charset = "アラビア語";
else if( #charset == 21 )$charset = "タイ語";
else if( #charset == 22 )$charset = "ベトナム語";
else if( #charset == 23 )$charset = "Macintosh";
else if( #charset == 24 )$charset = "OEM/DOS";
else if( #charset == 25 )$charset = "その他";
else if( #charset == 26 )$charset = "バイナリモード";
##sub = hidemaruhandle( 0 );
setactivehidemaru #grep;
closehidemaru ##sub;
golineend2;
insert "\t" + $charset;
movetolineno 1, lineno + 1;
}
replaceallfast "\([0-9]+\)\t", "\t", regular;
showwindow 1;
|
|