以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  甜甜～～  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57863)
--  作者：qianqian1530
--  发布时间：2014/10/6 10:50:00
--  甜甜～～

Dim 項目1() As String = e.Form.Controls("項目1").text
Dim 項目2() As String = e.Form.Controls("項目2").text
Dim 項目3() As String = e.Form.Controls("項目3").text
Dim 項目4() As String = e.Form.Controls("項目4").text
Dim 項目5() As String = e.Form.Controls("項目5").text
Dim 項目6() As String = e.Form.Controls("項目6").text
Dim 項目7() As String = e.Form.Controls("項目7").text
Dim 項目8() As String = e.Form.Controls("項目8").text
Dim 項目9() As String = e.Form.Controls("項目9").text
Dim 項目10() As String = e.Form.Controls("項目10").text
Dim Sum As Integer = 0
For a1 As Integer = 0 To 項目1.Length - 1
    For a2 As Integer = 0 To 項目2.Length - 1
        For a3 As Integer = 0 To 項目3.Length - 1
            For a4 As Integer = 0 To 項目4.Length - 1
                For a5 As Integer = 0 To 項目5.Length - 1
                    For a6 As Integer = 0 To 項目6.Length - 1
                        For a7 As Integer = 0 To 項目7.Length - 1
                            For a8 As Integer = 0 To 項目8.Length - 1
                                For a9 As Integer = 0 To 項目9.Length - 1
                                    For a10 As Integer = 0 To 項目10.Length - 1
                                        Sum = Sum + 1
                                        If Sum > 101 Then
                                            Exit For
                                            Exit For
                                            Exit For
                                            Exit For
                                            Exit For
                                            Exit For
                                            Exit For
                                            Exit For
                                            Exit For
                                            Exit For
                                        End If
                                        Dim fe As String =項目1(a1) & "|" & 項目2(a2) & "|" & 項目3(a3) & "|" & 項目4(a4) & "|" & 項目5(a5) & "|" & 項目6(a6) & "|" & 項目7(a7) & "|" & 項目8(a8) & "|" & 項目9(a9) & "|" & 項目10(a10)
                                        output.show(fe.Replace("||","|"))
                                    Next
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
Next






Dim 項目1() As String = e.Form.Controls("項目1").text

 这么些 不行么？

 e.Form.Controls("項目1")的值 是 {"asd","sad"}
--  作者：有点甜
--  发布时间：2014/10/6 10:54:00
--  

 不行。内容这样写 abcd,efg,hijk

 

 Dim 項目1() As String = e.Form.Controls("項目1").text.Split(",")