如何在一篇文档里提取如图所示的指定格式的多条字符串，并汇总到一个新的文本文档中？

酿雪 · 发表于 2017-6-29 22:47

请问如何在一篇文档里提取如图所示的指定格式的多条字符串，并汇总到一个新的文本文档中？
如，文档内容如下：

xxxhttp://xxxx.com/xxxx/xxxx/aaaa.mp4xxxxxxx

xxx"http:// xxxx.com/xxxx/xxxx/aaaa.mp3"xxxx

xxxx"http://xxxx.com/xaxx/bb4c8f7db0214fc9b547817116743170/a0aa.jpg"xxxxxx

xxxx"http://xxxx.com/xsxx/68e3d38315d846ae82ee07310521111e/a1aa.jpg"xxxxxx

xxxx"http://xxxx.com/xdxx/3dac9c7ea4c342c795ff017e176e6b16/a3aa.jpg"xxxxxx

xxxxxxxx

我需要从这个文档中提取以下内容并保存在一个新的文本文档中

http://xxxx.com/xaxx/bb4c8f7db0214fc9b547817116743170/a0aa.jpg

http://xxxx.com/xsxx/68e3d38315d846ae82ee07310521111e/a1aa.jpg

http://xxxx.com/xdxx/3dac9c7ea4c342c795ff017e176e6b16/a3aa.jpg

酿雪 · 发表于 2017-6-29 22:58

希望早日得到高手解答，我之前是一条条复制粘贴的，要吐血了，果然是一孕傻三年

小花鹿 · 发表于 2017-6-30 09:03

查找http*{1,}jpg ，使用通配符

duquancai · 发表于 2017-6-30 09:59

本帖最后由 duquancai 于 2017-7-4 01:28 编辑

Sub 提取图片网址_WordVBA()
s = Replace(ActiveDocument.Content.Text, vbCr, "\r")
Set D = CreateObject("htmlfile"): Set W = D.parentWindow
W.execScript "sr='" & s & "'.match(/http[:：][^\r]*jpg/g).join('\r\n')"
Open ThisDocument.Path & "\提取图片网址.txt" For Output As #1
Print #1, W.eval("sr")
Close #1
End Sub

zjgwzj · 发表于 2017-7-2 14:17

小花鹿发表于 2017-6-30 09:03
查找http*{1,}jpg ，使用通配符

这样是得不到正确的匹配结果的，呵呵

酿雪 · 发表于 2017-7-17 23:17

duquancai 发表于 2017-6-30 09:59
Sub 提取图片网址_WordVBA()
s = Replace(ActiveDocument.Content.Text, vbCr, "\r")
Set D = Cr ...

十分感谢

酿雪 · 发表于 2017-7-17 23:35

duquancai 发表于 2017-6-30 09:59
Sub 提取图片网址_WordVBA()
s = Replace(ActiveDocument.Content.Text, vbCr, "\r")
Set D = Cr ...

酿雪 · 发表于 2017-7-17 23:46

duquancai 发表于 2017-6-30 09:59
Sub 提取图片网址_WordVBA()
s = Replace(ActiveDocument.Content.Text, vbCr, "\r")
Set D = Cr ...

大神，我现在对提取的文档有新的需要，能帮忙看下不，新贴地址

http://club.excelhome.net/thread-1357880-1-1.html

酿雪 · 发表于 2017-7-17 23:48

duquancai 发表于 2017-6-30 09:59
Sub 提取图片网址_WordVBA()
s = Replace(ActiveDocument.Content.Text, vbCr, "\r")
Set D = Cr ...

大神，我现在对提取资源的地址有新需求，有时间能帮忙看一下不
新贴地址
http://club.excelhome.net/thread-1357880-1-1.html

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

[求助] 如何在一篇文档里提取如图所示的指定格式的多条字符串，并汇总到一个新的文本文档中？