查看: 4342|回复: 12	[老狼] [老狼][心得分享]----获取B在A内的数量----遇见蔷薇泡沫(39) [复制链接]

发送短消息 UID 1228894 帖子 26974 精华 25 鲜花 8049 朵 铜币 36128 个 银币 4745 个 性别 在线时间 421340 注册时间 2012-07-18 最后登录 2024-11-21 1223116618 查看公共资料 搜索主题 搜索帖子 瑞祥幽冥狼 按 键 工 程 师 ● 兼 职 组别超级版主 UID1228894 帖子26974 精华25 鲜花8049 朵 铜币36128 个 银币4745 个 在线时间421340 注册时间2012-07-18 按键X开拓者勋章 按键精灵X版开拓者勋章 过大年勋章 俩小福娃给大家拜年啦！ 双十一绝版纪念勋章 双十一绝版纪念勋章 抗战胜利70周年勋章 抗战胜利70周年活动的专属勋章 单身汪勋章 单身贵族的专属勋章 按键14周年庆纪念勋章 按键14周年庆纪念勋章 按键学院 按键学院专属勋章，按键学院学员或文章被院刊收入可领取 幸运草勋章 商业小精灵限时活动勋章。 马年勋章 马年纪念勋章 鹰眼勋章 鹰眼注册用户专属勋章 黄瓜勋章 体验商业小精灵活动的奖励 天使勋章 天使一样的用户 按键明星 按键明星勋章 黄金之翼 黄金之翼勋章 举报达人 长期举报不良帖子 活动狂人 论坛活动狂人 骨灰级按键用户 3年以上的按键论坛用户 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com 龙年勋章 龙年纪念勋章 十周年勋章 十周年纪念勋章 兔年勋章 兔年纪念勋章 论坛GG 按键论坛男性用户勋章 发帖高手 鼓励积极回复，但注意不要灌水哦 爱心大使 积极帮助新手（可向管理员进行申请） 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章 按键运营团队 按键运营团队专属勋章 按键元老 资深按键用户的尊贵荣誉勋章 管理人员 按键论坛的管理团队专属勋章	1# 字体大小: t T 发表于 2022-03-24 17:20 | |只看楼主 例子1:{Split+UBound法} 文本内容="苹果|苹果|西瓜|橘子|西瓜|西瓜" s = split(文本内容, "苹果") 苹果数量 = UBound(s) s = split(文本内容, "西瓜") 西瓜数量 = UBound(s) s = split(文本内容, "橘子") 橘子数量 = UBound(s) TracePrint "苹果数量:" & 苹果数量 & "; 西瓜数量:" & 西瓜数量 & "; 橘子数量:" & 橘子数量 复制代码 1.png(44.91 K) 2022/3/24 18:02:10 例子2:{累计法} 文本内容="苹果|苹果|西瓜|橘子|西瓜|西瓜" MyArray = Split(文本内容, "|") If UBound(MyArray)>=0 Then i = 0 For UBound(MyArray) s = split(文本内容, MyArray(i)) a = MyArray(i) & "有" & UBound(s) & "个," If InStr(y,a)>0 Then Else y=y&a End If i = i + 1 Next End If TracePrint y 复制代码 2.png(44.74 K) 2022/3/24 18:02:10 例子3:{Filter法} Text ="a|b|c|a|a" b = split(text, "|") gs = Filter(b, "a") TracePrint UBound(gs)+1 复制代码 3.png(39.15 K) 2022/3/24 18:02:10 例子4:{正则法} Function strnum(patrn, strng) Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = True Execute "regEx.Global = True" Set Matches = regEx.Execute(strng) For Each Match in Matches '对每个匹配项的处理 Next strnum =Matches.count '直接返回匹配数量 End Function MsgBox strnum("bg","bghbghbhbgabcbbgbg") 复制代码 5.png(49.89 K) 2022/3/24 18:02:10 增强用法:{返回符合指定数量的内容} var = "AA|天才|天才|AA|AA|AA|天才|天才|DD" TracePrint 返回符合数量的(var, 4) Function 返回符合数量的(内容, 数量) 分割 = Split(内容, "|") For i = 0 To UBound(分割) 累计=0 TracePrint 分割(i) For j = 0 To UBound(分割) If 分割(i) = 分割(j) Then 累计=累计+1 End If If 累计 >= 数量 Then If instr(总, 分割(i)) = 0 Then 总=总&分割(i)&"|" End If End If     Next Next If 总 <> "" Then 返回符合数量的=mid(总,1,len(总)-1) End If End Function 复制代码 var = "AA|BB|BB|AA|AA|AA|CC|CC|DD" TracePrint 返回符合数量的(var, 2) Function 返回符合数量的(内容, 数量) 返回符合数量的 = "" 总="" 分割 = Split(内容, "|") For i = 0 To UBound(分割) 数量1 = Filter(分割,分割(i) ) If UBound(数量1) + 1 >= 数量 Then If instr(总, 分割(i) & "|") = 0 Then 总=总&分割(i) &"|" End If End If Next 返回符合数量的=mid(总,1,len(总)-1) End Function 4.png(45.04 K) 2022/3/24 18:02:10
	瑞祥幽冥狼 最后编辑于 2022-03-24 18:02:09 本主题由 超级版主 瑞祥幽冥狼 于 2023/10/5 18:31:24 执行 审核帖子 操作 点赞 收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击 个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8［将满］ 个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3［可加］
	回顶部

