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


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

主题:如何实现重复数据提取?

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


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/3 8:40:00 [显示全部帖子]

按什么规则提取?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/3 8:53:00 [显示全部帖子]

按什么规则分离?怎么样才算是相同的,怎么样才是不同的?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/3 9:24:00 [显示全部帖子]

看不懂,需要需求者描述。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/3 9:44:00 [显示全部帖子]

是指所有行都有的才是相同的字符?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/3 9:45:00 [显示全部帖子]

提问题者,自己不愿意把问题描述清楚,然后给一个结果靠别人去猜来解决问题?!!!

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/3 9:57:00 [显示全部帖子]

这种情况只能逐行,逐个字符判断,可以借助字典记录

dim dict as new dictionary(of char,integer)
fir r as row in tables("a").rows
for rach 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 stirng
for each key as char in dict.keys
if dict(key) = cnt then
s = s & key
endif
if s > "" then msgbox(“相同字符为” & s)
next



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/3 13:48:00 [显示全部帖子]

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=148072&skin=0

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/3 14:18:00 [显示全部帖子]

Dim dict As New dictionary(Of Char, Integer)
For Each r As Row In Tables("表A").rows
dim s as string = 使用正则把字符里不需要的内容去掉
    For Each c As Char In s
        If dict.containskey(c) Then

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/3 14:44:00 [显示全部帖子]

正则用法参考17楼

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/3 14:49:00 [显示全部帖子]

弹出的4个字符,第一列里面不都有吗,有什么问题?

如果不是按单个字符,要按词语来区分,这个难度就不是一个量级的了,远远超出了我们的能力范围

 回到顶部
总数 12 1 2 下一页