要实现这个功能需要经过三个步骤：一，取得原页中的图片的地址。方法很多，可以用分割字符串，也可以用正则匹配。实践证明用正则匹配最为简单。经过分析图片的地址都保存在＜img＞标签中。我们可以先取得所有这个标签。过程如下：Set objRegExp = New Regexp'设置配置对象objRegExp.IgnoreCase = True‘忽略大小写objRegExp.Global = True’设置为全文搜索objRegExp.Pattern = "＜img.+？＞"'为了确保能准确地取出图片地址所以分为两层配置：首先找到里面的＜img＞标签，然后再取出里面的图片地址后面的getimgs函数就是实现后一个功能的。

strs=trim（str）

Set Matches =objRegExp.Execute（strs）‘开始执行配置For Each Match in Matches RetStr = RetStr &getimgs（ Match.Value ）’执行第二轮的匹配Next

所有的图片在里面都是这样的src="/wp-content/uploads/20130812" alt="鲜力田">

[返回首页]