以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  字符串拆分  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=97064)
--  作者：zhupengfei
--  发布时间：2017/3/5 15:56:00
--  字符串拆分
字符串：     a|1|b|2|c|3|d|4
我想要在表a里将字符串拆分后赋值，像这样：




            字母列   数字列

第一行：   a           1
第二行：   b           2
第三行：   c           3


如何写代码。
--  作者：zhupengfei
--  发布时间：2017/3/5 17:23:00
--  
老师呢！！！~~~
--  作者：y2287958
--  发布时间：2017/3/5 17:23:00
--  
Dim s As String = "a|1|b|2|c|3|d|4"
Dim lst1,lst2 As new List(of String)
For i As Integer = 0 To s.Split("|").Length - 1
    If i Mod 2 = 0
        lst1.Add(s.Split("|")(i))
    Else
        lst2.Add(s.Split("|")(i))
    End If
Next
For i As Integer = 0 To lst1.Count - 1
    Output.Show(lst1(i) & "/" & lst2(i))
Next
--  作者：狐狸爸爸
--  发布时间：2017/3/5 17:25:00
--  
Dim vs()  As String = "a|1|b|2|c|3|d|4".Split("|")
For i As Integer = 0 To vs.length - 2
    Dim dr As DataRow = DataTables("表A").AddNew()
    dr("第一列") = vs(i)
    dr("第二列") = vs(i+1)
Next
--  作者：zhupengfei
--  发布时间：2017/3/5 17:56:00
--  
不对，错位了
--  作者：zhupengfei
--  发布时间：2017/3/5 18:00:00
--  
step 2
--  作者：有点色
--  发布时间：2017/3/5 21:35:00
--  
Dim vs()  As String = "a|1|b|2|c|3|d|4".Split("|")
For i As Integer = 0 To vs.length - 2 Step 2
    Dim dr As DataRow = DataTables("表A").AddNew()
    dr("第一列") = vs(i)
    dr("第二列") = vs(i+1)
Next