VB.NET中的多行字符串

有没有办法像Python一样在VB.NET中具有多行字符串

a = """
multi
line
string
"""

还是PHP？

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

当然不是

"multi" & _
"line

您可以使用XML文字实现类似的效果：

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

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

请记住，如果您有特殊字符，则应使用CDATA块：

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

2015更新：

在Visual Basic 14中（在Visual Studio 2015中）引入了多行字符串文字。上面的示例现在可以写成：

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.

详细信息已添加到VB-14 Github存储库中的Roslyn New-Language-Features-in。

VB.Net没有此类功能，Visual Studio 2010 中将不会提供。Jirwin引用的功能称为隐式行连续。它与从多行语句或表达式中删除_有关。这确实消除了用_终止多行字符串的需要，但是VB中仍然没有多行字符串文字。

多行字符串示例

Visual Studio 2008年

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

Visual Studio 2010

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

我使用了这种变体：

     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()

它允许在字符串中使用<>

自Visual Studio 2015起，多行字符串可用。

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

您可以将它们与字符串插值结合使用以最大程度地发挥作用：

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

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

需要注意的是插值字符串开始$，你需要照顾"，{并}包含内-它们转化成""，{{或}}分别。

在这里，您可以看到上述代码示例的内插部分的实际语法高亮显示：

如果您想知道Visual Studio编辑器对它们的识别是否也适用于重构（例如，对变量进行大量重命名），那么您是对的，代码重构可以使用这些重构。更不用说它们还支持IntelliSense，引用计数或代码分析。

在Visual Basic 14.0中引入了多行字符串文字-https: //roslyn.codeplex.com/discussions/57188​​4

您可以立即在VS2015预览版中使用，然后使用-http: //www.visualstudio.com/en-us/downloads/visual-studio-2015-downloads-vs（请注意，即使以较早版本为目标，您仍然可以使用VS2015 .NET框架的版本）

Dim multiline = "multi
line
string"

现在，VB字符串基本上与C＃逐字字符串相同-它们不支持\ n之类的反斜杠转义序列，并且它们确实允许在字符串中使用换行符，并且您可以使用双引号“”对引号进行转义

这对我来说真的是很有帮助的文章，但是没有人提到如何在要发送一些变量的情况下进行连接，这是99％的时间需要执行的操作。

... <％=变量％> ...

这是您的操作方式：

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

好吧，由于您似乎正在使用python，因此我建议您将文本复制到python中，例如：

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

然后执行：

  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")

要么

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

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

那么至少您可以将其复制出来并放入您的VB代码中。如果您绑定一个热键（最快可通过Autohotkey获得）来为粘贴缓冲区中的内容进行此操作，则可获得加分。对于SQL格式化程序，相同的想法也适用。

vb.net中使用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

对我来说，这是VB语言最令人讨厌的事情。认真地说，我曾经将字符串写到文件中，然后按照以下方式编写代码：

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

只是这样，如果需要的话，我可以直接在SQL Server上测试查询。

我当前的方法是在SQL Server上使用存储过程，然后调用它，以便可以将参数传递给查询，等等。

我想出了如何在变量中同时使用<！[CDATA [和<％=），这使您无需担心。

基本上，您必须在VB变量之前终止CDATA标记，然后在VB变量之后重新添加它，以使CDATA无法捕获VB代码。您需要将整个代码块包装在一个标签中，因为您将拥有多个CDATA块。

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

您可以（应该？）将字符串放入资源文件（例如“ My Project” / Resources）中，然后使用

 Dim a = My.Resources.Whatever_you_chose

免责声明：我喜欢python。它是多行字符串只是原因之一。

但是我也做VB.Net，所以这是我的捷径，可读取长字符串。

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

您可以使用XML这样的

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

在Visual Studio 2010（VB NET）中我尝试以下操作并正常运行

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>

作为Visual Studio 2015的一部分在Visual Basic 14中提供 https://msdn.microsoft.com/zh-cn/magazine/dn890368.aspx

但R＃尚不支持。好消息是他们将很快得到支持！请在Youtrack上投票以通知JetBrains您也需要它们。

如果您需要VB.Net中带有行代码变量的XML文字，则可以采用以下方法：

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

您还可以通过System.Text.StringBuilder以下方式使用类：

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

然后，使用以下命令获取多行字符串：

sValue.ToString()

由于这是一个可读性问题，因此我使用了以下代码：

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

使用vbCrLf或vbNewLine。它可以与MessageBoxes和我测试过的许多其他控件一起使用。

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

它将显示两行相同的两个相同的MessageBox。

不，VB.NET尚不具有此功能。但是，它将在VB的下一个迭代版本（Visual Basic 10）中可用（链接）

如果就像C＃（我没有安装VB.Net），则可以在字符串前面加上@

foo = @"Multiline
String"

这对于诸如@“ C：\ Windows \ System32 \”之类的东西也很有用-它实际上关闭了转义并打开了多行。