vb6 - simples - poner comillas en una cadena visual basic

Cómo agregar comillas dobles en un literal de cadena

Question

Código de ejemplo:

Dim a As String
a = 1234,5678,9123

Quiero agregar comillas dobles literales a la variable a

Rendimiento esperado:

a = "1234,5678,9123"

¿Cómo formateo la cadena para que cuando la imprima tenga comillas dobles a su alrededor?

Answer 1

Las respuestas actuales son correctas y válidas, pero a veces lo siguiente puede mejorar la legibilidad:

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

Answer 2

Para hacer Chr $ (34) más legible:

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

Esto facilita la obtención del número correcto de "símbolos en todas partes y es legible".

Answer 3

Si desea incluir " en una cadena, suministre "" donde desea que aparezca la cita. Entonces su ejemplo debería leer ...

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

Answer 4

Usé el método Chr $ (34), así:

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

Estaba usando la misma ruta para el script de python que el libro de trabajo de Excel, para que sea más fácil para los usuarios. Me monkeé con las comillas durante 45 minutos antes de encontrar este hilo. Cuando las rutas provienen de ubicaciones de trabajo activas (especialmente las que tienen espacios en Windows), creo que este es un método preferido. Con suerte, esto ayudará a alguien más.

Answer 5

No es necesario agregar ningún tipo de funciones complicadas, solo use el siguiente ejemplo para insertar doble en el cuadro de texto o en el cuadro de texto enriquecido.

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

o

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

Answer 6

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

o

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