Dim dic As New Dictionary(Of String, object)
Dim sss As String = "11|22|33|44/66|77|88|99/01|02|03|04|05"
For Each ss As String In sss.split("/")
Dim lst As new List(of String)
For Each s As String In ss.split("|")
lst.Add(s)
Next
'Output.Show(String.join(vbcrlf,lst.ToArray))
dic.Add(ss,lst)
Next
Dim ls As List(of String) = dic("11|22|33|44")
Output.Show(String.join(vbcrlf,ls.ToArray))
ls = dic("66|77|88|99")
Output.Show(String.join(vbcrlf,ls.ToArray))
ls = dic("01|02|03|04|05")
Output.Show(String.join(vbcrlf,ls.ToArray))
加好友 
发短信
Post By：2019/7/9 14:57:00 [显示全部帖子]
