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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何在字符串中提取特定字段

共有3213人关注过本帖树形打印复制链接主题：如何在字符串中提取特定字段

ZJZK2018

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

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

如何在字符串中提取特定字段 发帖心情

Post By：2023/10/2 21:23:00 [只看该作者]

如何在字符串中提取下面红色特定字段，如下：

项目业主为绍兴柯桥杭金衢联络线高速公路有限公司，建设资金来自自筹（资金来源），资金已落实，招标人为绍兴柯桥杭金衢联络线高速公路有限公司；项目已具备招标条件，现对该项目的施工进行公开招标，实行资格后审。招标代理机构为浙江中诚工程管理科技有限公司。

有点蓝

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

加好友

发短信

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

Post By：2023/10/2 23:30:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/1338.htm

ZJZK2018

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

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

Post By：2023/10/3 1:36:00 [只看该作者]

老师我用一种较笨办法，有没有更好的办法？

我想如何通过标点符号的位置进行定位，如“项目业主为绍兴柯桥杭金衢联络线高速公路有限公司，建设资金来自自筹” 以"项目业主" 和这个豆号进行提取，关键是这个豆号位置号如何取值？IsPunctuation

Dim str As String = "项目业主为绍兴柯桥杭金衢联络线高速公路有限公司，建设资金来自自筹（资金来源），资金已落实，招标人为绍兴柯桥杭金衢联络线高速公路有限公司；项目已具备招标条件，现对该项目的施工进行公开招标，实行资格后审。招标代理机构为浙江中诚工程管理科技有限公司。"

Dim ary = str.split(New Char(){"，", "。", "；", "、"})

For Each st As String In ary

'Output.Show(st)

If st.Contains("项目业主") Then

Dim s As String

Output.Show(st.Substring(5))

ElseIf st.Contains("招标人") Then

Output.Show(st.Substring(4))

ElseIf st.Contains("招标代理机构") Then

Output.Show(st.Substring(7))

End If

结果为：

绍兴柯桥杭金衢联络线高速公路有限公司

浙江中诚工程管理科技有限公司

有点蓝

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

加好友

发短信

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

Post By：2023/10/3 9:25:00 [只看该作者]

有没有什么固定的规则？如果没有，也只能这样

ZJZK2018

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

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

Post By：2023/10/17 12:39:00 [只看该作者]

下面这段代码出错：

For Each r As Row In Tables("招标公告").Rows

Dim st As String = r("招标条件")

st = StrToNarrow(st).Replace(vbcrlf,"")

Dim nns() As String = st.Split(New Char(){",",".",";","?"})

'Output.Show(st)

For Each nn As String In nns

If nn > ""

If nn.Contains("招标人") And nn.Length > 10 Then

If nn.SubString(nn.IndexOf("招标人")+3).SubString(0,nn.SubString(nn.IndexOf("招标人")+3).IndexOf("公司")+2).Trim("为",")",":").Length > 5

Output.Show(nn.SubString(nn.IndexOf("招标人")+3).SubString(0,nn.SubString(nn.IndexOf("招标人")+3).IndexOf("公司")+2).Trim("为",")",":"))

End If

此主题相关图片如下：1697517832533.jpg

ZJZK2018

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

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

Post By：2023/10/17 13:17:00 [只看该作者]

1、为什么下面这段代码不出结果，但在“2023年1月5日9:30”加个空格又可以了”2023年1月5日 9:30“

Dim s As String = "5.2投标文件递交截止时间(投标截止时间,下同)为2023年1月5日9:30(北京时间,下同)?"

Dim d As Date

For i As Integer = 0 To s.Length - 10

If Date.TryParse(s.SubString(i,16),d) OrElse Date.TryParse(s.SubString(i,15),d) OrElse Date.TryParse(s.SubString(i,14),d) Then

output.show(d)

Exit For

End If

2、2023-01-05 09:30:00 如何不要这个秒

有点蓝

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

加好友

发短信

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

Post By：2023/10/17 13:31:00 [只看该作者]

回5楼，IndexOf的用法出错，比如nn.IndexOf("招标人")查不到结果就被出错，正确用法是

dim i as integer = nn.IndexOf("招标人")

if i > -1 then

其它处理

endif

有点蓝

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

加好友

发短信

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

Post By：2023/10/17 13:32:00 [只看该作者]

回6楼

1、加空格才是合法的日期格式

2、格式化一下：http://www.foxtable.com/webhelp/topics/0362.htm

ZJZK2018

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

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

Post By：2023/10/17 14:55:00 [只看该作者]

象下面这个or有没有更简办法？？

If elems(n).InnerText.Contains("投标人资格要求") Or elems(n).InnerText.Contains("投标人资格条件") Or elems(n).InnerText.Contains("投标资格条件") Or elems(n).InnerText.Contains("投标人的资格要求") Then

有点蓝

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

加好友

发短信

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

Post By：2023/10/17 15:01:00 [只看该作者]

没有

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

总数 16 1 2 下一页

主题：如何在字符串中提取特定字段