Vb.net 插入分隔符分隔每个数字

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

227
72
13
492

代码：

输出：

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

预期产出：

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

---

当前代码仅在最后一个位置插入逗号。您可以使用

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.tocharray（）

将

字符串

转换为

Char（）

。不幸的是，我们无法直接将其传递给

String.Join

，因为编译器将char数组视为字符串。这就是调用

.ToList（）

的原因

'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