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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 字段中取指定数值

共有1510人关注过本帖树形打印复制链接主题：字段中取指定数值

zoyong

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

加好友

发短信

等级：三尾狐帖子：664 积分：7862 威望：0 精华：0 注册：2015/8/24 9:02:00

字段中取指定数值 发帖心情

Post By：2017/8/8 10:28:00 [显示全部帖子]

按指定字段取值

此主题相关图片如下：搜狗截图17年08月08日1025_1.png

大神帮帮忙，想将明细列取数指定值到另三列

zoyong

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

加好友

发短信

等级：三尾狐帖子：664 积分：7862 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2017/8/8 12:23:00 [显示全部帖子]

Dim Tel As String = "5501.003.001 营业费用 - 福利费/部门:002.057 - 经营部_仙县淡竹至白塔污水管道工程(施工)(30万)/职员:04"

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

Output.Show(Parts(0))

Output.Show(Parts(1))

Output.Show(Parts(2))

代码结果：

5501

003

001 营业费用 - 福利费/部门:002

想取数：

5501

003

001

zoyong

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

加好友

发短信

等级：三尾狐帖子：664 积分：7862 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2017/8/9 8:27:00 [显示全部帖子]

Dim str As String = "5102.001.002 本地资料费 /部门:002.014 - 经营部_aabbcc工 - 万里/部门:002.014 -aabbcc工 - 万里/部门:002 - 经营部_aabbcc工程"

Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=[0-9.]+( )+).+?(?= -|/)")

For i As Integer = 0 To mc.count-1

msgbox(mc(i).value)

只提取 “本地资料费” 五个字，怎么改

现在代码是提取了三个字段

zoyong

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

加好友

发短信

等级：三尾狐帖子：664 积分：7862 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2017/10/8 17:22:00 [显示全部帖子]

[此贴子已经被作者于2017/10/8 17:22:28编辑过]

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

主题：字段中取指定数值