「検索ヒット数表示(選択文字列)」の版間の差分

Sukemaru (トーク | 投稿記録)
機能強化バージョン「文字数・行数・ヒット件数(選択文字列)」を追加
Sukemaru (トーク | 投稿記録)
「機能強化バージョン」を更新
10行目: 10行目:


<span style="color:#c00;">※ このマクロと Mery 標準の検索メソッドとでは、ヒット数のカウントの仕方が異なります。 </span>
<span style="color:#c00;">※ このマクロと Mery 標準の検索メソッドとでは、ヒット数のカウントの仕方が異なります。 </span>
:Mery の検索ではヒットした文字列の「先頭位置より1文字うしろ」から再検索しますが、このマクロではヒットした文字列の「末尾位置」から再検索します。
:''e.g.''「あ<span style="background:#bfdfff;">ああ</span>ああ」5文字だけの文書で「<span style="background:#bfdfff;">ああ</span>」を検索した場合、このマクロでは "2件" とカウントしますが、Mery の検索メソッド(次/前を検索)では "4回" ヒットします。<br> また、「あい<span style="background:#bfdfff;">あいあ</span>」5文字だけの文書で「<span style="background:#bfdfff;">あいあ</span>」を検索した場合は、このマクロでは "1件" とカウントします(Mery の検索メソッドでは "2回" ヒット)。
:''e.g.''「あ<span style="background:#bfdfff;">ああ</span>ああ」5文字だけの文書で「<span style="background:#bfdfff;">ああ</span>」を検索した場合、このマクロでは "2件" とカウントしますが、Mery の検索メソッド(次/前を検索)では "4回" ヒットします。<br> また、「あい<span style="background:#bfdfff;">あいあ</span>」5文字だけの文書で「<span style="background:#bfdfff;">あいあ</span>」を検索した場合は、このマクロでは "1件" とカウントします(Mery の検索メソッドでは "2回" ヒット)。
:→ 「何件目」かの表示は、上の例のような範囲選択をしている場合には不正確な値を返します。
:→ 「何件目」かの表示は、上の例のような範囲選択をしている場合には不正確な値を返します。
18行目: 19行目:
※ このマクロでは、イベントマクロで利用する場合の処理速度を優先させるために「[[検索ヒット数表示]] (JScript)」 マクロのような正規表現検索には対応させていません。また、文字列のヒット判定では「大文字と小文字を区別する」が適用され、「単語のみを検索する」は適用されません。
※ このマクロでは、イベントマクロで利用する場合の処理速度を優先させるために「[[検索ヒット数表示]] (JScript)」 マクロのような正規表現検索には対応させていません。また、文字列のヒット判定では「大文字と小文字を区別する」が適用され、「単語のみを検索する」は適用されません。


※ イベントマクロで利用する場合は「'''遅延時間'''」を適宜調整しないと、大きな文書の編集のさいに動作がもたつくことがあります。
※ イベントマクロで利用する場合は「'''遅延時間'''」を適宜調整しないと、大きな文書の編集のさいに動作が "もたつく" ことがあります。
 


