Как добавить двойные кавычки в строковый литерал

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), чтобы вставить двойные кавычки.

Например:

Dim I as String

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

Я использовал тот же путь для скрипта Python, что и в книге Excel, чтобы было проще для пользователей.Я искал цитаты в течение 45 минут, прежде чем нашел эту ветку.Когда пути получены из активных рабочих мест (особенно с пробелами в Windows), я думаю, что это предпочтительный метод.Надеюсь, это поможет кому-то еще.