VB6中如何将字符串内的变量名替换为对应变量内容？

背景 #

在代数数学程序中，公式可通过VB6代码形式输入（字符串内空格会被忽略），示例如下：

formula1$ = "SUM (a,b,c)"
formula2$ = "SUM (x,y,z)"
formula3$ = "PRODUCT (a,x)"
formula4$ = "PRODUCT ((SUM (a,b,c)) , (SUM (x,y,z))) "
formula5$ = "PRODUCT (" + formula1$ +") , (" + formula2$ +")"

这种写法处理长公式更高效，但对用户来说较为繁琐。此时formula5$的内容与formula4$完全一致。

我们还需要变量formula5_descr$，打印时能描述formula5$的定义：

Debug.Print formula5_descr$ ' 输出："PRODUCT (" + formula1$ +") , (" + formula2$ +")"

手动生成这类变量代码难度高，无法要求用户完成。因此希望用户能以更简洁的形式输入：

formula5$ = "PRODUCT (formula1$ ) , ( formula2$ )"

之后由程序解析该字符串，将其中的变量名（如formula1$）替换为对应变量的内容（如SUM (a,b,c)）。

问题 #

如何在VB6中实现将字符串内的字符串变量名替换为该变量的内容？（类似的字符串插值功能在VB14+、C#、JavaScript等语言中已内置，理想状态下应有REVEAL()函数实现REVEAL("formula1$") --> "SUM (a,b,c)"）

注意事项 #

适用于MS Access VBA的方案不一定适用于VB6，二者虽相似但存在差异，VB6环境未必包含MS Access相关组件。

实现方案 #

VB6没有内置字符串插值或反射获取变量值的功能，可通过以下两种方式实现需求：

方案1：使用Dictionary存储变量（推荐，扩展性强）

借助Scripting.Dictionary存储所有公式变量，通过键名快速检索对应值，结合正则表达式匹配字符串中的变量名完成替换。

步骤1：引用组件（或使用后期绑定）

• 引用Microsoft Scripting Runtime：在VB6 IDE中点击「工程」→「引用」，勾选该组件。
• 若不想引用组件，可使用后期绑定创建Dictionary：Set formulaVars = CreateObject("Scripting.Dictionary")

完整代码示例

' 全局存储公式变量的Dictionary
Dim formulaVars As New Dictionary

' 初始化公式变量
Sub InitFormulas()
    formulaVars("formula1$") = "SUM (a,b,c)"
    formulaVars("formula2$") = "SUM (x,y,z)"
    formulaVars("formula3$") = "PRODUCT (a,x)"
    formulaVars("formula4$") = "PRODUCT ((SUM (a,b,c)) , (SUM (x,y,z))) "
End Sub

' 实现REVEAL函数：根据变量名获取对应值
Function REVEAL(varName As String) As String
    varName = Trim(varName)
    If formulaVars.Exists(varName) Then
        REVEAL = formulaVars(varName)
    Else
        ' 变量不存在时返回原名称，也可根据需求抛出错误
        REVEAL = varName
    End If
End Function

' 解析输入字符串，替换所有变量名对应的值
Function ResolveFormula(inputStr As String) As String
    Dim regex As New RegExp
    Dim matches As MatchCollection
    Dim match As Match
    Dim result As String
    
    result = inputStr
    
    ' 正则匹配变量名：字母开头，包含字母、数字、$的字符串
    regex.Pattern = "\b[a-zA-Z][a-zA-Z0-9$]*\b"
    regex.Global = True
    regex.IgnoreCase = False
    
    Set matches = regex.Execute(result)
    
    ' 遍历匹配项并替换
    For Each match In matches
        If formulaVars.Exists(match.Value) Then
            result = Replace(result, match.Value, formulaVars(match.Value), , , vbBinaryCompare)
        End If
    Next match
    
    ' 去除所有空格（符合背景要求）
    result = Replace(result, " ", "")
    
    ResolveFormula = result
End Function

' 测试代码
Sub TestResolve()
    InitFormulas
    
    ' 用户输入的简洁公式
    Dim inputFormula As String
    inputFormula = "PRODUCT (formula1$ ) , ( formula2$ )"
    
    ' 解析后的最终公式
    Dim resolvedFormula As String
    resolvedFormula = ResolveFormula(inputFormula)
    
    Debug.Print resolvedFormula ' 输出：PRODUCT(SUM(a,b,c),(SUM(x,y,z)))
    
    ' 生成描述字符串（保留变量名形式）
    Dim formulaDescr As String
    formulaDescr = "PRODUCT (" + "formula1$" + ") , (" + "formula2$" + ")"
    Debug.Print formulaDescr ' 输出：PRODUCT (formula1$) , (formula2$)
End Sub

方案2：使用Select Case匹配变量（仅适用于少量变量）

如果变量数量少且固定，可直接用Select Case实现REVEAL函数，但扩展性差，新增变量需修改函数：

' 模块级公式变量
Dim formula1$ As String, formula2$ As String, formula3$ As String, formula4$ As String

' 初始化变量
Sub InitFormulas()
    formula1$ = "SUM (a,b,c)"
    formula2$ = "SUM (x,y,z)"
    formula3$ = "PRODUCT (a,x)"
    formula4$ = "PRODUCT ((SUM (a,b,c)) , (SUM (x,y,z))) "
End Sub

Function REVEAL(varName As String) As String
    varName = Trim(varName)
    Select Case varName
        Case "formula1$": REVEAL = formula1$
        Case "formula2$": REVEAL = formula2$
        Case "formula3$": REVEAL = formula3$
        Case "formula4$": REVEAL = formula4$
        Case Else: REVEAL = varName
    End Select
End Function

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