行末が数値(:nn)の行のみを抽出(エディタ部用)

選択範囲内を抽出し、行末が数値(:nn)の行のみとする

// Start of EdMax Macro
CHAR MacroComment[] = "選択範囲内の行末が数値(:nn)の行を抽出(エディタ部用)"
// #----------------------* Prolog
SaveCurrentFindCondition( ) ;       //保存:検索条件
SetFocusToEditor( ) ;               //フォーカス:メッセージ作成画面へ
// #----------------------* 選択範囲を新規メッセージへ
CopyString( ) ;                     //コピー
NewMessage( ) ;                     //新規メッセージ(エディタ部)
SelectAllString( ) ;                //すべてを選択
InsertString( "\r\n" ) ;            //キーボード入力(改行)
PasteString( ) ;                    //貼り付け
KeyDown( VK_HOME , 2 ) ;            //Ctrl+Homeキー
ClearClipboard( ) ;                 //クリップボードをクリア
// #----------------------* Loop
                                    //次の行末数字を検索
FindString( TRUE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "：[0-9]+$" ) ;
IfStringNotFound( 11 ) ;
  KeyDown( VK_RIGHT , 0 ) ;         //→キー
  KeyDown( VK_RIGHT , 0 ) ;         //→キー
  SetAnchor( ) ;                    //アンカーの設定
  KeyDown( VK_LEFT , 0 ) ;          //←キー
                                    //前の改行文字を検索
  FindString( FALSE , FALSE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , "\\n" ) ;
  KeyDown( VK_RIGHT , 0 ) ;         //→キー
  SetAnchor( ) ;                    //アンカーの設定
  SelectAnchorArea( ) ;             //アンカー間を選択
  AddCopyString( ) ;                //追加コピー
  KeyDown( VK_RIGHT , 0 ) ;         //→キー
  IfStringFound( -12 ) ;            //行末数字を検索(FindString)へ
// #----------------------* 加工結果を貼り付け
CloseFileNoConfirmation( ) ;        //保存確認せずに閉じる
PasteSelected( ) ;                  //選択状態で貼り付け
// #----------------------* Epilog
RestoreCurrentFindCondition( ) ;    //復元:検索条件
// End of EdMax Macro