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