文字数のカウント

カーソル上のテキストファイルの文字数をカウントするスクリプト。文字数を気にする類の文章を書いている時に使えるかもしれない。

やり方

以下をScriptフォルダに保存

wordcount.js

//!*script

var objItem = PPx.Extract("%FCD");
var objFileSys = new ActiveXObject("Scripting.FileSystemObject");

// .txtか.howm以外なら終了
if (!objFileSys.GetExtensionName(objItem).match(/txt$|howm$/i)) {
  PPx.Quit();
}

objInFile = objFileSys.OpenTextFile(objItem, 1);
PPx.Execute("*linemessage " + objInFile.ReadAll().length);
objInFile.Close();

以下のコマンドを適当なキーに登録する。

*script %0\Script\wordcount.js

PPc上で実行すれば、情報行に文字数が表示される。

PPv上でも実行可能。