VB.Net如何组合两个列表

VB.Net如何组合两个列表,vb.net,Vb.net,我有两个列表框。 listbox1包含可变帐户名 John James Matt 第二个列表框包含一个非变量脚本 Dear <account name> Thank you for contacting us. We will get back to you soon. 我不知道为什么要对静态文本使用列表框,但这段代码应该做您希望它做的事情。 我正在为每个使用来迭代两个列表框的对象集合,将结果对象转换为字符串,然后将修改后的行添加到列表(字符串),然后将其分配给TextBox的l

我有两个列表框。 listbox1包含可变帐户名

John
James
Matt
第二个列表框包含一个非变量脚本

Dear <account name>
Thank you for contacting us.
We will get back to you soon.

我不知道为什么要对静态文本使用列表框,但这段代码应该做您希望它做的事情。 我正在为每个使用
来迭代两个列表框的对象集合,将结果对象转换为字符串,然后将修改后的行添加到列表(字符串),然后将其分配给TextBox的lines属性。看看这是否适合你

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim result As List(Of String) = New List(Of String)
    For Each item As Object In ListBox1.Items
        For Each line As Object In ListBox2.Items
            result.Add(CStr(line).Replace("<account name>", CStr(item))) 'Modify line and add to List
        Next
        result.Add("") 'Add seperator
        TextBox1.Lines = result.ToArray() 'Have to convert to String Array since that is what Lines is
    Next
End Sub
Private子按钮1\u单击(发送者作为对象,e作为事件参数)处理按钮1。单击
将结果变暗为列表(字符串)=新列表(字符串)
对于ListBox1.Items中作为对象的每个项目
对于ListBox2.Items中作为对象的每一行
结果.添加(CStr(行).替换(“,CStr(项))”修改行并添加到列表
下一个
结果.添加(“”)添加分隔符
TextBox1.Lines=result.ToArray()'必须转换为字符串数组,因为这就是行
下一个
端接头

我很感激,效果很好。我是一个初学者,我认为使用列表框对我来说会更容易,我也会寻找其他可能的选择。谢谢again@ValeriaKaya欢迎您,我很高兴能为您提供帮助,我之所以提到Listbox,是因为它们是对象的集合,而不是字符串,因此需要使用CStr将项目转换为可用的形式。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim result As List(Of String) = New List(Of String)
    For Each item As Object In ListBox1.Items
        For Each line As Object In ListBox2.Items
            result.Add(CStr(line).Replace("<account name>", CStr(item))) 'Modify line and add to List
        Next
        result.Add("") 'Add seperator
        TextBox1.Lines = result.ToArray() 'Have to convert to String Array since that is what Lines is
    Next
End Sub