オプション指定をつけてヒット数を調べたい場合は、「[[ポップアップメニューで検索先にジャンプ|ポップアップメニューで検索先にジャンプ]] 」マクロの '''include''' 版をご利用ください(イベントマクロにはできませんが)。
オプション指定をつけてヒット数を調べたい場合は、「[[ポップアップメニューで検索先にジャンプ|ポップアップメニューで検索先にジャンプ]] 」マクロの '''include''' 版をご利用ください(イベントマクロにはできませんが)。
※ 高度な(煩雑な)動作設定が可能な [[#機能強化バージョン|機能強化バージョン]] を追加(2019/08/26)


=== ソースコード ===
=== ソースコード ===
65行目: 71行目:
     if ( pos >= 0 ) {
     if ( pos >= 0 ) {
       count ++;
       count ++;
       if ( pos <= tPos  ) {
       if ( pos == tPos  ) {
         hit = count;
         hit = count;
       }
       }
95行目: 101行目:
※ 引数が「選択範囲の文字列」でない場合は、キャレット位置までのヒット数を「m 件目」として返します(ただし、キャレットのすぐ右に指定文字列がある場合は、『m 件目』の値 + 1 で返します)。
※ 引数が「選択範囲の文字列」でない場合は、キャレット位置までのヒット数を「m 件目」として返します(ただし、キャレットのすぐ右に指定文字列がある場合は、『m 件目』の値 + 1 で返します)。


※ その他、仕様・注意事項については[[#単独マクロバージョン|単独マクロバージョン]]に準じます。
※ その他、仕様・注意事項については [[#単独マクロバージョン|単独マクロバージョン]] に準じます。


=== 使用例 ===
=== 使用例 ===
125行目: 131行目:
       if ( pos >= 0 ) {
       if ( pos >= 0 ) {
         count ++;
         count ++;
         if ( pos <= tPos  ) { hit = count; }
         if ( pos == tPos  ) { hit = count; }
         pos += len;
         pos += len;
       }
       }
152行目: 158行目:


=== ソースコード ===
=== ソースコード ===
2019/08/28 更新
<source lang="javascript">
<source lang="javascript">
#title = "文字数・行数・ヒット件数(選択文字列)"
#title = "文字数・行数・ヒット件数(選択文字列)"
160行目: 168行目:
  * --------------------------------------------------------------------
  * --------------------------------------------------------------------
  * 文字数・行数・ヒット数
  * 文字数・行数・ヒット数
  * sukemaru ( 2019/08/26 )
  * sukemaru ( 2019/08/26 - 2019/08/28 )
  * --------------------------------------------------------------------
  * --------------------------------------------------------------------
  * 編集中の文書または選択範囲の文字数と行数をステータスバーに表示します。
  * 編集中の文書または選択範囲の文字数と行数をステータスバーに表示します。
166行目: 174行目:
  *  
  *  
  * 選択範囲のある状態でマクロを手動で実行するか、
  * 選択範囲のある状態でマクロを手動で実行するか、
  * イベント「選択範囲が変更されたとき」に設定して自動で実行させる想定。
  * イベント「選択範囲が変更された時」に設定して自動で実行させる想定です。
*
* ▼ 制限事項 ▼
*
* ※ 矩形選択範囲では正しく機能しません。
*
* ※ 「行数のカウント方法」の設定項目 Logical と ignoreEnter で
*    無効(false)を「Mery 方式」としているのは、
*    ステータスバーの中央右寄りに表示される "選択範囲の行数" の数え方に
*    合せるための表現です。
*    ignoreEnter を有効(true)にしても、
*    文字数のカウントには選択範囲末尾の改行記号を含めます。
*
* ※ 文字数のカウントでは、改行コードの
*    CR+LF と CR と LF の区別なしに1文字として扱います。
*
* ※ 「あああああ」5文字だけの文書で「ああ」を検索した場合、
*    このマクロでは "2件" とカウントします。
*    また、「あ あ あ」5文字だけの文書で「あ あ」を検索した場合は、
*    このマクロでは "1件" とカウントします。
  *  
  *  
  * ※ 設定項目の bytesEnable が有効(true)で「すべて選択」状態のときのみ、
  * ※ ソースコード末尾に動作仕様(制限事項)の説明あり。
*    実体ファイルのファイルサイズを表示できます。
*    ただし、「無題」や「未保存状態*」のタブでは表示しません。
  */
  */
var timerStart = new Date();
var d = editor.ActiveDocument;




196行目: 186行目:


// ■ 行数のカウント方法
// ■ 行数のカウント方法
// true:論理行(改行) / false:物理行(折り返し ← Mery 方式)
// true:論理行(改行) / false:物理行(折り返し)
var logical = false;
var logical = false; // 初期値: false( ← Mery 方式)
 
// ■ 選択範囲の末尾が改行記号のときの 行数のカウント方法
// true:次の行頭を含めない / false:含める
var ignoreEnter = false; // 初期値: false( ← Mery 方式)


// ■ 選択範囲の末尾が改行記号のときの行数のカウント方法
// ■ 文字数のカウント方法 での改行記号 CR+LF の数え方
// true:次の行頭を含めない / false:含める( ← Mery 方式)
// true:2文字あつかい / false:1文字あつかい
var ignoreEnter = false;
var countCRLF = false; // 初期値: false( ← Mery 方式)


// ■ ヒット数のカウント方法
// ■ ヒット数のカウント方法
// true:大文字と小文字を区別しない / false:区別する
// true:大文字と小文字を区別する / false:区別しない
var ignoreCaseEnable = true;
var matchCase = false; // 初期値: false( ← 自動マーカーの初期値)
 
// ■ 「あああああ」 5文字だけの文書で 「ああ」 を範囲選択したときのカウント方法
// true:ヒット数 2件 / false:ヒット数 4件
var countMinimum = false; // 初期値: false( ← Mery 方式)


// ■ ファイルサイズの表示
// ■ 「すべて選択」でファイルサイズを表示
// true:表示する / false:表示しない
// true:表示する / false:表示しない
var bytesEnable = true;
var bytesEnable = true; // 初期値: true


// ■ マクロの処理の所要時間の表示
// ■ マクロの処理の所要時間を表示
// true:表示する / false:表示しない
// true:表示する / false:表示しない
var timerEnable = false;
var timerEnable = false; // 初期値: false
 
 
/* 未保存文書のバイト数の計算用 */
 
// ■ 文字コードの形式の指定
// "" なら文書の文字コード形式 / 指定時はその文字コード(e.g. "sjis", "utf-8")
var encoding = ""; // 初期値: 自動
 
// ■ 改行コードの形式の指定
// true: CR+LF / false: CR or LF / 「d.LineEnding == 0」: 自動( ← 要 Mery 2.6.10 以上)
var CRLF = ( d.LineEnding == 0 ); // 初期値: 自動
 
// ■ BOM コード分を加算するかの指定
// true: BOM を考慮する / false: 考慮しない
var BOM = false; // 初期値: false


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




var timerStart = new Date();
var d = editor.ActiveDocument;
var s = d.selection;
var s = d.selection;
var isEmpty = s.IsEmpty; // 「範囲選択なし」のフラグ
var isEmpty = s.IsEmpty; // 「範囲選択なし」のフラグ
var selAll = false; // 「すべて選択」のフラグ
var selAll = false; // 「すべて選択」のフラグ
var posMode = logical ? mePosLogical : mePosView;
var posMode = logical ? mePosLogical : mePosView;
var lineMode = logical ? 0 : meGetLineView;
var lineMode = logical ? 0 : meGetLineView;
var dLines = d.GetLines( lineMode );
var sLines;
var dt = d.Text;
var dt = d.Text;
var lines;
var st;
var st;
var statusStr;
var statusStr;


// 範囲選択なしなら文書全体の文字列と行数
// 範囲選択なしなら文書全体の文字数と行数(論理行 or 表示行)
if ( isEmpty ) {
if ( isEmpty ) {
   st = dt;
   st = dt;
  lines = d.GetLines( lineMode );
}
}
// 範囲選択ありなら選択範囲の文字列と行数
// 範囲選択ありなら選択範囲の文字数と行数(論理行 or 表示行)
else {
else {
   st = s.Text;
   st = s.Text;
   selAll = ( st == dt );
   selAll = ( st == dt );
   sLines = s.GetBottomPointY( posMode )
   lines = s.GetBottomPointY( posMode )
         - s.GetTopPointY( posMode )
         - s.GetTopPointY( posMode )
         + ( ( ignoreEnter && /[\r\n]$/.test( st ) ) ? 0 : 1 );
         + ( ( ignoreEnter && /[\r\n]$/.test( st ) ) ? 0 : 1 );
}
}
var sLen = st.length;
// 文字数( CR+LF 補正 )
var isCRLF = ( countCRLF && CRLF );
var sLen = st.length
        + ( isCRLF ? ( st.match( /\n/g ) || [] ).length : 0 );


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


statusStr = charStr + lineStr;
statusStr = charStr + lineStr;


// すべて選択のときはファイルサイズを取得する
// すべて選択のときはファイルサイズを取得する
var Fso = new ActiveXObject( "Scripting.FileSystemObject" );
var fso = new ActiveXObject( "Scripting.FileSystemObject" );
var fileSize = ( bytesEnable && selAll && d.FullName && d.Saved )
var fileSize = ( bytesEnable && selAll )
                 ? Fso.GetFile( d.FullName ).Size
            ? d.Saved
                 : "";
                 ? fso.GetFile( d.FullName ).Size // ファイルプロパティから
var fileSizeStr = " ( ファイルサイズ: " + fileSize + " バイト )";
                 : CalculateBytesKs( dt, d ) // ks 版「バイト数」マクロ
            : 0;
var fileSizeStr = fileSize
                ? " ( ファイルサイズ: " + fileSize + " バイト )"
                : "";


// ファイルサイズ、または選択範囲の文字列のヒット数をステータスバーに追加
/* ファイルサイズ、または選択文字列のヒット数をステータスバーに追加 */
statusStr += ( isEmpty || selAll )  
statusStr += ( isEmpty || selAll )  
              ? ( fileSize ? fileSizeStr : "" )
          ? fileSizeStr
              : HitStatus( st, dt, ignoreCaseEnable );
          : HitStatus( st, dt, matchCase, countMinimum );
 
/* マクロの処理の所要時間をステータスバーに追加 */
statusStr += timerEnable ? TimerElapsed( new Date(), timerStart ) : "";
statusStr += timerEnable ? TimerElapsed( new Date(), timerStart ) : "";


287行目: 307行目:


/**
/**
  * 関数 HitStatus( strSelection, strDocuText, ignoreCase )
  * 関数 HitStatus( strSelection, strDocuText, matchCase, countMinimum )
  * 選択文字列の出現回数を返す
  * 選択文字列の出現回数を返す
* ※ 変数 s はグローバルスコープの Document.Selection
  */
  */
function HitStatus( word, docu, i ) {
function HitStatus( word, docu, matchCase, countMinimum ) {
   word = i ? word.toLowerCase() : word;
   var word = matchCase ? word : word.toLowerCase();
  var docu = matchCase ? docu : docu.toLowerCase();
   var len = word.length;
   var len = word.length;
  var docu = i ? docu.toLowerCase() : docu;
   var tPos = Math.min( s.GetActivePos(), s.GetAnchorPos() );
   var tPos = Math.min( s.GetActivePos(), s.GetAnchorPos() );
   var pos = 0,  count = 0,  hit = 0;
   var pos = 0,  count = 0,  hit = 0;
300行目: 321行目:
     if ( pos >= 0 ) {
     if ( pos >= 0 ) {
       count ++;
       count ++;
       if ( pos <= tPos ) {
       if ( pos == tPos ) {
         hit = count;
         hit = count;
       }
       }
       pos += len;
       pos += countMinimum ? len : 1;
     }
     }
   }
   }
   return "  /  ヒット数:" + count + " 件"
   return "  /  ヒット数:" + count + " 件"
         + " ( " + hit + " 件目 ) ";
         + " ( " + hit + " 件目 ) ";
}
/**
* 関数 CalculateBytesKs( str, objDocu )
* ks 版「バイト数」マクロのコードを関数化
* ※ グローバルスコープの変数を利用する
*/
function CalculateBytesKs( str, objDocu ) {
  var dEnc = objDocu.Encoding;
  str = ( CRLF == true ) ? str.replace( /\r?\n/g, "\r\n" ) : str;
  var charset = "",  bytes = 0;
  if ( ! encoding ) {
    switch ( dEnc ) {
      case meEncodingUTF16LENoBOM:  case meEncodingUTF16BENoBOM:
        bytes = str.length * 2;
        return bytes;
      case meEncodingUTF16LEBOM:  case meEncodingUTF16LE:
      case meEncodingUTF16BEBOM:  case meEncodingUTF16BE:
        bytes = ( str.length * 2 ) + ( BOM ? 2 : 0 );
        return bytes;
      case meEncodingUTF8BOM:  case meEncodingUTF8NoBOM:
        charset = "utf-8"; break;
      case meEncodingUTF7:
        charset = "utf-7";  break;
      case meEncodingEUC:
        charset = "euc-jp";  break;
      case meEncodingJIS:
        charset = "iso-2022-jp";  break;
      case meEncodingShiftJIS:
        charset = "sjis";  break;
    }
  }
  else { charset = encoding; }
  var adodb = new ActiveXObject( "ADODB.Stream" );
  adodb.Type = 2,  adodb.Charset = charset;
  adodb.Open();
  adodb.WriteText( str );
  bytes = adodb.Position;
  adodb.Close();
  if ( ! encoding &&
      ( dEnc == meEncodingUTF8NoBOM ||
      ( ! BOM && dEnc == meEncodingUTF8BOM ) ) ) {
    bytes -= 3;
  }
  return bytes;
}
}
</source>
</source>
/**
  * イベント「選択範囲が変更された時」以外にも、
  * 「ファイルを開いた時」「テキストが変更された時」「文字が挿入された時」
  * 「アクティブな文書が変更された時」など、任意で。
  *
  * ※ イベントの設定で「<b style="color:#c00;">遅延時間</b>」を適宜調整すること
  * (とくに「カーソルが移動した時」を適用する場合は遅延を長めに)。
  *
  * 「ヒット数のカウント方法」の設定項目「大文字と小文字を区別」は、
  * 自動マーカーの設定状態(初期値:false)にあわせるのがよろしいかと。
  *  表示メニュー >> マーカー >> マーカーの設定... >> オプション
  *
  *
  * ▼ '''動作仕様 / 制限事項''' ▼
  *
  * ※ 矩形選択範囲では正しく機能しません。
  *
  * ※ 各設定項目で無効(false)を "Mery 方式" としているのは、
  *    ステータスバーの中央右寄りに表示される "選択範囲" の数え方にあわせた表現です。
  *    設定項目 ignoreEnter を有効(true)にしても、
  *    [https://www.haijin-boys.com/software/mery/mery-tips#1 文字数のカウント]では選択範囲末尾の改行記号を含めます。
  *
  * ※ 文字数のカウントでは、改行記号の
  *    CR+LF と CR と LF <s>の区別なしに1文字として扱います</s>( ← Mery 方式)。
  * <span style="color:#0000c0;">→ 設定変数で区別可能にした(※ 推奨要件: Mery ver 2.6.10 以上)</span>
  *
  *    よそのエディタの 表示/カウント 方式にあわせたい場合は、
  *    任意の項目を有効化(true)してください。
  *
  * ※ 「あああああ」5文字だけの文書で「ああ」を範囲選択した場合、
  *    <s>このマクロではヒット数を "2件" としてカウントします</s>
  *    (Mery の検索メソッドでは "4回" ヒットする)。
  *    また、「あ あ あ」5文字だけの文書で「あ あ」を検索した場合は、
  *    <s>"1件" とカウントします</s>(Mery の検索では "2回" ヒット)。
  * <span style="color:#0000c0;">→ 設定変数で切り替え可能にした</span>
  *    <span style="color:#c00;">ただし、countMinimum = true で上の例のような範囲選択をしている場合、</span>
  *    <span style="color:#c00;">「n件目」表示は不正確な値を返します。</span>
  *
  * ※ 設定項目の bytesEnable が有効(true)で「すべて選択」状態のときのみ、
  *    <s>実体ファイルの</s>ファイルサイズを表示できます。
  * <span style="color:#0000c0;">→ 「無題」や「未保存*」のタブでは文字数から「[[バイト数#文字コードを指定,または取得してバイト数を計算|バイト数]]」を計算するようにした</span>
  *
  * 「すべて選択」以外の状態でもバイト数を計算させることはできますが、
  * イベントマクロとして使うには適さないので… (とくにロースペ PC では)
  */
スポンサーリンク