| |
h-tom です。
HMJRE.DLL使用時、"t\w"を検索するとマッチしません。
"\w"の前にアルファベットがあると駄目なようです。
"\w"単独では問題ありません。
//テストデータ
test_check
check_test0
test_1check
turukame_1
turu1kame
hidemaru
abcdefghijklmnopqrstuvwxyz0123456789
0123456789abcdefghijklmnopqrstuvwxyz
//結果
検索DLL=HMJRE.DLL
検索文字：t\w
検索終了
検索DLL=JRE32.DLL
検索文字：t\w
test_check
test
test_
turukame_
turu
tuvwxyz
tuvwxyz
検索終了
検索DLL=BRegIf.dll
検索文字：t\w+
test_check
test0
test_1check
turukame_1
turu1kame
tuvwxyz0123456789
tuvwxyz
検索終了
macro end...
//テストマクロ
debuginfo 1;
openreg "CURRENTUSER","Software\\Hidemaruo\\Hidemaru\\Env";
if(result){
$search = input("検索文字", "t\\w");
$dll_name = getregstr("JreDll");
call search_main $search;
writeregstr "JreDll", "JRE32.DLL";
envchanged;
call search_main $search;
writeregstr "JreDll", "BRegIf.dll";
envchanged;
call search_main $search + "+";
writeregstr "JreDll", $dll_name;
envchanged;
closereg;
debuginfo "macro end...";
}
endmacro;
search_main:
debuginfo "検索DLL=" + getregstr("JreDll");;
debuginfo "検索文字：" + $$1;
gofiletop;
searchdown2 $$1, regular;
#ret = result;
while(#ret){
debuginfo " " +gettext(foundtopx, foundtopy, foundendx, foundendy);
moveto foundendx, foundendy;
searchdown $$1, regular;
#ret = result;
}
debuginfo "検索終了";
return;
|
|