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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文本内容提取

共有2358人关注过本帖树形打印复制链接主题：文本内容提取

zcf2144

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

加好友

发短信

等级：幼狐帖子：80 积分：916 威望：0 精华：0 注册：2018/4/26 17:01:00

文本内容提取 发帖心情

Post By：2018/7/3 16:59:00 [只看该作者]

怎么在一段文本中寻找符合特定条件的内容并返回特定数据。并且能够随时自定义这个条件

比如在：

“对夹蝶阀,涡轮操作，DN 1000 PN16,阀体 WCB,阀瓣：CF8，阀座EPDM,阀杆2CR13,零泄漏，设计和检验 DIN/EN,数量3 台；含税含包装含运费到上海价格。“

这段文字内，想要寻找所对应的阀体材质的信息。这时能给定一个特定格式的条件文本（正则表达式？），返回其材质信息为"WCB"。

我所想要实现的功能是通过客人询价的描述信息自动判断询价对应的产品信息。目前思路为建立一个表用作判断，根据条件得出结果并分配权重最后得出最准确的结果。不知道这思路有没有问题。

现在卡在，如何用文本格式表达条件语句。

望老师指点一二，感谢！

有点蓝

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

加好友

发短信

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

Post By：2018/7/3 20:35:00 [只看该作者]

Dim str As String ="对夹蝶阀,涡轮操作,DN 1000 PN16,阀体 WCB,阀瓣:CF8,阀座EPDM,阀杆2CR13,零泄漏,设计和检验 DIN/EN,数量3 台;含税含包装含运费到上海价格."

For Each s As String In str.Split(",")

If s.Contains("阀体") Then

msgbox(s.Replace("阀体",""))

Exit For

End If

zcf2144

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

加好友

发短信

等级：幼狐帖子：80 积分：916 威望：0 精华：0 注册：2018/4/26 17:01:00

Post By：2018/7/4 1:57:00 [只看该作者]

感谢蓝老师。但通过split跟replace还是不能很好地解决匹配条件的问题。再比如说，还是上面的那一段例句。我要提取出客户要求的口径大小，即例句中的DN1000。但DN这两个字母是有可能出现在客人询价的任何地方的。这时contains的判断就失效了。是不是有某种方法能找出字符串中符合条件格式的子字符串？比如DNxxx(xxx为数字)或者阀体xxx(xxx为不限定字符长度的数字或字母组合)，并且这个方法能够以字符串的形式被录入到表格中以可被程序动态调用

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/4 8:59:00 [只看该作者]

参考代码

'''
Dim str1 As String = "对夹蝶阀,涡轮操作,DN 1000 PN16,阀体 WCB,阀瓣:CF8,阀座EPDM,阀杆2CR13,零泄漏,设计和检验 DIN/EN,数量3 台;含税含包装含运费到上海价格."
Dim str2 As String = "(?<=阀体).+?(?=[,，]+)"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str1,str2)
For i As Integer = 0 To mc.count-1
msgbox(mc(i).value)
Next

zcf2144

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

加好友

发短信

等级：幼狐帖子：80 积分：916 威望：0 精华：0 注册：2018/4/26 17:01:00

Post By：2018/7/4 15:44:00 [只看该作者]

感谢甜老师，

完美解决了我的需求，

正在钻研正则表达式中图片点击可在新窗口打开查看

zcf2144

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

加好友

发短信

等级：幼狐帖子：80 积分：916 威望：0 精华：0 注册：2018/4/26 17:01:00

Post By：2018/7/6 9:22:00 [只看该作者]

甜老师你好，

有个问题还是解决不掉，希望您再指点一下，

文本为：“ 阀体WCB 阀座Stellite "

原本要匹配的表达式为：(?<=体)(.+)?[(i?)WCB|(?i)CF8|(?i)CF8M|304|316].+(?<=座)(.+)?[(?i)STELLITE]

但是(?<=体)(.+)?[(?i)WCB|(?i)CF8|304].+(?<=座)(.+)?[316|(?i)CF8M]这段同样能被匹配成功？

思来想去感觉问题会出在(?i)这个忽略大小写的模式修饰符上。但是找不出具体原因来

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/6 9:43:00 [只看该作者]

不明白你什么意思。你要匹配什么结果？

Dim str1 As String = "阀体WCB 阀座Stellite"
Dim str2 As String = "(?<=阀体).+?(?=[, ])"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str1,str2)
For i As Integer = 0 To mc.count-1
msgbox(mc(i).value)
Next