一个利用VBA提取字符内链接的课题！

ah2005

单元格A1内的代码是从网页上采集到的代码

我需要的是：1、每个src=""之间的内容。

2、每个background=""之间的内容的内容。

3、提取后装在一个数组内，然后存到一个文本框内，并根据里面内容自动命名，这个已经实现，问题是前面2个怎么才能又快又简单。。
当然，src和background这之间的内容是很有规律的，都是一些图片的超级链接

以:http://开头，以gif,jpg,jpeg,bmp等结束

请大家指点，谢谢，狼版要是能来最好啊、、、

[ 本帖最后由 ah2005 于 2010-6-29 17:10 编辑 ]

hanter007

估计用正则判断比较好.

Zamyi

不明白src=""之间指什么之间。正则应该可以

ah2005

对的，在dreamweaer里面我的确是用的正则提取，问题是,VBA里可以吗？还有个问题，在EXCEL里面这些东西就变成纯文本的了，不能区分换行符号和空格。。。最关键的是，根据自己要求整理原数据很麻烦。

[ 本帖最后由 ah2005 于 2010-6-29 17:12 编辑 ]

figfig

[ 本帖最后由 figfig 于 2010-6-29 17:58 编辑 ]

ah2005

论坛神人太多了，这个是什么东东，第一次看到，、。。。。

figfig

Sub kkk()

'须安装ACTIVERUBY.才能运行
'下载地址  http://www.artonx.org/data/asr/ActiveRuby.msi
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
aa = [a1].Value
y = x.eval("kk=%Q(" & aa & ");arr=kk.scan(/(?:src=""|background="")(.*?)(?="")/);arr.flatten")
MsgBox Join(y, vbCrLf)
End Sub

aidixiao

ruby真是太神奇了。

alzeng

1. 
   
2. Sub GetStr()
   
3.     Dim Oj As Object, Arr, k%
   
4. 
   
5.     Arr = Split(Replace([A1], vbLf, " "), " ")
   
6.     Set Oj = CreateObject("ScriptControl"): Oj.Language = "JScript"
   
7.     Oj.Eval "function gets(str){return str.match(/(?:src|background)\=""(.+)(?="")/g,'')}"
   
8. 
   
9.     On Error Resume Next
   
10.     For k = 0 To UBound(Arr)
    
11.         [A65536].End(3)(2) = Split(Oj.codeobject.gets(Arr(k)), """")(1)
    
12.     Next
    
13. End Sub
    

复制代码

ah2005

一行图片对应一个名称
然后将每个图片下载下来保存到以
这个名称为名字的文件夹中间去。
有117行那么久要保存到117个文件夹中间去，。

这个视乎要用到高级语言哦
VBA应该能实现吧，看看高手们的杰作。，，，