Dim s As String = Forms("窗口1").Controls("TextBox1").Text
Dim ss() As String = s.Replace(vbcr, "").Replace(vblf, "").Trim(";").Split(";")
If ss.Length >= 2 Then
Dim lst As New List(Of String)
Dim l1s As New List(Of String)
l1s.AddRange(ss(0).Split("|"))
Dim l2s As New List(Of String)
l2s.AddRange(ss(1).Split("|"))
If l2s.count > 0 Then
For Each s1 As String In l1s
For Each s2 As String In l2s
lst.add(s1 & "-" & s2)
Next
Next
End If
For i As Integer = 2 To ss.Length - 1
l1s.clear
l1s.addrange(lst)
lst.clear
l2s.Clear
l2s.AddRange(ss(i).Split("|"))
If l2s.count > 0 Then
For Each s1 As String In l1s
For Each s3 As String In l2s
lst.add(s1 & "-" & s3)
Next
Next
End If
Next
For Each m As String In lst
output.show(m)
Next
End If
[此贴子已经被作者于2024/7/9 22:44:45编辑过]
加好友 
发短信
Post By：2024/7/9 22:44:00 [显示全部帖子]
