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

[1059] BJDサポート掲示板 スレッド変換用マクロ - 相川 祐志 <Yuji@fox.zero.ad.jp> 02/05/09 10:47


Subject: [1059] BJDサポート掲示板 スレッド変換用マクロ Date: Thu, 09 May 2002 10:47:38 +0900 From: 相川 祐志 <Yuji_@_fox.zero.ad.jp>
// BlackJumboDogサポート掲示板 スレッド変換用マクロ // BJD_HED.MAC から呼ばれることを前提にしていますので、お約束は省略。 // Start of EdMax Macro //-----------ヘッダの整理 KeyDown( VK_HOME , 2 ) ; FindString( TRUE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "Reply-To" ) ; KeyDown( VK_LEFT , 0 ) ; KeyDown( VK_LEFT , 0 ) ; KeyDown( VK_HOME , 3 ) ; CutString( ) ; FindString( TRUE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "\r\n\r\n" ) ; KeyDown( VK_HOME , 3 ) ; DeleteString( ) ; PasteString( ) ; //-----------スレッド情報のコピー KeyDown( VK_HOME , 2 ) ; FindString( TRUE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "<" ) ; KeyDown( VK_RIGHT , 0 ) ; SetAnchor( ) ; FindString( TRUE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , ">" ) ; KeyDown( VK_LEFT , 0 ) ; SetAnchor( ) ; SelectAnchorArea( ) ; CopyString( ) ; KeyDown( VK_RIGHT , 0 ) ; //-----------Reply-To & Message-Idの書き込み // InsertStringEx( 0 , ">\r\nReply-To: BJD掲示板(" ) ; // PasteString( ) ; // InsertStringEx( 0 , ")\r\nMessage-Id: <BJD_@_bbs." ) ; InsertStringEx( 0 , ">\r\nMessage-Id: <BJD_@_bbs." ) ; PasteString( ) ; //-----------スレッドの確認 KeyDown( VK_HOME , 2 ) ; FindString( TRUE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "Date:" ) ; FindString( FALSE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "^Subject: \[" ) ; // ここの検索用文字列の意味は不明です。 IfStringFound( 9 ) ; FindString( TRUE , FALSE , TRUE , TRUE , TRUE , TRUE , FALSE , FALSE , FALSE , "\\n\\n" ) ; KeyDown( VK_LEFT , 0 ) ; InsertStringEx( 0 , "\r\nIn-Reply-To: <BJD_@_bbs.") ; PasteString( ) ; FindString( FALSE , FALSE , TRUE , TRUE , TRUE , TRUE , FALSE , FALSE , FALSE , "-" ) ; KeyDown( VK_LEFT , 0 ) ; KeyDown( VK_RIGHT , 1 ) ; KeyDown( VK_RIGHT , 1 ) ; InsertStringEx( 0 , ">") ; // End of EdMax Macro