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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教字符串分拆，一列分成两列

共有5558人关注过本帖树形打印复制链接主题：请教字符串分拆，一列分成两列

有点蓝

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

等级：超级版主帖子：107896 积分：548849 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/9/19 22:06:00 [显示全部帖子]

Else

Dim dr As DataRow = e.DataRow

Dim Tel As String = dr("地址电话")

Dim Parts() As String = Tel.Split(" ")

dr("地址") = Parts(0) '否则从地址电话列中提取地址

if Parts.length > 1

dr("电话") = Parts(1) '否则从地址电话列中提取电话

end if

End If

[此贴子已经被作者于2022/9/19 22:06:05编辑过]

有点蓝

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

等级：超级版主帖子：107896 积分：548849 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/9/20 10:23:00 [显示全部帖子]

试试

Dim s As String = "广东省湛江市13013013000"

Dim p As String = "\d+"

Dim r As New System.Text.RegularExpressions.Regex(p)

Dim str() As String = r.Split(s)

Output.Show(str(0))

Output.Show(s.Replace(str(0), ""))

但是如果地址有数字，比如【3栋503方】，或者电话里有字符，比如【0759-2111111】就不好办了

主题：请教字符串分拆，一列分成两列