ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2476|回复: 16

[求助] 匹配有漏:九道题只能匹配七道,求指路

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-3-15 14:19 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
匹配下面九道题,可只能匹配七道,不知为何。
代码如下:
Sub 匹配有漏()
With ThisDocument
     With .Content.Find
         Do While .Execute("^13[0-9]{1,}[..、][!^13]{1,}(^13[!0-9]@[!^13]{1,}){1,}^13【解析】[!^13]{1,}", , , 1)
            n = n + 1
            With .Parent
                 .MoveStart 1, 1
                 'MsgBox .Text
                 .Collapse 0
            End With
         Loop
     End With
End With
MsgBox n
End Sub
                       
选择题集萃
1.选出下列词语中加点字读音全对的一项[15黄冈](D)
A.祈祷(dǎo)     恻隐(cè)       倒坍(tā)          龙吟凤哕(huì)
B.嗔怪(chēn)    涟漪(qǐ)        遒劲(qiú)         忍俊不禁(jīn)
C.阔绰(chò)     伶仃(líng)      逶迤(yí)           鳞次栉比(jié)
D.真谛(dì)       炽热(chì)      酝酿(niàng)        惟妙惟肖(xiào)
【解析】A. 坍(tān)B. 漪(yī)C. 绰(chuò)栉(zhì)
2.下面各句中标点符号使用合乎,规范的一项是[15黄冈](B)
A.风来了,荷叶为什么就不能迎风招展?谁规定了它的下场非得是宁折不弯?风让它欢欣、雨也让它喜悦,荷盘中的一汪水,被荷叶摇成一颗亮晶晶的玉珠。
B.在育才中学举行的“5•12”防震疏散演练中,九(2)班落实任务最好的是三、四组。
C.罗丹用石头雕塑了一只鹰,鹰雕塑得栩栩如生,好像真的在天空中展翅高飞一样。有人问他:“你是怎样把石头雕塑得飞起来的?罗丹大师。”
D.东六宫大都作为古代艺术品的陈列专馆,展出宫内收藏的青铜器、绘画、陶瓷……等。
【解析】A句中的顿号应为逗号, 因为前后句子是短句,不是词组; c句中的问号应该在“罗丹大师”之后,表示整个句子是一个问句;D句“等”前面省略号多余。
3.下列各句中,加点成语使用恰当的一项是[15黄冈](C)
A.海外网文章指出,如今有的领导干部喜欢到处卖弄笔墨,其实胸无城府,让人联想起鲁迅笔下那些不学无术、附庸风雅的“清国留学生”。
B.在读书汇报会上,张山同学旁征博引,断章取义,赢得了同学们的一致好评。
C.她喜欢收藏,买了不少关于古玩鉴定的书,到各地去按图索骥,结果收回来的东西多而杂。
D.从楼市表现来看,几个品牌房企业心领神会的降价方式可以被称作“多形态营销”手段,但不可否认的是绝大部分房企实际上都在“以价换量”。
【解析】A.“胸无城府”形容待人接物坦率真诚。B“断章取文”指不顾全篇文章或谈话的内容。孤立地取其中的一段或一句的意思,是贬文词,不符合语境; D“心领神会”指对方没受有明说,心里已经领会,不符合句意。应为“不约而同”。
4.下列各句中,没有语病的一项是[15黄冈](A)
A.几千年的祭祀传统,牵动着中国人一种最隐秘而质朴的情感,一头系着对亲人的思念,一头连着对未来的祈福和期盼。
B.在学校追逐教育效率的进程中,相关政府部门需要证明并履行自身职责,发挥调控和监 督功能,要对非正当、无界限抢夺优质资源加以规范。
C.2014年热播的《咱们结婚吧》,虽然是一部常见的被观众戏称为“电视购物剧”的都市情感剧,高圆圆却将它演绎得别具浪漫主义气息,成为当年最火的电视剧之一。
D.据悉,目前只有部分省份使用高考课标卷,该“阵容”包括由海南、吉林、河北、河南、陕西等省份组成,且队伍日趋壮大,加入的省份数量呈上升趋势。
【解析】B、成分残缺,在“优质资源”后加  “的行为”C、搭配不当,把“电视剧”改为“电视剧演员” D、重复,把“包括”或“组成”去掉一个。
5.下列各项判断与分析中,正确的一项是[15黄冈](C)
A.“陨落”“消失”“愿意”“勾当”都是动词。
B.“雨后春笋”“感谢生命”“提纲挈领”“非常坚强”四个短语结构各不相同。
C.“文博会已经在全球范围内形成‘要在中国找文化投资、文化项目、文化产品,就到文博来’的市场氛围。”这个句子的主干是“文博会形成氛围”。
D.“《特警力量》的收视率再创新高,是因为它不仅让观众目睹了特警战士的风采,而且彰显了中华民族坚忍不拔、英勇无畏的精神。”这个复句的第一层是递进关系。
【解析】A“勾当”是名词,B“兩后春笋”  “非常坚强”都是偏正结构, D复句的第一层 “……是因为„„”是因果复句,第二层“不仅……而且……”是递进复句。
6.下列关于名著知识及文学常识的表述,有误的一项是[15黄冈](D)
A.我国古代的“文房四宝”指笔、墨、纸、砚。“一门三父子,都是大文豪。诗赋传千古,峨眉共比高”中的“三父子”是指苏洵、苏轼、苏辙。
B.林冲是《水浒传》中的人物,绰号“豹子头”,他武艺高强,但安分守己,懦弱隐忍,逆来顺受,因被高俅陷害,被一步步逼上梁山。鲁智深是林冲的结拜兄弟,他胆大心细,疾恶如仇,侠肝义胆,有勇有谋。
C.《骆驼祥子》中,祥子在历经被抢劫、被敲诈、虎妞难产而死、小福子自杀等一系列打击之后,彻底丧失了生活的希望,由原来那个老实、坚韧、善良的人变成了狡猾、麻木、自暴自弃的行尸走肉。
D.《西游记》中,朱紫国的王后被妖怪赛太岁掳去,妖怪的金刚镯厉害无比,让悟空费尽周折,最后还是观音菩萨出面带走了妖怪,悟空才救回王后娘娘。
【解析】D不是“金刚镯”,而是“紫金铃”,悟空盗走了“紫金铃”才降服的妖怪赛太岁。
7.选出下列词语中加点字读音全对的一项[16黄冈](D)
A.骊歌(lí)       蜷曲(juǎn)       吊唁(yàn)       风驰电掣(chè)
B.嗔怪(chēn)    稽首(qí)         藩篱(pān)       即物起兴(xīng)
C.亘古(gèng)    坍塌(tān)        阔绰(chuò)      锲而不舍(qiè)
D.蓦然(mò)     炽痛(chì)         酝酿(niàng)     戛然而止(jiā)
【解析】A. 蜷曲(quán)B. 稽首(qǐ)藩篱(fān)即物起兴(xìng)C. 亘古(gèn)
8.下面各句中,标点符号使用合乎规范的一项是[16黄冈](C)
A.针对一切善良的人,都应该做到真和忍:真者,真诚相待,不虚情假意。忍者,宽容忍让,不针锋相对。
B.“变动犹鬼神,不可端倪”。这是韩愈盛赞同时代书法家张旭的话。
C.“海啸”究竟是一种什么现象?它是如何产生的?又该如何去预测?我们应该尽快搞清楚这些问题。
D.毕业50周年同学会现场,昔日的少年,今天的老人,你拉着我的手,我搂着你的腰,说啊、笑啊、哭啊……那场面真的是太感人了。
【解析】A.不虚情假意后面用分号;B.端倪后的句号应该用在引号里面,因为这里是直接引用;D.说啊笑啊哭啊中间应该用逗号。
9.下列各句中,加点成语使用恰当的一项是[16黄冈](A)
A.谈论东坡文化及其影响力,我们既要有文化自信,不妄自菲薄,又要有全球视野,不盲目乐观。
B.漫步这里的景区,石林、溶洞、飞瀑显露出鬼斧神工的魅力,浓厚淳朴的苗家风情及风姿绰约的民族歌舞给景区增添了人文情趣。
C.这是一家国家级出版社,近几年来,出版了很多深受读者尤其是在校大学生喜爱的精品图书,不少作家对它趋之若鹜。
D.蓝牙版自拍杆,利用手机蓝牙功能,使用方便,拍照效果好,投放市场后果然不孚众望。
【解析】A.使用正确,妄自菲薄:妄:胡乱的;菲薄:小看,轻视过分看轻自己形容自卑;B.使用有误,风姿绰约:风:风度;绰约:女子姿态柔美形容女子风韵姿态柔美动人句中指的是民族歌舞,用该成语形容不恰当;C.使用有误,趋之若鹜:趋:快走;鹜:野鸭象鸭子一样成群跑过去比喻很多人争着赶去该成语是贬义词,所以用于此处使用不当;D.使用有误,不孚众望:孚:信服不能使大家信服,未符合大家的期望该成语和句中的意思正好相反,所以使用不当。



