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

Question

示例代码：

Dim a As String
a = 1234,5678,9123

我想在变量中添加文字双引号a

预期输出：

a = "1234,5678,9123"

如何格式化字符串，以便当我打印它时，它周围有双引号？

Answer 1

如果要包含"在字符串中，请提供""您希望引号出现的位置。所以你的例子应该读...

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

Answer 2

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

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

Answer 3

为了使 Chr$(34) 更具可读性：

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

这使得在任何地方都能更容易地获得正确数量的 " 符号并且是可读的。

Answer 4

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

或者

a= """" & a & """"

Answer 5

你只是Chr$(34)用来插入一个双引号。

例如：

将 i 调暗为字符串

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

Answer 6

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

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

或者

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

Answer 7

我使用了 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

我使用与 Excel 工作簿相同的 python 脚本路径，以使用户更容易。在我找到这个帖子之前，我用了 45 分钟的报价。当路径来自活动工作位置（尤其是 Windows 中带有空格的位置）时，我认为这是一种首选方法。希望这会对其他人有所帮助。