gPad用 文字数・行数・ヒット数.js

/**
 * -----------------------------------------------------------------------------
 * 【gPad 用】文字数・行数・ヒット数
 * sukemaru ( 2019/08/26 - 2019/09/02 )
 * -----------------------------------------------------------------------------
 * Mery 用マクロ「バイト数と文字数・行数」と「検索ヒット数表示」を gPad 用に改編。
 * ref.『マクロライブラリ - MeryWiki』
 *   https://www.haijin-boys.com/wiki/マクロライブラリ
 *   https://www.haijin-boys.com/wiki/バイト数#バイト数と文字数・行数
 *   https://www.haijin-boys.com/wiki/検索ヒット数表示（選択文字列）
 * -----------------------------------------------------------------------------
 * 編集中の文書または選択範囲の文字数と行数をステータスバーに表示します。
 * 選択範囲があるときは、選択文字列の出現回数を表示します。
 * ※ このマクロは、改行を含む選択範囲でもヒット件数をカウントできます。
 *
 * ※ ソースコード末尾に動作仕様（制限事項）の説明があります。
 */


// ---------- ▼ 設定項目 ▼ ----------

// ■ 行数のカウント方法
// true：論理行（改行） ／ false：物理行（折り返し）
var logical = true;         // 初期値： true （ ← false でも論理行でカウント）

// ■ 選択範囲の末尾が改行記号のときの 行数のカウント方法
// true：次の行頭を含めない ／ false：含める
var ignoreEnter = true;     // 初期値： true （ ← gPad 方式）

// ■ 文字数のカウント方法 での改行記号 CR+LF の数え方
// true：２文字あつかい ／ false：１文字あつかい
// ヒット数のカウントのさい、true →区別する ／ false →区別しない  になります
var countCRLF = true;       // 初期値： true （ ← gPad 方式）

// ■ ヒット数のカウント方法
// true：大文字と小文字を区別する ／ false：区別しない
var matchCase = false;      // （← 選択マーカーにあわせるとよい）

// ■ ｢あああああ｣ ５文字だけの文書で ｢ああ｣ を範囲選択したときのカウント方法
// true：ヒット数 ２件 ／ false：ヒット数 ４件
var countMinimum = true;    // 初期値： true （ ← gPad 方式）

// ■ 選択範囲なし、または「すべて選択」のときにファイルサイズを表示
// true：表示する ／ false：表示しない
var bytesEnable = true;     // 初期値： true

// ■ マクロの処理の所要時間を表示
// true：表示する ／ false：表示しない
var timerEnable = true; // 初期値： false

// ---------- ▲ 設定項目 ▲ ----------


var timerStart = new Date();
var d = editor.ActiveDocument;
var s = d.selection;
var isEmpty = s.IsEmpty;    // 「範囲選択なし」のフラグ
var selAll = false;         // 「すべて選択」のフラグ
var posMode = logical ? ePosLogical : ePosView;     // ※ ePosView は未対応
var dLines = d.GetLines();
var dt = countCRLF ? d.Text : d.Text.replace( /\r(?:\n)?/g, "\n" );
var lines;
var st = "";
var statusStr = "";


// 範囲選択なしなら文書全体の文字列と行数
if ( isEmpty ) {
  st = dt;
  lines = d.GetLines();
}
// 範囲選択ありなら選択範囲の文字列と行数
else {
  st = countCRLF ? s.Text : s.Text.replace( /\r(?:\n)?/g, "\n" );
  selAll = ( st == dt );
  lines = s.GetBottomPointY( posMode )
        - s.GetTopPointY( posMode )
        + ( ( ignoreEnter && /[\r\n]$/.test( st ) ) ? 0 : 1 );
}


/* 範囲選択なしのときは 文書全体の文字数・行数 を、
   　　　　ありのときは 選択範囲の文字数・行数 をステータスに表示 */
var charStr = "　" + ( selAll || isEmpty ? "全体 " : "選択: " )
            + st.length + " 文字";
var lineStr = " ( " + lines + " 行 )";

statusStr = charStr + lineStr;


/* 範囲選択なし、またはすべて選択のときはファイルサイズをステータスに追加 */
// ※ イベントマクロにするなら、条件は isEmpty なしのほうがよいかも
var Fso = new ActiveXObject( "Scripting.FileSystemObject" );
var fileSize = ( bytesEnable && ( isEmpty || selAll ) && d.Saved )
                 ? Fso.GetFile( d.FullName ).Size
                 : 0;
