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

[1060] URL記述抽出マクロ(関連:EdMax掲示板 11599) - けら <> 02/09/02 17:07
└[1061] URL記述抽出マクロ(関連:EdMax掲示板 11599) - けら <> 02/09/02 17:26

 
 Subject: [1060] URL記述抽出マクロ(関連:EdMax掲示板 11599)
    Date: Mon, 02 Sep 2002 17:07:21 +0900
    From: けら <>

// Start of EdMax Macro
// URL記述抽出マクロ(関連:EdMax掲示板 11599)
// メーラー部→編集(E)→クイック検索(U)で「http://」を検索
// クイック検索検索結果が表示された状態でマクロを実行します。

// #----------------------* Prolog
SaveCurrentFindCondition( ) ;       //保存:検索条件
SetFocusToView( ) ;                 //フォーカス:ビュー画面へ

// #----------------------* クイック検索結果を編集
//文字列の置換(すべて置換)
ReplaceString( 2 , TRUE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , "http://" , "\\nhttp://" ) ;
ReplaceString( 2 , TRUE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , " " , "\\n" ) ;
ReplaceString( 2 , TRUE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , "\\t" , "\\n" ) ;

ClearClipboard( ) ;         //クリップボードをクリア
KeyDown( VK_HOME , 2 ) ;    //Ctrl+Homeキー

// #----------------------* LoopStart(http://行の抽出)
FindString( TRUE , TRUE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , TRUE , "http://" ) ; //文字列の検索(次の「http://」を検索)
IfStringNotFound( 9 ) ;     //LoopEndへ
  KeyDown( VK_LEFT , 0 ) ;  //←キー
  SetAnchor( ) ;            //アンカーの設定
  FindString( TRUE , TRUE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , TRUE , "\\n" ) ; //文字列の検索(次の改行を検索)
  KeyDown( VK_RIGHT , 0 ) ; //→キー
  SetAnchor( ) ;            //アンカーの設定
  SelectAnchorArea( ) ;     //アンカー間を選択
  AddCopyString( ) ;        //追加コピー
  KeyDown( VK_RIGHT , 0 ) ; //→キー

  IfStringFound( -10 ) ;    //LoopStartへ

// #----------------------* copyしたhttp行を新規メッセージに貼り付け
CloseFileNoConfirmation( ) ;    //保存確認せずに閉じる
NewMessageSx( ) ;               //新規メッセージ(メーラー部)
SelectAllString( ) ;            //すべてを選択
PasteString( ) ;                //貼り付け
KeyDown( VK_HOME , 2 ) ;        //Ctrl+Homeキー

// #----------------------* 参考 C:\TEMP\リンク一覧.txt に保存(修正時「\\」に注意)
// SaveMessageToFileAs( "C:\\TEMP\\リンク一覧.txt" ) ; //名前を付けて保存

// #----------------------* Epilog
KeyDown( VK_HOME , 2 ) ;            //Ctrl+Homeキー
RestoreCurrentFindCondition( ) ;    //復元:検索条件

// End of EdMax Macro

 
 Subject: [1061] URL記述抽出マクロ(関連:EdMax掲示板 11599)
    Date: Mon, 02 Sep 2002 17:26:35 +0900
    From: けら <>

// Start of EdMax Macro
// URL記述抽出マクロ(関連:EdMax掲示板 11599)
// メーラー部→編集(E)→クイック検索(U)で「http://」を検索
// クイック検索検索結果が表示された状態でマクロを実行します。

// #----------------------* Prolog
SaveCurrentFindCondition( ) ;       //保存:検索条件
SetFocusToView( ) ;                 //フォーカス:ビュー画面へ

// #----------------------* クイック検索結果を編集
//文字列の置換(すべて置換)
ReplaceString( 2 , TRUE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , "http://" , "\\nhttp://" ) ;
ReplaceString( 2 , TRUE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , " " , "\\n" ) ;
ReplaceString( 2 , TRUE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , "\\t" , "\\n" ) ;

ClearClipboard( ) ;         //クリップボードをクリア
KeyDown( VK_HOME , 2 ) ;    //Ctrl+Homeキー

// #----------------------* LoopStart(http://行の抽出)
FindString( TRUE , TRUE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , TRUE , "http://" ) ; //文字列の検索(次の「http://」を検索)
IfStringNotFound( 9 ) ;     //LoopEndへ
  KeyDown( VK_LEFT , 0 ) ;  //←キー
  SetAnchor( ) ;            //アンカーの設定
  FindString( TRUE , TRUE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , TRUE , "\\n" ) ; //文字列の検索(次の改行を検索)
  KeyDown( VK_RIGHT , 0 ) ; //→キー
  SetAnchor( ) ;            //アンカーの設定
  SelectAnchorArea( ) ;     //アンカー間を選択
  AddCopyString( ) ;        //追加コピー
  KeyDown( VK_RIGHT , 0 ) ; //→キー

  IfStringFound( -10 ) ;    //LoopStartへ

// #----------------------* copyしたhttp行を新規メッセージに貼り付け
CloseFileNoConfirmation( ) ;    //保存確認せずに閉じる
NewMessageSx( ) ;               //新規メッセージ(メーラー部)
SelectAllString( ) ;            //すべてを選択
PasteString( ) ;                //貼り付け

// #----------------------* 参考 C:\TEMP\リンク一覧.txt に保存(修正時「\\」に注意)
// SaveMessageToFileAs( "C:\\TEMP\\リンク一覧.txt" ) ; //名前を付けて保存

// #----------------------* Epilog
KeyDown( VK_HOME , 2 ) ;            //Ctrl+Homeキー
RestoreCurrentFindCondition( ) ;    //復元:検索条件

// End of EdMax Macro
マクロ 公開データ (2000.10～2008.01)

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