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