将行连接成一个字符串答案

【问题标题】：Concatenate lines into one string将行连接成一个字符串
【发布时间】：2021-07-03 15:12:00
【问题描述】：

我需要将文本从字符串拆分并编辑为某个公式。

文本字符串是：

我需要它是：

1;2;3;4;5
<br>
1;2;3;4;5
<br>
1;2;3;4;5
<br>
1;2;3;4;5
<br>
1;2;3;4;5
<br>
1;2;3;4;5
<br>

在 1 个字符串中，我需要 50 个字符串作为该公式的行。
我尝试使用新行拆分并为每个单词添加字符，然后按字符拆分，但这对我没有帮助。

【问题讨论】：

这能回答你的问题吗？ Remove carriage return from string
如果您向我们展示了您尝试过的代码，我们可以帮助您，让您知道代码需要更改的地方。事实上，它看起来像一个“给我代码”问题，这将低于本网站预期的标准；）

标签： vb.net

【解决方案1】：

假设换行符作为 CR/LF 序列给出

Dim result = input.Replace(vbCrLf, ";")

或

Dim result = input.Replace(Environment.NewLine, ";")

见：https://dotnetfiddle.net/pB08ay

您更新后的更复杂的输入字符串可以这样处理

Dim result = input.Replace(Environment.NewLine, ";").
                   Replace(";;", Environment.NewLine & "<br>" & Environment.NewLine)

我们像以前一样开始。这会产生一个看起来像1;2;3;4;5;;1;2;3;4;5;;1;2;3;4;5;;1;2;3;4;5;;1;2;3;4;5 的字符串。然后我们将双分号替换为嵌入在两个换行符之间的<br>。

【讨论】：

只有1组数字时有效..
只有1组号码时有效。我在 1 个字符串中每 5 行就有 50 个这样的组。

【解决方案2】：

试试下面这个功能：

Private Function FormatString(ByVal InputString As String) As String
    InputString = InputString.Replace(vbCrLf, "")
    For i = 0 To InputString.Length - 1
        InputString = InputString.Insert(i + i, ";")
    Next
    InputString = InputString.Remove(0, 1)

    Return InputString
End Function

【讨论】：