将连接的 VB.NET 字符串文字转换为多行字符串答案

【问题标题】：Convert a concatenated VB.NET string literal to a multi-line string将连接的 VB.NET 字符串文字转换为多行字符串
【发布时间】：2016-08-06 01:09:43
【问题描述】：

注意：这个问题与 VB.NET 本身无关，它与 Visual Studio 2015 Basic 编辑器的一个特定功能有关。

我有一些像这样的遗留代码：

Dim someText =
    " a " &
    " AND b " &
    " AND cd " &
    " AND efg " &
    " AND h "

由于 Roslyn 已经在 VB 中引入了multi-line string literals，我想把它转换成这个：

Dim someText =
    " a 
      AND b 
      AND cd 
      AND efg 
      AND h "

（我知道这两者并不完全等价，因为第二个包含额外的换行符和空格。这很好。我们假设内容类似于 SQL 或 HTML，其中额外的空格无关紧要。）

现在我的方法如下：首先我 block-select 起始引号（第一个除外）并用空格替换它们：

Dim someText =
   " a " &
     AND b " &
     AND cd " &
     AND efg " &
     AND h "

然后我点击a 行来修复尾随引号，噗会发生以下情况：

Dim someText =
    " a " &
      And b " &
      AND cd " &
      AND efg " &
      AND h "

第一个“And”的大小写搞错了。

我明白为什么会这样。我什至filed a bug report 来解决类似的问题。不幸的是，该修复（显然已将其纳入 VS 2015 Update 2）仅在引号总数为奇数时才有帮助，此处并非如此。

有没有人找到一种解决方法，将大块连接字符串重新格式化为多行字符串文字，而不会让 Visual Studio 弄乱字符串内容？我知道我可以在全局范围内打开漂亮的格式（工具/选项/文本编辑器/基本/高级），但是有更好的解决方案吗？

【问题讨论】：

【解决方案1】：

您可以为此使用查找和替换。开启正则表达式：

并使用这个表达式：

" &\r\n\s*"

这将匹配一行末尾的引号和 & 符号，然后是换行符和任何空格以及下一行开头的引号：

那么替换是：

\r\n

用新行替换匹配的文本。

如果您想在每行的开头保留空格，请使用捕获组（括号）在 find 表达式中捕获它：

" &\r\n(\s*)"

并使用$1 将其放回替换位置：

\r\n$1

【讨论】：