| |
> ki さん今日は、Iranoan です。
>> 英文中の英単語数カウントマクロを前々から探している
> 一度
>http://hidemaruo.dip.jp:81/hidesoft/hidesoft_4/x04399.html
>のスレッドを御覧ください。
ありがとうございます。マボカルさんのマクロの一部をIranoanさんの提案によって
書き換えたマクロを使わせていただきました。このマクロでワードと同じ数値で英単
語数をカウントしてくれてとても便利です。ありがとうございます。
Iranoanさん、長いマクロで素人には理解さえ難しいのですが、さらなる改善という
ような点はありえるのでしょうか？
//--------------------------------------------------------------------
disabledraw;
openreg "CURRENTUSER", "Software\\Hidemaruo\\Hidemaru\\Env";
#reg_search=getregnum("SelectFound");
if(!#reg_search){
writeregnum "SelectFound",1;
envchanged;
}
closereg;
$search=searchbuffer;
#search=searchoption;
#orgX=x;
#orgY=y;
gofiletop;
searchdown2 "([a-zA-Z-]+-\\n[a-zA-Z-]+|[a-zA-Z][a-zA-Z'.-]*|[0-9][0-9,.]*)",
regular;
while(result){
moveto selendx,selendy;
#word_num=#word_num+1;
finddown2;
}
moveto #orgX,#orgY;
message "単語の数は "+str(#word_num)+" 個です。";
if(!#reg_search){
openreg "CURRENTUSER", "Software\\Hidemaruo\\Hidemaru\\Env";
writeregnum "SelectFound",#reg_search;
envchanged;
closereg;
}setsearch $search, #search;
|
|