マクロ 公開データ (2000.10～2008.01)

[1011] Re: ヘッダーＣＭ削除(先頭～空白行) - matsui <> 00/10/29 14:31

 
 Subject: [1011] Re: ヘッダーＣＭ削除(先頭～空白行)
    Date: Sun, 29 Oct 2000 14:31:11 +0900
    From: matsui <>

matsui です。
[1004] ヘッダーＣＭ削除(先頭～空白行) のマクロの一部を
マクロ呼び出しに変更してみました。

//***********************************************************
// ヘッダーＣＭ削除(先頭～空白行)
//
// [説明]
// 文頭～空白行までを、CM(不要部)と判断し削除します。
// 行頭が改行(\n)の場合を、空白行と判断します。
// EdMax Ver2.76.2 以降で動作します。
// 別途「設定の保存」、「設定の復元」が必要です。
//
// [補足]
// 削除部はクリップボードに複写されています。
// 誤って削除した場合は「メール編集」をONの状態で「貼り付け」で戻ります。
//
// 下記URLに操作記録手順があります。
// http://www.geocities.co.jp/SiliconValley/7492/ExHdCmCut.html
//
// [履歴]
// 2000/10/29  matsui  「設定の保存」、「設定の復元」をマクロ呼び出しに変更
// 2000/10/21  matsui  マクロのテキスト化
// 2000/04/13  matsui  「複写」→「delete」の部分を「切り取り」に変更
// 2000/04/10  matsui  delete前に複写を追加
// 2000/04/06  matsui  新規作成
//***********************************************************

CHAR MacroComment[] = "文頭～空白行までを、CM(不要部)と判断し削除\r\n2000/10/29 written by matsui"

CallMacro( 設定の保存 ) ;

// *----------------------* View画面の先頭行へ位置付け
SetFocusToView( ) ;
SelectAllString( ) ;
KeyDown( VK_LEFT , 0 ) ;

// *----------------------* 対象をAnchor設定
FindString( TRUE , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , "\\n\\n" ) ;
KeyDown( VK_RIGHT , 0 ) ;
SetAnchor( ) ;
FindString( TRUE , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , "\\n\\n" ) ;
KeyDown( VK_RIGHT , 0 ) ;
SetAnchor( ) ;

// *----------------------* Anchor間を削除
SelectAnchorArea( ) ;
CutString( ) ;

// *----------------------* フォーカスをリスト画面へ
SetFocusToList( ) ;

CallMacro( 設定の復元 ) ;