Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何实现重复数据提取？


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

主题：如何实现重复数据提取？
帅哥哟，离线，有人找我吗？
playmal
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1582 积分：13080 威望：0 精华：0 注册：2009/6/16 7:30:00 		如何实现重复数据提取？  发帖心情 Post By：2023/8/2 21:35:00 [显示全部帖子]

如图，如何实现重复数据提取，请给一下代码，谢谢！

图片点击可在新窗口打开查看此主题相关图片如下：无标题.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
playmal
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1582 积分：13080 威望：0 精华：0 注册：2009/6/16 7:30:00 		  发帖心情 Post By：2023/8/3 8:46:00 [显示全部帖子]

最左边一列是字符串，是一个数据表字段，后面两个字段分别是具有相同字符和不同字符的分离的部分

 回到顶部
帅哥哟，离线，有人找我吗？
playmal
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1582 积分：13080 威望：0 精华：0 注册：2009/6/16 7:30:00 		  发帖心情 Post By：2023/8/3 8:50:00 [显示全部帖子]

也就是将字符串字段里的记录进行重复字符的甄选。并分离出来，如果没有相同字符就提示。

 回到顶部
帅哥哟，离线，有人找我吗？
playmal
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1582 积分：13080 威望：0 精华：0 注册：2009/6/16 7:30:00 		  发帖心情 Post By：2023/8/3 9:17:00 [显示全部帖子]

你没看到字段里面字符

 回到顶部
帅哥哟，离线，有人找我吗？
playmal
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1582 积分：13080 威望：0 精华：0 注册：2009/6/16 7:30:00 		  发帖心情 Post By：2023/8/3 9:18:00 [显示全部帖子]

字符串字段里面的字母一样的就筛出来

 回到顶部
帅哥哟，离线，有人找我吗？
playmal
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1582 积分：13080 威望：0 精华：0 注册：2009/6/16 7:30:00 		  发帖心情 Post By：2023/8/3 9:42:00 [显示全部帖子]

故意的吧，一个数据表三个字段，最左边是字符串字段，右边两个字段是结果字段，如何将左边字符串字段里面的字符串分离，将相同的部分放在相同字符字段里面，不同的放在不同字符里面。这还有问题？

 回到顶部
帅哥哟，离线，有人找我吗？
playmal
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1582 积分：13080 威望：0 精华：0 注册：2009/6/16 7:30:00 		  发帖心情 Post By：2023/8/3 9:48:00 [显示全部帖子]

肯定是所有行，从表里就能看出来啊

 回到顶部
帅哥哟，离线，有人找我吗？
playmal
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1582 积分：13080 威望：0 精华：0 注册：2009/6/16 7:30:00 		  发帖心情 Post By：2023/8/3 13:25:00 [显示全部帖子]

Dim dict As New dictionary(Of Char, Integer)
For Each r As Row In Tables("表A").rows
    For Each c As Char In r("第一列")
        If dict.containskey(c) Then
            dict(c) += 1
        Else
            dict.add(c, 1)
        End If
    Next
Next

Dim cnt As Integer = Tables("表A").rows.count
Dim s As String
MessageBox.Show(cnt)
For Each key As Char In dict.keys
    If dict(key) = cnt Then
        s = s & key
    End If
Next
If s > "" Then messagebox.show("相同字符为" & s)
 回到顶部
帅哥哟，离线，有人找我吗？
playmal
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1582 积分：13080 威望：0 精华：0 注册：2009/6/16 7:30:00 		  发帖心情 Post By：2023/8/3 13:33:00 [显示全部帖子]

上面的已符合要求，如果是字符串中有其他字符的话，如何改动呢？

图片点击可在新窗口打开查看此主题相关图片如下：无标题.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
playmal
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1582 积分：13080 威望：0 精华：0 注册：2009/6/16 7:30:00 		  发帖心情 Post By：2023/8/3 13:34:00 [显示全部帖子]

只提取中XX成分的汉字部分，谢谢！

 回到顶部
总数 18 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07227 秒, 5 次数据查询