匹配题目竟然有漏.rar

30.41 KB, 下载次数: 12

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-3-15 15:58 | 显示全部楼层
再次求救,望大虾援手救我,先谢啦。

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-3-15 17:20 | 显示全部楼层
经查,
二题
B.在育才中学举行的“5•12”防震疏散演练中,九(2)班落实任务最好的是三、四组。
三题
C.2014年热播的《咱们结婚吧》,虽然是一部常见的被观众戏称为“电视购物剧”的都市情感剧,高圆圆却将它演绎得别具浪漫主义气息,成为当年最火的电视剧之一。
数字出问题。
可是,我只排除以数字开头的,未曾排除一切数字,该怎么办?

TA的精华主题

TA的得分主题

发表于 2020-3-15 17:36 | 显示全部楼层
weiyingde 发表于 2020-3-15 17:20
经查,
二题
B.在育才中学举行的“5•12”防震疏散演练中,九(2)班落实任务最好的是三、四组。

你研究:“怎么把教学水平搞上去吧”,让你的学生走正道才是王道,编程还是让专业的来教吧!哈哈哈。

TA的精华主题

TA的得分主题

发表于 2020-3-15 17:44 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
weiyingde 发表于 2020-3-15 17:20
经查,
二题
B.在育才中学举行的“5•12”防震疏散演练中,九(2)班落实任务最好的是三、四组。

