| |
マボカルさん今日は、Iranoan です。
> 会議室の皆様こんにちは。今回は英語など、分かち書きされた文の
> 文字数ではなく、単語数の数え方のについてご意見を伺いにきました。
<snip>
> スペースで分かち書きされた単語をカウントするマクロが無いので、
> 自分で組もうとしていますが、アイディアが単純で大きなファイルを
> 扱う場合、非常に使いにくそうな気がします。
もしこの様にスペースか改行で分かち書きされているなら、連続する空白、
改行と句読点の数を数えればよいので、末尾のマクロで数えられると思います。
何を単語とするかによって、回答が変わっては来るのですが...。
//--------------------------------------------------------------------
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 "([ \\t 。、\\.,]+|[^ \\t 。、\\.,]$)",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;
|
|