发送短消息 UID 3867309 帖子 432 精华 0 鲜花 74 朵 铜币 1009 个 银币 252 个 性别 在线时间 4220 注册时间 2016-04-14 最后登录 2024-03-02 查看公共资料 搜索主题 搜索帖子 枫落ye无痕 枫落ye无痕 组别初中三年级 UID3867309 帖子432 精华0 鲜花74 朵 铜币1009 个 银币252 个 在线时间4220 注册时间2016-04-14	2# 字体大小: t T 发表于 2022-05-05 14:16 | |只看该用户 获取B在A内的数量
	回顶部

发送短消息 UID 3958378 帖子 651 精华 0 鲜花 141 朵 铜币 3298 个 银币 128 个 性别 在线时间 7160 注册时间 2016-06-07 最后登录 2023-12-17 查看公共资料 搜索主题 搜索帖子 z3090712 组别高中三年级 UID3958378 帖子651 精华0 鲜花141 朵 铜币3298 个 银币128 个 在线时间7160 注册时间2016-06-07 按键精灵开发者2级 可通过提升认证等级来升级勋章：rz.anjian.com	3# 字体大小: t T 发表于 2022-05-09 23:55 | |只看该用户 6666666+++++
	回顶部

发送短消息 UID 5166201 帖子 79 精华 0 鲜花 26 朵 铜币 258 个 银币 207 个 性别 在线时间 1800 注册时间 2018-04-06 最后登录 2022-09-27 937758398 查看公共资料 搜索主题 搜索帖子 heiqimingren heiqimingren 组别小学四年级 UID5166201 帖子79 精华0 鲜花26 朵 铜币258 个 银币207 个 在线时间1800 注册时间2018-04-06 按键精灵开发者4级 可通过提升认证等级来升级勋章：rz.anjian.com	4# 字体大小: t T 发表于 2022-05-27 16:11 | |只看该用户 学习一下。
	回顶部

发送短消息 UID 8403677 帖子 28 精华 0 鲜花 15 朵 铜币 37 个 银币 27 个 性别 在线时间 0 注册时间 2021-08-05 最后登录 2024-03-05 查看公共资料 搜索主题 搜索帖子 右右哒 组别小学一年级 UID8403677 帖子28 精华0 鲜花15 朵 铜币37 个 银币27 个 在线时间0 注册时间2021-08-05 按键精灵开发者1级 可通过提升认证等级来升级勋章：rz.anjian.com	5# 字体大小: t T 发表于 2022-06-10 01:12 | |只看该用户 学习一下a
	回顶部

发送短消息 UID 8737524 帖子 80 精华 0 鲜花 61 朵 铜币 78 个 银币 78 个 性别 在线时间 0 注册时间 2022-05-14 最后登录 2024-10-24 查看公共资料 搜索主题 搜索帖子 wy8509616 组别小学四年级 UID8737524 帖子80 精华0 鲜花61 朵 铜币78 个 银币78 个 在线时间0 注册时间2022-05-14	6# 字体大小: t T 发表于 2022-06-22 23:12 | |只看该用户 学习一下
	回顶部

