マクロ 公開データ (2000.10～2008.01)
[1029] ［修正版］件名にする(エディタ・メーラー部兼用) - kotaro <kotato@mx4.tiki.ne.jp> 01/02/08 21:11
└[1032] [補足]件名にする(エディタ・メーラー部兼用) - kotaro <kotato@mx4.tiki.ne.jp> 01/02/08 23:38
└[1037] 件名にする(エディタ・メーラー部兼用)ver1.1 - kotaro <kotato@mx4.tiki.ne.jp> 01/02/13 01:12
Subject: [1029] ［修正版］件名にする(エディタ・メーラー部兼用)
Date: Thu, 08 Feb 2001 21:11:26 +0900
From: kotaro <kotato_＠_mx4.tiki.ne.jp>
浩太郎です。修正版です。
検索条件の復元ミスを訂正しました。
//****************** 件名にする(エディタ・メーラー部兼用)
[機能]
EdMax の拡張コマンド「件名にする」をメーラー部でも使えるよ
うにしたものです。
エディタ部での動作は、「件名にする」するとほぼ同じです。
メーラー部では基本的に件名を上書きする仕様にしていますが、
"【】" "[] "［］" で囲まれた部分は残します。
ノーマルの「件名にする」と比べると、「カーソル位置が文
頭に動く」というデメリットがあるため、エディタ部でのみ
使用の人は使わない方がいいです。
[メーラー部での動作]
メーラー部での動作は、ちょっと変則的です。
基本的には上書きしますが、 件名の中に
[・・・]［・・・］【・・・】のパターンがあると。例えば、、
[edmax:1063] EdMax Ver2.81.1 暫定版リリース
↓
[edmax:1063]□□□□□□□□□□□□□□□□□□
・・・といった風に[・・・]を残して上書きします。
ちなみに[・・・]のパターンが2つある場合は、最後尾に上書きです。
[edmax:1063] EdMax Ver2.81.1【重要】暫定版リリース
↓
[edmax:1063] EdMax Ver2.81.1【重要】□□□□□□□□
……という風に上書きします。
＃[・・・】にもマッチします(^^；
他、複数行サブジェクト。＝途中に改行の混じった Subject は、
２行目以降の括弧のパターンにはマッチしません。
//=============================
// Start of EdMax Macro
SetFocusToEditor( ) ;//フォーカス・メッセージ作成画面へ
//##条件の保存
SaveCurrentFindCondition( ) ;//保存:文字列の検索オプション
SaveCurrentAutoFormSwitch( ) ;//保存 自動整形ON/OFF
SaveMailEditHeaderEditMode( ) ;//保存:メール編集・ヘッダ書き換え
OffAutoForm( ) ;//自動整形OFF
CopyString( ) ;//選択範囲をコピー
//##メーラー部かエディタ部か?
SetFocusToView( ) ;//フォーカスをビューへ
OffMailEditMode( ) ;//メール編集OFF
KeyDown( VK_HOME , 2 ) ;//カーソル・テキスト先頭へ
InsertStringEx( 0 , "." ) ;//文字列挿入・カーソル位置に
FindString( FALSE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "." ) ;
IfStringNotFound( 5 ) ;//メーラー部である→
//##エディタ部の場合
DeleteString( ) ;//選択中の文字列を削除
PasteSelected( ) ;//選択状態で貼り付け
SetToSubject( ) ;//件名にする
DeleteString( ) ;//選択中の文字列を削除
IfStringFound( 16 ) ;
//##メーラー部の場合
OnHeaderEdit( ) ;
//[○○]【○○】［○○］のパターンを探す（［ 】にもヒットしますが、問題ないでしょう^^？）
FindString( TRUE , FALSE , TRUE , TRUE , TRUE , TRUE , FALSE , FALSE , FALSE , "\\n\\n" ) ;
FindString( FALSE , TRUE , FALSE , TRUE , TRUE , TRUE , FALSE , FALSE , FALSE , "^Subject: .*[\\[【].+[\\]】]" ) ;
IfStringFound( 4 ) ; // 括弧のパターンが存在
//##括弧がない。
FindString( FALSE , TRUE , TRUE , TRUE , TRUE , TRUE , FALSE , FALSE , FALSE , "^Subject: " ) ;
IfStringNotFound( 10 ) ; // サブジェクトもない。
KeyDown( VK_RIGHT , 0 ) ;
IfStringFound( 2 ) ; //
KeyDown( VK_RIGHT , 0 ) ;
InsertString( " " ) ;
SetAnchor( ) ;//アンカーの設定
FindString( TRUE , FALSE , FALSE , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , "\\n[^\\t]" ) ;
KeyDown( VK_LEFT , 0 ) ;
SetAnchor( ) ;//アンカーの設定
SelectAnchorArea( ) ;//アンカー間の選択
PasteString( ) ;//貼り付け
RestoreMailEditHeaderEditMode( ) ;//復元:メール編集・ヘッダ書き換えモード
RestoreCurrentFindCondition( ) ;//復元:文字列の検索オプション
RestoreAutoFormSwitch( ) ;//復元 自動整形ON/OFF
// End of EdMax Macro
//=============================
Subject: [1032] [補足]件名にする(エディタ・メーラー部兼用)
Date: Thu, 08 Feb 2001 23:38:37 +0900
From: kotaro <kotato_＠_mx4.tiki.ne.jp>
浩太郎です。
使い方の説明を忘れてました。(^^；
件名にしたい文字列を選択した状態で、
このマクロを実行して下さい。
エディタ部なら件名末尾に追加。
メーラー部なら件名を上書きします。
#何も選択していない場合、
#クリップボードの内容が件名になりますので、
#注意して実行して下さい。
Subject: [1037] 件名にする(エディタ・メーラー部兼用)ver1.1
Date: Tue, 13 Feb 2001 01:12:08 +0900
From: kotaro <kotato_＠_mx4.tiki.ne.jp>
浩太郎です。
[変更]エディタ部でカーソル位置を保持できるようになりました。
＃matsuiさん よりアドバイス頂きました m(__)m
//****************** 件名にする(エディタ・メーラー部兼用)
[機能]
EdMax の拡張コマンド「件名にする」をメーラー部でも使えるよ
うにしたものです。
エディタ部での動作は、「件名にする」するとほぼ同じです。
メーラー部では基本的に件名を上書きする仕様にしていますが、
"【】" "[] "［］" で囲まれた部分は残します。
[使い方]
件名にしたい文字列を選択した状態で、このマクロを実行して下さい。
エディタ部なら件名末尾に追加。メーラー部なら件名を上書きします。
#何も選択していない場合、クリップボードの内容が件名になりますの
#で、注意して実行して下さい。
----------------------------------------------
[メーラー部での動作]
メーラー部での動作は、ちょっと変則的です。
基本的には上書きしますが、 件名の中に
[・・・]［・・・］【・・・】のパターンがあると。例えば、、
[edmax:1063] EdMax Ver2.81.1 暫定版リリース
↓
[edmax:1063]□□□□□□□□□□□□□□□□□□
・・・といった風に[・・・]を残して上書きします。
ちなみに[・・・]のパターンが2つある場合は、最後尾に上書きです。
[edmax:1063] EdMax Ver2.81.1【重要】暫定版リリース
↓
[edmax:1063] EdMax Ver2.81.1【重要】□□□□□□□□
……という風に上書きします。
[制限]
途中に改行の混じった Subject の場合、２行目以降の括弧のパタ
ーンには対応していません。二行目以降に[・・・]がある場合、上
書きしてしまいます。
//=============================
// Start of EdMax Macro
SetFocusToEditor( ) ;//フォーカス・メッセージ作成画面へ
//##条件の保存
SaveCurrentFindCondition( ) ;//保存:文字列の検索オプション
SaveCurrentAutoFormSwitch( ) ;//保存 自動整形ON/OFF
SaveMailEditHeaderEditMode( ) ;//保存:メール編集・ヘッダ書き換え
OffAutoForm( ) ;//自動整形OFF
SetAnchor( ) ; //アンカーの設定
ClearClipboard( ) ; //クリップボードをクリア
CopyString( ) ;//選択範囲をコピー
//##メーラー部かエディタ部か?
SetFocusToView( ) ;//フォーカスをビューへ
OffMailEditMode( ) ;//メール編集OFF
KeyDown( VK_HOME , 2 ) ;//カーソル・テキスト先頭へ
InsertStringEx( 0 , "." ) ;//文字列挿入・カーソル位置に
FindString( FALSE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "." ) ;
IfStringNotFound( 6 ) ;//メーラー部である→
//##エディタ部の場合
DeleteString( ) ;//選択中の文字列を削除
PasteSelected( ) ;//選択状態で貼り付け
SetToSubject( ) ;//件名にする
DeleteString( ) ;//選択中の文字列を削除
SelectAnchorArea( ) ; //アンカー間を選択
IfStringFound( 16 ) ;//条件の復元へ→
//##メーラー部の場合
OnHeaderEdit( ) ;
//[○○]【○○】［○○］のパターンを探す（［ 】にもヒットしますが、問題ないでしょう^^？）
FindString( TRUE , FALSE , TRUE , TRUE , TRUE , TRUE , FALSE , FALSE , FALSE , "\\n\\n" ) ;
FindString( FALSE , TRUE , FALSE , TRUE , TRUE , TRUE , FALSE , FALSE , FALSE , "^Subject: .*[\\[【].+[\\]】]" ) ;
IfStringFound( 4 ) ; // 括弧のパターンが存在
//##括弧がない。
FindString( FALSE , TRUE , TRUE , TRUE , TRUE , TRUE , FALSE , FALSE , FALSE , "^Subject: " ) ;
IfStringNotFound( 10 ) ; // サブジェクトもない。
KeyDown( VK_RIGHT , 0 ) ;
IfStringFound( 2 ) ; //
KeyDown( VK_RIGHT , 0 ) ;
InsertString( " " ) ;
SetAnchor( ) ;//アンカーの設定
FindString( TRUE , FALSE , FALSE , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , "\\n[^\\t]" ) ;
KeyDown( VK_LEFT , 0 ) ;
SetAnchor( ) ;//アンカーの設定
SelectAnchorArea( ) ;//アンカー間の選択
PasteString( ) ;//貼り付け
RestoreMailEditHeaderEditMode( ) ;//復元:メール編集・ヘッダ書き換えモード
RestoreCurrentFindCondition( ) ;//復元:文字列の検索オプション
RestoreAutoFormSwitch( ) ;//復元 自動整形ON/OFF
// End of EdMax Macro
//=============================