コード修正のためのコメントアウトマクロ

文字列をコメントアウトして、修正箇所を追加する

■例

B144program

＜修正後＞
-- 2022-11-18 MOD Start ←コメントSTART行
-- B144program ←修正前をコメントアウト
H144program ←頭文字BをHに修正
-- 2022-11-18 MOD End ←コメントEND行

'=========================================================
'機能名 : Function AddCommentOut
'引数   : pm_SearchStr      検索値
'       : pm_strRepBefore   置換前
'       : pm_strRepAfter    置換後
'       : pm_CmStartStr     コメントSTART行
'       : pm_CmEndStr       コメントEND行
'処理   : 選択されていれば、START-ENDで囲って置換
'       : 選択されていなければ、そのまま置換
'=========================================================
Function AddCommentOut( pm_SearchStr,pm_strRepBefore,pm_strRepAfter,pm_CmStartStr,pm_CmEndStr )

    '--------------------------------------
    'コメントアウトSTART行-END行を追加
    '--------------------------------------
    '//検索文字があれば、コメントアウト
    If Editor.GetSelectedString() <> "" Then

        '//1行選択し、クリップボード変数に格納
        SelectLine()
        Copy()
        ClipBoardStr = GetClipboard()

        '//コメントアウト文字を挿入
        AllCommentOutStr = pm_CmStartStr & StrOut & ClipBoardStr & ClipBoardStr & pm_CmEndStr
        Instext AllCommentOutStr

    End If

    '--------------------------------------
    '文字列置換
    '--------------------------------------
    '//カーソルを上に1行移動
    Up2()

    '//置換対象文字を検索
    SearchNext pm_SearchStr,4

    '//検索文字があれば、置換
    If Editor.GetSelectedString() <> "" Then

        '//置換対象選択
        Up()
        SearchNext pm_SearchStr, 4

        '//置換した文字列を挿入
        InsText CStr( Replace( GetSelectedString(CLing(0) ,pm_strRepBefore ,pm_strRepAfter) ) )

    End IF

End Function