求正则表达式

孝文

求正则表达式.rar (6.54 KB, 下载次数: 9)

2016-11-6 11:06 上传

点击文件名下载附件

下面这段文字着色部分，或者替换掉非着色部分

保留“-----------------------------”之后，“举报”之前的内容

-----------------------------

这个认真不知道啊。。。

工作上，更是如此。

举报 | 3001楼 | 打赏 | 回复 | 评论(3) | 赞

少不风流皆因贫： 2016-10-0204:19:17  评论

评论：反对意见……他妈的，你赞成老意见呢？逻辑语法不通啊。

少不风流皆因贫： 2016-10-0204:27:08  评论

评论、好逻辑。

剩余 1 条评论  点击查看  我要评论

@想考研的 295楼 2013-06-30 10:59:30

楼主一直大，......

-----------------------------

@贵妇狗 2959楼 2013-06-30 12:39:15

亲，最关键的，

是大家都可以写......

-----------------------------

@奋斗奋斗 2966楼 2013-06-30 13:07:05

对不起，

，你懂的。

-----------------------------

@GUCCLC 2969楼 2013-06-30 13:18:02

其实我一地了

-----------------------------

你说的，就是问题啊。

举报 | 3005楼 | 打赏 | 回复 | 评论 | 赞

楼主：三翻四复 时间：2013-06-30 14:05:07

@想考研的 2013-06-30 13:36:58

楼主网特之

-----------------------------

亲，，你也有看没有懂。

看看。

举报 | 3008楼 | 打赏 | 回复 | 评论(1) | 赞

少不风流皆因贫： 2016-10-0204:39:10  评论

评论 复古风格：楼主跳大神吗？

我要评论

楼主：复古风格 时间：2013-06-30 14:52:41

正文1

不论是

duquancai

1. Sub shishi()
   
2.     Dim rng As Range, stxt$
   
3.     Set rng = ActiveDocument.Content
   
4.     With CreateObject("VBScript.Regexp")
   
5.         .Global = True: .MultiLine = True
   
6.         .Pattern = "^-+([^-]+)(?=举报)"
   
7.         For Each mt In .Execute(rng)
   
8.             stxt = stxt & mt.submatches(0)
   
9.         Next
   
10.     End With
    
11.     rng = stxt
    
12. End Sub

复制代码