| |
TAKA です。
> 後はやまぐさんの使用方法によると思いますが、句読点や括弧などの記号
>をどういった扱いにするかですね。この辺りを詳しく書かれるとより正確な
>マクロを TAKA さんが作成して下さると思います(^^)。→やまぐさん
やまぐさんに言われる前に、先に対応しておきます。
「Count:」以降を以下の内容に差し替えて下さい。
$$Tbl = " ,。、"の部分にカウント対象外にしたい文字を羅列す
れば、それらはカウントの対象外になります。
// 差し替え分（ここから）
Count:
$$Tbl = " ,。、"; // カウント対象外文字テーブル
gofiletop;
##Count = 0;
while( code != eof )
{
##Code = code;
if( ( ##Code == 0 ) || ( ##Code == 0x0D ) )
{ // 改行以降 or 改行
moveto 0, y + 1;
continue;
}
else if( ##Code == 0x09 )
{ // タブ
}
else if( strstr( $$Tbl, char( ##Code ) ) != -1 )
{ // カウント対象外文字
}
else
{ // 通常文字
##Count = ##Count + 1;
}
right;
}
return ##Count;
// 差し替え分（ここまで）
|
|