将字符串内 VB6 字符串变量的名称替换为该字符串变量的内容？-解网

问：

tl;dr 跳到下面的问题。

上下文

在我的代数数学程序中，公式可以输入以下形式（作为 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$ +") , (" + formula1$ +")"

的代码可以手动生成。但是，这很难做到，不能指望用户去做。formula5_descr$

我想让用户输入更简单的代码形式，例如：

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

然后可以修改程序以解析公式字符串并替换任何字符串引用（即和）相关字符串的内容（即和）。"PRODUCT (formula1$ ) , ( formula2$ )"formula1$formula2$SUM (a,b,c)SUM (x,y,z)

问题

问题来了 - 如何在 VB6 中用该字符串变量的内容替换字符串内字符串变量的名称？

（用户 Joel Coehoorn 指出，在较新的语言中，如 VB14+、C#、javascript 等，有一个称为字符串插值的过程。

理想情况下，将有一个函数，以便：REVEAL()

REVEAL("formula1$") --> "SUM (a,b,c)"

注意MS Access 中存在针对 VBA 的解决方案这一事实并不意味着该解决方案会自动适用于 VB6。它们是相似但不同的语言，VB6 的安装不一定安装与 MS Access 相同的组件。

VB6 字符串插值

@GSerg 如果它们是在运行时定义的，那么它们的用处为零。完全同意你的看法。然而，我仍然不清楚，即使在多次重新阅读问题和评论之后，在这种情况下，“用户”是否以某种方式在运行时以某种方式在表单中输入他们的“代码”，或者他们是否真的在修改源代码。CallByName()

答：

0赞 jecsatta 11/10/2023 #1

使用字典按键存储公式。之后，只需将公式名称替换为它们的值即可。

Option Explicit

Dim dictFormulas As New Dictionary

Private Sub Command1_Click()
    ReadLines Text1.Text
    PrintFormulas
End Sub

Private Sub ReadLines(strText As Variant)
    Dim i           As Long
    Dim strLines()  As String
    strLines = Split(strText, vbNewLine)
    For i = LBound(strLines) To UBound(strLines)
        AddFormula strLines(i)
    Next
End Sub

Private Sub AddFormula(strLine As String)
    Dim strFormulaName      As String
    Dim strFormulaValue     As String
    Dim strItem             As Variant
    Dim strFormulaVect()    As String
    
    strFormulaVect = Split(strLine, "=")
    strFormulaName = Trim(strFormulaVect(0))
    strFormulaValue = Trim(strFormulaVect(1))
    
    For Each strItem In dictFormulas.Keys
        strFormulaValue = Replace(strFormulaValue, strItem, CStr(dictFormulas(strItem)))
    Next
    
    dictFormulas.Add strFormulaName, strFormulaValue
End Sub

Private Sub PrintFormulas()
    Dim strItem             As Variant
    For Each strItem In dictFormulas.Keys
         Debug.Print strItem & "=" & CStr(dictFormulas(strItem))
    Next
End Sub

字典是脚本库（SCRRUN.DLL）的一部分Microsoft必须作为引用添加到 Project > 引用中

将字符串内 VB6 字符串变量的名称替换为该字符串变量的内容？

Replace the name of a VB6 string variable inside a string by the contents of that string variable?

评论

评论

评论