查找并添加书签

praijna · 发表于 2017-7-10 11:24

本帖最后由 praijna 于 2017-7-14 22:15 编辑

各位老师：
要求提取附件文章的内容如下：
1、圆括号中有大写数字，位数不等，最多4位，如（一）、（二○○）、（九七○）；
2、方括号中，字母 p开关，加数字，位数不等，如[p1]、[p99]、[p1001]；
3、圆括号加数字，多则5位，不等，如（1）、（12）、（876）。

南嶽懷讓禪師第三世.rar (38.65 KB, 下载次数: 2)

感恩！

duquancai · 发表于 2017-7-10 12:26

表示看不懂！！！

praijna · 发表于 2017-7-11 07:33

duquancai 发表于 2017-7-10 12:26
表示看不懂！！！

老师，要求提取的内容如下：
1、圆括号中有大写数字，位数不等，最多4位，如（一）、（二○○）、（九七○）；
2、方括号中，字母 p开关，加数字，位数不等，如[p1]、[p99]、[p1001]；
3、圆括号加数字，多则5位，不等，如（1）、（12）、（876）。

duquancai · 发表于 2017-7-11 08:20

本帖最后由 duquancai 于 2017-7-11 08:41 编辑

praijna 发表于 2017-7-11 07:33
老师，要求提取的内容如下：
1、圆括号中有大写数字，位数不等，最多4位，如（一）、（二○○）、（九七 ...

Sub 提取()
s = " 要求提取附件文章的内容如下：" & _
      "1、圆括号中有大写数字，位数不等，最多4位，如（一）、（二○○）、（九七○）；" & _
      "2、方括号中，字母 p开关，加数字，位数不等，如[p1]、[p99]、[p1001]；" & _
      "3、圆括号加数字，多则5位，不等，如（1）、（12）、（876）。"
r1 = "○一二三四五六七八九十百千万"
Set D = CreateObject("htmlfile"): Set W = D.parentWindow
W.execScript "function f(s,r){var a=s.match(r);return function(){return(a)}}"
For i = 0 To W.eval("a=f('" & s & "',/[\(（][\d" & r1 & "]+[\)）]|\[p\d+\]/g);a().length") - 1
      MsgBox W.eval("a()[" & i & "]")
Next
End Sub

praijna · 发表于 2017-7-11 13:09

duquancai 发表于 2017-7-11 08:20
Sub 提取()
s = " 要求提取附件文章的内容如下：" & _
"1、圆括号中有大写数字，位数不等 ...

感恩老师的回复，非常喜欢您的代码，能否麻烦您讲解一下？
我的目的：
1、自动编辑一楼附件里的文章，将（1）格式的自动加为书签，对应的上标（1）设置成超链接，与（1）书签相链接。
2、[p1]连同后面的换行符删除；
3、（一）设置成标题5.

		自动登录	找回密码
密码			免费注册

[已解决] 查找并添加书签