[VB.net]特定メソッド内のみ置換する方法

Question

VB.netでの質問です。
Visual Studio2017でのMacroを使用し特定のメソッド内の特定の部分だけを置換する方法はありますでしょうか。
文字を挿入することはできるのですが、特定のメソッド内のみを指定する方法がわかりません。

以下例文
VB.net
Private Sub Hoge1()

Dim hoge1 as integer

MsgBox("Hoge1")

End Sub

Private Sub Hoge2()

Dim hoge2 as integer

MsgBox("Hoge2")

End Sub

上記のHoge2()のメソッド内のみMsgBoxの内容を変えたといった場合どうすればよいでしょうか。
また方法についてはMacroでなくでも大丈夫です。

[追記]
申し訳ございません。情報が足りなさ過ぎました。
例として、ある作業フォルダに上記と同じコードが記述されたファイルが複数あるとして、
その作業フォルダ内にあるすべてのファイルのHoge2()内のMsgBoxの内容だけをを一括で置換したいということです。
Hoge1()内の内容は変えずにHoge2()の内容だけ変えたいです。
質問の仕方が下手で申し訳ございません。

Comments

[Zuishin]

変数を使えばいいのでは？

[退会済みユーザー]

そもそも何がしたいのでしょう？　XY 問題になっていて、Y を質問してませんか？

[kanoka]

返信遅れて申し訳ございません。
情報を追記しました。
質問の仕方が下手で申し訳ないです。

[Zuishin]

他に方法がありそうな感じですね。その方法によって何がしたいのかを最初から書いた方が適切な回答が得られると思います。

[YAmaGNZ]

追記を見ても、変数や定数、リソース等で一括管理すれば、そこを書き換えるだけで対応できそうですが

[kanoka]

回答ありがとうございます。
もう少し考えてみることにします！

Answer 1

「定数等に置き換えようにも数が多すぎて、手作業ではやっていられない」みたいな状況なんでしょうか？

マクロは使ったことない上、今はJavaScriptなんですかね？？
全然わからないのでコンソールアプリで作ってみました。

NuGetでMicrosoft.CodeAnalysis.VisualBasicを入れること。

Imports System.IO
Imports Microsoft.CodeAnalysis
Imports Microsoft.CodeAnalysis.VisualBasic
Imports Microsoft.CodeAnalysis.VisualBasic.Syntax

