Cadenas de multilínea en VB.NET

Question

¿Hay alguna manera de tener cadenas multilínea en VB.NET como Python?

a = """
multi
line
string
"""

o PHP?

$a = <<<END
multi
line
string
END;

Por supuesto, algo que no es

"multi" & _
"line

Answer 1

Las cadenas de múltiples líneas están disponibles desde Visual Studio 2015.

Dim sql As String = "
    SELECT ID, Description
    FROM inventory
    ORDER BY DateAdded
"

Puede combinarlos con interpolación de cadenas para maximizar la utilidad:

Dim primaryKey As String = "ID"
Dim inventoryTable As String = "inventory"

Dim sql As String = $"
    SELECT {primaryKey}, Description
    FROM {inventoryTable}
    ORDER BY DateAdded
"

Tenga en cuenta que las cadenas interpoladas comienzan con $ y debe ocuparse de " , { y } contenido en el interior, conviértalos en "" , {{ o }} respectivamente.

Aquí puede ver el resaltado de sintaxis real de las partes interpoladas del ejemplo de código anterior:

Si se pregunta si su reconocimiento por el editor de Visual Studio también funciona con refactorización (por ejemplo, cambiar el nombre de las variables en masa), entonces tiene razón, la refactorización de código funciona con estos. Sin mencionar que también son compatibles con IntelliSense, recuento de referencias o análisis de código.

Answer 2

Bueno, ya que pareces estar en tu pitón, te sugiero que copies tu texto en python, como:

 s="""this is gonna 
last quite a 
few lines"""

luego haz a:

  for i in s.split(''/n''):
    print ''mySB.AppendLine("%s")'' % i

#    mySB.AppendLine("this is gonna")
#    mySB.AppendLine("last quite a")
#    mySB.AppendLine("few lines")

o

  print '' & _ /n''.join(map(lambda s: ''"%s"'' % s, s.split(''/n'')))

#    "this is gonna" & _ 
#    "last quite a" & _ 
#    "few lines"

entonces al menos puedes copiar eso y ponerlo en tu código VB. Puntos de bonificación si enlaza una tecla de Autohotkey rápido (la más rápida para obtener: Autohotkey ) para hacer esto para lo que sea que esté en su buffer de pegado. La misma idea funciona bien para un formateador SQL.

Answer 3

Como este es un problema de legibilidad, he usado el siguiente código:

MySql = ""
MySql = MySql & "SELECT myTable.id"
MySql = MySql & " FROM myTable"
MySql = MySql & " WHERE myTable.id_equipment = " & lblId.Text

Answer 4

Descargo de responsabilidad: me encanta Python. Sus cadenas multilínea son solo una razón.

Pero también hago VB.Net, así que aquí está mi atajo para cadenas largas más legibles.

  Dim lines As String() = {
    "Line 1",
    "Line 2",
    "Line 3"
  }
  Dim s As String = Join(lines, vbCrLf)

Answer 5

