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

Hei*_*nzi 4 vb.net pretty-print visual-studio-2015

注意:这个问题不是关于VB.NET本身,而是关于Visual Studio 2015 Basic编辑器的特定功能.

我有一些看起来像这样的遗留代码:

Dim someText =
    " a " &
    " AND b " &
    " AND cd " &
    " AND efg " &
    " AND h "
Run Code Online (Sandbox Code Playgroud)

由于Roslyn 在VB中引入了多行字符串文字,我想将其转换为:

Dim someText =
    " a 
      AND b 
      AND cd 
      AND efg 
      AND h "
Run Code Online (Sandbox Code Playgroud)

(我知道这两者并不完全等价,因为第二个包含额外的换行符和空格.这很好.我们假设内容类似于SQL或HTML,其中额外的空格并不重要.)

现在我的方法如下:首先我阻止选择起始引号(第一个除外)并用空格替换它们:

Dim someText =
   " a " &
     AND b " &
     AND cd " &
     AND efg " &
     AND h "
Run Code Online (Sandbox Code Playgroud)

然后我点击进入a线路修复后引号,和会发生以下情况:

Dim someText =
    " a " &
      And b " &
      AND cd " &
      AND efg " &
      AND h "
Run Code Online (Sandbox Code Playgroud)

第一个"和"的大写被搞砸了.

我理解为什么会这样.我甚至提交了一份错误报告来解决类似的问题.不幸的是,修复(显然已进入VS 2015 Update 2)只有在报价总数为奇数时才有用,这不是这里的情况.

有没有人找到一个解决方法,将大块连接字符串重新格式化为多行字符串文字而不用Visual Studio搞乱字符串内容?我知道我可以全局转换漂亮的格式(工具/选项/文本编辑器/基本/高级),但有更好的解决方案吗?

Jam*_*rpe 7

您可以使用查找和替换.启用正则表达式:

在此输入图像描述

并使用此表达式:

" &\r\n\s*"
Run Code Online (Sandbox Code Playgroud)

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

在此输入图像描述

然后更换:

\r\n
Run Code Online (Sandbox Code Playgroud)

用新行替换匹配的文本.

如果要在每行的开头保留空白,请使用捕获组(括号)在查找表达式中捕获它:

" &\r\n(\s*)"
Run Code Online (Sandbox Code Playgroud)

并将其放回更换中,使用$1:

\r\n$1
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述