var fileSizeStr = "  /  ファイルサイズ： " + fileSize + " バイト )";

statusStr += fileSize ? fileSizeStr : "";


/* 選択文字列のヒット数をステータスに追加 */
statusStr += ( isEmpty || selAll )
           ? ""
           : HitStatus( st, dt, matchCase, countMinimum );

// ステータスバーに送信
Status = SeparateNum( statusStr );

/* マクロの処理の所要時間をステータスバーに追加 */
Status += timerEnable ? TimerElapsed( new Date(), timerStart ) : "";

// -----------------------------------------------------------------------------

/**
 * 関数 SeparateNum( str )
 * 文字列中の数字を３ケタ区切りに
 */
function SeparateNum( str ) {
  return str.replace( /(\d)(?=(?:\d{3})+[^\d])/g, "$1," );
}

/**
 * 関数 TimerElapsed( end, start )
 * マクロの処理の所要時間を計測
 */
function TimerElapsed( end, start ) {
  var elapsedSec = ( ( end - start ) / 1000 ).toFixed( 3 );
  return "　[ " + elapsedSec.replace( /\./, ". " ) + " 秒 ]";
}

/**
 * 関数 HitStatus( strSelection, strDocuText, matchCase, countMinimum )
 * 選択文字列の出現回数を返す
 */
function HitStatus( word, docu, matchCase, countMinimum ) {
  var word = matchCase ? word : word.toLowerCase();
  var docu = matchCase ? docu : docu.toLowerCase();
  var len = word.length;
  var pos = 0,  count = 0,  hit = 0;
  while ( pos >= 0 ) {
    pos = docu.indexOf( word, pos );
    if ( pos >= 0 ) {
      count ++;
      pos += countMinimum ? len : 1;
    }
  }
  return "  /  ヒット数：" + count + " 件";
}


// -----------------------------------------------------------------------------

/**
 * ▼ 動作仕様 ／ 制限事項 ▼
 *
 * ※ このマクロは、矩形選択範囲では正しく機能しません。
 *
 * ※ 設定項目の logical が無効（false）でも、
 *    行数は論理行数で表示されます（折り返し行数を考慮しない）。
 *    gPad ver 3.0.2 時点では、本体の仕様により物理行カウントには非対応です。
 *
 * ※ 各設定項目で無効（true）を "gPad 方式" としているのは、
 *    通常の範囲選択中にステータスバーに表示されるカウント方式にあわせた表現です。
 *
 * ※ 設定項目 ignoreEnter の有効（true）／無効（false）いずれでも、
 *    文字数のカウントでは選択範囲末尾の改行記号を含めまて数えます。
 *
 * ※ 文字数のカウントでは、設定項目の countCRLF を無効（false）にすることで
 *    改行記号の CR+LF と CR と LF の区別なしに１文字として扱うことができます。
 *    また、ヒット数のカウント方法では、countCRLF が無効（false）のとき
 *    改行コードの CR+LF と CR と LF を同一視します。
 * ※ このマクロは、エディタ上の改行コードの表示形式を自動識別しません。
 *    設定項目の countCRLF で指定された方法で改行文字を扱いますので
 *    CR+LF／CR／LF が混在（複合）する文書ではご注意ください。
 *
 * ※「あああああ」５文字だけの文書で「ああ」を検索した場合、
 *    gPad の通常の検索ダイアログでは "２件" とカウントされます。
 *    また、「あ あ あ」５文字だけの文書で「あ あ」を検索した場合は、
 *    gPad の検索ダイアログでは "１件" とカウントします。
 *    このマクロでは、設定項目の countMinimum を無効（false）にすると
 *    上の例の「ああ」を "４件"、「あ あ」を "２件" とカウントします。
 *
 * ※ 設定項目の bytesEnable が有効（true）で、
 *   「選択範囲なし」または「すべて選択」の状態のときのみ、
 *    実体ファイルのファイルサイズを表示できます。
 *    ただし、「無題」や「未保存状態*」のタブでは表示しません。
 *
 *
 * ▼ Mery 版から移植しなかった機能 ▼
 *
 * ・選択範囲の行数の「物理行」でのカウント
 *  （gPad 本体の仕様で ePosView は未対応、
 *    また、GetLines メソッドに物理行カウント用の定数がない）
 *
 * ・ヒットした文字列が「何件め」かの表示
 *   （GetActivePos メソッドがない）
 *
 * ・未保存の文書のファイルサイズ換算処理
 *   （文字コード形式の定数がわからない）
 *
 */