用分隔符插入每个数字

Question

Textbox1.Text =您应该在每个数字后用逗号分隔这些数字。所以我该怎么做？

227
72
13
492

代码：

    On Error Resume Next
    Dim pieces() As String = TextboxIndex1.Text.Split(ControlChars.CrLf.ToCharArray(), StringSplitOptions.RemoveEmptyEntries)
    Dim str As String = ""
    For Each piece As String In pieces
        str &= piece.Insert(piece.Length - 1, ",") & ControlChars.CrLf
    Next
    TextBox1.Text = str.Substring(0, str.Length - 3)
    'Get all chars

输出：

22,7
7,2
1,3
49,2

预期输出：

2,2,7
7,2
1,3
4,9,2

Answer 1

您当前的代码仅在倒数第二个位置插入逗号。您可以使用String.Join将数组的元素与给定的分隔符连接起来。

'On Error Resume Next    'Remove this
Dim pieces() As String = TextBox1.Text.Split(ControlChars.CrLf.ToCharArray(), StringSplitOptions.RemoveEmptyEntries)
Dim str As String = ""

For Each piece As String In pieces
    str &= String.Join(",", piece.ToCharArray().ToList()) & ControlChars.CrLf
Next

TextBox2.Text = str

piece.ToCharArray()将String转换为Char()。不幸的是，我们不能直接将此传递给String.Join，因为编译器将char数组视为字符串。这就是.ToList()调用的原因。