回答編集履歴

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

 

  マクロは使ったことない上、今はJavaScriptなんですかね？？

  全然わからないのでコンソールアプリで作ってみました。

 

 

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

  ```VBNET

  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

 

 

  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もよくわかっておりません）