Foxtable(狐表)用户栏目专家坐堂 → [求助]想要两个词语组合同时出现在一列文本记录中的次数!


  共有5853人关注过本帖树形打印复制链接

主题:[求助]想要两个词语组合同时出现在一列文本记录中的次数!

帅哥哟,离线,有人找我吗?
小梧桐
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:16 积分:215 威望:0 精华:0 注册:2022/6/17 17:07:00
[求助]想要两个词语组合同时出现在一列文本记录中的次数!  发帖心情 Post By:2022/6/17 17:16:00 [只看该作者]

想要两个词语组合同时出现在一列文本记录中的次数,写了各代码,但是数据量有点大,求个简化的、计算快的代码~
Dim i As Integer
Dim j As Integer
Dim a As Integer
For i = 0 To Tables("原因0全部").Rows.count-1
    
    a=0
    
    For j = 0 To Tables("全部原因").Rows.count-1
        
        If Tables("全部原因").Rows(j)("原因").contains(Tables("原因0全部").Rows(i)("关键词1")) And Tables("全部原因").Rows(j)("原因").contains(Tables("原因0全部").Rows(i)("关键词2")) Then
            
            a= a+1
            
            
        End If
        
    Next
    
    Tables("原因0全部").Rows(i)("条目数") = a
Next

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111376 积分:566944 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/17 17:29:00 [只看该作者]

For each r as row in Tables("原因0全部").Rows
    r("条目数") = Tables("全部原因").compute("count(原因)","原因 like '%" & r("关键词1") & "%' and 原因 like '%" & r("关键词2") & "%'")
Next

 回到顶部