VB2022帆船赛管理系统邮件合并模块变量替换问题求助

方法1：正则表达式直接替换变量（推荐） #

你之前绕了弯路生成" & 变量 & "形式的字符串，其实可以直接针对模板里{XtianName}这类格式的变量做替换，更高效安全：

Imports System.Text.RegularExpressions
Imports System.IO

' 先把所有变量和对应值存进字典（也可以直接从实体类属性取值）
Dim varMap As New Dictionary(Of String, String)()
varMap.Add("XtianName", "张三")
varMap.Add("RaceScore", "89")
varMap.Add("RaceTitle", "2024年度滨海帆船赛")

' 用户撰写后的模板内容（保留{变量名}格式即可，不用转成拼接字符串）
Dim templateText As String = "尊敬的{XtianName}：
您在{RaceTitle}中的最终成绩为{RaceScore}分，感谢参赛！"

' 正则匹配所有{变量名}格式的内容，批量替换成实际值
Dim mergedResult As String = Regex.Replace(templateText, "\{(\w+)\}",
    Function(match)
        ' 如果存在对应变量就替换，不存在则保留原格式
        Return If(varMap.ContainsKey(match.Groups(1).Value), varMap(match.Groups(1).Value), match.Value)
    End Function)

' 直接把替换后的结果写入NewMergeFile
File.WriteAllText("NewMergeFile.txt", mergedResult)

方法2：动态执行拼接字符串（仅作参考，不推荐） #

如果一定要用你生成的" & 变量 & "形式的字符串，需要通过动态编译执行这个表达式才能得到实际值：

Imports Microsoft.VisualBasic
Imports System.CodeDom.Compiler
Imports System.IO

' 假设你生成的拼接字符串是这样的
Dim codeStr As String = """尊敬的"" & XtianName & ""：
您在"" & RaceTitle & ""中的最终成绩为"" & RaceScore & ""分，感谢参赛！"""

' 准备变量实际值
Dim varValues As New Dictionary(Of String, Object)()
varValues.Add("XtianName", "张三")
varValues.Add("RaceScore", "89")
varValues.Add("RaceTitle", "2024年度滨海帆船赛")

' 动态编译执行代码
Dim vbProvider As New VBCodeProvider()
Dim compileParams As New CompilerParameters()
compileParams.GenerateInMemory = True

' 生成包含变量和表达式的临时模块代码
Dim fullCode As String = $"Module TempMergeModule
    Public Function GetMergedContent() As String
        Dim XtianName As String = ""{varValues("XtianName")}""
        Dim RaceTitle As String = ""{varValues("RaceTitle")}""
        Dim RaceScore As String = ""{varValues("RaceScore")}""
        Return {codeStr}
    End Function
End Module"

' 编译并执行
Dim compileResult As CompilerResults = vbProvider.CompileAssemblyFromSource(compileParams, fullCode)
If Not compileResult.Errors.HasErrors Then
    Dim tempAssembly = compileResult.CompiledAssembly
    Dim tempMethod = tempAssembly.GetType("TempMergeModule").GetMethod("GetMergedContent")
    Dim mergedContent As String = CStr(tempMethod.Invoke(Nothing, Nothing))
    
    ' 写入文件
    File.WriteAllText("NewMergeFile.txt", mergedContent)
Else
    ' 处理编译错误
    For Each err As CompilerError In compileResult.Errors
        MsgBox($"编译错误：{err.ErrorText}")
    Next
End If

问题根源 #

你之前只完成了把模板变量转换成代码格式的字符串这一步，但没有对这个字符串进行求值执行，所以NewMergeFile里存的还是代码文本，不是替换后的实际内容。方法1直接跳过代码字符串生成的步骤，直接做变量替换；方法2则是通过动态编译执行代码字符串得到最终结果。

内容的提问来源于stack exchange，提问作者BarryTNU