[求助]跨表引用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]跨表引用

共有3357人关注过本帖树形打印复制链接主题：[求助]跨表引用

天一生水

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

加好友

发短信

等级：五尾狐帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00

[求助]跨表引用 发帖心情

Post By：2021/3/25 12:21:00 [显示全部帖子]

老师好！

我把单词表里包含的词性缩写，在词性表里找到后，赋值中文词性。遇到“pron.”时，会把“n.”的词性也提取出来。

怎样避免这类重复提取？

谢谢！

图片点击可在新窗口打开查看此主题相关图片如下：截屏图片.jpg

此主题相关图片如下：截屏图片1.jpg

......

    Case "中文"
        Dim str As String = ""
        For Each dr As DataRow In DataTables("词性表").DataRows
            If e.DataRow("中文").Contains(dr("词性缩写")) Then
                str += dr("词性") & "；"
            End If
            e.DataRow("词性") = str.Trim("；")
        Next

天一生水

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

加好友

发短信

等级：五尾狐帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00

Post By：2021/3/25 20:14:00 [显示全部帖子]

谢谢！

忘了这种多词性的情况，是不是需要去掉第一次包含的字符后，再循环一次？

此主题相关图片如下：截屏图片 (1).jpg

[此贴子已经被作者于2021/3/25 20:30:47编辑过]

天一生水

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

加好友

发短信

等级：五尾狐帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00

Post By：2021/3/25 22:45:00 [显示全部帖子]

这样可以，但是运行的慢一些。

......

Case "中文"
        Dim str As String = ""
        Dim rgx As New RegularExpressions.Regex("[^a-zA-Z\.\/]")    '只允许英文字母及英文句号-取反
        For Each dr As DataRow In DataTables("词性表").DataRows
            If e.DataRow("中文") <> "" Then
                Dim sts() As String = rgx.Replace(e.DataRow("中文"),"").split(".")
                For Each st As String In sts
                    If st = dr("词性缩写").replace(".","") Then
                        str += dr("词性") & "；"
                    End If
                    e.DataRow("词性") = str.Trim("；")
                Next
            End If
        Next

......

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

主题：[求助]跨表引用