マクロ 公開データ (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