行末キーワードを判断し行削除

• エディタ部で対象範囲を選択した状態で実行します。
• 行末が「hoge1」もしくは「hoge2」の行を削除します
• 行末キーワードの追加は「hoge1」の行を部分を複写しアレンジしてください

// Start of EdMax Macro
CHAR MacroComment[] = "行末を判断しキーワード行を削除(エディタ部用)"
// #----------------------* Prolog
SaveCurrentFindCondition( ) ;       //保存:検索条件
SaveCurrentAutoFormSwitch( ) ;      //保存:自動整形ON/OFF
OffAutoForm( ) ;                    //OFF:自動整形
SetFocusToEditor( ) ;               //フォーカス:メッセージ作成画面へ
// #----------------------* 選択範囲を新規メッセージへ
CopyString( ) ;                     //コピー
NewMessage( ) ;                     //新規メッセージ(エディタ部)
SelectAllString( ) ;                //すべてを選択
InsertString( "\r\n" ) ;            //キーボード入力(改行)
PasteString( ) ;                    //貼り付け
// #----------------------* Loop(行末が「hoge1」の行を削除)
KeyDown( VK_HOME , 2 ) ;            //Ctrl+Homeキー
                                    //次の「hoge1」を検索
FindString( TRUE , FALSE , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "hoge1$" ) ;
IfStringNotFound( 10 ) ;
  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( ) ;             //アンカー間を選択
  DeleteString( ) ;                 //Deleteキー
  IfStringFound( -11 ) ;            //次の「hoge1」を検索(FindString)へ
// #----------------------* Loop(行末が「hoge2」の行を削除)
KeyDown( VK_HOME , 2 ) ;            //Ctrl+Homeキー
                                    //次の「hoge2」を検索
FindString( TRUE , FALSE , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "hoge2$" ) ;
IfStringNotFound( 10 ) ;
  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( ) ;             //アンカー間を選択
  DeleteString( ) ;                 //Deleteキー
  IfStringFound( -11 ) ;            //次の「hoge2」を検索(FindString)へ
// #----------------------* 加工結果の複写、貼り付け
KeyDown( VK_HOME , 2 ) ;            //Ctrl+Homeキー
KeyDown( VK_DOWN , 1 ) ;            //Shift+↓キー
DeleteString( ) ;                   //Deleteキー
SelectAllString( ) ;                //すべてを選択
CopyString( ) ;                     //コピー
CloseFileNoConfirmation( ) ;        //保存確認せずに閉じる
PasteSelected( ) ;                  //選択状態で貼り付け
// #----------------------* Epilog
RestoreCurrentFindCondition( ) ;    //復元:検索条件
RestoreAutoFormSwitch( ) ;          //復元:自動整形ON/OFF
// End of EdMax Macro