循环浏览列表视图中的选定项，并从具有逗号分隔子项的子项填充另一个列表视图

Question

我有一个名为lstProducts的列表视图。用户在lstProducts中选择一个项来填充表单中的各种对象。其中三个子项是逗号分隔的字符串，必须对其进行解析才能填充lstAss。

我有循环通过的代码，但它没有正确解析：

Dim input As String = lstProducts.Items(x).SubItems(6).Text
Dim result As String() = input.Split(New String() {","c}, StringSplitOptions.None)
Dim m As String
Dim t As String
For Each s As String In result
Dim inputT As String = lstProducts.Items(x).SubItems(10).Text
Dim resultT As String() = inputT.Split(New String() {","c}, StringSplitOptions.None)
Dim inputM As String = lstProducts.Items(x).SubItems(11).Text
Dim resultM As String() = inputM.Split(New String() {","c}, StringSplitOptions.None)
s = Trim(s)
For Each t In resultT
t = Trim(t)
Next
For Each m In resultM
m = Trim(m)
Next
Dim li As New ListViewItem()
li = lstAss.Items.Add(s, 0)
li.SubItems.Add(t)
li.SubItems.Add(m)
Next

待解析：

第6列：1,2,3,4第10栏：a、b、c.d第11列：96,97,98,99

所需输出：

col0
1
2
3
4
col1
a
b
c
d
col2
96
97
98
99

我的代码lstAss目前正在如下填充：

col0
1
2
3
4
col1
d
d
d
d
col2
99
99
99
99

如何正确解析？我已经尝试了多种方法来做到这一点，这是我所能做到的。

通过错误处理程序来保证输入lstProducts的数据的完整性。在col6、col10和&col11.

Answer 1

我解决了这个问题。我只是将这3个子项组合成一个逗号分隔的字符串，并将其解析回原始列表视图。

将输入标注为字符串=lstSpecs。项目(x(。分项(9(。文本Dim result As String((=输入。Split(New String(({quot；，"c}，StringSplitOptions。无(

Dim li As New ListViewItem()
For Each s As String In result
s = Trim(s)
If s <> "D" And s <> "C" Then
li = lstSpecies.Items.Add(s)
Else
li.SubItems.Add(s)
End If
Next
End Sub