根据你提供的附件:刚刚好 匹配9道题目》》》》

Sub 匹配无遗漏()
    With ThisDocument
        With .Content.Find
            Do While .Execute("^13[0-9]{1,}", , , 1)
                With .Parent
                    .Start = .Start + 1
                    MsgBox .Text
                    .Start = .End
                End With
            Loop
        End With
    End With
End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-3-15 18:02 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
duquancai 发表于 2020-3-15 17:44
根据你提供的附件:刚刚好 匹配9道题目》》》》

Sub 匹配无遗漏()

谢谢指教。
杜老师误会了我的意思。
我是想匹配“每一道题”,而只非匹配“题号”。
比如

9.下列各句中,加点成语使用恰当的一项是[16黄冈](A)
A.谈论东坡文化及其影响力,我们既要有文化自信,不妄自菲薄,又要有全球视野,不盲目乐观。
B.漫步这里的景区,石林、溶洞、飞瀑显露出鬼斧神工的魅力,浓厚淳朴的苗家风情及风姿绰约的民族歌舞给景区增添了人文情趣。
C.这是一家国家级出版社,近几年来,出版了很多深受读者尤其是在校大学生喜爱的精品图书,不少作家对它趋之若鹜。
D.蓝牙版自拍杆,利用手机蓝牙功能,使用方便,拍照效果好,投放市场后果然不孚众望。
【解析】A.使用正确,妄自菲薄:妄:胡乱的;菲薄:小看,轻视过分看轻自己形容自卑;B.使用有误,风姿绰约:风:风度;绰约:女子姿态柔美形容女子风韵姿态柔美动人句中指的是民族歌舞,用该成语形容不恰当;C.使用有误,趋之若鹜:趋:快走;鹜:野鸭象鸭子一样成群跑过去比喻很多人争着赶去该成语是贬义词,所以用于此处使用不当;D.使用有误,不孚众望:孚:信服不能使大家信服,未符合大家的期望该成语和句中的意思正好相反,所以使用不当。

达到的要求是:
匹配从题号“9”到“【解析】”的最后一个字符“。”,这么几段文字。
而非只匹配题号“9”。

TA的精华主题

TA的得分主题

发表于 2020-3-15 19:54 | 显示全部楼层
Sub 匹配有漏()
With ThisDocument
     With .Content.Find
         Do While .Execute("[0-9]@*【解析】*^13", , , 1)
            n = n + 1
            With .Parent
            Debug.Print .Text
                 .MoveStart 1, 1
                 'MsgBox .Text
                 .Collapse 0
            End With
         Loop
     End With
End With
MsgBox n
End Sub

TA的精华主题

TA的得分主题

发表于 2020-3-15 19:54 | 显示全部楼层
Sub 匹配有漏()
With ThisDocument
     With .Content.Find
         Do While .Execute("[0-9]@*【解析】*^13", , , 1)
            n = n + 1
            With .Parent
            Debug.Print .Text
                 .MoveStart 1, 1
                 'MsgBox .Text
                 .Collapse 0
            End With
         Loop
     End With
End With
MsgBox n
End Sub

TA的精华主题

TA的得分主题

发表于 2020-3-15 19:56 | 显示全部楼层
Sub 匹配有漏()
With ThisDocument
     With .Content.Find
         Do While .Execute("[0-9]@*【解析】*^13", , , 1)
            n = n + 1
            With .Parent
            Debug.Print .Text
                 .MoveStart 1, 1
                 'MsgBox .Text
                 .Collapse 0
            End With
         Loop
     End With
End With
MsgBox n
End Sub

评分

2

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-3-15 20:17 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
tcdatongye 发表于 2020-3-15 19:56
Sub 匹配有漏()
With ThisDocument
     With .Content.Find

太感谢了,是的,不错。正式我想要的。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-24 11:40 , Processed in 0.046943 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表