VB.NET实现ListBox内容转为带+1前缀、逗号分隔且大括号包裹的字符串

你的代码主要有两个问题：一是未添加首尾的大括号，二是循环结束后会多出一个多余的, 后缀。以下是两种可行的解决方法：

方法一：优化StringBuilder写法 #

先收集所有处理好的项，再用String.Join自动处理分隔符，最后包裹大括号：

Dim MultiNums As String = ""
Dim sb As New StringBuilder()
Dim processedItems As New List(Of String)()

' 遍历ListBox项，生成带前缀的字符串
For Each item In lbEmail1.Items
    processedItems.Add("+1" & item.Text)
Next

' 拼接成目标格式
sb.Append("{")
If processedItems.Count > 0 Then
    sb.Append(String.Join(", ", processedItems))
End If
sb.Append("}")

MultiNums = sb.ToString()

方法二：使用LINQ简化代码 #

利用LINQ的Cast和Select快速处理所有项，再通过字符串插值包裹大括号（注意VB.NET中字符串插值里的大括号需要用{{}}转义）：

' 转换并处理所有项
Dim processedItems = lbEmail1.Items.Cast(Of ListItem)().Select(Function(item) "+1" & item.Text)
' 拼接成最终格式
Dim MultiNums As String = $"{{{String.Join(", ", processedItems)}}}"

两种方法都能输出你需要的格式，比如当ListBox包含12345678910、01987654321两项时，结果为{+112345678910, +101987654321}。

内容的提问来源于stack exchange，提问作者mlg74