soltioxの日記： 【誰得】apsaly/miko サンプルスクリプト 文字列の計数【俺得】

改定履歴
r01:20100306 選択領域の先頭ジャンプを、非選択時はオミット
別に、現状でもいけてるっぽいけど、念為　ってコトで

// 検索文字列出現回数のカウント
// 文字入力ダイアログで、検索文字列を入力
// 選択領域不在時は、カーソル現位置以降、文末まで検索
// 選択領域存在時は、選択領域内で検索
// 計数結果はダイアログに表示
 
    'AddScope( ::Apsaly );
 
    CodeIndex = 'Ci;
    SelType = GetSelType();
    ( SelStart, SelEnd ) = GetSelRange( 2 );
    if( SelType != 0 ) MoveTo( SelStart'Ci ); //r01
 
    SearchWord = ::Input( "検索文字列：", "" );
    SearchCount = 0;
 
    SetFindCond( SearchWord, "RG" );
    if( SelType == 0 ){
        while( FindFwd() >= 0 ) SearchCount += 1;
    } else {
        while( FindFwd() >= 0 )
            if( 'Ci < SelEnd )
                SearchCount += 1;
            else
                break;
    }
 
    MoveTo( CodeIndex'Ci );
    ::Confirm( SearchCount'd );