1

私は2つのリストボックスを持っています。listbox1 には、可変アカウント名が含まれています。

John
James
Matt

2 番目のリストボックスには、非変数スクリプトが含まれています

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

アカウント名をループします。そのためのコードがあります。しかし、以下のように 3 番目のリスト ボックスまたはテキスト ボックスで出力を取得するにはどうすればよいですか。

Dear John
Thank you for contacting us.
We will get back to you soon.

Dear James
Thank you for contacting us.
We will get back to you soon.

Dear Matt
Thank you for contacting us.
We will get back to you soon.
4

1 に答える 1

1

静的テキストに ListBox を使用している理由はわかりませんが、このコードは目的どおりに動作するはずです。結果のオブジェクトをFor Each文字列に変換し、変更された行を List(Of String) に追加して、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
于 2013-10-20T02:20:08.053 に答える