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

Question

注意：这个问题不是关于 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 "

（我知道这两者并不完全等同，因为第二个包含额外的换行符和 spaces。没关系。我们假设内容类似于 SQL 或 HTML 其中额外的白色 space 无关紧要。）

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

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

然后我单击 a 行以修复尾随引号，然后 poof 发生以下情况：

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

第一个 "And" 的大小写搞砸了。

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

有没有人找到一种解决方法来将大块连接字符串重新格式化为多行字符串文字而不 Visual Studio 弄乱字符串内容？我知道我可以全局关闭漂亮格式（Tools/Options/Text Editor/Basic/Advanced），但是有更好的解决方案吗？

Answer 1

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

并使用这个表达式：

" &\r\n\s*"

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

那么替换为：

\r\n

用新行替换匹配的文本。

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

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

并使用 </code>:</p> 将其放回替换中 <pre><code>\r\n

Convert a concatenated VB.NET string literal to a multi-line string