Descubrí cómo usar ambos <! [CDATA [junto con <% = para las variables, lo que te permite codificar sin preocupaciones.

Básicamente, debe terminar las etiquetas CDATA antes de la variable VB y luego volver a agregarlas para que el CDATA no capture el código VB. Debe envolver todo el bloque de código en una etiqueta porque tendrá múltiples bloques CDATA.

Dim script As String = <code><![CDATA[
  <script type="text/javascript">
    var URL = '']]><%= domain %><![CDATA[/mypage.html'';
  </script>]]>
</code>.value

Answer 6

Disponible en Visual Basic 14 como parte de Visual Studio 2015 https://msdn.microsoft.com/en-us/magazine/dn890368.aspx

Pero aún no es compatible con R #. ¡La buena noticia es que recibirán apoyo pronto! Youtrack en Youtrack para notificar a JetBrains que también los necesitas.

Answer 7

Literales de cadenas multilínea en vb.net utilizando la clase XElement.

Imports System.Xml.Linq

Public Sub Test()

dim sOderBy as string = ""

dim xe as XElement = <SQL>
                SELECT * FROM <%= sTableName %>
                 <ORDER_BY> ORDER BY <%= sOrderBy %></ORDER_BY>
                 </SQL>

''** conditionally remove a section 
if sOrderBy.Length = 0 then xe.<ORDER BY>.Remove

''** convert XElement value to a string 
dim sSQL as String = xe.Value

End Sub

Answer 8

Los literales de cadena multilínea se introducen en Visual Basic 14.0 - https://roslyn.codeplex.com/discussions/571884

Puede utilizarlo en la vista previa de VS2015, ahora - http://www.visualstudio.com/en-us/downloads/visual-studio-2015-downloads-vs (tenga en cuenta que aún puede usar VS2015 incluso cuando se dirige a un versión del framework .NET)

Dim multiline = "multi
line
string"

Las cadenas VB son básicamente las mismas que las cadenas verbales de C #: no admiten secuencias de escape de barra invertida como / n, y permiten nuevas líneas dentro de la cadena, y se escapa del símbolo de comillas con comillas dobles ""

Answer 9

No, VB.NET aún no tiene esa característica. Estará disponible en la próxima iteración de VB (visual basic 10) sin embargo ( link )

Answer 10

Para mí, eso es lo más molesto de VB como lenguaje. En serio, una vez escribí la cadena en un archivo y escribí el código algo así como:

Dim s as String = file_get_contents("filename.txt")

solo para poder probar la consulta directamente en el servidor SQL si es necesario.

Mi método actual es usar un procedimiento almacenado en SQL Server y simplemente llamarlo para poder pasar los parámetros a la consulta, etc.

Answer 11

Podría (¿debería?) Poner la cadena en un archivo de recursos (por ejemplo, "Mi proyecto" / Recursos) y luego obtenerlo con

 Dim a = My.Resources.Whatever_you_chose

Answer 12

Puede usar XML Literals para lograr un efecto similar:

Imports System.XML
Imports System.XML.Linq
Imports System.Core

Dim s As String = <a>Hello
World</a>.Value

Recuerde que si tiene caracteres especiales, debe usar un bloque CDATA:

Dim s As String = <![CDATA[Hello
World & Space]]>.Value

ACTUALIZACIÓN 2015:

Los literales de cadenas multilínea se introdujeron en Visual Basic 14 (en Visual Studio 2015 ). El ejemplo anterior se puede escribir ahora como:

Dim s As String = "Hello
World & Space"

MSDN article isn''t updated yet (as of 2015-08-01), so check some answers below for details.

Los detalles se agregan al repositorio de Roslyn New-Language-Features-in-VB-14 Github.

Answer 13

Si necesita un literal XML en VB.Net con una variable de código de línea, así es como lo haría:

<Tag><%= New XCData(T.Property) %></Tag>

Answer 14

También puede usar la clase System.Text.StringBuilder de esta manera:

Dim sValue As New System.Text.StringBuilder
sValue.AppendLine("1st Line")
sValue.AppendLine("2nd Line")
sValue.AppendLine("3rd Line")

Luego obtienes la cadena multilínea usando:

sValue.ToString()

Answer 15

Usé esta variante:

     Dim query As String = <![CDATA[
        SELECT 
            a.QuestionID
        FROM 
            CR_Answers a

        INNER JOIN 
            CR_Class c ON c.ClassID = a.ClassID
        INNER JOIN
            CR_Questions q ON q.QuestionID = a.QuestionID
        WHERE 
            a.CourseID = 1
        AND 
            c.ActionPlan = 1
        AND q.Q_Year = ''11/12''
        AND q.Q_Term <= (SELECT CurrentTerm FROM CR_Current_Term)
    ]]>.Value()

permite <> en la cadena

Answer 16

Use vbCrLf o vbNewLine . Funciona con MessageBoxes y muchos otros controles que probé.

Dim str As String
str = "First line" & vbCrLf & "Second line"
MsgBox(str)
str = "First line" & vbNewLine & "Second line"
MsgBox(str)

Mostrará dos MessageBoxes idénticos con 2 líneas.

Answer 17

VB.Net no tiene dicha característica y no aparecerá en Visual Studio 2010. La característica a la que se refiere jirwin se llama continuación de línea implícita. Tiene que ver con eliminar el _ de una instrucción o expresión de varias líneas. Esto elimina la necesidad de terminar una cadena multilínea con _, pero todavía no hay literal de cadena multilínea en VB.

Ejemplo de cadena multilínea

Visual Studio 2008

Dim x = "line1" & vbCrlf & _
        "line2"

Visual Studio 2010

Dim x = "line1" & vbCrlf & 
        "line2"

Answer 18

en Visual Studio 2010 (VB NET), intento lo siguiente y funciona bien

Dim HtmlSample As String = <anything>what ever you want to type here with multiline strings</anything>

dim Test1 as string =<a>onother multiline example</a>

Answer 19

este fue un artículo muy útil para mí, pero nadie mencionó cómo concatenar en caso de que quiera enviar algunas variables, que es lo que debe hacer el 99% del tiempo.

... <% = variable %> ...

Así es como lo haces:

<SQL> SELECT * FROM MyTable WHERE FirstName=''<%= EnteredName %>'' </SQL>.Value

Answer 20

puedes usar XML para esto como

dim vrstr as string = <s>
    some words
    some words
    some
    words
</s>

Answer 21

si es como C # (no tengo instalado VB.Net) puede prefijar una cadena con @

foo = @"Multiline
String"

esto también es útil para cosas como @ "C: / Windows / System32 /" - esencialmente desactiva el escape y enciende la línea múltiple.