自由変換マクロを編集形式へ変換

自由変換(ConvFreely)のマクロテキストを編集し易い形式に変換します。

1. "編集形式に変換したい部分(ConvFreely)を選択します。
   
2. マクロを再生すると選択部分が、"編集形式に変換されます。
   
3. 変換形式や行数に注意し、自由変換のパラメータを修正します。
   直接、変換文字列を指定する場合は 1 となります。詳細に関してはEdcom内のEdMaxマクロ仕様を参照ください。
4. 修正完了後は、自由変換マクロを編集形式からコマンド形式へ変換で元のコマンド形式に戻します。

対象の自由変換マクロに「 , 1 , 」や「 ) ;」などが含まれている場合は、正しく変換されません。

// Start of EdMax Macro
SaveCurrentFindCondition( ) ;       //保存:検索条件
SaveCurrentAutoFormSwitch( ) ;      //保存:自動整形ON/OFF
OffAutoForm( ) ;                    //OFF:自動整形
SetFocusToEditor( ) ;               //フォーカス:メッセージ作成画面へ
ClearClipboard( ) ;                 //クリップボードをクリア
CopyString( ) ;                     //コピー
NewMessage( ) ;                     //新規メッセージ(エディタ部)
SelectAllString( ) ;                //すべてを選択
PasteString( ) ;                    //貼り付け
                                    //自由変換
ConvFreely( FALSE , TRUE , 1 , " , 1 , " , 1 , "\\n , 1 , " , 1 , " , 0 , \"\" , 0 , \"\"" , 1 , "\\n , 0 , \"\" , 0 , \"\"" , 1 , " ) ;" , 1 , "\\n ) ;" , 0 , "" , 0 , "" , 0 , "" , 0 , "" , 0 , "" , 0 , "" , 0 , "" , 0 , "" , 0 , "" , 0 , "" , 0 , "" , 0 , "" , 0 , "" , 0 , "" ) ;
KeyDown( VK_HOME , 2 ) ;            //Ctrl+Homeキー
                                    //文字列の検索(次を検索)
FindString( TRUE , FALSE , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "^ , 1 , \"" ) ;
IfStringNotFound( 11 ) ;            //1(変換文字列を指定)が存在しない場合はLoopEndへskip
// #----------------------* LoopStart
KeyDown( VK_LEFT , 0 ) ;            //←キー
SetAnchor( ) ;                      //アンカーの設定
FindString( TRUE , FALSE , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , ".$" ) ;
FindString( TRUE , FALSE , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , ".$" ) ;
KeyDown( VK_RIGHT , 0 ) ;           //→キー
SetAnchor( ) ;                      //アンカーの設定
SelectAnchorArea( ) ;               //アンカー間を選択
ConvJoinLines( ) ;                  //行の連結
KeyDown( VK_RIGHT , 0 ) ;           //→キー
FindString( TRUE , FALSE , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "^ , 1 , \"" ) ;
IfStringFound( -10 ) ;              //1(変換文字列を指定)が存在した場合はLoopStartへ戻る
// #----------------------* LoopEnd
SelectAllString( ) ;                //すべてを選択
CopyString( ) ;                     //コピー
CloseFileNoConfirmation( ) ;        //保存確認せずに閉じる
PasteSelected( ) ;                  //選択状態で貼り付け
RestoreCurrentFindCondition( ) ;    //復元:検索条件
RestoreAutoFormSwitch( ) ;          //復元:自動整形ON/OFF
// End of EdMax Macro