Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共11 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:如何提取语句关键词

1楼
timber83 发表于:2025/1/16 10:08:00
表A  
   序号                 语句                                                  关键词
Q0001 企业未按规定设置特种设备安全管理机构
Q0002 企业未按规定配备特种设备安全管理负责人
Q0003 企业未按规定配备专职特种设备安全管理员    


表B 
 序号           关键词                                                       
1                企业
2                未按规定设置
3                特种设备
4                安全管理
5                机构
6                未按规定配备
如何将表A每一行语句中包含表A的关键词提取对应行的关键词的列中, 形成如下结果
   序号                 语句                                                  关键词
Q0001 企业未按规定设置特种设备安全管理机构             企业,未按规定设置,特种设备,安全管理,机构
Q0002 企业未按规定配备特种设备安全管理负责人          企业,未按规定配备,特种设备,安全管理,
Q0003 企业未按规定配备专职特种设备安全管理员          企业,未按规定配备,特种设备,安全管理,







                                                               
 
2楼
y2287958 发表于:2025/1/16 10:15:00
上例子
3楼
有点蓝 发表于:2025/1/16 10:17:00
表A,datacolchanged事件

If e.DataCol.name = "语句" Then
    If e.DataRow.isnull("语句") Then
        e.DataRow("关键词") = Nothing
    Else
        Dim s As String = DataTables("表B").GetComboListString("关键词", "'" & e.newvalue & "' like '%' + 关键词 + '%'")
        e.DataRow("关键词") = s.Replace("|", ",")
    End If
End If
4楼
timber83 发表于:2025/1/16 10:17:00
 这是结果例子
 序号                 语句                                                                                  关键词
Q0001           企业未按规定设置特种设备安全管理机构             企业,未按规定设置,特种设备,安全管理,机构 
Q0002 企业未按规定配备特种设备安全管理负责人          企业,未按规定配备,特种设备,安全管理,
Q0003 企业未按规定配备专职特种设备安全管理员          企业,未按规定配备,特种设备,安全管理,
5楼
y2287958 发表于:2025/1/16 10:22:00
Output.Show(String.Join(",", "企业,未按规定设置,特种设备,安全管理,机构,未按规定配备".Split(",").
Where(Function(元素) regex.IsMatch("企业未按规定设置特种设备安全管理机构", 元素))))
6楼
timber83 发表于:2025/1/16 10:59:00
运行错误提示:
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2024.11.1.1
错误所在事件:表,特征, DataColChanged
详细错误信息:
调用的目标发生了异常。
无法在 System.String 和 System.DBNull 上执行“Like”操作。
7楼
timber83 发表于:2025/1/16 11:09:00
运行错误提示:
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2024.11.1.1
错误所在事件:表,特征, DataColChanged
详细错误信息:
调用的目标发生了异常。
无法在 System.String 和 System.DBNull 上执行“Like”操作。
8楼
有点蓝 发表于:2025/1/16 11:27:00
试试

Dim s As String = DataTables("表B").GetComboListString("关键词", "'" & e.newvalue & "' like '%' + 关键词 + '%' and 关键词 is not null")
9楼
timber83 发表于:2025/1/16 11:31:00
还是运行错误:
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2024.11.1.1
错误所在事件:表,特征, DataColChanged
详细错误信息:
调用的目标发生了异常。
无法在 System.String 和 System.DBNull 上执行“Like”操作。

是不是like 不能用?
10楼
有点蓝 发表于:2025/1/16 11:41:00
再试试

Dim s As String = DataTables("表B").GetComboListString("关键词", "'" & e.newvalue & "' like '%' + isnull(关键词,'null') + '%'")


共11 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03906 s, 2 queries.