検索文字列を行選択

文字列を検索して行選択
検索文字列がなければ、先頭行に移動

'=========================================================
'機能名 : Function SearchStr
'引数   : pm_CheckStr   検索値
'処理   : 文字列を検索して選択する
'=========================================================
Function AddCommentOut_Search( pm_CheckStr )

    '//検索対象文字を検索
    SearchNext pm_CheckStr, 4

    '//検索文字がなければ、Msg出力
    If Editor.GetSelectrdString() = "" Then

        MsgBox "検索対象なし"

        '//先頭行にカーソルを移動
        MoveCursor 1,1,0

    End If

End Function