| |
JR0LPL さん今日は、Iranoan です。
> text/plain かつ charset=ISO-2022-JP の判定を簡単に実現するには
> どのようにしたら宜しいでしょうか？
私もどれだけの種類があるか解りませんが、ある程度置換を使えばよいので
はないでしょうか? 例を末尾に記載します。ただ Content-Type を見るだけで
は、添付ファイル付き、HTML メール、電子書名付きでも false になります。
loaddll "tkinfo.dll";
$$return = dllfuncstr("CurrentHeader", "Content-Type:");
$$return = dllfuncstr( "ToLower", $$return );
call ChangeCharacter $$return, "\t", "";
call ChangeCharacter $$return, "\n", "";
call ChangeCharacter $$return, "\r", "";
call ChangeCharacter $$return, " ", "";
call ChangeCharacter $$return, "\"", "";
if( $$return == "text/plain;charset=iso-2022-jp" )message "true";
else message "false";
freedll;
endmacro;
ChangeCharacter://buffer 中の文字列を置換
//$$1:buffer
//$$2:検索文字列
//$$3:置換文字列
##change_char=strlen($$2);
$$string = "";
while(1){
##number = strstr($$1, $$2);
if(##number == -1)break;
else{
##long = strlen($$1);
$$string = $$string + leftstr($$1, ##number) + $$3;
$$1 = rightstr($$1, ##long - ##number - ##change_char);
}
}
return $$string + $$1;
|
|