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

[1058] BJDサポート掲示板 日付変換用マクロ - 相川 祐志 <Yuji@fox.zero.ad.jp> 02/05/09 10:46


Subject: [1058] BJDサポート掲示板 日付変換用マクロ Date: Thu, 09 May 2002 10:46:04 +0900 From: 相川 祐志 <Yuji_@_fox.zero.ad.jp>
// BlackJumboDogサポート掲示板 日付変換用マクロ // BJD_HED.MAC から呼ばれることを前提にしていますので、お約束は省略。 // Start of EdMax Macro //-----------投稿日付(曜日) KeyDown( VK_HOME , 2 ) ; FindString( TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "MSG_DATE>" ) ; FindString( TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "(" ) ; KeyDown( VK_RIGHT , 0 ) SetAnchor( ) ; FindString( TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , ")" ) ; KeyDown( VK_LEFT , 0 ) SetAnchor( ) ; SelectAnchorArea( ) ; CutString( ) ; KeyDown( VK_HOME , 0 ) ; InsertStringEx( 5 , ", \r\n") ; PasteString( ) ; //-----------投稿日付(日) FindString( TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "()" ) ; KeyDown( VK_LEFT , 0 ) SetAnchor( ) ; FindString( FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "/" ) ; KeyDown( VK_RIGHT , 0 ) SetAnchor( ) ; SelectAnchorArea( ) ; CutString( ) ; FindString( FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "\r\n" ) ; KeyDown( VK_LEFT , 0 ) PasteString( ) ; //-----------投稿日付(月)英文化は最後 FindString( TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "/" ) ; KeyDown( VK_RIGHT , 0 ) SetAnchor( ) ; FindString( TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "/" ) ; KeyDown( VK_LEFT , 0 ) SetAnchor( ) ; SelectAnchorArea( ) ; CutString( ) ; InsertStringEx( 4 , " /") ; InsertStringEx( 5 , "/ ") ; FindString( FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "\r\n" ) ; KeyDown( VK_LEFT , 0 ) PasteString( ) ; //-----------投稿日付(年と時間) FindString( TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "//()" ) ; DeleteString( ) ; InsertStringEx( 2 , " +0900") ; FindString( TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "\r\n" ) ; DeleteString( ) ; FindString( FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "\r\nMSG_DATE>" ) ; DeleteString( ) ; KeyDown( VK_HOME , 0 ) ; SetAnchor( ) ; FindString( TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "\r\n" ) ; KeyDown( VK_RIGHT , 0 ) SetAnchor( ) ; SelectAnchorArea( ) ; CutString( ) ; //-----------取込日付の削除 FindString( FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "Date: " ) ; KeyDown( VK_RIGHT , 0 ) SetAnchor( ) ; FindString( TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "\r\n" ) ; KeyDown( VK_RIGHT , 0 ) SetAnchor( ) ; SelectAnchorArea( ) ; DeleteString( ) ; PasteString( ) ; //-----------投稿日付(月)の英文化、とっても冗長ですね。 SetAnchor( ) ; KeyDown( VK_HOME , 2 ) ; SetAnchor( ) ; SelectAnchorArea( ) ; KeyDown( VK_RIGHT , 0 ) FindString( FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "/01/" ) ; IfStringNotFound( 2 ) ; ReplaceString( 1 , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "/01/" , "Jan" ) ; IfStringFound( 64 ) ; SelectAnchorArea( ) ; KeyDown( VK_RIGHT , 0 ) FindString( FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "/02/" ) ; IfStringNotFound( 2 ) ; ReplaceString( 1 , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "/02/" , "Feb" ) ; IfStringFound( 58 ) ; SelectAnchorArea( ) ; KeyDown( VK_RIGHT , 0 ) FindString( FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "/03/" ) ; IfStringNotFound( 2 ) ; ReplaceString( 1 , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "/03/" , "Mar" ) ; IfStringFound( 52 ) ; SelectAnchorArea( ) ; KeyDown( VK_RIGHT , 0 ) FindString( FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "/04/" ) ; IfStringNotFound( 2 ) ; ReplaceString( 1 , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "/04/" , "Apr" ) ; IfStringFound( 46 ) ; SelectAnchorArea( ) ; KeyDown( VK_RIGHT , 0 ) FindString( FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "/05/" ) ; IfStringNotFound( 2 ) ; ReplaceString( 1 , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "/05/" , "May" ) ; IfStringFound( 40 ) ; SelectAnchorArea( ) ; KeyDown( VK_RIGHT , 0 ) FindString( FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "/06/" ) ; IfStringNotFound( 2 ) ; ReplaceString( 1 , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "/06/" , "Jun" ) ; IfStringFound( 34 ) ; SelectAnchorArea( ) ; KeyDown( VK_RIGHT , 0 ) FindString( FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "/07/" ) ; IfStringNotFound( 2 ) ; ReplaceString( 1 , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "/07/" , "Jul" ) ; IfStringFound( 28 ) ; SelectAnchorArea( ) ; KeyDown( VK_RIGHT , 0 ) FindString( FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "/08/" ) ; IfStringNotFound( 2 ) ; ReplaceString( 1 , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "/08/" , "Aug" ) ; IfStringFound( 22 ) ; SelectAnchorArea( ) ; KeyDown( VK_RIGHT , 0 ) FindString( FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "/09/" ) ; IfStringNotFound( 2 ) ; ReplaceString( 1 , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "/09/" , "Sep" ) ; IfStringFound( 16 ) ; SelectAnchorArea( ) ; KeyDown( VK_RIGHT , 0 ) FindString( FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "/10/" ) ; IfStringNotFound( 2 ) ; ReplaceString( 1 , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "/10/" , "Oct" ) ; IfStringFound( 10 ) ; SelectAnchorArea( ) ; KeyDown( VK_RIGHT , 0 ) FindString( FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "/11/" ) ; IfStringNotFound( 2 ) ; ReplaceString( 1 , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "/11/" , "Nov" ) ; IfStringFound( 4 ) ; SelectAnchorArea( ) ; KeyDown( VK_RIGHT , 0 ) FindString( FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , FALSE , "/12/" ) ; ReplaceString( 1 , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "/12/" , "Dec" ) ; // End of EdMax Macro