Vb6 如何在字符串文字中添加双引号

示例代码：

Dim a As String
a = 1234,5678,9123

我想在变量

a

预期产出：

a = "1234,5678,9123"

如何格式化字符串，使其在打印时具有双引号

a = """1234,5678,9123"""

或

---

如果要在字符串中包含

“

，请在希望引用出现的位置提供

”

a = """1234,5678,9123"""

---

目前的答案是正确和有效的，但有时以下内容可以提高可读性：

a = Chr$(34) & "1234,5678,9123" & Chr$(34)

我使用了Chr$（34）方法，如下所示：

Sub RunPython()
    Dim scriptName As String
    Dim stAppName As String
    scriptName = ActiveWorkbook.Path & "\aprPlotter.py"
    stAppName = "python.exe " & Chr$(34) & scriptName & Chr$(34)
    Debug.Print stAppName
    Call Shell(stAppName, vbHide)
End Sub

我对python脚本使用了与Excel工作簿相同的路径，以方便用户使用。在找到此线程之前，我用引号蒙骗了45分钟。当路径来源于活动工作位置时（尤其是Windows中带有空格的位置），我认为这是一种首选方法。希望这能帮助其他人。

为了使Chr$（34）更具可读性：

Dim quote as string
quote = Chr$(34)
a = quote & "1234,5678,9123" & quote

---

这使得在任何地方都可以更容易地获得正确数量的“符号”，并且易于阅读。

无需添加任何类型的复杂函数，只需使用以下示例在文本框或富文本框中插入双精度字符即可

Dim dquot=""""
TextBox1.AppendText("Hello " &dquot &"How are you ?" &quot)

或

您只需使用

Chr$（34）

插入双引号

例如：

我像绳子一样暗

i = Chr$(34) & "Hello World" & Chr$(34) 'Shows "Hello World"

---

可能重复的是这只是在VB源代码？或者这里还有别的东西吗？最明显的问题是为什么你不能直接输入这个？您能提供更多的上下文吗？这是您需要重构的代码吗？我们在这里也讨论了多少实例？是否所有变量都声明为“Dim a as string”？还有什么其他限制？可能是重复的我没有否决投票，但这不是更可读！是否所有开发人员都需要知道整个ASCII字符集？创建一个常量并将其赋值；然后，简单地使用康斯坦特威尔，我只是说可以，只是为了给OP提供另一个选择。我没有说这是最佳实践。你可以找到ASCII字符集-然后你就不必记住它了。+1我看到Chr（34）到处都是，不确定问题出在哪里。这更容易阅读，因为你不必确保每个引号都是两倍的。加上字符串是纯英语的。创建一个全局常量：Public Const vbDoubleQuote As string=“””表示1个双引号（“），并像：a=vbDoubleQuote&“blablabla”一样使用它" & vbDoubleQuote@MattWilko如果

a

按照OP以字符串形式键入，则会发生这种情况。如果他们在其中使用数值变量或文字，

+

应该是

&

，或者传递给

CStr（）

@MattWilko对不起：）我已经更新了答案，以使用

&

。

Dim dquot=""""
RichTextBox1.AppendText("Hello " &dquot &"How are you ?" &quot)

i = Chr$(34) & "Hello World" & Chr$(34) 'Shows "Hello World"