Module Module1
    Sub Main()
        CreateDummyFiles()

        Dim rewriter = New MethodBlockRewriter
        For Each filePath In Directory.GetFiles("test", "*.vb")
            Dim text = File.ReadAllText(filePath)
            Dim tree = SyntaxFactory.ParseSyntaxTree(text)
            text = rewriter.Visit(tree.GetRoot).ToFullString
            File.WriteAllText(filePath, text)
        Next
    End Sub

    Private Class MethodBlockRewriter
        Inherits VisualBasicSyntaxRewriter
        Public Overrides Function VisitMethodBlock(ByVal node As MethodBlockSyntax) As SyntaxNode
            Dim mss = TryCast(node.BlockStatement, MethodStatementSyntax)
            If mss Is Nothing Then
                Return MyBase.VisitMethodBlock(node)
            End If
            ' メソッド名がHoge1でなければ何もしない
            If mss.Identifier.ValueText <> "Hoge1" Then
                Return MyBase.VisitMethodBlock(node)
            End If

            ' メソッドブロックを文字列に
            Dim text = node.ToFullString

            Dim name As String = ""
            Dim tbs = TryCast(node.Parent, TypeBlockSyntax)
            If tbs IsNot Nothing Then
                ' クラス名orモジュール名取得
                name = tbs.BlockStatement.Identifier.ValueText
            End If

            ' 置換
            text = text.Replace("MsgBox(""Hoge1"")", $"MsgBox(""{name}.Hoge1"")")


            ' 実際はそんな単純な置換ではないでしょうから
            ' 他と絶対被らない目印を入れて
            ' エディタ等の正規表現で一括置換したらいいんじゃないでしょうか
            'text = text.Replace("MsgBox(", "'Replace Point!! MsgBox(")


            ' textからMethodBlockSyntaxを作り直して返す（もっといい書き方がありそう
            Return SyntaxFactory.ParseSyntaxTree(text).GetCompilationUnitRoot.Members(0)
        End Function
    End Class

    Private Sub CreateDummyFiles()
        Directory.CreateDirectory("test")
        File.WriteAllText("test\Module1.vb",
"Module Module1
    Sub Hoge1()
        Dim hoge1 As Integer
        MsgBox(""Hoge1"")
    End Sub
    Sub Hoge2()
        Dim hoge2 As Integer
        MsgBox(""Hoge2"")
    End Sub
End Module
")

        File.WriteAllText("test\Class1.vb",
"Class Class1
    Function Hoge1() As Integer
        MsgBox(""Hoge1"")
        Return 0
    End Function
    Function Hoge2() As Integer
        MsgBox(""Hoge2"")
        Return 0
    End Function
End Class
")
    End Sub
End Module

C#コードをそのままVBに移したつもりですが、あっているか自信がないのでC#コードも載せます^^;

using System.IO;
using Microsoft.CodeAnalysis;
using Microsoft.CodeAnalysis.VisualBasic;
using Microsoft.CodeAnalysis.VisualBasic.Syntax;

namespace Questions244513
{
    internal class Program
    {
        private static void Main()
        {
            CreateDummyFiles();

            var rewriter = new MethodBlockRewriter();
            foreach(var filePath in Directory.GetFiles(@"test", "*.vb"))
            {
                var text = File.ReadAllText(filePath);
                var tree = SyntaxFactory.ParseSyntaxTree(text);
                text = rewriter.Visit(tree.GetRoot()).ToFullString();
                File.WriteAllText(filePath, text);
            }
        }

        private class MethodBlockRewriter : VisualBasicSyntaxRewriter
        {
            public override SyntaxNode VisitMethodBlock(MethodBlockSyntax node)
            {
                var mss = node.BlockStatement as MethodStatementSyntax;
                // メソッド名がHoge1でなければ何もしない
                if(mss?.Identifier.ValueText != "Hoge1") return base.VisitMethodBlock(node);

                // メソッドブロックを文字列に
                var text = node.ToFullString();

                // クラス名orモジュール名取得
                var name = (node.Parent as TypeBlockSyntax)?.BlockStatement.Identifier.ValueText;
                // 置換
                text = text.Replace("MsgBox(\"Hoge1\")", $"MsgBox(\"{name}.Hoge1\")");


                // 実際はそんな単純な置換ではないでしょうから
                // 他と絶対被らない目印を入れて
                // エディタ等の正規表現で一括置換したらいいんじゃないでしょうか
                //text = text.Replace("MsgBox(", "'Replace Point!! MsgBox(");


                // textからMethodBlockSyntaxを作り直して返す（もっといい書き方がありそう
                return SyntaxFactory.ParseSyntaxTree(text).GetCompilationUnitRoot().Members[0];
            }
        }

        private static void CreateDummyFiles()
        {
            Directory.CreateDirectory("test");

            File.WriteAllText(@"test\Module1.vb",
@"Module Module1
    Sub Hoge1()
        Dim hoge1 As Integer
        MsgBox(""Hoge1"")
    End Sub
    Sub Hoge2()
        Dim hoge2 As Integer
        MsgBox(""Hoge2"")
    End Sub
End Module
");

            File.WriteAllText(@"test\Class1.vb",
@"Class Class1
    Function Hoge1() As Integer
        MsgBox(""Hoge1"")
        Return 0
    End Function
    Function Hoge2() As Integer
        MsgBox(""Hoge2"")
        Return 0
    End Function
End Class
");
        }
    }
}

注意 この単純な変換元コードでは想定通りに動きましたが、書き方によっては動かないかもしれません（VBもRoslynもよくわかっておりません）

Comments

[kanoka]

反応がかなり遅くなってしまい申し訳ございません。
コードまで書いていただき、またロジック部分も参考になりました！