Dim hths() As String = {"QAXSZ230811B/23088", "QAXSZ230811A/23079", "QAXSZ230811A/23079", "QAXSZ230328A/23039", "QAXSZ230328A/23039"}
Dim fphms() As String = {"666", "36357132", "36357333", "36356847", "36356864"}
Dim dic As New Dictionary(Of String, list(Of String))
For i As Integer = 0 To hths.count - 1
Dim lst As New List(Of String)
If dic.ContainsKey(hths(i)) Then
lst = dic(hths(i))
lst.Add (fphms(i))
dic(hths(i)) = lst
Else
lst.Add(fphms(i))
dic.Add(hths(i), lst)
End If
Next
For Each k As String In dic.Keys
Output.Show (k & ":" & String.Join ("_" , dic(K)))
Next
加好友 
发短信
Post By：2023/9/14 10:50:00 [显示全部帖子]
