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

[1093] Re: コピペした文章には自動整形が効きません？ - xylitol <> 06/07/21 18:28

 
 Subject: [1093] Re: コピペした文章には自動整形が効きません？
    Date: Fri, 21 Jul 2006 18:28:38 +0900
    From: xylitol <>

コピーしたテキストを整形された状態で貼り付けるマクロです。
エディタ画面上の貼り付けたい位置にカーソルを移動させてからマクロを実行してください。

// Start of EdMax Macro

NewMessage( ) ;
SaveCurrentAutoFormSwitch( ) ;
SaveCurrentFindCondition( ) ;
OffAutoForm( ) ;
SelectAllString( ) ;
PasteString( ) ;
InsertString( "\r\n" ) ;
KeyDown( VK_HOME , 2 ) ;
ReplaceString( 2 , TRUE , TRUE , FALSE , TRUE , FALSE , FALSE , FALSE , "<br>" , "<!--br-->" ) ;
KeyDown( VK_HOME , 2 ) ;
ReplaceString( 2 , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , FALSE , "\\n" , "<br>" ) ;
KeyDown( VK_HOME , 2 ) ;
SetAnchor( ) ;
FindString( TRUE , TRUE , TRUE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , "<br>" ) ;
DeleteString( 0 ) ;
InsertString( "\r\n" ) ;
KeyDown( VK_LEFT , 0 ) ;
SetAnchor( ) ;
SelectAnchorArea( ) ;
FormSelection( ) ;
KeyDown( VK_RIGHT , 0 ) ;
SetAnchor( ) ;
FindString( TRUE , TRUE , TRUE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , "<br>" ) ;
IfStringFound( -9 ) ;
KeyDown( VK_HOME , 2 ) ;
ReplaceString( 2 , TRUE , TRUE , FALSE , TRUE , FALSE , FALSE , FALSE , "<!--br-->" , "<br>" ) ;
RestoreAutoFormSwitch( ) ;
RestoreCurrentFindCondition( ) ;
SelectAllString( ) ;
CutString( ) ;
CloseFileNoConfirmation( ) ;
PasteString( ) ;

// End of EdMax Macro