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