字符串拆分 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 字符串拆分

共有2033人关注过本帖树形打印复制链接主题：字符串拆分

zhupengfei

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：155 积分：1345 威望：0 精华：0 注册：2013/7/31 9:47:00

字符串拆分

Post By：2017/3/5 15:56:00 [只看该作者]

字符串： a|1|b|2|c|3|d|4

我想要在表a里将字符串拆分后赋值，像这样：

字母列数字列

第一行： a 1

第二行： b 2

第三行： c 3

如何写代码。

zhupengfei

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：155 积分：1345 威望：0 精华：0 注册：2013/7/31 9:47:00

Post By：2017/3/5 17:23:00 [只看该作者]

老师呢！！！~~~

y2287958

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4748 积分：34538 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：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

For i As Integer = 0 To lst1.Count - 1

Output.Show(lst1(i) & "/" & lst2(i))

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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)

zhupengfei

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：155 积分：1345 威望：0 精华：0 注册：2013/7/31 9:47:00

Post By：2017/3/5 17:56:00 [只看该作者]

不对，错位了

zhupengfei

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：155 积分：1345 威望：0 精华：0 注册：2013/7/31 9:47:00

Post By：2017/3/5 18:00:00 [只看该作者]

step 2

有点色

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：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

下一主题 >> << 上一主题

主题：字符串拆分