選択範囲内を抽出し、行末が数値(: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