| |
こんにちは。
以前2012/12/27からのvauhatto さんとの「検索方法に関する要望」の
やり取りの中にあった下記マクロを使用させていただいております。
検索に関して英語、カタカナの大文字、小文字の区分け無く
検索できるマクロに変更するにはどのようにすればいいか
教えていただけないでしょうか。
例：ABCDと入力してＡＢＣＤも検索出来る様にしたい。
カタカナと入力してｶﾀｶﾅも検索出来る様にしたい。
お手数ですが宜しくお願い致します。
------------GoogleLikeSearch.mac---------------------------
loaddll "tkinfo.dll";
$s = input( "検索文字列は？" );
if( $s == "" ) {
endmacro;
}
#count = 0;
$find[0] = $s;
while(1) {
#x = strstr( $find[#count], " " );
#x2 = strstr( $find[#count], " " );
if( (#x >= 0 && #x2 >= 0 && #x2 < #x) || (#x < 0 && #x2 >= 0) ) {
#x = #x2;
}
if( #x > 0 ) {
$find[#count+1] = midstr( $find[#count], #x, 9999 );
$find[#count] = leftstr( $find[#count], #x );
#count = #count + 1;
while( 1 ) {
if( leftstr( $find[#count], 1 ) == " " ) {
$find[#count] = midstr( $find[#count], 1, 9999 );
} else if( leftstr( $find[#count], 2 ) == " " ) {
$find[#count] = midstr( $find[#count], 2, 9999 );
} else {
break;
}
}
} else {
break;
}
}
#count = #count + 1;
if( #count > 4 ) {
message "４つ以上の文字列は検索できません。";
endmacro;
}
#i = 0;
while( #i < #count ) {
if( #i != 0 ) {
$set = $set + " and ";
}
$set = $set
+ "(\"" + dllfuncstr("YenEncode", $find[#i] ) + "\", target=all)";
#i = #i + 1;
}
$set = $set + ",subfolder=1,inmail=2";
$backup = dllfuncstr("GetFindPack");
#n = dllfunc("SetFindPack", $set);
#n = dllfunc("DoGrep", "", "受信+送信済み+ユーザー");
#n = dllfunc("SetFindPack", $backup);
endmacro;
------------------------------------------------------------------------
|
|