发送短消息 UID 2485257 帖子 276 精华 0 鲜花 32 朵 铜币 384 个 银币 97 个 性别 在线时间 0 注册时间 2014-04-24 最后登录 2022-08-19 12345 查看公共资料 搜索主题 搜索帖子 tasty007 tasty007 组别初中二年级 UID2485257 帖子276 精华0 鲜花32 朵 铜币384 个 银币97 个 在线时间0 注册时间2014-04-24	7# 字体大小: t T 发表于 2022-08-16 15:34 | |只看该用户 学习了
	回顶部

发送短消息 UID 4286236 帖子 60 精华 0 鲜花 5 朵 铜币 374 个 银币 6 个 性别 在线时间 2240 注册时间 2017-01-10 最后登录 2024-11-16 查看公共资料 搜索主题 搜索帖子 hhj6270997 hhj6270997 组别小学三年级 UID4286236 帖子60 精华0 鲜花5 朵 铜币374 个 银币6 个 在线时间2240 注册时间2017-01-10	8# 字体大小: t T 发表于 2022-08-18 13:02 | |只看该用户 看看看看
	回顶部

发送短消息 UID 5228209 帖子 70 精华 0 鲜花 45 朵 铜币 89 个 银币 69 个 性别 在线时间 0 注册时间 2018-05-06 最后登录 2024-10-19 查看公共资料 搜索主题 搜索帖子 Ckg Ckg 组别小学四年级 UID5228209 帖子70 精华0 鲜花45 朵 铜币89 个 银币69 个 在线时间0 注册时间2018-05-06 按键精灵开发者1级 可通过提升认证等级来升级勋章：rz.anjian.com	9# 字体大小: t T 发表于 2022-11-26 15:30 | |只看该用户 学习
	回顶部

发送短消息 UID 7055636 帖子 4 精华 0 鲜花 3 朵 铜币 14 个 银币 4 个 性别 在线时间 0 注册时间 2019-10-16 最后登录 2022-11-27 查看公共资料 搜索主题 搜索帖子 光怪陆离， 不愧是我 组别小学一年级 UID7055636 帖子4 精华0 鲜花3 朵 铜币14 个 银币4 个 在线时间0 注册时间2019-10-16	10# 字体大小: t T 发表于 2022-11-27 16:15 | |只看该用户 66666666666666666666666666666666666
	回顶部

发送短消息 UID 8944932 帖子 14 精华 0 鲜花 13 朵 铜币 15 个 银币 15 个 性别 在线时间 0 注册时间 2023-01-13 最后登录 2023-04-28 查看公共资料 搜索主题 搜索帖子 一梦接单 组别小学一年级 UID8944932 帖子14 精华0 鲜花13 朵 铜币15 个 银币15 个 在线时间0 注册时间2023-01-13	11# 字体大小: t T 发表于 2023-04-03 01:44 | |只看该用户 谢谢谢谢谢
	回顶部

发送短消息 UID 8858821 帖子 62 精华 0 鲜花 52 朵 铜币 81 个 银币 71 个 性别 在线时间 0 注册时间 2022-09-28 最后登录 2023-12-05 405875812 查看公共资料 搜索主题 搜索帖子 晴了的天 晴朗的天 组别小学三年级 UID8858821 帖子62 精华0 鲜花52 朵 铜币81 个 银币71 个 在线时间0 注册时间2022-09-28	12# 字体大小: t T 发表于 2023-06-13 18:49 | |只看该用户 66666666666666666666666666
	回顶部

发送短消息 UID 9112283 帖子 92 精华 0 鲜花 70 朵 铜币 94 个 银币 94 个 性别 在线时间 0 注册时间 2023-09-02 最后登录 2024-11-06 查看公共资料 搜索主题 搜索帖子 wykk2002 组别小学五年级 UID9112283 帖子92 精华0 鲜花70 朵 铜币94 个 银币94 个 在线时间0 注册时间2023-09-02	13# 字体大小: t T 发表于 2023-10-01 23:46 | |只看该用户 这个有点用
	回顶部