行末が数値(:nn)の行を引用(メーラー部用)

行末が数値(:nn)の行のみを、クリップボード上で引用形式(> )に編集します。

// Start of EdMax Macro
CHAR MacroComment[] = "行末が数値(:nn)の行を引用(メーラー部用)"
// #----------------------* Prolog
SaveCurrentFindCondition( ) ;       //保存:検索条件
SetFocusToView( ) ;                 //フォーカス:ビュー画面へ
ClearClipboard( ) ;                 //クリップボードをクリア
KeyDown( VK_HOME , 2 ) ;            //Ctrl+Homeキー
FindString( TRUE , FALSE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , "\\n\\n" ) ;  //本文開始位置を検索(次を検索)
KeyDown( VK_RIGHT , 0 ) ;           //→キー
// #----------------------* LoopStart
FindString( TRUE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , ":[0-9]+$" ) ;   //次の行末数字を検索
IfStringNotFound( 11 ) ;            //LoopEndへ
  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 ) ;            //LoopStartへ
// #----------------------* (LoopEnd) 引用記号編集
InsertStringEx( 3 , "> " ) ;        //挿入:文字列(クリップボードの行頭)
// #----------------------* Epilog
SetFocusToList( ) ;                 //フォーカス:リスト画面へ
RestoreCurrentFindCondition( ) ;    //復元:検索条件
// End of EdMax Macro