文字列の取り出し方
今、Visual Basic 2008を使用しています。
textbox2とtextbox3があり、textbox2に複数行にまたがる文字列があります。
この文字列の中で、listbox1の中にある項目の文字列が入ってる場合はカンマ区切りで文字列の後ろにつなげたいのですが、うまくいきません。
具体的には
あいうえお
あかさたな
いろはにほ
というtextbox2の内容について、listbox1内に
あ
い
という2つの項目があった場合、
あいうえお,あ,い
あかさたな,あ
いろはにほ,い
という結果をtextbox3に書き出すという内容です。
Dim addtag As String = ""
Dim i As Integer
For Each part As String In TextBox2.Text.Split(vbCrLf)
If part <> "" Then
For i = ListBox1.Items.Count - 1 To 0 Step -1
If part.Contains(ListBox1.Items(i)) = True Then
addtag = addtag & "," & ListBox1.Items(i)
End If
Next
part = part & addtag
TextBox3.Text = TextBox3.Text & part & ControlChars.NewLine
part = ""
addtag = ""
End If
Next
というプログラムを組んでいますが、どこが間違っているのかわからず、煮詰まってしまいました。
プログラムは初心者で、根本から違っていたら恥ずかしい限りですが、どうかよろしくお願いします。